diff --git a/src/cf/Catalogs/УчетныеЗаписиЭлектроннойПочты/Ext/ManagerModule.bsl b/src/cf/Catalogs/УчетныеЗаписиЭлектроннойПочты/Ext/ManagerModule.bsl
index 174a98bb5..4f7dcd35c 100644
--- a/src/cf/Catalogs/УчетныеЗаписиЭлектроннойПочты/Ext/ManagerModule.bsl
+++ b/src/cf/Catalogs/УчетныеЗаписиЭлектроннойПочты/Ext/ManagerModule.bsl
@@ -19,6 +19,31 @@
КонецФункции
+//+ #286 Иванов А.Б. 2017-12-17
+Функция узПолучитьУчетнуюЗаписьДляОтправкиУведомленийДляКонтрагентов() Экспорт
+ Перем пУчетнаяЗапись;
+
+ Запрос = Новый Запрос;
+ Запрос.Текст =
+ "ВЫБРАТЬ ПЕРВЫЕ 1
+ | УчетныеЗаписиЭлектроннойПочты.Ссылка
+ |ИЗ
+ | Справочник.УчетныеЗаписиЭлектроннойПочты КАК УчетныеЗаписиЭлектроннойПочты
+ |ГДЕ
+ | УчетныеЗаписиЭлектроннойПочты.узИспользоватьДляОтправкиКотрагентам";
+
+ РезультатЗапроса = Запрос.Выполнить();
+
+ Выборка = РезультатЗапроса.Выбрать();
+
+ Пока Выборка.Следующий() Цикл
+ пУчетнаяЗапись = Выборка.Ссылка;
+ КонецЦикла;
+
+ Возврат пУчетнаяЗапись;
+КонецФункции
+//- #286 Иванов А.Б. 2017-12-17
+
#КонецОбласти
#КонецЕсли
diff --git a/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl b/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl
index 3ba7dc98c..f6a0c9e4f 100644
--- a/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl
+++ b/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl
@@ -27,7 +27,13 @@
ДокОбъект.УчетнаяЗапись = ДопПараметры.УчетнаяЗапись;
Конецесли;
- ДокОбъект.УдалятьПослеОтправки = Истина;
+ пУдалятьПослеОтправки = Истина;
+ Если ДопПараметры.Свойство("ЭтоОтправкаКонтрагентам")
+ И ДопПараметры.ЭтоОтправкаКонтрагентам Тогда
+ пУдалятьПослеОтправки = Ложь;
+ Конецесли;
+
+ ДокОбъект.УдалятьПослеОтправки = пУдалятьПослеОтправки;
//ДокОбъект.ДатаКогдаОтправить = ;
diff --git a/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Ext/ObjectModule.bsl b/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Ext/ObjectModule.bsl
index 232db354a..f67aadc05 100644
--- a/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Ext/ObjectModule.bsl
+++ b/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Ext/ObjectModule.bsl
@@ -135,9 +135,10 @@
Если Не ЗначениеЗаполнено(УчетнаяЗапись) Тогда
УчетнаяЗапись = УправлениеЭлектроннойПочтой.ПолучитьУчетнуюЗаписьДляОтправкиПоУмолчанию();
- КонецЕсли;
- ОтправительПредставление = ПолучитьПредставлениеДляУчетнойЗаписи(УчетнаяЗапись);
+ КонецЕсли;
+ ОтправительПредставление = ПолучитьПредставлениеДляУчетнойЗаписи(УчетнаяЗапись);
+
КонецПроцедуры
#КонецОбласти
diff --git a/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Ext/Form.xml b/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Ext/Form.xml
index 29ecccdb1..9ece1c272 100644
--- a/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Ext/Form.xml
+++ b/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Ext/Form.xml
@@ -162,80 +162,216 @@
false
-
- Объект.ОтправительПредставление
+
<v8:item>
<v8:lang>ru</v8:lang>
- <v8:content>От</v8:content>
+ <v8:content>Группауз шапка</v8:content>
</v8:item>
- 40
- false
- true
- false
-
-
-
- ПредставлениеОтправителяОбработкаВыбора
-
-
-
- Объект.СписокПолучателейПисьма
- 40
- false
- true
-
-
-
- СписокПолучателейАвтоПодбор
- СписокПолучателейПисьмаНачалоВыбора
- СписокПолучателейОкончаниеВводаТекста
- СписокПолучателейОбработкаВыбора
-
-
-
- Объект.СписокПолучателейКопий
- 40
- false
- true
-
-
-
- СписокПолучателейАвтоПодбор
- СписокПолучателейПисьмаНачалоВыбора
- СписокПолучателейОкончаниеВводаТекста
- СписокПолучателейОбработкаВыбора
-
-
-
- Объект.СписокПолучателейСкрытыхКопий
-
+ <ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
- <v8:content>Скрытые</v8:content>
+ <v8:content>Группауз шапка</v8:content>
</v8:item>
-
- 40
- false
- true
- false
-
-
-
- СписокПолучателейАвтоПодбор
- СписокПолучателейПисьмаНачалоВыбора
- СписокПолучателейОкончаниеВводаТекста
- СписокПолучателейОбработкаВыбора
-
-
-
- Объект.Тема
- 40
- false
-
-
-
+
+ Horizontal
+ None
+ false
+
+
+
+
+ <v8:item>
+ <v8:lang>ru</v8:lang>
+ <v8:content>Группауз шапка левая</v8:content>
+ </v8:item>
+
+
+
+ ru
+ Группауз шапка левая
+
+
+ Vertical
+ None
+ false
+
+
+
+ Объект.ОтправительПредставление
+
+ <v8:item>
+ <v8:lang>ru</v8:lang>
+ <v8:content>От</v8:content>
+ </v8:item>
+
+ 40
+ false
+ true
+ false
+
+
+
+ ПредставлениеОтправителяОбработкаВыбора
+
+
+
+ Объект.СписокПолучателейПисьма
+ 40
+ false
+ true
+
+
+
+ СписокПолучателейАвтоПодбор
+ СписокПолучателейПисьмаНачалоВыбора
+ СписокПолучателейОкончаниеВводаТекста
+ СписокПолучателейОбработкаВыбора
+
+
+
+ Объект.Тема
+ 40
+ false
+
+
+
+
+
+
+
+ <v8:item>
+ <v8:lang>ru</v8:lang>
+ <v8:content>Группауз шапка правая</v8:content>
+ </v8:item>
+
+
+
+ ru
+ Группауз шапка правая
+
+
+ Vertical
+ None
+ false
+
+
+
+ Объект.СписокПолучателейКопий
+ 40
+ false
+ true
+
+
+
+ СписокПолучателейАвтоПодбор
+ СписокПолучателейПисьмаНачалоВыбора
+ СписокПолучателейОкончаниеВводаТекста
+ СписокПолучателейОбработкаВыбора
+
+
+
+ Предмет
+ 25
+ false
+ false
+ true
+ true
+
+
+
+
+
+ <v8:item>
+ <v8:lang>ru</v8:lang>
+ <v8:content>Страницы указаны контакты</v8:content>
+ </v8:item>
+
+
+
+ ru
+ Страницы указаны контакты
+
+
+ true
+ None
+
+
+
+
+ <v8:item>
+ <v8:lang>ru</v8:lang>
+ <v8:content>Страница контакты заполнены</v8:content>
+ </v8:item>
+
+
+
+ ru
+ Страница контакты заполнены
+
+
+ Horizontal
+
+
+
+ 10
+
+
+
+
+
+
+
+ <v8:item>
+ <v8:lang>ru</v8:lang>
+ <v8:content>Страница контакты не заполнены</v8:content>
+ </v8:item>
+
+
+
+ ru
+ Страница контакты не заполнены
+
+
+ true
+ Horizontal
+
+
+
+
+ <v8:item>
+ <v8:lang>ru</v8:lang>
+ <v8:content>Группа контакты не заполнены</v8:content>
+ </v8:item>
+
+
+
+ ru
+ Группа контакты не заполнены
+
+
+ true
+ Vertical
+ None
+ false
+
+
+
+
+
+
+
+
+
+
+
+
+
<v8:item>
@@ -465,6 +601,315 @@
</ToolTip>
<ExtendedTooltip name="СтраницаДополнительныеРеквизитыExtendedTooltip" id="358"/>
</Page>
+ <Page name="ГруппаузСтраницаВложения" id="399">
+ <Title>
+ <v8:item>
+ <v8:lang>ru</v8:lang>
+ <v8:content>Вложения</v8:content>
+ </v8:item>
+
+
+
+ ru
+ Группауз страница вложения
+
+
+
+
+
+ List
+ None
+ false
+ 2
+ Row
+ false
+ false
+ true
+ true
+ Вложения
+ Вложения.ИндексКартинки
+
+ CommonPicture.КоллекцияПиктограммФайлов
+ false
+
+ None
+ None
+ None
+
+
+ false
+
+
+
+
+
+
+
+
+
+
+
+
+ - Вложения
+ SearchStringRepresentation
+
+
+
+
+
+
+ - Вложения
+ ViewStatusRepresentation
+
+
+
+
+
+
+ - Вложения
+ SearchControl
+
+
+
+
+
+ ВложенияПроверкаПеретаскивания
+ ВложенияВыбор
+ ВложенияПередНачаломДобавления
+ ВложенияПередУдалением
+ ВложенияПеретаскивание
+
+
+
+
+ <v8:item>
+ <v8:lang>ru</v8:lang>
+ <v8:content>Вложения</v8:content>
+ </v8:item>
+
+ InCell
+ true
+
+
+
+ Вложения.ИндексКартинки
+ None
+ false
+
+ CommonPicture.КоллекцияПиктограммФайлов
+ false
+
+
+ WithoutBorder
+
+
+
+
+
+ Вложения.ИмяФайла
+ false
+ false
+ false
+
+
+
+
+ Вложения.РазмерПредставление
+ true
+ EnterOnInput
+ false
+ 5
+
+
+
+
+
+
+
+
+
+
+
+ <v8:item>
+ <v8:lang>ru</v8:lang>
+ <v8:content>Дополнительно</v8:content>
+ </v8:item>
+
+
+
+ ru
+ Группа страницауз дополнительно
+
+
+
+
+
+ Объект.СписокПолучателейСкрытыхКопий
+
+ <v8:item>
+ <v8:lang>ru</v8:lang>
+ <v8:content>Скрытые</v8:content>
+ </v8:item>
+
+ 40
+ false
+ true
+ false
+
+
+
+ СписокПолучателейАвтоПодбор
+ СписокПолучателейПисьмаНачалоВыбора
+ СписокПолучателейОкончаниеВводаТекста
+ СписокПолучателейОбработкаВыбора
+
+
+
+ Объект.Ответственный
+ Top
+ 25
+ false
+
+
+
+
+ НаКонтроле
+
+ <v8:item>
+ <v8:lang>ru</v8:lang>
+ <v8:content>На контроле</v8:content>
+ </v8:item>
+
+ Right
+ Auto
+
+
+
+ НаКонтролеПриИзменении
+
+
+
+ РассмотретьПосле
+ Top
+ false
+ false
+ true
+
+
+
+ РассмотретьПослеОбработкаВыбора
+
+
+
+ Объект.Важность
+ Top
+ 17
+ false
+ false
+
+
+
+
+
+ <v8:item>
+ <v8:lang>ru</v8:lang>
+ <v8:content>Группа дата отправки актуальность</v8:content>
+ </v8:item>
+
+
+
+ ru
+ Группа дата отправки актуальность
+
+
+ Horizontal
+ None
+ false
+
+
+
+ Объект.ДатаКогдаОтправить
+
+ <v8:item>
+ <v8:lang>ru</v8:lang>
+ <v8:content>Когда отправить</v8:content>
+ </v8:item>
+
+ Top
+ 15
+ false
+
+
+
+
+ Объект.ДатаАктуальностиОтправки
+
+ <v8:item>
+ <v8:lang>ru</v8:lang>
+ <v8:content>Не отправлять после</v8:content>
+ </v8:item>
+
+ Top
+ 15
+ false
+
+
+
+
+
+
+ Объект.Number
+ false
+ 9
+ false
+
+
+
+
+ Объект.ДатаОтправления
+ true
+ 11
+
+
+ ru
+ ДФ='дд.ММ.гггг Ч:мм'
+
+
+
+
+
+
+
<v8:item>
@@ -483,6 +928,8 @@
<InputField name="Комментарий" id="284">
<DataPath>Объект.Комментарий</DataPath>
<TitleLocation>None</TitleLocation>
+ <AutoMaxWidth>false</AutoMaxWidth>
+ <AutoMaxHeight>false</AutoMaxHeight>
<Wrap>false</Wrap>
<MultiLine>true</MultiLine>
<ContextMenu name="КомментарийКонтекстноеМеню" id="285"/>
@@ -512,365 +959,13 @@
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="ГруппаПравоРасширеннаяПодсказка" id="364"/>
<ChildItems>
- <Table name="Вложения" id="138">
- <Representation>List</Representation>
- <CommandBarLocation>None</CommandBarLocation>
- <SkipOnInput>false</SkipOnInput>
- <HeightInTableRows>2</HeightInTableRows>
- <RowSelectionMode>Row</RowSelectionMode>
- <HorizontalLines>false</HorizontalLines>
- <VerticalLines>false</VerticalLines>
- <AutoInsertNewRow>true</AutoInsertNewRow>
- <VerticalStretch>false</VerticalStretch>
- <EnableDrag>true</EnableDrag>
- <DataPath>Вложения</DataPath>
- <RowPictureDataPath>Вложения.ИндексКартинки</RowPictureDataPath>
- <RowsPicture>
- <xr:Ref>CommonPicture.КоллекцияПиктограммФайлов</xr:Ref>
- <xr:LoadTransparent>false</xr:LoadTransparent>
- </RowsPicture>
- <SearchStringLocation>None</SearchStringLocation>
- <ViewStatusLocation>None</ViewStatusLocation>
- <SearchControlLocation>None</SearchControlLocation>
- <RowFilter xsi:nil="true"/>
- <ContextMenu name="ВложенияКонтекстноеМеню" id="139">
- <Autofill>false</Autofill>
- <ChildItems>
- <Button name="ДобавитьВложение" id="150">
- <Type>CommandBarButton</Type>
- <SkipOnInput>false</SkipOnInput>
- <CommandName>Form.Command.ДобавитьВложение</CommandName>
- <ExtendedTooltip name="ДобавитьВложениеExtendedTooltip" id="331"/>
- </Button>
- <Button name="ОткрытьВложение" id="152">
- <Type>CommandBarButton</Type>
- <SkipOnInput>false</SkipOnInput>
- <CommandName>Form.Command.ОткрытьВложение</CommandName>
- <ExtendedTooltip name="ОткрытьВложениеExtendedTooltip" id="332"/>
- </Button>
- <Button name="СохранитьВложение" id="153">
- <Type>CommandBarButton</Type>
- <SkipOnInput>false</SkipOnInput>
- <CommandName>0</CommandName>
- <ExtendedTooltip name="СохранитьВложениеExtendedTooltip" id="333"/>
- </Button>
- <Button name="УдалитьВложение" id="187">
- <Type>CommandBarButton</Type>
- <SkipOnInput>false</SkipOnInput>
- <CommandName>Form.Item.Вложения.StandardCommand.Delete</CommandName>
- <Title>
- <v8:item>
- <v8:lang>ru</v8:lang>
- <v8:content>Удалить вложение</v8:content>
- </v8:item>
-
-
-
-
-
-
-
-
-
-
- - Вложения
- SearchStringRepresentation
-
-
-
-
-
-
- - Вложения
- ViewStatusRepresentation
-
-
-
-
-
-
- - Вложения
- SearchControl
-
-
-
-
-
- ВложенияПроверкаПеретаскивания
- ВложенияВыбор
- ВложенияПередНачаломДобавления
- ВложенияПередУдалением
- ВложенияПеретаскивание
-
-
-
-
- <v8:item>
- <v8:lang>ru</v8:lang>
- <v8:content>Вложения</v8:content>
- </v8:item>
-
- InCell
- true
-
-
-
- Вложения.ИндексКартинки
- None
- false
-
- CommonPicture.КоллекцияПиктограммФайлов
- false
-
-
- WithoutBorder
-
-
-
-
-
- Вложения.ИмяФайла
- false
- false
- false
-
-
-
-
- Вложения.РазмерПредставление
- true
- EnterOnInput
- false
- 5
-
-
-
-
-
-
-
-
- Предмет
- Top
- 25
- false
- false
- true
- true
-
-
-
-
- Объект.Ответственный
- Top
- 25
- false
-
-
-
-
- НаКонтроле
-
- <v8:item>
- <v8:lang>ru</v8:lang>
- <v8:content>На контроле</v8:content>
- </v8:item>
-
- Right
- Auto
-
-
-
- НаКонтролеПриИзменении
-
-
-
- РассмотретьПосле
- Top
- false
- false
- true
-
-
-
- РассмотретьПослеОбработкаВыбора
-
-
-
- Объект.Важность
- Top
- 17
- false
- false
-
-
-
-
-
- <v8:item>
- <v8:lang>ru</v8:lang>
- <v8:content>Группа дата отправки актуальность</v8:content>
- </v8:item>
-
-
-
- ru
- Группа дата отправки актуальность
-
-
- Horizontal
- None
- false
-
-
-
- Объект.ДатаКогдаОтправить
-
- <v8:item>
- <v8:lang>ru</v8:lang>
- <v8:content>Когда отправить</v8:content>
- </v8:item>
-
- Top
- 15
- false
-
-
-
-
- Объект.ДатаАктуальностиОтправки
-
- <v8:item>
- <v8:lang>ru</v8:lang>
- <v8:content>Не отправлять после</v8:content>
- </v8:item>
-
- Top
- 15
- false
-
-
-
-
-
+ false
true
true
-
-
- <v8:item>
- <v8:lang>ru</v8:lang>
- <v8:content>Страницы указаны контакты</v8:content>
- </v8:item>
-
-
-
- ru
- Страницы указаны контакты
-
-
- true
- None
-
-
-
-
- <v8:item>
- <v8:lang>ru</v8:lang>
- <v8:content>Страница контакты заполнены</v8:content>
- </v8:item>
-
-
-
- ru
- Страница контакты заполнены
-
-
- Horizontal
-
-
-
- 10
-
-
-
-
-
-
-
- <v8:item>
- <v8:lang>ru</v8:lang>
- <v8:content>Страница контакты не заполнены</v8:content>
- </v8:item>
-
-
-
- ru
- Страница контакты не заполнены
-
-
- true
- Horizontal
-
-
-
-
- <v8:item>
- <v8:lang>ru</v8:lang>
- <v8:content>Группа контакты не заполнены</v8:content>
- </v8:item>
-
-
-
- ru
- Группа контакты не заполнены
-
-
- true
- Vertical
- None
- false
-
-
-
-
-
-
-
-
-
-
- Объект.Number
- false
- 9
- false
-
-
-
-
- Объект.ДатаОтправления
- true
- 11
-
-
- ru
- ДФ='дд.ММ.гггг Ч:мм'
-
-
-
-
-
diff --git a/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Ext/Form/Module.bsl b/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Ext/Form/Module.bsl
index ccbc42cc9..62ef8bd9e 100644
--- a/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Ext/Form/Module.bsl
+++ b/src/cf/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Ext/Form/Module.bsl
@@ -29,6 +29,35 @@
УправлениеСвойствами.ПриСозданииНаСервере(ЭтотОбъект, ДополнительныеПараметры);
// Конец СтандартныеПодсистемы.Свойства
+ //+ #286 Иванов А.Б. 2017-12-17
+ //Если Не ЗначениеЗаполнено(УчетнаяЗапись) Тогда
+ // УчетнаяЗапись = УправлениеЭлектроннойПочтой.ПолучитьУчетнуюЗаписьДляОтправкиПоУмолчанию();
+ //КонецЕсли;
+ Если Объект.Ссылка.Пустая() Тогда
+ пСтараяУчетнаяЗапись = Объект.УчетнаяЗапись;
+ пНоваяУчетнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.узПолучитьУчетнуюЗаписьДляОтправкиУведомленийДляКонтрагентов();
+ Если пСтараяУчетнаяЗапись <> пНоваяУчетнаяЗапись Тогда
+ Объект.УчетнаяЗапись = пНоваяУчетнаяЗапись;
+ ИзменитьПодпись(пСтараяУчетнаяЗапись, пНоваяУчетнаяЗапись);
+ ЭлементСписка = Элементы.ОтправительПредставление.СписокВыбора.НайтиПоЗначению(пНоваяУчетнаяЗапись);
+ Если ЭлементСписка <> Неопределено Тогда
+ Объект.ОтправительПредставление = ЭлементСписка.Представление;
+ КонецЕсли;
+ Конецесли;
+
+ Объект.ВключатьТелоИсходногоПисьма = Истина;
+
+ Если ЗначениеЗаполнено(Объект.Предмет)
+ И ТипЗнч(Объект.Предмет) = Тип("СправочникСсылка.узЗадачи") Тогда
+ пНомерЗадачи = Справочники.узЗадачи.ПолучитьНомерЗадачи(Объект.Предмет);
+ пТема = Объект.Тема;
+ Если СтрНайти(пТема,пНомерЗадачи) = 0 Тогда
+ пТема = "[#"+пНомерЗадачи+"] "+ пТема;
+ Объект.Тема = пТема;
+ Конецесли;
+ Конецесли;
+ Конецесли;
+ //- #286 Иванов А.Б. 2017-12-17
КонецПроцедуры
&НаКлиенте