diff --git a/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl b/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl index 774af06da..0edbeedc7 100644 --- a/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl +++ b/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl @@ -247,7 +247,7 @@ Если НЕ ЗначениеЗаполнено(Выборка.КлючСтрокиСтарый) Тогда пТекстСообщения = узОбщийМодульСервер.ПолучитьТекстСообщения("Новый комментарий: %1",14); ТекстИзменения = СтрШаблон(пТекстСообщения,Выборка.КомментарийНовый); - + узОбщийМодульСервер.ДобавитьАвтораКомментарияВНаблюдателиЗаЗадачей(Объект.Ссылка, Пользователи.ТекущийПользователь()); ЕстьДобавленныеКомментарии = Истина; ИначеЕсли СокрЛП(Выборка.КомментарийСтарый) <> СокрЛП(Выборка.КомментарийНовый) Тогда diff --git a/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl b/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl index 61e3d6b6f..c646a77b3 100644 --- a/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl +++ b/src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl @@ -407,7 +407,7 @@ ЭтоДобавлениеКомментария = РезультатЗакрытия.ЭтоДобавлениеКомментария; Если ЭтоДобавлениеКомментария Тогда СтрокаКомментарии = Объект.Комментарии.Добавить(); - СтрокаКомментарии.КлючСтроки = ПолучитьНовыйКлючСтрокиДляКомментария(); + СтрокаКомментарии.КлючСтроки = ПолучитьНовыйКлючСтрокиДляКомментария(); Иначе ПараметрыОтбора=Новый Структура(); ПараметрыОтбора.Вставить("КлючСтроки",РезультатЗакрытия.КлючСтроки); diff --git a/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl b/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl index b1dcbceb5..048f19ceb 100644 --- a/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl +++ b/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl @@ -615,6 +615,29 @@ ////API.CreateTask(); КонецПроцедуры +Процедура ДобавитьАвтораКомментарияВНаблюдателиЗаЗадачей(Задача, Автор) Экспорт + + ДобавитьПользователяВНаблюдателиЗаЗадачей(Задача, Автор); + +КонецПроцедуры + +Процедура ДобавитьПользователяВНаблюдателиЗаЗадачей(Задача, Пользователь) + + Если РегистрыСведений.узНаблюдателиЗаЗадачами.ЕстьЛиСлежениеЗаЗадачейУТекущегоПользователя(Задача) Тогда + Возврат; + КонецЕсли; + + МассивЗадач = Новый Массив; + МассивЗадач.Добавить(Задача); + + ДополнительныеПараметры = Новый Структура(); + ДополнительныеПараметры.Вставить("Пользователь",Пользователи); + ДополнительныеПараметры.Вставить("МассивЗадач", МассивЗадач); + + РегистрыСведений.узНаблюдателиЗаЗадачами.СледитьЗаЗадачей(ДополнительныеПараметры); + +КонецПроцедуры + Функция ОпределитьНастройкиИзПравилОбработки(УчетнаяЗапись,Письмо) РезультатФункции = Новый Структура(); @@ -801,3 +824,4 @@ КонецПроцедуры +