From 91f84c8d4ebdd6c2f1c0a4c537cee17a44eac110 Mon Sep 17 00:00:00 2001 From: Anton Ivanov Date: Sun, 18 Feb 2018 10:40:28 +0300 Subject: [PATCH] =?UTF-8?q?=E2=84=96286=20Servicedesk?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl | 3 ++- .../узОбщийМодульСервер/Ext/Module.bsl | 26 ++++++++++++++++--- 2 files changed, 25 insertions(+), 4 deletions(-) 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 @@ СтрокаПолучателиПисьма.Контакт = ПользовательКому; Конеццикла; ДокОбъект.СформироватьПредставленияКонтактов(); - ДокОбъект.Записать(); + ДокОбъект.Записать(); + + Если ДопПараметры.Свойство("Задача") Тогда + пМассивВзаимодействий = Новый Массив(); + пМассивВзаимодействий.Добавить(ДокОбъект.Ссылка); + + ВзаимодействияВызовСервера.УстановитьПредметДляМассиваВзаимодействий( + пМассивВзаимодействий, + ДопПараметры.Задача); + Конецесли; + КонецПроцедуры Функция ПолучитьТЗАдресаЭлектроннойПочты(ДопПараметры)