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

Хранение предмета взаимодействия вынесено в отдельный регистр, прежний код выдавал ошибку и не было вызова этого кода перед записью входящего письма.

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

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

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

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

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

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

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

@@ -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>