diff --git a/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl b/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl index c5e8bf35b..1e6f5f4e8 100644 --- a/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl +++ b/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl @@ -602,7 +602,8 @@ ДопПараметры.Вставить("ТекстПисьма",ПараметрыПисьма.ТекстПисьма); ДопПараметры.Вставить("ТемаПисьма",ПараметрыПисьма.ТемаПисьма); ДопПараметры.Вставить("ТЗАдресаЭлектроннойПочты",ТЗАдресаЭлектроннойПочты); - ДопПараметры.Вставить("ЭтоОтправкаКонтрагентам",ЭтоОтправкаКонтрагентам); + ДопПараметры.Вставить("ЭтоОтправкаКонтрагентам",ЭтоОтправкаКонтрагентам); + ДопПараметры.Вставить("Задача",Ссылка); пУчетнаяЗапись = ПолучитьУчетнуюЗаписьДляОтправкиУведомленийДляКонтрагентов(); Если ЗначениеЗаполнено(пУчетнаяЗапись) Тогда diff --git a/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl b/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl index 5996770ed..fb38ac90f 100644 --- a/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl +++ b/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl @@ -25,12 +25,22 @@ ДокОбъект.УчетнаяЗапись = ПредопределенноеЗначение("Справочник.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты"); Если ДопПараметры.Свойство("УчетнаяЗапись") Тогда ДокОбъект.УчетнаяЗапись = ДопПараметры.УчетнаяЗапись; + ДокОбъект.ОтправительПредставление = ДокОбъект.УчетнаяЗапись.Наименование; Конецесли; - пУдалятьПослеОтправки = Истина; + ЭтоОтправкаКонтрагентам = Ложь; Если ДопПараметры.Свойство("ЭтоОтправкаКонтрагентам") И ДопПараметры.ЭтоОтправкаКонтрагентам Тогда - пУдалятьПослеОтправки = Ложь; + ЭтоОтправкаКонтрагентам = Истина; + Конецесли; + + Если ДопПараметры.Свойство("Задача") Тогда + ДокОбъект.Предмет = ДопПараметры.Задача; + Конецесли; + + пУдалятьПослеОтправки = Истина; + Если ЭтоОтправкаКонтрагентам Тогда + пУдалятьПослеОтправки = Ложь; Конецесли; ДокОбъект.УдалятьПослеОтправки = пУдалятьПослеОтправки; @@ -47,7 +57,17 @@ СтрокаПолучателиПисьма.Контакт = ПользовательКому; Конеццикла; ДокОбъект.СформироватьПредставленияКонтактов(); - ДокОбъект.Записать(); + ДокОбъект.Записать(); + + Если ДопПараметры.Свойство("Задача") Тогда + пМассивВзаимодействий = Новый Массив(); + пМассивВзаимодействий.Добавить(ДокОбъект.Ссылка); + + ВзаимодействияВызовСервера.УстановитьПредметДляМассиваВзаимодействий( + пМассивВзаимодействий, + ДопПараметры.Задача); + Конецесли; + КонецПроцедуры Функция ПолучитьТЗАдресаЭлектроннойПочты(ДопПараметры)