1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-17 20:58:01 +02:00
Code Issues Releases Activity

№286 Servicedesk

Browse Source
This commit is contained in:
Anton Ivanov 2018-02-18 10:40:28 +03:00
parent cdb2cb5524
commit 91f84c8d4e
2 changed files with 25 additions and 4 deletions
src/cf
Catalogs/узЗадачи/Ext
ObjectModule.bsl
CommonModules/узОбщийМодульСервер/Ext
Module.bsl

1
src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl

@ -603,6 +603,7 @@
ДопПараметры.Вставить("ТемаПисьма",ПараметрыПисьма.ТемаПисьма);
ДопПараметры.Вставить("ТЗАдресаЭлектроннойПочты",ТЗАдресаЭлектроннойПочты);
ДопПараметры.Вставить("ЭтоОтправкаКонтрагентам",ЭтоОтправкаКонтрагентам);
ДопПараметры.Вставить("Задача",Ссылка);
пУчетнаяЗапись = ПолучитьУчетнуюЗаписьДляОтправкиУведомленийДляКонтрагентов();
Если ЗначениеЗаполнено(пУчетнаяЗапись) Тогда

24
src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl

@ -25,11 +25,21 @@
ДокОбъект.УчетнаяЗапись = ПредопределенноеЗначение("Справочник.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты");
Если ДопПараметры.Свойство("УчетнаяЗапись") Тогда
ДокОбъект.УчетнаяЗапись = ДопПараметры.УчетнаяЗапись;
ДокОбъект.ОтправительПредставление = ДокОбъект.УчетнаяЗапись.Наименование;
Конецесли;
ЭтоОтправкаКонтрагентам = Ложь;
Если ДопПараметры.Свойство("ЭтоОтправкаКонтрагентам")
И ДопПараметры.ЭтоОтправкаКонтрагентам Тогда
ЭтоОтправкаКонтрагентам = Истина;
Конецесли;
Если ДопПараметры.Свойство("Задача") Тогда
ДокОбъект.Предмет = ДопПараметры.Задача;
Конецесли;
пУдалятьПослеОтправки = Истина;
Если ДопПараметры.Свойство("ЭтоОтправкаКонтрагентам")
И ДопПараметры.ЭтоОтправкаКонтрагентам Тогда
Если ЭтоОтправкаКонтрагентам Тогда
пУдалятьПослеОтправки = Ложь;
Конецесли;
@ -48,6 +58,16 @@
Конеццикла;
ДокОбъект.СформироватьПредставленияКонтактов();
ДокОбъект.Записать();
Если ДопПараметры.Свойство("Задача") Тогда
пМассивВзаимодействий = Новый Массив();
пМассивВзаимодействий.Добавить(ДокОбъект.Ссылка);
ВзаимодействияВызовСервера.УстановитьПредметДляМассиваВзаимодействий(
пМассивВзаимодействий,
ДопПараметры.Задача);
Конецесли;
КонецПроцедуры
Функция ПолучитьТЗАдресаЭлектроннойПочты(ДопПараметры)