From 6bd88bfb0984557bc1cdd0c7a78f9ff03297f4c4 Mon Sep 17 00:00:00 2001 From: Anton Ivanov Date: Sun, 10 Feb 2019 10:38:12 +0300 Subject: [PATCH] =?UTF-8?q?@79vlad=20=20=D0=94=D0=BE=D1=80=D0=B0=D0=B1?= =?UTF-8?q?=D0=BE=D1=82=D0=BA=D0=B0:=20=D0=95=D1=81=D0=BB=D0=B8=20=D1=80?= =?UTF-8?q?=D0=B0=D0=B7=D1=80=D0=B0=D0=B1=D0=BE=D1=82=D1=87=D0=B8=D0=BA=20?= =?UTF-8?q?=D0=BE=D1=82=D0=BF=D1=80=D0=B0=D0=B2=D0=B8=D0=BB=20=D0=BF=D0=B8?= =?UTF-8?q?=D1=81=D1=8C=D0=BC=D0=BE=20(=D0=B4=D0=BB=D1=8F=20=D1=80=D0=B5?= =?UTF-8?q?=D0=B3=D0=B8=D1=81=D1=82=D1=80=D0=B0=D1=86=D0=B8=D0=B8=20=D0=BD?= =?UTF-8?q?=D0=BE=D0=B2=D0=BE=D0=B9=20=D0=B7=D0=B0=D0=B4=D0=B0=D1=87=D0=B8?= =?UTF-8?q?)=20-=20=D1=82=D0=BE=20=D0=BE=D0=BD=20=D0=B0=D0=B2=D1=82=D0=BE?= =?UTF-8?q?=D0=BC=D0=B0=D1=82=D0=B8=D1=87=D0=B5=D1=81=D0=BA=D0=B8=20=D1=81?= =?UTF-8?q?=D1=82=D0=B0=D0=BD=D0=BE=D0=B2=D0=B8=D1=82=D1=81=D1=8F=20=D0=B8?= =?UTF-8?q?=D1=81=D0=BF=D0=BE=D0=BB=D0=BD=D0=B8=D1=82=D0=B5=D0=BB=D0=B5?= =?UTF-8?q?=D0=BC=20#156?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Forms/ФормаЭлемента/Ext/Form.xml | 13 ++++++++ src/cf/CommonModules/API/Ext/Module.bsl | 33 +++++++++++++++++++ .../узОбщийМодульСервер/Ext/Module.bsl | 33 +++++++++++++++++++ .../Ext/ObjectModule.bsl | 26 ++++++++++++++- 4 files changed, 104 insertions(+), 1 deletion(-) diff --git a/src/cf/Catalogs/Пользователи/Forms/ФормаЭлемента/Ext/Form.xml b/src/cf/Catalogs/Пользователи/Forms/ФормаЭлемента/Ext/Form.xml index 790696806..5aefdab72 100644 --- a/src/cf/Catalogs/Пользователи/Forms/ФормаЭлемента/Ext/Form.xml +++ b/src/cf/Catalogs/Пользователи/Forms/ФормаЭлемента/Ext/Form.xml @@ -464,6 +464,19 @@ Click "Write" to sort out the problem and not to show the warning message. + + Объект.узАвтоматическиСтановитьсяИсполнителемЕслиПрислалПисьмо + Right + Tumbler + + + ru + БЛ=Нет; БИ=Да + + + + + Объект.узАвтоматическиСтановитсяНаблюдателемЗаЗадачейЕслиДобавилКомментарий Right diff --git a/src/cf/CommonModules/API/Ext/Module.bsl b/src/cf/CommonModules/API/Ext/Module.bsl index ed02b7ec0..69fae9529 100644 --- a/src/cf/CommonModules/API/Ext/Module.bsl +++ b/src/cf/CommonModules/API/Ext/Module.bsl @@ -10,6 +10,39 @@ СпрОбъект.Статус = Статус; СпрОбъект.Родитель = Родитель; СпрОбъект.Контрагент = Контрагент; + + // +++ Григорьев 07.02.2019 + СпрОбъект.Статус = ПредопределенноеЗначение("Справочник.узВариантыВажностиЗадачи.Обычная"); + // --- Григорьев 07.02.2019 + + + // +++ 79Vlad 06.02.2019 + //Если Контрагент является и пользователем ИБ, то установим его исполнителем + Если ЗначениеЗаполнено(СпрОбъект.Контрагент) Тогда + МассивКонтрагентов = Новый Массив(); + МассивКонтрагентов.Добавить(СпрОбъект.Контрагент); + + ТЗАдресаЭлектроннойПочты = узОбщийМодульСервер.ПолучитьТЗАдресаЭлектроннойПочтыПоМассивуКонтрагентов( + МассивКонтрагентов); + + Для каждого стр Из ТЗАдресаЭлектроннойПочты Цикл + Если ЗначениеЗаполнено(стр.АдресЭлектроннойПочты) Тогда + //Попробуем найти ользователя ИБ + ТЗПользователей = узОбщийМодульСервер.ПолучитьТЗПОльзователейПоАдресуЭлектроннойПочты(стр.АдресЭлектроннойПочты,Ложь); + Для каждого стрПользователь Из ТЗПользователей Цикл + Если стрПользователь.АвтоматическиСтановитьсяИсполнителемЕслиПрислалПисьмо Тогда + СпрОбъект.Исполнитель = стрПользователь.Пользователь; + //СпрОбъект.Статус = ПредопределенноеЗначение("Справочник.узСтатусыЗадачи.Backlog"); + КонецЕсли; + КонецЦикла; + + КонецЕсли; + КонецЦикла; + + КонецЕсли; + // --- 79Vlad 06.02.2019 + + СпрОбъект.ОформлениеТекста = ПредопределенноеЗначение("Перечисление.узОформлениеТекста.ФорматированныйТекст"); СпрОбъект.ПоказыватьВОтчетахИКанбанДоске = Истина; diff --git a/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl b/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl index e61353ff4..9f0e8d7a6 100644 --- a/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl +++ b/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl @@ -935,3 +935,36 @@ КонецПроцедуры +// +++ 79Vlad 06.02.2019 +Функция ПолучитьТЗПользователейПоАдресуЭлектроннойПочты(АдресЭлектроннойПочты, ТочноеСоответсвие = Истина) Экспорт + + АдресЭлектроннойПочты = СокрЛП(АдресЭлектроннойПочты); + Если НЕ ТочноеСоответсвие Тогда + АдресЭлектроннойПочты = "%" + СокрЛП(АдресЭлектроннойПочты) + "%"; + КонецЕсли; + + + Запрос = Новый Запрос; + Запрос.Текст = + "ВЫБРАТЬ + | ПользователиКонтактнаяИнформация.Ссылка КАК Пользователь, + | ПользователиКонтактнаяИнформация.АдресЭП КАК АдресЭлектроннойПочты, + | ПользователиКонтактнаяИнформация.Ссылка.узАвтоматическиСтановитьсяИсполнителемЕслиПрислалПисьмо КАК АвтоматическиСтановитьсяИсполнителемЕслиПрислалПисьмо + |ИЗ + | Справочник.Пользователи.КонтактнаяИнформация КАК ПользователиКонтактнаяИнформация + |ГДЕ + | ПользователиКонтактнаяИнформация.АдресЭП ПОДОБНО &АдресЭлектроннойПочты + | И ПользователиКонтактнаяИнформация.Тип = &Тип + | И ПользователиКонтактнаяИнформация.Вид = &Вид"; + + Запрос.УстановитьПараметр("Вид", ПредопределенноеЗначение("Справочник.ВидыКонтактнойИнформации.EmailПользователя")); + Запрос.УстановитьПараметр("АдресЭлектроннойПочты", АдресЭлектроннойПочты); + Запрос.УстановитьПараметр("Тип", ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.АдресЭлектроннойПочты")); + + РезультатЗапроса = Запрос.Выполнить(); + + ТЗПользователей = РезультатЗапроса.Выгрузить(); + Возврат ТЗПользователей; +КонецФункции // --- 79Vlad 06.02.2019 + + diff --git a/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Ext/ObjectModule.bsl b/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Ext/ObjectModule.bsl index f67aadc05..abf943bc1 100644 --- a/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Ext/ObjectModule.bsl +++ b/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Ext/ObjectModule.bsl @@ -133,7 +133,13 @@ Кодировка = "utf-8"; КонецЕсли; - Если Не ЗначениеЗаполнено(УчетнаяЗапись) Тогда + + // +++ 79Vlad 06.02.2019 + //Если Не ЗначениеЗаполнено(УчетнаяЗапись) Тогда + + //Письма не должны отправляться через учетную запись, которая не используется для отправки + Если узУчетнаяЗаписьЗаполненаИИспользуетсяДляОтправки(УчетнаяЗапись) Тогда + // --- 79Vlad 06.02.2019 УчетнаяЗапись = УправлениеЭлектроннойПочтой.ПолучитьУчетнуюЗаписьДляОтправкиПоУмолчанию(); КонецЕсли; @@ -141,6 +147,24 @@ КонецПроцедуры +//+ #156 Иванов А.Б. 2019-02-10 +Функция узУчетнаяЗаписьЗаполненаИИспользуетсяДляОтправки(УчетнаяЗапись) + + узУчетнаяЗаписьЗаполненаИИспользуетсяДляОтправки = Ложь; + + Если НЕ ЗначениеЗаполнено(УчетнаяЗапись) Тогда + Возврат узУчетнаяЗаписьЗаполненаИИспользуетсяДляОтправки; + Конецесли; + + Если УчетнаяЗапись.ИспользоватьДляОтправки Тогда + узУчетнаяЗаписьЗаполненаИИспользуетсяДляОтправки = Истина; + Конецесли; + + Возврат узУчетнаяЗаписьЗаполненаИИспользуетсяДляОтправки; + +Конецфункции +//- #156 Иванов А.Б. 2019-02-10 + #КонецОбласти #Область СлужебныеПроцедурыИФункции