Каталог решений - Установка срока эскалации задач в ДО

В конфигурации Документооборот можно установить правила эскалации задач, по задачам, которые:

1. Просрочены на время T.

2. Будут просрочены через время Т.

3. Не выполнены за время T.

Стандартное минимальное время Т кратно одному часу.

Расширение позволяет указать время для правил эскалации задач кратно минуте.

На форму элемента справочника "Правила эскалации задач" добавлен реквизит "СрокМинут".

Код формы элемента справочника "Правила эскалации задач"

&НаСервере
Процедура Расш2_ПриСозданииНаСервереПосле(Отказ, СтандартнаяОбработка)
	
	СрокМинут = Цел( (Объект.Ссылка.Срок - 86400*СрокДней- 3600*СрокЧасов) /60);
	
КонецПроцедуры

&НаСервере
Процедура Расш2_ПередЗаписьюНаСервереВместо(Отказ, ТекущийОбъект, ПараметрыЗаписи)
	
	ТекущийОбъект.Срок = СрокДней * 86400 + СрокЧасов * 3600 + СрокМинут * 60;
	ПеренестиПроцессыВТабличнуюЧасть(ТекущийОбъект.Процессы, "ДеревоПроцессов");
	
КонецПроцедуры


&НаСервере
Процедура Расш2_ОбработкаПроверкиЗаполненияНаСервереВместо(Отказ, ПроверяемыеРеквизиты)
	
	Если Объект.ВариантСрока <> Перечисления.ВариантыСрокаПравилЭскалацииЗадач.ЗадачаПросрочена
		И СрокДней = 0 И СрокЧасов = 0 И СрокМинут = 0 Тогда
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
			НСтр("ru = 'Укажите сроки!'"),,,,Отказ);
	КонецЕсли;
	Если КоличествоПроцессов = 0 Тогда
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
			НСтр("ru = 'Не указано для каких процессов сработает правило эскалации'"),,"ДеревоПроцессов",,Отказ);
	КонецЕсли;
	
	ИсключаемыеРеквизиты = Новый Массив;
	Если Объект.Действие <> Перечисления.ДействияПравилЭскалацииЗадач.Перенаправление Тогда
		ИсключаемыеРеквизиты.Добавить("НаправлениеЭскалации");
	КонецЕсли;
	ОбщегоНазначения.УдалитьНепроверяемыеРеквизитыИзМассива(ПроверяемыеРеквизиты, ИсключаемыеРеквизиты);

КонецПроцедуры

Протестировано на версии ДО 2.1.34.1.