1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-17 20:58:01 +02:00
Code Issues Releases Activity

№286 Servicedesk: Поправил форму исходящего письма, формирование темы письма, включение письма основания и другие исправления

Browse Source
This commit is contained in:
Anton Ivanov 2018-01-27 14:53:33 +03:00
parent be1e959342
commit 29da3ab1eb
5 changed files with 578 additions and 422 deletions
src/cf
Catalogs/УчетныеЗаписиЭлектроннойПочты/Ext
ManagerModule.bsl
CommonModules/узОбщийМодульСервер/Ext
Module.bsl
Documents/ЭлектронноеПисьмоИсходящее
Ext
ObjectModule.bsl
Forms/ФормаДокумента/Ext
Form.xml
Form
Module.bsl

25
src/cf/Catalogs/УчетныеЗаписиЭлектроннойПочты/Ext/ManagerModule.bsl

@ -19,6 +19,31 @@
КонецФункции
//+ #286 Иванов А.Б. 2017-12-17
Функция узПолучитьУчетнуюЗаписьДляОтправкиУведомленийДляКонтрагентов() Экспорт
Перем пУчетнаяЗапись;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| УчетныеЗаписиЭлектроннойПочты.Ссылка
|ИЗ
| Справочник.УчетныеЗаписиЭлектроннойПочты КАК УчетныеЗаписиЭлектроннойПочты
|ГДЕ
| УчетныеЗаписиЭлектроннойПочты.узИспользоватьДляОтправкиКотрагентам";
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
пУчетнаяЗапись = Выборка.Ссылка;
КонецЦикла;
Возврат пУчетнаяЗапись;
КонецФункции
//- #286 Иванов А.Б. 2017-12-17
#КонецОбласти
#КонецЕсли

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

@ -27,7 +27,13 @@
ДокОбъект.УчетнаяЗапись = ДопПараметры.УчетнаяЗапись;
Конецесли;
ДокОбъект.УдалятьПослеОтправки = Истина;
пУдалятьПослеОтправки = Истина;
Если ДопПараметры.Свойство("ЭтоОтправкаКонтрагентам")
И ДопПараметры.ЭтоОтправкаКонтрагентам Тогда
пУдалятьПослеОтправки = Ложь;
Конецесли;
ДокОбъект.УдалятьПослеОтправки = пУдалятьПослеОтправки;
//ДокОбъект.ДатаКогдаОтправить = ;

1
src/cf/Documents/ЭлектронноеПисьмоИсходящее/Ext/ObjectModule.bsl

@ -136,6 +136,7 @@
Если Не ЗначениеЗаполнено(УчетнаяЗапись) Тогда
УчетнаяЗапись = УправлениеЭлектроннойПочтой.ПолучитьУчетнуюЗаписьДляОтправкиПоУмолчанию();
КонецЕсли;
ОтправительПредставление = ПолучитьПредставлениеДляУчетнойЗаписи(УчетнаяЗапись);
КонецПроцедуры

419
src/cf/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Ext/Form.xml

