Задача = Событие.Источник.Ссылка;
ЗаписьЖурналаРегистрации("ТПЭ.Пользовательский дополнительный обработчик",
УровеньЖурналаРегистрации.Информация,
, , НСтр("ru = 'Пользовательский дополнительный обработчик Рассмотрение. Начало'"));
Если Задача.ТочкаМаршрута = БизнесПроцессы.Рассмотрение.ТочкиМаршрута.Рассмотреть тогда
Документ = ОбзорЗадачВызовСервера.ПолучитьОсновнойПредметДокумент(Задача.Предметы);
если ЗначениеЗаполнено(Документ) тогда
если Документ.ВидДокумента.Наименование = "Входящее письмо" тогда
если ЗначениеЗаполнено(Документ.СрокИсполнения) тогда
ЗадачаРассмотреть = Задача.ПолучитьОбъект();
ЗадачаРассмотреть.СрокИсполнения = НачалоДня(Документ.СрокИсполнения);
ЗадачаРассмотреть.Записать();
конецесли;
конецесли;
конецесли;
КонецЕсли;
ЗаписьЖурналаРегистрации("ТПЭ.Пользовательский дополнительный обработчик",
УровеньЖурналаРегистрации.Информация,
, , НСтр("ru = 'Пользовательский дополнительный обработчик Рассмотрение. Конец'"));
Вот результат: