From f7740c2c5cc0bca42592cc39c3d004e56b2c4fd3 Mon Sep 17 00:00:00 2001 From: Anton Ivanov Date: Fri, 28 Aug 2020 14:28:09 +0300 Subject: [PATCH] =?UTF-8?q?#245=20=D0=9E=D1=88=D0=B8=D0=B1=D0=BA=D0=B0=20?= =?UTF-8?q?=D0=BF=D1=80=D0=B8=20=D0=BF=D0=BE=D0=BB=D1=83=D1=87=D0=B5=D0=BD?= =?UTF-8?q?=D0=B8=D0=B5=20=D0=B2=D1=85=D0=BE=D0=B4=D1=8F=D1=89=D0=B5=D0=B3?= =?UTF-8?q?=D0=BE=20=D0=BF=D0=B8=D1=81=D1=8C=D0=BC=D0=B0=20=D0=BF=D0=BE=20?= =?UTF-8?q?=D0=B7=D0=B0=D0=B4=D0=B0=D1=87=D0=B5=20=D0=BD=D0=B5=20=D0=BE?= =?UTF-8?q?=D1=82=D0=BF=D1=80=D0=B0=D0=B2=D0=BB=D1=8F=D1=8E=D1=82=D1=81?= =?UTF-8?q?=D1=8F=20=D1=83=D0=B2=D0=B5=D0=B4=D0=BE=D0=BC=D0=BB=D0=B5=D0=BD?= =?UTF-8?q?=D0=B8=D1=8F.=20=D0=A5=D1=80=D0=B0=D0=BD=D0=B5=D0=BD=D0=B8?= =?UTF-8?q?=D0=B5=20=D0=BF=D1=80=D0=B5=D0=B4=D0=BC=D0=B5=D1=82=D0=B0=20?= =?UTF-8?q?=D0=B2=D0=B7=D0=B0=D0=B8=D0=BC=D0=BE=D0=B4=D0=B5=D0=B9=D1=81?= =?UTF-8?q?=D1=82=D0=B2=D0=B8=D1=8F=20=D0=B2=D1=8B=D0=BD=D0=B5=D1=81=D0=B5?= =?UTF-8?q?=D0=BD=D0=BE=20=D0=B2=20=D0=BE=D1=82=D0=B4=D0=B5=D0=BB=D1=8C?= =?UTF-8?q?=D0=BD=D1=8B=D0=B9=20=D1=80=D0=B5=D0=B3=D0=B8=D1=81=D1=82=D1=80?= =?UTF-8?q?,=20=D0=BF=D1=80=D0=B5=D0=B6=D0=BD=D0=B8=D0=B9=20=D0=BA=D0=BE?= =?UTF-8?q?=D0=B4=20=D0=B2=D1=8B=D0=B4=D0=B0=D0=B2=D0=B0=D0=BB=20=D0=BE?= =?UTF-8?q?=D1=88=D0=B8=D0=B1=D0=BA=D1=83=20=D0=B8=20=D0=BD=D0=B5=20=D0=B1?= =?UTF-8?q?=D1=8B=D0=BB=D0=BE=20=D0=B2=D1=8B=D0=B7=D0=BE=D0=B2=D0=B0=20?= =?UTF-8?q?=D1=8D=D1=82=D0=BE=D0=B3=D0=BE=20=D0=BA=D0=BE=D0=B4=D0=B0=20?= =?UTF-8?q?=D0=BF=D0=B5=D1=80=D0=B5=D0=B4=20=D0=B7=D0=B0=D0=BF=D0=B8=D1=81?= =?UTF-8?q?=D1=8C=D1=8E=20=D0=B2=D1=85=D0=BE=D0=B4=D1=8F=D1=89=D0=B5=D0=B3?= =?UTF-8?q?=D0=BE=20=D0=BF=D0=B8=D1=81=D1=8C=D0=BC=D0=B0.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl | 23 +++++++++++++++- .../Ext/Module.bsl | 1 + .../узОбщийМодульСервер/Ext/Module.bsl | 27 +++++++++++++------ ...зПередЗаписьюЭлектронноеПисьмоВходящее.xml | 20 ++++++++++++++ 4 files changed, 62 insertions(+), 9 deletions(-) create mode 100644 src/cf/EventSubscriptions/узПередЗаписьюЭлектронноеПисьмоВходящее.xml diff --git a/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl b/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl index 540cd2a1a..2f892b608 100644 --- a/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl +++ b/src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl @@ -486,7 +486,8 @@ //Если ТекПользователь = Исполнитель Тогда // Возврат; //Конецесли; - Если ТекПользователь = Исполнитель + Если НЕ ЭтоВходящееПисьмо(СобытияВИстории) + И ТекПользователь = Исполнитель И НЕ ТекПользователь.узОтправлятьУведомленияОДействияхПользователяЕмуНаПочту Тогда Возврат; Конецесли; @@ -529,6 +530,26 @@ КонецПроцедуры +Функция ЭтоВходящееПисьмо(СобытияВИстории) + пЭтоВходящееПисьмо = Ложь; + + пТЗСобытияВИсторииДляУведомлений = СобытияВИстории.ТЗСобытияВИсторииДляУведомлений; + + ВидСобытия_ВходящееПисьмо = ПредопределенноеЗначение("Перечисление.узВидыСобытий.ВходящееПисьмо"); + + Для каждого СтрокаТЗСобытияВИсторииДляУведомлений из пТЗСобытияВИсторииДляУведомлений Цикл + + Если СтрокаТЗСобытияВИсторииДляУведомлений.ВидСобытия = ВидСобытия_ВходящееПисьмо Тогда + пЭтоВходящееПисьмо = Истина; + Возврат пЭтоВходящееПисьмо; + КонецЕсли; + + КонецЦикла; + + Возврат пЭтоВходящееПисьмо; + +КонецФункции + Процедура ОтправитьУведомлениеНаПочтуСтаромуИсполнителю(НастройкиСобытий,СобытияВИстории) СтарыйИсполнитель = СобытияВИстории.СтарыйИсполнитель; diff --git a/src/cf/CommonModules/УправлениеЭлектроннойПочтой/Ext/Module.bsl b/src/cf/CommonModules/УправлениеЭлектроннойПочтой/Ext/Module.bsl index 11a041444..bf551cbdd 100644 --- a/src/cf/CommonModules/УправлениеЭлектроннойПочтой/Ext/Module.bsl +++ b/src/cf/CommonModules/УправлениеЭлектроннойПочтой/Ext/Module.bsl @@ -1537,6 +1537,7 @@ узОбщийМодульСервер.ЗаполнитьПредметВПисьме_ЗадачаПоТемеПисьма(ДанныеУчетнойЗаписи.Ссылка,Письмо,Сообщение,Предмет); Письмо.ДополнительныеСвойства.Вставить("узОтправитьУведомлениеОВходящемПисьме",Истина); + Письмо.ДополнительныеСвойства.Вставить("узПредмет",Предмет); Письмо.Записать(); КонецЕсли; //- #286 Иванов А.Б. 2017-12-17 diff --git a/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl b/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl index c5c1b6a65..5433705fb 100644 --- a/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl +++ b/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl @@ -856,16 +856,22 @@ КонецФункции Процедура ОтправитьУведомлениеПередЗаписьюВходящегоПисьма(Источник) Экспорт - //Возврат; - пЗадача = Источник.Предмет; + + пДополнительныеСвойства = Источник.ДополнительныеСвойства; + + Если НЕ пДополнительныеСвойства.Свойство("узОтправитьУведомлениеОВходящемПисьме") Тогда + Возврат; + Конецесли; + + Если НЕ пДополнительныеСвойства.Свойство("узПредмет") Тогда + Возврат; + Конецесли; + + пЗадача = пДополнительныеСвойства.узПредмет; Если НЕ ЗначениеЗаполнено(пЗадача) Тогда Возврат; - Конецесли; - - Если НЕ Источник.ДополнительныеСвойства.Свойство("узОтправитьУведомлениеОВходящемПисьме") Тогда - Возврат; - Конецесли; + Конецесли; СобытияВИстории = Новый Структура(); СобытияВИстории.Вставить("СтарыйИсполнитель",пЗадача.Исполнитель); @@ -1296,5 +1302,10 @@ КонецЕсли; КонецЦикла; +КонецПроцедуры //-ГЕНА + +Процедура узПередЗаписьюЭлектронноеПисьмоВходящееПередЗаписью(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт + + ОтправитьУведомлениеПередЗаписьюВходящегоПисьма(Источник); + КонецПроцедуры -//-ГЕНА \ No newline at end of file diff --git a/src/cf/EventSubscriptions/узПередЗаписьюЭлектронноеПисьмоВходящее.xml b/src/cf/EventSubscriptions/узПередЗаписьюЭлектронноеПисьмоВходящее.xml new file mode 100644 index 000000000..ccf3c6bb5 --- /dev/null +++ b/src/cf/EventSubscriptions/узПередЗаписьюЭлектронноеПисьмоВходящее.xml @@ -0,0 +1,20 @@ + + + + + узПередЗаписьюЭлектронноеПисьмоВходящее + + + ru + Уз перед записью электронное письмо входящее + + + + + cfg:DocumentObject.ЭлектронноеПисьмоВходящее + + BeforeWrite + CommonModule.узОбщийМодульСервер.узПередЗаписьюЭлектронноеПисьмоВходящееПередЗаписью + + + \ No newline at end of file