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