Можно доработать конфигурацию таким образом:
1. В правиле событий "Задание (добавление обычного комментария)" в поле "условие" выбрать "Добавление обычного комментария (без смены этапа)".
2. В модуле менеджера в справочнике "Комментарии" доработать функцию "ПроверкаУсловияПравилаСобытия"
Функция ПроверкаУсловияПравилаСобытия(Знач ПравилоСобытия, Знач Структура = Неопределено,
Знач Источник = Неопределено) Экспорт
ИмяСобытия = ПравилоСобытия.ПроверкаРеквизитовОбъектаИмяУсловия;
Если ПравилоСобытия.ТипПравила = Перечисления.ТипыПравилСобытий.ИзменениеОбъекта Тогда
Если Источник.Приватный = Ложь И ИмяСобытия = "ЗаданиеИзменениеОбъектаДобавлениеОбычногоКомментария" Тогда
Возврат Истина;
// Добавляем свой вариант -->
ИначеЕсли ИмяСобытия = "ЗаданиеИзменениеОбъектаДобавлениеОбычногоКомментарияБезСменыЭтапа" Тогда
Если Источник.Приватный = Ложь
И Не СтрНачинаетсяС(Источник.Заголовок, "Смена этапа:") Тогда
Результат = Истина;
КонецЕсли;
// Добавляем свой вариант <--
ИначеЕсли Источник.Приватный = Истина И ИмяСобытия = "ЗаданиеИзменениеОбъектаДобавлениеПриватногоКомментария" Тогда
Возврат Истина;
ИначеЕсли ИмяСобытия = "СтатьяБазыЗнанийИзменениеОбъектаДобавлениеКомментария" Тогда
Возврат Истина;
КонецЕсли;
КонецЕсли;
Возврат Ложь;
КонецФункции
3. В модуле менеджера документа "Задание" доработать функцию "УсловияПравилаСобытий"
Функция УсловияПравилаСобытий() Экспорт
СоответствиеИзменениеОбъекта = Новый Соответствие;
СоответствиеИзменениеОбъекта.Вставить("ЗаданиеИзменениеОбъектаИзменениеКлючевыхРеквизитов",
НСтр("ru = 'Изменение ключевых реквизитов'"));
СоответствиеИзменениеОбъекта.Вставить("ЗаданиеИзменениеОбъектаДобавлениеОбычногоКомментария",
НСтр("ru = 'Добавление обычного комментария'"));
// Добавляем свой вариант -->
СоответствиеИзменениеОбъекта.Вставить("ЗаданиеИзменениеОбъектаДобавлениеОбычногоКомментарияБезСменыЭтапа", НСтр("ru = 'Добавление обычного комментария (без смены этапа)'"));
// Добавляем свой вариант <--
После этих доработок инициатору при закрытии заявки приходит одно письмо о закрытии с комментарием.
1. В правиле событий "Задание (добавление обычного комментария)" в поле "условие" выбрать "Добавление обычного комментария (без смены этапа)".
2. В модуле менеджера в справочнике "Комментарии" доработать функцию "ПроверкаУсловияПравилаСобытия"
Функция ПроверкаУсловияПравилаСобытия(Знач ПравилоСобытия, Знач Структура = Неопределено,
Знач Источник = Неопределено) Экспорт
ИмяСобытия = ПравилоСобытия.ПроверкаРеквизитовОбъектаИмяУсловия;
Если ПравилоСобытия.ТипПравила = Перечисления.ТипыПравилСобытий.ИзменениеОбъекта Тогда
Если Источник.Приватный = Ложь И ИмяСобытия = "ЗаданиеИзменениеОбъектаДобавлениеОбычногоКомментария" Тогда
Возврат Истина;
// Добавляем свой вариант -->
ИначеЕсли ИмяСобытия = "ЗаданиеИзменениеОбъектаДобавлениеОбычногоКомментарияБезСменыЭтапа" Тогда
Если Источник.Приватный = Ложь
И Не СтрНачинаетсяС(Источник.Заголовок, "Смена этапа:") Тогда
Результат = Истина;
КонецЕсли;
// Добавляем свой вариант <--
ИначеЕсли Источник.Приватный = Истина И ИмяСобытия = "ЗаданиеИзменениеОбъектаДобавлениеПриватногоКомментария" Тогда
Возврат Истина;
ИначеЕсли ИмяСобытия = "СтатьяБазыЗнанийИзменениеОбъектаДобавлениеКомментария" Тогда
Возврат Истина;
КонецЕсли;
КонецЕсли;
Возврат Ложь;
КонецФункции
3. В модуле менеджера документа "Задание" доработать функцию "УсловияПравилаСобытий"
Функция УсловияПравилаСобытий() Экспорт
СоответствиеИзменениеОбъекта = Новый Соответствие;
СоответствиеИзменениеОбъекта.Вставить("ЗаданиеИзменениеОбъектаИзменениеКлючевыхРеквизитов",
НСтр("ru = 'Изменение ключевых реквизитов'"));
СоответствиеИзменениеОбъекта.Вставить("ЗаданиеИзменениеОбъектаДобавлениеОбычногоКомментария",
НСтр("ru = 'Добавление обычного комментария'"));
// Добавляем свой вариант -->
СоответствиеИзменениеОбъекта.Вставить("ЗаданиеИзменениеОбъектаДобавлениеОбычногоКомментарияБезСменыЭтапа", НСтр("ru = 'Добавление обычного комментария (без смены этапа)'"));
// Добавляем свой вариант <--
После этих доработок инициатору при закрытии заявки приходит одно письмо о закрытии с комментарием.