@ -161,6 +161,42 @@
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="ГруппаЛевоРасширеннаяПодсказка" id="362"/>
<ChildItems>
<UsualGroup name="ГруппаузШапка" id="393">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группауз шапка</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группауз шапка</v8:content>
</v8:item>
</ToolTip>
<Group>Horizontal</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="ГруппаузШапкаРасширеннаяПодсказка" id="394"/>
<ChildItems>
<UsualGroup name="ГруппаузШапкаЛевая" id="395">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группауз шапка левая</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группауз шапка левая</v8:content>
</v8:item>
</ToolTip>
<Group>Vertical</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="ГруппаузШапкаЛеваяРасширеннаяПодсказка" id="396"/>
<ChildItems>
<InputField name="ОтправительПредставление" id="136">
<DataPath>Объект.ОтправительПредставление</DataPath>
@ -194,6 +230,33 @@
<Event name="ChoiceProcessing">СписокПолучателейОбработкаВыбора</Event>
</Events>
</InputField>
<InputField name="Тема" id="29">
<DataPath>Объект.Тема</DataPath>
<Width>40</Width>
<Wrap>false</Wrap>
<ContextMenu name="ТемаКонтекстноеМеню" id="30"/>
<ExtendedTooltip name="ТемаExtendedTooltip" id="327"/>
</InputField>
</ChildItems>
</UsualGroup>
<UsualGroup name="ГруппаузШапкаПравая" id="397">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группауз шапка правая</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группауз шапка правая</v8:content>
</v8:item>
</ToolTip>
<Group>Vertical</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="ГруппаузШапкаПраваяРасширеннаяПодсказка" id="398"/>
<ChildItems>
<InputField name="СписокПолучателейКопий" id="155">
<DataPath>Объект.СписокПолучателейКопий</DataPath>
<Width>40</Width>
@ -208,34 +271,107 @@
<Event name="ChoiceProcessing">СписокПолучателейОбработкаВыбора</Event>
</Events>
</InputField>
<InputField name="СписокПолучателейСкрытыхКопий" id="157">
<DataPath>Объект.СписокПолучателейСкрытыхКопий</DataPath>
<InputField name="Предмет" id="160">
<DataPath>Предмет</DataPath>
<Width>25</Width>
<Wrap>false</Wrap>
<DropListButton>false</DropListButton>
<ClearButton>true</ClearButton>
<OpenButton>true</OpenButton>
<ContextMenu name="ПредметКонтекстноеМеню" id="161"/>
<ExtendedTooltip name="ПредметExtendedTooltip" id="310"/>
</InputField>
<Pages name="СтраницыУказаныКонтакты" id="255">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Скрытые</v8:content>
<v8:content>Страницы указаны контакты</v8:content>
</v8:item>
</Title>
<Width>40</Width>
<Wrap>false</Wrap>
<ChoiceButton>true</ChoiceButton>
<ChoiceListButton>false</ChoiceListButton>
<ContextMenu name="СписокПолучателейСкрытыхКопийКонтекстноеМеню" id="158"/>
<ExtendedTooltip name="СписокПолучателейСкрытыхКопийExtendedTooltip" id="308"/>
<Events>
<Event name="AutoComplete">СписокПолучателейАвтоПодбор</Event>
<Event name="StartChoice">СписокПолучателейПисьмаНачалоВыбора</Event>
<Event name="TextEditEnd">СписокПолучателейОкончаниеВводаТекста</Event>
<Event name="ChoiceProcessing">СписокПолучателейОбработкаВыбора</Event>
</Events>
</InputField>
<InputField name="Тема" id="29">
<DataPath>Объект.Тема</DataPath>
<Width>40</Width>
<Wrap>false</Wrap>
<ContextMenu name="ТемаКонтекстноеМеню" id="30"/>
<ExtendedTooltip name="ТемаExtendedTooltip" id="327"/>
</InputField>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Страницы указаны контакты</v8:content>
</v8:item>
</ToolTip>
<HorizontalStretch>true</HorizontalStretch>
<PagesRepresentation>None</PagesRepresentation>
<ExtendedTooltip name="СтраницыУказаныКонтактыExtendedTooltip" id="313"/>
<ChildItems>
<Page name="СтраницаКонтактыЗаполнены" id="256">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Страница контакты заполнены</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Страница контакты заполнены</v8:content>
</v8:item>
</ToolTip>
<Group>Horizontal</Group>
<ExtendedTooltip name="СтраницаКонтактыЗаполненыExtendedTooltip" id="314"/>
<ChildItems>
<LabelDecoration name="ДекорацияПустая" id="257">
<Width>10</Width>
<ContextMenu name="ДекорацияПустаяКонтекстноеМеню" id="258"/>
<ExtendedTooltip name="ДекорацияПустаяРасширеннаяПодсказка" id="315"/>
</LabelDecoration>
</ChildItems>
</Page>
<Page name="СтраницаКонтактыНеЗаполнены" id="261">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Страница контакты не заполнены</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Страница контакты не заполнены</v8:content>
</v8:item>
</ToolTip>
<HorizontalStretch>true</HorizontalStretch>
<Group>Horizontal</Group>
<ExtendedTooltip name="СтраницаКонтактыНеЗаполненыExtendedTooltip" id="317"/>
<ChildItems>
<UsualGroup name="ГруппаКонтактыНеЗаполнены" id="262">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа контакты не заполнены</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа контакты не заполнены</v8:content>
</v8:item>
</ToolTip>
<HorizontalStretch>true</HorizontalStretch>
<Group>Vertical</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="ГруппаКонтактыНеЗаполненыExtendedTooltip" id="318"/>
<ChildItems>
<Button name="УточнитьКонтакты" id="263">
<Type>Hyperlink</Type>
<CommandName>Form.Command.УточнитьКонтакты</CommandName>
<ExtendedTooltip name="УточнитьКонтактыExtendedTooltip" id="319"/>
</Button>
</ChildItems>
</UsualGroup>
</ChildItems>
</Page>
</ChildItems>
</Pages>
</ChildItems>
</UsualGroup>
</ChildItems>
</UsualGroup>
<Pages name="СтраницыОписаниеДополнительно" id="248">
<Title>
<v8:item>
@ -465,52 +601,20 @@
</ToolTip>
<ExtendedTooltip name="СтраницаДополнительныеРеквизитыExtendedTooltip" id="358"/>
</Page>
<Page name="СтраницаКомментарий" id="283">
<Page name="ГруппаузСтраницаВложения" id="399">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Комментарий</v8:content>
<v8:content>Вложения</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Комментарий</v8:content>
<v8:content>Группауз страница вложения</v8:content>
</v8:item>
</ToolTip>
<ExtendedTooltip name="СтраницаКомментарийExtendedTooltip" id="359"/>
<ChildItems>
<InputField name="Комментарий" id="284">
<DataPath>Объект.Комментарий</DataPath>
<TitleLocation>None</TitleLocation>
<Wrap>false</Wrap>
<MultiLine>true</MultiLine>
<ContextMenu name="КомментарийКонтекстноеМеню" id="285"/>
<ExtendedTooltip name="КомментарийExtendedTooltip" id="360"/>
</InputField>
</ChildItems>
</Page>
</ChildItems>
</Pages>
</ChildItems>
</UsualGroup>
<UsualGroup name="ГруппаПраво" id="363">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа право</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа право</v8:content>
</v8:item>
</ToolTip>
<Group>Vertical</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="ГруппаПравоРасширеннаяПодсказка" id="364"/>
<ExtendedTooltip name="ГруппаузСтраницаВложенияРасширеннаяПодсказка" id="400"/>
<ChildItems>
<Table name="Вложения" id="138">
<Representation>List</Representation>
@ -521,7 +625,6 @@
<HorizontalLines>false</HorizontalLines>
<VerticalLines>false</VerticalLines>
<AutoInsertNewRow>true</AutoInsertNewRow>
<VerticalStretch>false</VerticalStretch>
<EnableDrag>true</EnableDrag>
<DataPath>Вложения</DataPath>
<RowPictureDataPath>Вложения.ИндексКартинки</RowPictureDataPath>
@ -653,16 +756,43 @@
</ColumnGroup>
</ChildItems>
</Table>
<InputField name="Предмет" id="160">
<DataPath>Предмет</DataPath>
<TitleLocation>Top</TitleLocation>
<Width>25</Width>
</ChildItems>
</Page>
<Page name="ГруппаСтраницаузДополнительно" id="391">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Дополнительно</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа страницауз дополнительно</v8:content>
</v8:item>
</ToolTip>
<ExtendedTooltip name="ГруппаСтраницаузДополнительноРасширеннаяПодсказка" id="392"/>
<ChildItems>
<InputField name="СписокПолучателейСкрытыхКопий" id="157">
<DataPath>Объект.СписокПолучателейСкрытыхКопий</DataPath>
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Скрытые</v8:content>
</v8:item>
</Title>
<Width>40</Width>
<Wrap>false</Wrap>
<DropListButton>false</DropListButton>
<ClearButton>true</ClearButton>
<OpenButton>true</OpenButton>
<ContextMenu name="ПредметКонтекстноеМеню" id="161"/>
<ExtendedTooltip name="ПредметExtendedTooltip" id="310"/>
<ChoiceButton>true</ChoiceButton>
<ChoiceListButton>false</ChoiceListButton>
<ContextMenu name="СписокПолучателейСкрытыхКопийКонтекстноеМеню" id="158"/>
<ExtendedTooltip name="СписокПолучателейСкрытыхКопийExtendedTooltip" id="308"/>
<Events>
<Event name="AutoComplete">СписокПолучателейАвтоПодбор</Event>
<Event name="StartChoice">СписокПолучателейПисьмаНачалоВыбора</Event>
<Event name="TextEditEnd">СписокПолучателейОкончаниеВводаТекста</Event>
<Event name="ChoiceProcessing">СписокПолучателейОбработкаВыбора</Event>
</Events>
</InputField>
<InputField name="Ответственный" id="165">
<DataPath>Объект.Ответственный</DataPath>
@ -757,99 +887,6 @@
</InputField>
</ChildItems>
</UsualGroup>
<LabelDecoration name="ДекорацияПустаяПравая" id="365">
<HorizontalStretch>true</HorizontalStretch>
<VerticalStretch>true</VerticalStretch>
<ContextMenu name="ДекорацияПустаяПраваяКонтекстноеМеню" id="366"/>
<ExtendedTooltip name="ДекорацияПустаяПраваяРасширеннаяПодсказка" id="367"/>
</LabelDecoration>
<Pages name="СтраницыУказаныКонтакты" id="255">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Страницы указаны контакты</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Страницы указаны контакты</v8:content>
</v8:item>
</ToolTip>
<HorizontalStretch>true</HorizontalStretch>
<PagesRepresentation>None</PagesRepresentation>
<ExtendedTooltip name="СтраницыУказаныКонтактыExtendedTooltip" id="313"/>
<ChildItems>
<Page name="СтраницаКонтактыЗаполнены" id="256">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Страница контакты заполнены</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Страница контакты заполнены</v8:content>
</v8:item>
</ToolTip>
<Group>Horizontal</Group>
<ExtendedTooltip name="СтраницаКонтактыЗаполненыExtendedTooltip" id="314"/>
<ChildItems>
<LabelDecoration name="ДекорацияПустая" id="257">
<Width>10</Width>
<ContextMenu name="ДекорацияПустаяКонтекстноеМеню" id="258"/>
<ExtendedTooltip name="ДекорацияПустаяРасширеннаяПодсказка" id="315"/>
</LabelDecoration>
</ChildItems>
</Page>
<Page name="СтраницаКонтактыНеЗаполнены" id="261">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Страница контакты не заполнены</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Страница контакты не заполнены</v8:content>
</v8:item>
</ToolTip>
<HorizontalStretch>true</HorizontalStretch>
<Group>Horizontal</Group>
<ExtendedTooltip name="СтраницаКонтактыНеЗаполненыExtendedTooltip" id="317"/>
<ChildItems>
<UsualGroup name="ГруппаКонтактыНеЗаполнены" id="262">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа контакты не заполнены</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа контакты не заполнены</v8:content>
</v8:item>
</ToolTip>
<HorizontalStretch>true</HorizontalStretch>
<Group>Vertical</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="ГруппаКонтактыНеЗаполненыExtendedTooltip" id="318"/>
<ChildItems>
<Button name="УточнитьКонтакты" id="263">
<Type>Hyperlink</Type>
<CommandName>Form.Command.УточнитьКонтакты</CommandName>
<ExtendedTooltip name="УточнитьКонтактыExtendedTooltip" id="319"/>
</Button>
</ChildItems>
</UsualGroup>
</ChildItems>
</Page>
</ChildItems>
</Pages>
<LabelField name="Номер" id="276">
<DataPath>Объект.Number</DataPath>
<Visible>false</Visible>
@ -872,6 +909,64 @@
<ExtendedTooltip name="ДатаОтправленияExtendedTooltip" id="357"/>
</LabelField>
</ChildItems>
</Page>
<Page name="СтраницаКомментарий" id="283">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Комментарий</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Комментарий</v8:content>
</v8:item>
</ToolTip>
<ExtendedTooltip name="СтраницаКомментарийExtendedTooltip" id="359"/>
<ChildItems>
<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"/>
<ExtendedTooltip name="КомментарийExtendedTooltip" id="360"/>
</InputField>
</ChildItems>
</Page>
</ChildItems>
</Pages>
</ChildItems>
</UsualGroup>
<UsualGroup name="ГруппаПраво" id="363">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа право</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа право</v8:content>
</v8:item>
</ToolTip>
<Group>Vertical</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="ГруппаПравоРасширеннаяПодсказка" id="364"/>
<ChildItems>
<LabelDecoration name="ДекорацияПустаяПравая" id="365">
<Visible>false</Visible>
<HorizontalStretch>true</HorizontalStretch>
<VerticalStretch>true</VerticalStretch>
<ContextMenu name="ДекорацияПустаяПраваяКонтекстноеМеню" id="366"/>
<ExtendedTooltip name="ДекорацияПустаяПраваяРасширеннаяПодсказка" id="367"/>
</LabelDecoration>
</ChildItems>
</UsualGroup>
</ChildItems>
<Attributes>

29
src/cf/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Ext/Form/Module.bsl

@ -29,6 +29,35 @@
УправлениеСвойствами.ПриСозданииНаСервере(ЭтотОбъект, ДополнительныеПараметры);
// Конец СтандартныеПодсистемы.Свойства
//+ #286 Иванов А.Б. 2017-12-17
//Если Не ЗначениеЗаполнено(УчетнаяЗапись) Тогда
// УчетнаяЗапись = УправлениеЭлектроннойПочтой.ПолучитьУчетнуюЗаписьДляОтправкиПоУмолчанию();
//КонецЕсли;
Если Объект.Ссылка.Пустая() Тогда
пСтараяУчетнаяЗапись = Объект.УчетнаяЗапись;
пНоваяУчетнаяЗапись = Справочники.УчетныеЗаписиЭлектроннойПочты.узПолучитьУчетнуюЗаписьДляОтправкиУведомленийДляКонтрагентов();
Если пСтараяУчетнаяЗапись <> пНоваяУчетнаяЗапись Тогда
Объект.УчетнаяЗапись = пНоваяУчетнаяЗапись;
ИзменитьПодпись(пСтараяУчетнаяЗапись, пНоваяУчетнаяЗапись);
ЭлементСписка = Элементы.ОтправительПредставление.СписокВыбора.НайтиПоЗначению(пНоваяУчетнаяЗапись);
Если ЭлементСписка <> Неопределено Тогда
Объект.ОтправительПредставление = ЭлементСписка.Представление;
КонецЕсли;
Конецесли;
Объект.ВключатьТелоИсходногоПисьма = Истина;
Если ЗначениеЗаполнено(Объект.Предмет)
И ТипЗнч(Объект.Предмет) = Тип("СправочникСсылка.узЗадачи") Тогда
пНомерЗадачи = Справочники.узЗадачи.ПолучитьНомерЗадачи(Объект.Предмет);
пТема = Объект.Тема;
Если СтрНайти(пТема,пНомерЗадачи) = 0 Тогда
пТема = "[#"+пНомерЗадачи+"] "+ пТема;
Объект.Тема = пТема;
Конецесли;
Конецесли;
Конецесли;
//- #286 Иванов А.Б. 2017-12-17
КонецПроцедуры
&НаКлиенте