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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl
View File

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

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

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