1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-19 21:07:53 +02:00
Code Issues Releases Activity

#245 Ошибка при получение входящего письма по задаче не отправляются уведомления.

Browse Source 
Хранение предмета взаимодействия вынесено в отдельный регистр, прежний код выдавал ошибку и не было вызова этого кода перед записью входящего письма.
This commit is contained in:
Anton Ivanov 2020-08-28 14:28:09 +03:00
parent 4f6caf17c7
commit f7740c2c5c
4 changed files with 62 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -486,7 +486,8 @@
//Если ТекПользователь = Исполнитель Тогда
// Возврат;
//Конецесли;
Если ТекПользователь = Исполнитель
Если НЕ ЭтоВходящееПисьмо(СобытияВИстории)
И ТекПользователь = Исполнитель
И НЕ ТекПользователь.узОтправлятьУведомленияОДействияхПользователяЕмуНаПочту Тогда
Возврат;
Конецесли;
@ -529,6 +530,26 @@
КонецПроцедуры
Функция ЭтоВходящееПисьмо(СобытияВИстории)
пЭтоВходящееПисьмо = Ложь;
пТЗСобытияВИсторииДляУведомлений = СобытияВИстории.ТЗСобытияВИсторииДляУведомлений;
ВидСобытия_ВходящееПисьмо = ПредопределенноеЗначение("Перечисление.узВидыСобытий.ВходящееПисьмо");
Для каждого СтрокаТЗСобытияВИсторииДляУведомлений из пТЗСобытияВИсторииДляУведомлений Цикл
Если СтрокаТЗСобытияВИсторииДляУведомлений.ВидСобытия = ВидСобытия_ВходящееПисьмо Тогда
пЭтоВходящееПисьмо = Истина;
Возврат пЭтоВходящееПисьмо;
КонецЕсли;
КонецЦикла;
Возврат пЭтоВходящееПисьмо;
КонецФункции
Процедура ОтправитьУведомлениеНаПочтуСтаромуИсполнителю(НастройкиСобытий,СобытияВИстории)
СтарыйИсполнитель = СобытияВИстории.СтарыйИсполнитель;

1
src/cf/CommonModules/УправлениеЭлектроннойПочтой/Ext/Module.bsl
View File

@ -1537,6 +1537,7 @@
узОбщийМодульСервер.ЗаполнитьПредметВПисьме_ЗадачаПоТемеПисьма(ДанныеУчетнойЗаписи.Ссылка,Письмо,Сообщение,Предмет);
Письмо.ДополнительныеСвойства.Вставить("узОтправитьУведомлениеОВходящемПисьме",Истина);
Письмо.ДополнительныеСвойства.Вставить("узПредмет",Предмет);
Письмо.Записать();
КонецЕсли;
//- #286 Иванов А.Б. 2017-12-17

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

@ -856,14 +856,20 @@
КонецФункции
Процедура ОтправитьУведомлениеПередЗаписьюВходящегоПисьма(Источник) Экспорт
//Возврат;
пЗадача = Источник.Предмет;
Если НЕ ЗначениеЗаполнено(пЗадача) Тогда
пДополнительныеСвойства = Источник.ДополнительныеСвойства;
Если НЕ пДополнительныеСвойства.Свойство("узОтправитьУведомлениеОВходящемПисьме") Тогда
Возврат;
Конецесли;
Если НЕ Источник.ДополнительныеСвойства.Свойство("узОтправитьУведомлениеОВходящемПисьме") Тогда
Если НЕ пДополнительныеСвойства.Свойство("узПредмет") Тогда
Возврат;
Конецесли;
пЗадача = пДополнительныеСвойства.узПредмет;
Если НЕ ЗначениеЗаполнено(пЗадача) Тогда
Возврат;
Конецесли;
@ -1296,5 +1302,10 @@
КонецЕсли;
КонецЦикла;
КонецПроцедуры //-ГЕНА
Процедура узПередЗаписьюЭлектронноеПисьмоВходящееПередЗаписью(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт
ОтправитьУведомлениеПередЗаписьюВходящегоПисьма(Источник);
КонецПроцедуры
//-ГЕНА

20
src/cf/EventSubscriptions/узПередЗаписьюЭлектронноеПисьмоВходящее.xml Normal file
View File

@ -0,0 +1,20 @@
<?xml version="1.0" encoding="UTF-8"?>
<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.10">
<EventSubscription uuid="62631f79-6fe5-4933-9d82-8257893c0e18">
<Properties>
<Name>узПередЗаписьюЭлектронноеПисьмоВходящее</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Уз перед записью электронное письмо входящее</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Source>
<v8:Type>cfg:DocumentObject.ЭлектронноеПисьмоВходящее</v8:Type>
</Source>
<Event>BeforeWrite</Event>
<Handler>CommonModule.узОбщийМодульСервер.узПередЗаписьюЭлектронноеПисьмоВходящееПередЗаписью</Handler>
</Properties>
</EventSubscription>
</MetaDataObject>