3_0_3_148

This commit is contained in:
Компания 1С committed 2019-11-29 14:27:00 +03:00
1 parent ea4c3cabfb
commit a813ea8918
39 files changed
+1747 -545

No files matched your search

@@ -0,0 +1,323 @@
<?xml version="1.0" encoding="UTF-8"?>
<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form">
<items xsi:type="form:FormGroup">
<name>Основное</name>
<id>24</id>
<items xsi:type="form:Decoration">
<name>Индикатор</name>
<id>21</id>
<title>
<key>ru</key>
<value>Индикатор</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ИндикаторРасширеннаяПодсказка</name>
<id>23</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ИндикаторКонтекстноеМеню</name>
<id>22</id>
<autoFill>true</autoFill>
</contextMenu>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:PictureDecorationExtInfo">
<picture xsi:type="core:PictureRef">
<picture>StdPicture.DialogInformation</picture>
</picture>
<fileDragMode>AsFileRef</fileDragMode>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Текст</name>
<id>18</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Текст</segments>
</dataPath>
<skipOnInput>true</skipOnInput>
<titleLocation>None</titleLocation>
<excludedCommands>AlignCenter</excludedCommands>
<excludedCommands>AlignJustify</excludedCommands>
<excludedCommands>AlignLeft</excludedCommands>
<excludedCommands>AlignRight</excludedCommands>
<excludedCommands>BackColor</excludedCommands>
<excludedCommands>Bold</excludedCommands>
<excludedCommands>BulletedList</excludedCommands>
<excludedCommands>Char</excludedCommands>
<excludedCommands>CopyToClipboard</excludedCommands>
<excludedCommands>CutToClipboard</excludedCommands>
<excludedCommands>DecreaseFontSize</excludedCommands>
<excludedCommands>DecreaseIndent</excludedCommands>
<excludedCommands>Font</excludedCommands>
<excludedCommands>Hyperlink</excludedCommands>
<excludedCommands>IncreaseFontSize</excludedCommands>
<excludedCommands>IncreaseIndent</excludedCommands>
<excludedCommands>Italic</excludedCommands>
<excludedCommands>LineSpacing</excludedCommands>
<excludedCommands>NumberedList</excludedCommands>
<excludedCommands>PasteFromClipboard</excludedCommands>
<excludedCommands>Picture</excludedCommands>
<excludedCommands>Preview</excludedCommands>
<excludedCommands>Print</excludedCommands>
<excludedCommands>Redo</excludedCommands>
<excludedCommands>SaveAs</excludedCommands>
<excludedCommands>SelectAll</excludedCommands>
<excludedCommands>Strikeout</excludedCommands>
<excludedCommands>TextColor</excludedCommands>
<excludedCommands>Underline</excludedCommands>
<excludedCommands>Undo</excludedCommands>
<extendedTooltip>
<name>ТекстРасширеннаяПодсказка</name>
<id>20</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ТекстКонтекстноеМеню</name>
<id>19</id>
<autoFill>true</autoFill>
</contextMenu>
<type>FormattedDocumentField</type>
<readOnly>true</readOnly>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:FormattedDocFieldExtInfo">
<width>50</width>
<autoMaxWidth>true</autoMaxWidth>
<height>10</height>
<autoMaxHeight>true</autoMaxHeight>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<borderColor xsi:type="core:ColorRef">
<color>Style.FormBackColor</color>
</borderColor>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Основное</value>
</title>
<extendedTooltip>
<name>ОсновноеРасширеннаяПодсказка</name>
<id>25</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>AlwaysHorizontal</group>
<behavior>Auto</behavior>
<representation>WeakSeparation</representation>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>КоманднаяПанель</name>
<id>10</id>
<items xsi:type="form:Button">
<name>ПерейтиКДокументации</name>
<id>16</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ПерейтиКДокументацииРасширеннаяПодсказка</name>
<id>17</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Hyperlink</type>
<commandName>Form.Command.ПерейтиКДокументации</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:FormGroup">
<name>ОсновныеКоманды</name>
<id>12</id>
<items xsi:type="form:Button">
<name>ОК</name>
<id>14</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ОКРасширеннаяПодсказка</name>
<id>15</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.StandardCommand.OK</commandName>
<representation>Auto</representation>
<defaultButton>true</defaultButton>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Основные команды</value>
</title>
<extendedTooltip>
<name>ОсновныеКомандыРасширеннаяПодсказка</name>
<id>13</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>CommandBar</type>
<extInfo xsi:type="form:CommandBarExtInfo">
<horizontalAlign>Right</horizontalAlign>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Командная панель</value>
</title>
<extendedTooltip>
<name>КоманднаяПанельРасширеннаяПодсказка</name>
<id>11</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>HorizontalIfPossible</group>
<behavior>Auto</behavior>
<representation>WeakSeparation</representation>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<horizontalAlign>Right</horizontalAlign>
</autoCommandBar>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<windowOpeningMode>LockOwner</windowOpeningMode>
<enterKeyBehavior>DefaultButton</enterKeyBehavior>
<saveWindowSettings>true</saveWindowSettings>
<autoUrl>true</autoUrl>
<group>Vertical</group>
<autoFillCheck>true</autoFillCheck>
<enabled>true</enabled>
<verticalScroll>UseIfNecessary</verticalScroll>
<showTitle>auto</showTitle>
<showCloseButton>true</showCloseButton>
<attributes>
<name>Текст</name>
<title>
<key>ru</key>
<value>Текст</value>
</title>
<id>1</id>
<valueType>
<types>FormattedDocument</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>ПерейтиКДокументации</name>
<title>
<key>ru</key>
<value>Нужна помощь?</value>
</title>
<id>1</id>
<toolTip>
<key>ru</key>
<value>Перейти к документации...</value>
</toolTip>
<use>
<common>true</common>
</use>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>ПерейтиКДокументации</name>
</handler>
</action>
<currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
</form:Form>
@@ -0,0 +1,95 @@
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
УстановитьЗаголовок();
УстановитьОписание();
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
&НаКлиенте
Процедура ПерейтиКДокументации(Команда)
МодульРаботаСПочтовымиСообщениямиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСПочтовымиСообщениямиКлиент");
МодульРаботаСПочтовымиСообщениямиКлиент.ПерейтиКДокументацииПоВводуУчетнойЗаписиЭлектроннойПочты();
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаСервере
Процедура УстановитьЗаголовок()
ТекстЗаголовка = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "Заголовок");
Если ЗначениеЗаполнено(ТекстЗаголовка) Тогда
Заголовок = ТекстЗаголовка;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура УстановитьОписание()
Описание = Новый Структура("Текст, Подробно, Ссылка");
ЗаполнитьЗначенияСвойств(Описание, Параметры);
Элементы.ПерейтиКДокументации.Видимость =
ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСПочтовымиСообщениями")
И ЗначениеЗаполнено(Описание.Подробно)
И ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "ИспользоватьЭлектроннуюПочту", Ложь);
Если Не ЗначениеЗаполнено(Описание.Текст) Тогда
Возврат;
КонецЕсли;
Текст.Добавить(Описание.Текст, Тип("ТекстФорматированногоДокумента"));
Если ЗначениеЗаполнено(Описание.Подробно) Тогда
Текст.Добавить(, Тип("ПереводСтрокиФорматированногоДокумента"));
Текст.Добавить(, Тип("ПереводСтрокиФорматированногоДокумента"));
Текст.Добавить(Описание.Подробно, Тип("ТекстФорматированногоДокумента"));
Элементы.Индикатор.Картинка = БиблиотекаКартинок.ДиалогВосклицание;
КонецЕсли;
УстановитьОписаниеОшибкиАутентификации(Описание);
КонецПроцедуры
&НаСервере
Процедура УстановитьОписаниеОшибкиАутентификации(Описание)
Если СтрНайти(ВРег(Описание.Подробно), "USERNAME AND PASSWORD NOT ACCEPTED") = 0 Тогда
Возврат;
КонецЕсли;
Текст.Добавить(, Тип("ПереводСтрокиФорматированногоДокумента"));
Текст.Добавить(, Тип("ПереводСтрокиФорматированногоДокумента"));
// АПК:1299-выкл Строка текста добавляется фрагментами, чтобы для одного из них установить навигационную ссылку
Текст.Добавить(НСтр("ru = 'Перейдите к '"), Тип("ТекстФорматированногоДокумента"));
ЭлементСсылки = Текст.Добавить(НСтр("ru = 'настройкам учетной записи электронной почты'"), Тип("ТекстФорматированногоДокумента"));
Текст.Добавить(НСтр("ru = ' для корректировки логина, пароля.'"), Тип("ТекстФорматированногоДокумента"));
// АПК:1299-вкл Строка текста добавляется фрагментами, чтобы для одного из них установить навигационную ссылку
Ссылка = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "Ссылка");
Если ЗначениеЗаполнено(Ссылка) Тогда
ЭлементСсылки.НавигационнаяСсылка = ПолучитьНавигационнуюСсылку(Ссылка);
КонецЕсли;
КонецПроцедуры
#КонецОбласти
@@ -4379,33 +4379,6 @@
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:Button">
<name>ПроверитьПубликацию2</name>
<id>1171</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ПроверитьПубликацию2РасширеннаяПодсказка</name>
<id>1172</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualButton</type>
<commandName>Form.Command.ПроверитьПубликацию</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
@@ -4547,33 +4520,6 @@
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:Button">
<name>ПроверитьПубликацию1</name>
<id>1169</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ПроверитьПубликацию1РасширеннаяПодсказка</name>
<id>1170</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualButton</type>
<commandName>Form.Command.ПроверитьПубликацию</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
@@ -4672,33 +4618,6 @@
</inputHint>
</extInfo>
</items>
<items xsi:type="form:Button">
<name>ПроверитьПубликацию</name>
<id>640</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ПроверитьПубликациюExtendedTooltip</name>
<id>820</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualButton</type>
<commandName>Form.Command.ПроверитьПубликацию</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
@@ -4940,33 +4859,6 @@
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:Button">
<name>ПроверитьЭлектроннуюПочту</name>
<id>642</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ПроверитьЭлектроннуюПочтуExtendedTooltip</name>
<id>831</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualButton</type>
<commandName>Form.Command.ПроверитьЭлектроннуюПочту</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:FormField">
<name>ТолькоУведомить</name>
<id>413</id>
@@ -8329,6 +8221,32 @@
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>ПроверитьВозможностьРассылки</name>
<id>1185</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ПроверитьВозможностьРассылкиРасширеннаяПодсказка</name>
<id>1186</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.ПроверитьВозможностьРассылки</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>КомандаСобытияРассылки</name>
<id>1053</id>
@@ -10039,28 +9957,6 @@
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>ПроверитьПубликацию</name>
<title>
<key>ru</key>
<value>Проверить</value>
</title>
<id>7</id>
<toolTip>
<key>ru</key>
<value>Проверить публикацию</value>
</toolTip>
<use>
<common>true</common>
</use>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>ПроверитьПубликацию</name>
</handler>
</action>
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>ДобавитьШаблонАвтора</name>
<title>
@@ -10348,29 +10244,6 @@
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>ПроверитьЭлектроннуюПочту</name>
<title>
<key>ru</key>
<value>Проверить</value>
</title>
<id>20</id>
<toolTip>
<key>ru</key>
<value>Проверить электронную почту</value>
</toolTip>
<use>
<common>true</common>
</use>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>ПроверитьЭлектроннуюПочту</name>
</handler>
</action>
<representation>TextPicture</representation>
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>ДобавитьШаблонПоУмолчанию</name>
<title>
@@ -10599,6 +10472,28 @@
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>ПроверитьВозможностьРассылки</name>
<title>
<key>ru</key>
<value>Проверить</value>
</title>
<id>29</id>
<toolTip>
<key>ru</key>
<value>Проверить возможность публикации в и/или рассылки на электронную почту</value>
</toolTip>
<use>
<common>true</common>
</use>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>ПроверитьВозможностьРассылки</name>
</handler>
</action>
<currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<commandInterface>
<navigationPanel/>
<commandBar/>
@@ -1772,29 +1772,16 @@
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьПубликацию(Команда)
// Параметры доставки
Процедура ПроверитьВозможностьРассылки(Команда)
ПараметрыДоставки = Новый Структура;
//
ПараметрыДоставки.Вставить("ИспользоватьПапку", Объект.ИспользоватьПапку);
ПараметрыДоставки.Вставить("ИспользоватьСетевойКаталог", Объект.ИспользоватьСетевойКаталог);
ПараметрыДоставки.Вставить("ИспользоватьFTPРесурс", Объект.ИспользоватьFTPРесурс);
ПараметрыДоставки.Вставить("ИспользоватьЭлектроннуюПочту", Ложь);
//
ПроверитьРассылку(ПараметрыДоставки);
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьЭлектроннуюПочту(Команда)
// Параметры доставки
ПараметрыДоставки = Новый Структура;
//
ПараметрыДоставки.Вставить("ИспользоватьПапку", Ложь);
ПараметрыДоставки.Вставить("ИспользоватьСетевойКаталог", Ложь);
ПараметрыДоставки.Вставить("ИспользоватьFTPРесурс", Ложь);
ПараметрыДоставки.Вставить("ИспользоватьЭлектроннуюПочту", Истина);
//
ПараметрыДоставки.Вставить("ИспользоватьЭлектроннуюПочту", Объект.ИспользоватьЭлектроннуюПочту);
ПроверитьРассылку(ПараметрыДоставки);
КонецПроцедуры
&НаКлиенте
@@ -2013,9 +2000,14 @@
ПараметрыДоставки.Вставить("ДобавлятьСсылки", "");
РезультатВыполнения = ПроверитьСпособДоставки(Объект.Ссылка, ПараметрыДоставки);
СтандартныеПодсистемыКлиент.ПоказатьВопросПользователю(Неопределено,
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = '%1
|%2'"), РезультатВыполнения.Текст, РезультатВыполнения.Подробно), РежимДиалогаВопрос.ОК);
ПараметрыПредупреждения = Новый Структура("Заголовок, Текст, Подробно, Ссылка, ИспользоватьЭлектроннуюПочту");
ЗаполнитьЗначенияСвойств(ПараметрыПредупреждения, ПараметрыДоставки);
ЗаполнитьЗначенияСвойств(ПараметрыПредупреждения, РезультатВыполнения);
ПараметрыПредупреждения.Заголовок = НСтр("ru = 'Результат проверки'");
ПараметрыПредупреждения.Ссылка = Объект.УчетнаяЗапись;
ОткрытьФорму("Справочник.РассылкиОтчетов.Форма.Предупреждение", ПараметрыПредупреждения, ЭтотОбъект, УникальныйИдентификатор);
КонецПроцедуры
@@ -2477,7 +2469,6 @@
Элементы.ДругойСпособДоставки.Доступность = Форма.Публиковать;
Элементы.ПараметрыДоставки.Доступность = Форма.Публиковать;
Элементы.ПараметрыДоставки.ТекущаяСтраница = Элементы[Форма.ДругойСпособДоставки];
Элементы.ПроверитьПубликацию.Доступность = Форма.Публиковать;
КонецЕсли;
Если Изменения = "" Или Изменения = "ИспользоватьЭлектроннуюПочту" Или Изменения = "ВидРассылки" Тогда
@@ -3012,7 +3003,7 @@
// Доставка
НачатьТранзакцию();
Попытка
Выполнена = РассылкаОтчетов.ВыполнитьДоставку(ПараметрыЖурнала, ПараметрыДоставки, Вложения);
РассылкаОтчетов.ВыполнитьДоставку(ПараметрыЖурнала, ПараметрыДоставки, Вложения);
ОтменитьТранзакцию(); // После окончания теста откатываются все изменения в базе.
Исключение
ОтменитьТранзакцию();
@@ -3025,10 +3016,11 @@
КонецЦикла;
РезультатВыполнения = Новый Структура("Текст, Подробно", "", "");
Если Выполнена Тогда
РезультатВыполнения.Текст = НСтр("ru = 'Тест способа доставки успешно пройден.'");
Если ПараметрыЖурнала.МассивОшибок.Количество() = 0 Тогда
РезультатВыполнения.Текст = НСтр("ru = 'Проверка возможности доставки успешно пройдена.'");
Иначе
РезультатВыполнения.Текст = НСтр("ru = 'Тест способа доставки не пройден.'");
РезультатВыполнения.Текст = НСтр("ru = 'Проверка возможности доставки не пройдена.'");
РезультатВыполнения.Подробно = РассылкаОтчетов.СтрокаСообщенийПользователю(ПараметрыЖурнала.МассивОшибок, Ложь);
КонецЕсли;
@@ -1088,6 +1088,15 @@
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="d7afa1a6-0ac9-4527-8f1c-5317ce259b52">
<name>Предупреждение</name>
<synonym>
<key>ru</key>
<value>Предупреждение</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="d0b79c3d-b0c5-4eb3-9971-1def1c88698f">
<name>ФормаВыбораГруппы</name>
<synonym>
@@ -539,59 +539,21 @@
Функция ПроверитьПодключениеКСерверуВходящейПочты()
Профиль = ИнтернетПочтовыйПрофиль(Истина);
ИнтернетПочта = Новый ИнтернетПочта;
ИспользуемыйПротокол = ПротоколИнтернетПочты.POP3;
Если Протокол = "IMAP" Тогда
ИспользуемыйПротокол = ПротоколИнтернетПочты.IMAP;
КонецЕсли;
ТекстОшибки = "";
Попытка
ИнтернетПочта.Подключиться(Профиль, ИспользуемыйПротокол);
Исключение
ТекстОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
КонецПопытки;
ИнтернетПочта.Отключиться();
Возврат ТекстОшибки;
Возврат Справочники.УчетныеЗаписиЭлектроннойПочты.ПроверитьПодключениеКСерверуВходящейПочты(Профиль, Протокол);
КонецФункции
&НаСервере
Функция ПроверитьПодключениеКСерверуИсходящейПочты()
Тема = НСтр("ru = 'Тестовое сообщение 1С:Предприятие'");
Тело = НСтр("ru = 'Это сообщение отправлено подсистемой электронной почты 1С:Предприятие'");
Письмо = Новый ИнтернетПочтовоеСообщение;
Письмо.Тема = Тема;
Получатель = Письмо.Получатели.Добавить(АдресЭлектроннойПочты);
Получатель.ОтображаемоеИмя = ИмяОтправителяПисем;
Письмо.ИмяОтправителя = ИмяОтправителяПисем;
Письмо.Отправитель.ОтображаемоеИмя = ИмяОтправителяПисем;
Письмо.Отправитель.Адрес = АдресЭлектроннойПочты;
Текст = Письмо.Тексты.Добавить(Тело);
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Профиль = ИнтернетПочтовыйПрофиль();
ИнтернетПочта = Новый ИнтернетПочта;
ТекстОшибки = "";
Попытка
ИнтернетПочта.Подключиться(Профиль);
ИнтернетПочта.Послать(Письмо);
Исключение
ТекстОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
КонецПопытки;
ИнтернетПочта.Отключиться();
Возврат ТекстОшибки;
Возврат Справочники.УчетныеЗаписиЭлектроннойПочты.ПроверитьПодключениеКСерверуИсходящейПочты(Профиль, АдресЭлектроннойПочты);
КонецФункции
@@ -0,0 +1,610 @@
<?xml version="1.0" encoding="UTF-8"?>
<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form">
<items xsi:type="form:FormGroup">
<name>Страницы</name>
<id>1</id>
<items xsi:type="form:FormGroup">
<name>ВыполняетсяПроверкаНастроек</name>
<id>153</id>
<items xsi:type="form:Decoration">
<name>КартинкаДлительнаяОперация</name>
<id>160</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>КартинкаДлительнаяОперацияРасширеннаяПодсказка</name>
<id>162</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КартинкаДлительнаяОперацияКонтекстноеМеню</name>
<id>161</id>
<autoFill>true</autoFill>
</contextMenu>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:PictureDecorationExtInfo">
<picture xsi:type="core:PictureRef">
<picture>CommonPicture.ДлительнаяОперация48</picture>
</picture>
</extInfo>
</items>
<items xsi:type="form:Decoration">
<name>НадписьПроверкаНастроекУчетнойЗаписи</name>
<id>163</id>
<title>
<key>ru</key>
<value>Выполняется проверка настроек учетной записи.
Это может занять несколько минут.</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>НадписьПроверкаНастроекУчетнойЗаписиРасширеннаяПодсказка</name>
<id>165</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>НадписьПроверкаНастроекУчетнойЗаписиКонтекстноеМеню</name>
<id>164</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxHeight>true</autoMaxHeight>
<groupVerticalAlign>Center</groupVerticalAlign>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Выполняется проверка настроек</value>
</title>
<extendedTooltip>
<name>ВыполняетсяПроверкаНастроекРасширеннаяПодсказка</name>
<id>154</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Page</type>
<extInfo xsi:type="form:PageGroupExtInfo">
<group>HorizontalIfPossible</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ПриПроверкеОбнаруженыОшибки</name>
<id>3</id>
<items xsi:type="form:FormGroup">
<name>НеУдалосьПодключитьсяКартинкаИНадпись</name>
<id>11</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>НеУдалосьПодключитьсяКартинкаИНадписьРасширеннаяПодсказка</name>
<id>12</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>AlwaysHorizontal</group>
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:Decoration">
<name>КартинкаПредупреждение</name>
<id>13</id>
<title>
<key>ru</key>
<value>Картинка вопрос</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>КартинкаПредупреждениеРасширеннаяПодсказка</name>
<id>15</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КартинкаПредупреждениеКонтекстноеМеню</name>
<id>14</id>
<autoFill>true</autoFill>
</contextMenu>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:PictureDecorationExtInfo">
<picture xsi:type="core:PictureRef">
<picture>CommonPicture.Предупреждение32</picture>
</picture>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаСообщенияОбОшибках</name>
<id>16</id>
<items xsi:type="form:FormField">
<name>СообщенияОбОшибках</name>
<id>18</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>СообщенияОбОшибках</segments>
</dataPath>
<titleLocation>None</titleLocation>
<extendedTooltip>
<name>СообщенияОбОшибкахРасширеннаяПодсказка</name>
<id>20</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СообщенияОбОшибкахКонтекстноеМеню</name>
<id>19</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<readOnly>true</readOnly>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<width>40</width>
<height>7</height>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<wrap>true</wrap>
<multiLine>true</multiLine>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<backColor xsi:type="core:ColorRef">
<color>Style.FormBackColor</color>
</backColor>
<borderColor xsi:type="core:ColorRef">
<color>Style.FormBackColor</color>
</borderColor>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:Decoration">
<name>НужнаПомощь</name>
<id>21</id>
<title>
<key>ru</key>
<value>Нужна помощь?</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>НужнаПомощьРасширеннаяПодсказка</name>
<id>23</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>НужнаПомощьКонтекстноеМеню</name>
<id>22</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<groupHorizontalAlign>Left</groupHorizontalAlign>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<handlers>
<event>Click</event>
<name>НужнаПомощьНажатие</name>
</handlers>
<hyperlink>true</hyperlink>
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ГруппаСообщенияОбОшибкахРасширеннаяПодсказка</name>
<id>17</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</group>
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>При проверке обнаружены ошибки</value>
</title>
<extendedTooltip>
<name>ПриПроверкеОбнаруженыОшибкиРасширеннаяПодсказка</name>
<id>4</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Page</type>
<extInfo xsi:type="form:PageGroupExtInfo">
<group>AlwaysHorizontal</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ПроверкаУспешноВыполнена</name>
<id>166</id>
<items xsi:type="form:Decoration">
<name>КартинкаУспешно</name>
<id>173</id>
<title>
<key>ru</key>
<value>Картинка успешно</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>КартинкаУспешноРасширеннаяПодсказка</name>
<id>175</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КартинкаУспешноКонтекстноеМеню</name>
<id>174</id>
<autoFill>true</autoFill>
</contextMenu>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:PictureDecorationExtInfo">
<picture xsi:type="core:PictureRef">
<picture>CommonPicture.Успешно32</picture>
</picture>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>УчетнаяЗаписьУспешноНастроенаКартинкаИНадпись</name>
<id>171</id>
<items xsi:type="form:Decoration">
<name>НадписьУчетнаяЗаписьУспешноНастроена</name>
<id>176</id>
<title>
<key>ru</key>
<value>Проверка настроек учетной записи завершилась успешно:</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>НадписьУчетнаяЗаписьУспешноНастроенаРасширеннаяПодсказка</name>
<id>178</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>НадписьУчетнаяЗаписьУспешноНастроенаКонтекстноеМеню</name>
<id>177</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxHeight>true</autoMaxHeight>
<horizontalStretch>true</horizontalStretch>
<groupVerticalAlign>Center</groupVerticalAlign>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>ВыполненныеПроверки</name>
<id>181</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ВыполненныеПроверки</segments>
</dataPath>
<titleLocation>None</titleLocation>
<extendedTooltip>
<name>ВыполненныеПроверкиРасширеннаяПодсказка</name>
<id>183</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ВыполненныеПроверкиКонтекстноеМеню</name>
<id>182</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<verticalAlign>Top</verticalAlign>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>УчетнаяЗаписьУспешноНастроенаКартинкаИНадписьРасширеннаяПодсказка</name>
<id>172</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</group>
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Проверка успешно выполнена</value>
</title>
<extendedTooltip>
<name>ПроверкаУспешноВыполненаРасширеннаяПодсказка</name>
<id>167</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Page</type>
<extInfo xsi:type="form:PageGroupExtInfo">
<group>HorizontalIfPossible</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>СтраницыРасширеннаяПодсказка</name>
<id>2</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Pages</type>
<extInfo xsi:type="form:PagesGroupExtInfo">
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<commandBarLocation>Bottom</commandBarLocation>
<showCommandBar>true</showCommandBar>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<items xsi:type="form:Button">
<name>ФормаЗакрыть</name>
<id>179</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ФормаЗакрытьРасширеннаяПодсказка</name>
<id>180</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.StandardCommand.Close</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<horizontalAlign>Right</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<handlers>
<event>OnOpen</event>
<name>ПриОткрытии</name>
</handlers>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<excludedCommands>Abort</excludedCommands>
<excludedCommands>Cancel</excludedCommands>
<excludedCommands>CustomizeForm</excludedCommands>
<excludedCommands>Help</excludedCommands>
<excludedCommands>Ignore</excludedCommands>
<excludedCommands>No</excludedCommands>
<excludedCommands>OK</excludedCommands>
<excludedCommands>RestoreValues</excludedCommands>
<excludedCommands>Retry</excludedCommands>
<excludedCommands>SaveValues</excludedCommands>
<excludedCommands>Yes</excludedCommands>
<windowOpeningMode>LockOwner</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoTitle>true</autoTitle>
<autoUrl>true</autoUrl>
<group>Vertical</group>
<autoFillCheck>true</autoFillCheck>
<allowFormCustomize>true</allowFormCustomize>
<enabled>true</enabled>
<showTitle>auto</showTitle>
<showCloseButton>true</showCloseButton>
<attributes>
<name>СообщенияОбОшибках</name>
<title>
<key>ru</key>
<value>Сообщения об ошибках</value>
</title>
<id>1</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ВыполненныеПроверки</name>
<title>
<key>ru</key>
<value>Выполненные проверки</value>
</title>
<id>2</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<parameters>
<name>УчетнаяЗапись</name>
<valueType>
<types>CatalogRef.УчетныеЗаписиЭлектроннойПочты</types>
</valueType>
<keyParameter>true</keyParameter>
</parameters>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
</form:Form>
@@ -0,0 +1,70 @@
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Элементы.Страницы.ТекущаяСтраница = Элементы.ВыполняетсяПроверкаНастроек;
Элементы.ФормаЗакрыть.Заголовок = НСтр("ru = 'Отмена'");
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ПодключитьОбработчикОжидания("ВыполнитьПроверкуНастроек", 0.1, Истина)
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовШапкиФормы
&НаКлиенте
Процедура НужнаПомощьНажатие(Элемент)
РаботаСПочтовымиСообщениямиКлиент.ПерейтиКДокументацииПоВводуУчетнойЗаписиЭлектроннойПочты();
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаКлиенте
Процедура ВыполнитьПроверкуНастроек()
ДлительнаяОперация = НачатьВыполнениеНаСервере();
ОповещениеОЗавершении = Новый ОписаниеОповещения("ОбработатьРезультат", ЭтотОбъект);
ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект);
ПараметрыОжидания.ВыводитьОкноОжидания = Ложь;
ДлительныеОперацииКлиент.ОжидатьЗавершение(ДлительнаяОперация, ОповещениеОЗавершении, ПараметрыОжидания);
КонецПроцедуры
&НаСервере
Функция НачатьВыполнениеНаСервере()
ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияВФоне(УникальныйИдентификатор);
Возврат ДлительныеОперации.ВыполнитьВФоне("Справочники.УчетныеЗаписиЭлектроннойПочты.ПроверитьНастройкиУчетнойЗаписиВФоне",
Новый Структура("УчетнаяЗапись", Параметры.УчетнаяЗапись), ПараметрыВыполнения);
КонецФункции
&НаКлиенте
Процедура ОбработатьРезультат(Результат, ДополнительныеПараметры) Экспорт
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
Элементы.ФормаЗакрыть.Заголовок = НСтр("ru = 'Закрыть'");
Если Результат.Статус = "Ошибка" Тогда
ВызватьИсключение Результат.КраткоеПредставлениеОшибки;
КонецЕсли;
РезультатПроверки = ПолучитьИзВременногоХранилища(Результат.АдресРезультата);
СообщенияОбОшибках = РезультатПроверки.ОшибкиПодключения;
ВыполненныеПроверки = РезультатПроверки.ВыполненныеПроверки;
Если ЗначениеЗаполнено(СообщенияОбОшибках) Тогда
Элементы.Страницы.ТекущаяСтраница = Элементы.ПриПроверкеОбнаруженыОшибки;
Иначе
Элементы.Страницы.ТекущаяСтраница = Элементы.ПроверкаУспешноВыполнена;
КонецЕсли;
КонецПроцедуры
#КонецОбласти
@@ -196,6 +196,10 @@
<segments>Объект.ИспользоватьДляОтправки</segments>
</dataPath>
<titleLocation>Right</titleLocation>
<handlers>
<event>OnChange</event>
<name>ИспользованиеПриИзменении</name>
</handlers>
<extendedTooltip>
<name>ДляОтправкиРасширеннаяПодсказка</name>
<id>92</id>
@@ -234,6 +238,10 @@
<segments>Объект.ИспользоватьДляПолучения</segments>
</dataPath>
<titleLocation>Right</titleLocation>
<handlers>
<event>OnChange</event>
<name>ИспользованиеПриИзменении</name>
</handlers>
<extendedTooltip>
<name>ДляПолученияРасширеннаяПодсказка</name>
<id>95</id>
@@ -2351,6 +2359,32 @@
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>ФормаПомощникНастройки</name>
<id>272</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ФормаПомощникНастройкиРасширеннаяПодсказка</name>
<id>273</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.ПомощникНастройки</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>ФормаСправка</name>
<id>212</id>
@@ -2708,6 +2742,28 @@
<currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>ПомощникНастройки</name>
<title>
<key>ru</key>
<value>Перенастроить...</value>
</title>
<id>3</id>
<toolTip>
<key>ru</key>
<value>Помощник настройки</value>
</toolTip>
<use>
<common>true</common>
</use>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>ОткрытьПомощникНастройки</name>
</handler>
</action>
<currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<parameters>
<name>БлокироватьВладельца</name>
<valueType>
@@ -22,59 +22,20 @@
РежимОткрытияОкна = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца;
КонецЕсли;
ДоступноПолучениеПисем = РаботаСПочтовымиСообщениямиСлужебный.НастройкиПодсистемы().ДоступноПолучениеПисем;
Элементы.ИспользоватьУчетнуюЗапись.ОтображатьЗаголовок = ДоступноПолучениеПисем;
Элементы.ДляПолучения.Видимость = ДоступноПолучениеПисем;
Элементы.ОставлятьПисьмаНаСервере.Видимость = Объект.ПротоколВходящейПочты = "POP" И ДоступноПолучениеПисем;
Если Не ДоступноПолучениеПисем Тогда
Элементы.ДляОтправки.Заголовок = НСтр("ru = 'Использовать для отправки писем'");
КонецЕсли;
Элементы.СерверВходящейПочты.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Сервер %1'"), Объект.ПротоколВходящейПочты);
Если Объект.Ссылка.Пустая() Тогда
Объект.ИспользоватьДляОтправки = Истина;
Объект.ИспользоватьДляПолучения = ДоступноПолучениеПисем;
ЗаполнитьНастройки();
КонецЕсли;
УдалятьПисьмаССервера = Объект.ПериодХраненияСообщенийНаСервере > 0;
Если Не УдалятьПисьмаССервера Тогда
Объект.ПериодХраненияСообщенийНаСервере = 10;
КонецЕсли;
Если НЕ Объект.Ссылка.Пустая() Тогда
УстановитьПривилегированныйРежим(Истина);
Пароли = ОбщегоНазначения.ПрочитатьДанныеИзБезопасногоХранилища(Объект.Ссылка, "Пароль, ПарольSMTP");
УстановитьПривилегированныйРежим(Ложь);
Пароль = ?(ЗначениеЗаполнено(Пароли.Пароль), ЭтотОбъект.УникальныйИдентификатор, "");
ПарольSMTP = ?(ЗначениеЗаполнено(Пароли.ПарольSMTP), ЭтотОбъект.УникальныйИдентификатор, "");
Если Не Справочники.УчетныеЗаписиЭлектроннойПочты.ИзменениеРазрешено(Объект.Ссылка) Тогда
ТолькоПросмотр = Истина;
КонецЕсли;
КонецЕсли;
Элементы.ФормаЗаписатьИЗакрыть.Доступность = Не ТолькоПросмотр;
ЭтоПерсональнаяУчетнаяЗапись = ЗначениеЗаполнено(Объект.ВладелецУчетнойЗаписи);
Элементы.ПользовательУчетнойЗаписи.Доступность = ЭтоПерсональнаяУчетнаяЗапись;
ВидУчетнойЗаписи = ?(ЭтоПерсональнаяУчетнаяЗапись, "Персональная", "Общая");
Элементы.ГруппаДляКогоУчетнаяЗапись.Доступность = Пользователи.ЭтоПолноправныйПользователь();
ВладелецУчетнойЗаписи = Объект.ВладелецУчетнойЗаписи;
ИспользуетсяПротоколPOP = Объект.ПротоколВходящейПочты = "POP";
ТребуетсяАвторизацияПриОтправкеПисем = ЗначениеЗаполнено(Объект.ПользовательSMTP) Или Объект.ТребуетсяВходНаСерверПередОтправкой;
Элементы.АвторизацияПриОтправкеПисем.Доступность = ТребуетсяАвторизацияПриОтправкеПисем;
УстановитьВидГруппыТребуетсяАвторизация(ЭтотОбъект, ИспользуетсяПротоколPOP);
Элементы.ОтправлятьСкрытыеКопииПисемНаЭтотАдрес.Видимость = ИспользуетсяПротоколPOP;
ШифрованиеПриОтправкеПочты = ?(Объект.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты, "SSL", "Авто");
ШифрованиеПриПолученииПочты = ?(Объект.ИспользоватьЗащищенноеСоединениеДляВходящейПочты, "SSL", "Авто");
СпособАвторизацииПриОтправкеПочты = ?(Объект.ТребуетсяВходНаСерверПередОтправкой, "POP", "SMTP");
РеквизитыТребующиеВводаПароляДляИзменения = Справочники.УчетныеЗаписиЭлектроннойПочты.РеквизитыТребующиеВводаПароляДляИзменения();
@@ -150,14 +111,16 @@
&НаСервере
Процедура ПриЧтенииНаСервере(ТекущийОбъект)
// СтандартныеПодсистемы.УправлениеДоступом
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда
МодульУправлениеДоступом = ОбщегоНазначения.ОбщийМодуль("УправлениеДоступом");
МодульУправлениеДоступом.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.УправлениеДоступом
ЗаполнитьНастройки();
КонецПроцедуры
&НаСервере
@@ -303,6 +266,11 @@
КонецПроцедуры
&НаКлиенте
Процедура ИспользованиеПриИзменении(Элемент)
Элементы.ФормаПроверитьНастройки.Доступность = Объект.ИспользоватьДляОтправки Или Объект.ИспользоватьДляПолучения;
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
@@ -319,6 +287,15 @@
ВыполнитьПроверкуНастроек();
КонецПроцедуры
&НаКлиенте
Процедура ОткрытьПомощникНастройки(Команда)
ОписаниеОповещения = Новый ОписаниеОповещения("ПриЗавершенииНастройки", ЭтотОбъект);
ОткрытьФорму("Справочник.УчетныеЗаписиЭлектроннойПочты.Форма.ПомощникНастройкиУчетнойЗаписи",
Новый Структура("Ключ", Объект.Ссылка), , , , , ОписаниеОповещения);
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
@@ -532,8 +509,64 @@
Если Модифицированность Тогда
Записать(Новый Структура("ПроверитьНастройки"));
Иначе
РаботаСПочтовымиСообщениямиКлиент.ПроверитьУчетнуюЗапись(Объект.Ссылка);
РаботаСПочтовымиСообщениямиКлиент.ПроверитьНастройкиУчетнойЗаписи(Объект.Ссылка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриЗавершенииНастройки(Результат, ДополнительныеПараметры) Экспорт
Прочитать();
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьНастройки()
Перем ИспользуетсяПротоколPOP, Пароли, ЭтоПерсональнаяУчетнаяЗапись;
ДоступноПолучениеПисем = РаботаСПочтовымиСообщениямиСлужебный.НастройкиПодсистемы().ДоступноПолучениеПисем;
Элементы.ОставлятьПисьмаНаСервере.Видимость = Объект.ПротоколВходящейПочты = "POP" И ДоступноПолучениеПисем;
Элементы.СерверВходящейПочты.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Сервер %1'"), Объект.ПротоколВходящейПочты);
УдалятьПисьмаССервера = Объект.ПериодХраненияСообщенийНаСервере > 0;
Если Не УдалятьПисьмаССервера Тогда
Объект.ПериодХраненияСообщенийНаСервере = 10;
КонецЕсли;
Если НЕ Объект.Ссылка.Пустая() Тогда
УстановитьПривилегированныйРежим(Истина);
Пароли = ОбщегоНазначения.ПрочитатьДанныеИзБезопасногоХранилища(Объект.Ссылка, "Пароль, ПарольSMTP");
УстановитьПривилегированныйРежим(Ложь);
Пароль = ?(ЗначениеЗаполнено(Пароли.Пароль), ЭтотОбъект.УникальныйИдентификатор, "");
ПарольSMTP = ?(ЗначениеЗаполнено(Пароли.ПарольSMTP), ЭтотОбъект.УникальныйИдентификатор, "");
Если Не Справочники.УчетныеЗаписиЭлектроннойПочты.ИзменениеРазрешено(Объект.Ссылка) Тогда
ТолькоПросмотр = Истина;
КонецЕсли;
КонецЕсли;
Элементы.ФормаЗаписатьИЗакрыть.Доступность = Не ТолькоПросмотр;
ЭтоПерсональнаяУчетнаяЗапись = ЗначениеЗаполнено(Объект.ВладелецУчетнойЗаписи);
Элементы.ПользовательУчетнойЗаписи.Доступность = ЭтоПерсональнаяУчетнаяЗапись;
ВидУчетнойЗаписи = ?(ЭтоПерсональнаяУчетнаяЗапись, "Персональная", "Общая");
ВладелецУчетнойЗаписи = Объект.ВладелецУчетнойЗаписи;
ИспользуетсяПротоколPOP = Объект.ПротоколВходящейПочты = "POP";
ТребуетсяАвторизацияПриОтправкеПисем = ЗначениеЗаполнено(Объект.ПользовательSMTP) Или Объект.ТребуетсяВходНаСерверПередОтправкой;
Элементы.АвторизацияПриОтправкеПисем.Доступность = ТребуетсяАвторизацияПриОтправкеПисем;
УстановитьВидГруппыТребуетсяАвторизация(ЭтотОбъект, ИспользуетсяПротоколPOP);
Элементы.ОтправлятьСкрытыеКопииПисемНаЭтотАдрес.Видимость = ИспользуетсяПротоколPOP;
ШифрованиеПриОтправкеПочты = ?(Объект.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты, "SSL", "Авто");
ШифрованиеПриПолученииПочты = ?(Объект.ИспользоватьЗащищенноеСоединениеДляВходящейПочты, "SSL", "Авто");
СпособАвторизацииПриОтправкеПочты = ?(Объект.ТребуетсяВходНаСерверПередОтправкой, "POP", "SMTP");
Элементы.ФормаПроверитьНастройки.Доступность = Объект.ИспользоватьДляОтправки Или Объект.ИспользоватьДляПолучения;
КонецПроцедуры
#КонецОбласти
@@ -476,7 +476,7 @@
КонецФункции
Функция ПроверитьПодключениеКСерверуВходящейПочты(Профиль, Протокол)
Функция ПроверитьПодключениеКСерверуВходящейПочты(Профиль, Протокол) Экспорт
ИнтернетПочта = Новый ИнтернетПочта;
@@ -512,7 +512,7 @@
КонецФункции
Функция ПроверитьПодключениеКСерверуИсходящейПочты(Профиль, АдресЭлектроннойПочты)
Функция ПроверитьПодключениеКСерверуИсходящейПочты(Профиль, АдресЭлектроннойПочты) Экспорт
Тема = НСтр("ru = 'Тестовое сообщение 1С:Предприятие'");
Тело = НСтр("ru = 'Это сообщение отправлено подсистемой электронной почты 1С:Предприятие'");
@@ -855,6 +855,124 @@
КонецФункции
Функция ПроверитьВозможностьПодключенияКПочтовомуСерверу(Знач УчетнаяЗапись, Знач ВходящаяПочта) Экспорт
УстановитьОтключениеБезопасногоРежима(Истина);
Профиль = РаботаСПочтовымиСообщениямиСлужебный.ИнтернетПочтовыйПрофиль(УчетнаяЗапись, ВходящаяПочта);
Если ВходящаяПочта Тогда
Протокол = ПротоколИнтернетПочты.POP3;
Если ОбщегоНазначения.ЗначениеРеквизитаОбъекта(УчетнаяЗапись, "ПротоколВходящейПочты") = "IMAP" Тогда
Протокол = ПротоколИнтернетПочты.IMAP;
КонецЕсли;
ТекстОшибки = ПроверитьПодключениеКСерверуВходящейПочты(Профиль, Протокол);
Иначе
Адрес = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(УчетнаяЗапись, "АдресЭлектроннойПочты");
ТекстОшибки = ПроверитьПодключениеКСерверуИсходящейПочты(Профиль, Адрес);
КонецЕсли;
Возврат ТекстОшибки;
КонецФункции
Функция ПроверитьНастройкиУчетнойЗаписи(УчетнаяЗапись) Экспорт
НастройкиУчетнойЗаписи = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(УчетнаяЗапись, "ИспользоватьДляОтправки,ИспользоватьДляПолучения,ПротоколВходящейПочты,АдресЭлектроннойПочты");
ТекстСообщения = Новый Массив;
ТехническиеПодробности = Новый Массив;
ВыполненныеПроверки = Новый Массив;
ОшибкаАутентификации = Ложь;
ТребуетсяПроверкаНастроекИсходящейПочты = Ложь;
ТребуетсяПроверкаНастроекВходящейПочты = Ложь;
УчетнаяЗаписьИспользуется = НастройкиУчетнойЗаписи.ИспользоватьДляОтправки Или НастройкиУчетнойЗаписи.ИспользоватьДляПолучения;
Если НастройкиУчетнойЗаписи.ИспользоватьДляОтправки Тогда
ТекстОшибки = ПроверитьВозможностьПодключенияКПочтовомуСерверу(УчетнаяЗапись, Ложь);
Если ЗначениеЗаполнено(ТекстОшибки) Тогда
ТехническиеПодробности.Добавить(ТекстОшибки);
ОшибкаАутентификации = ОшибкаАутентификации(ТекстОшибки);
Если ОшибкаАутентификации(ТекстОшибки) Тогда
ТекстСообщения.Добавить(НСтр("ru = 'Отправка тестового сообщения не выполнена: не удалось авторизоваться.'"));
Иначе
ТекстСообщения.Добавить(НСтр("ru = 'Отправка тестового сообщения не выполнена.'"));
ТребуетсяПроверкаНастроекИсходящейПочты = Истина;
КонецЕсли;
Иначе
ВыполненныеПроверки.Добавить("- " + НСтр("ru = 'Выполнена отправка тестового сообщения.'"));
КонецЕсли;
КонецЕсли;
Если НастройкиУчетнойЗаписи.ИспользоватьДляПолучения Тогда
ТекстОшибки = ПроверитьВозможностьПодключенияКПочтовомуСерверу(УчетнаяЗапись, Истина);
Если ЗначениеЗаполнено(ТекстОшибки) Тогда
ТехническиеПодробности.Добавить(ТекстОшибки);
ОшибкаАутентификации = ОшибкаАутентификации(ТекстОшибки);
Если ОшибкаАутентификации(ТекстОшибки) Тогда
ТекстСообщения.Добавить(НСтр("ru = 'Подключение к серверу входящей почты не выполнено: не удалось авторизоваться.'"));
Иначе
ТекстСообщения.Добавить(НСтр("ru = 'Подключение к серверу входящей почты не выполнено.'"));
ТребуетсяПроверкаНастроекВходящейПочты = Истина;
КонецЕсли;
Иначе
ВыполненныеПроверки.Добавить("- " + НСтр("ru = 'Выполнено подключение к серверу входящей почты.'"));
КонецЕсли;
КонецЕсли;
ОшибкиПодключения = "";
Если ЗначениеЗаполнено(ТекстСообщения) Тогда
ЧастиАдреса = СтрРазделить(НастройкиУчетнойЗаписи.АдресЭлектроннойПочты, "@", Истина);
ДоменноеИмя = ЧастиАдреса[ЧастиАдреса.ВГраница()];
ТекстСообщения = СтрСоединить(ТекстСообщения, Символы.ПС);
ТехническиеПодробности = СтрСоединить(ТехническиеПодробности, Символы.ПС + Символы.ПС);
Рекомендации = Новый Массив;
Если ОшибкаАутентификации Тогда
Рекомендации.Добавить(НСтр("ru = 'Проверьте правильность ввода логина и пароля, а также выбранный способ авторизации.'"));
КонецЕсли;
Если ТребуетсяПроверкаНастроекИсходящейПочты Тогда
Рекомендации.Добавить(НСтр("ru = 'Проверьте настройки подключения к серверу исходящей почты.'"));
КонецЕсли;
Если ТребуетсяПроверкаНастроекИсходящейПочты Тогда
Рекомендации.Добавить(НСтр("ru = 'Проверьте настройки подключения к серверу входящей почты.'"));
КонецЕсли;
Рекомендации = СтрСоединить(Рекомендации, Символы.ПС);
ОшибкиПодключения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = '%1
|
|%2
|
|Обратитесь к администратору почтового сервера ""%3"".
|---
|Технические подробности:
|
|%4'"), ТекстСообщения, Рекомендации, ДоменноеИмя, ТехническиеПодробности);
КонецЕсли;
ВыполненныеПроверки = СтрСоединить(ВыполненныеПроверки, Символы.ПС);
Результат = Новый Структура;
Результат.Вставить("ВыполненныеПроверки", ВыполненныеПроверки);
Результат.Вставить("ОшибкиПодключения", ОшибкиПодключения);
Возврат Результат;
КонецФункции
Процедура ПроверитьНастройкиУчетнойЗаписиВФоне(Параметры, АдресРезультата) Экспорт
Результат = ПроверитьНастройкиУчетнойЗаписи(Параметры.УчетнаяЗапись);
ПоместитьВоВременноеХранилище(Результат, АдресРезультата);
КонецПроцедуры
#КонецОбласти
#КонецЕсли
@@ -782,4 +782,13 @@
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="626cbb27-6af2-4a9a-959e-15af4417e489">
<name>ПроверкаНастроекУчетнойЗаписи</name>
<synonym>
<key>ru</key>
<value>Проверка настроек учетной записи</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
</mdclass:Catalog>
@@ -1148,6 +1148,7 @@
Настройка.РегламентноеЗадание = Метаданные.РегламентныеЗадания.УведомлениеИсполнителейОНовыхЗадачах;
Настройка.ФункциональнаяОпция = Метаданные.ФункциональныеОпции.ИспользоватьБизнесПроцессыИЗадачи;
Настройка.РаботаетСВнешнимиРесурсами = Истина;
Настройка.ВключатьПриВключенииФункциональнойОпции = Ложь;
Настройка = Настройки.Добавить();
Настройка.РегламентноеЗадание = Метаданные.РегламентныеЗадания.СтартОтложенныхПроцессов;
@@ -2955,6 +2955,7 @@
ПочтовыеЯщики = Соединение.ПолучитьПочтовыеЯщики();
Для Каждого ПочтовыйЯщик Из ПочтовыеЯщики Цикл
Если НРег(ПочтовыйЯщик) = "отправленные"
Или НРег(ПочтовыйЯщик) = "inbox.sent"
Или НРег(ПочтовыйЯщик) = "sent" Тогда
Соединение.ТекущийПочтовыйЯщик = ПочтовыйЯщик;
@@ -908,6 +908,12 @@
ИначеЕсли ОбщегоНазначения.ЭтоРегистр(МетаданныеОбъекта) Тогда
Для Каждого ЭлементОтбора Из Данные.Отбор Цикл
ЗначениеОтбора = Новый Структура("Значение", ЭлементОтбора.Значение);
ПроверитьЗаменитьСсылкуПредопределенногоВРеквизитеОбъекта(ЗначениеОтбора, "Значение", ТаблицаПредопределенных);
ЭлементОтбора.Установить(ЗначениеОтбора.Значение);
КонецЦикла;
ПроверитьЗаменитьСсылкуПредопределенныхВТаблицеДанных(Данные, ТаблицаПредопределенных);
КонецЕсли;
@@ -2881,6 +2881,8 @@
// Выполнить неинтерактивное обновление данных ИБ.
// Для вызова через внешнее соединение.
// При вызове метода с подключенными расширениями, модифицирующими роли конфигурации, будет вызвано исключение.
// Важно: Перед вызовом метода необходимо запустить удаление устаревших патчей,
// см. функцию ОбновлениеКонфигурации.ИсправленияИзменены().
//
// Для использования в других библиотеках и конфигурациях.
//
@@ -41,7 +41,7 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "СтандартныеПодсистемы";
Описание.Версия = "3.0.3.142";
Описание.Версия = "3.0.3.148";
Описание.ИдентификаторИнтернетПоддержки = "SSL";
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0";
@@ -78,6 +78,12 @@
Функция ВыполнитьОбновлениеИнформационнойБазы(ПараметрыОбновления) Экспорт
Если Не ПараметрыОбновления.ПриЗапускеКлиентскогоПриложения Тогда
Если Не ОбщегоНазначения.РазделениеВключено()
И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ОбновлениеКонфигурации") Тогда
МодульОбновлениеКонфигурации = ОбщегоНазначения.ОбщийМодуль("ОбновлениеКонфигурации");
МодульОбновлениеКонфигурации.ПроверитьНаличиеУстаревшихИсправлений();
КонецЕсли;
Попытка
РегистрыСведений.ПараметрыРаботыПрограммы.ЗагрузитьОбновитьПараметрыРаботыПрограммы();
Исключение
@@ -1357,6 +1363,19 @@
Если ОбщегоНазначения.РазделениеВключено() Тогда
Возврат;
КонецЕсли;
Если Пользователи.ЭтоПолноправныйПользователь(, Истина)
И Не ОбновлениеИнформационнойБазы.НеобходимоОбновлениеИнформационнойБазы()
И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ОбновлениеКонфигурации") Тогда
Значение = ОбщегоНазначения.ХранилищеСистемныхНастроекЗагрузить("ПроверкаПатчей", "НомерВерсии");
Если Значение = Неопределено
Или ОбщегоНазначенияКлиентСервер.СравнитьВерсии(Метаданные.Версия, Значение) > 0 Тогда
МодульОбновлениеКонфигурации = ОбщегоНазначения.ОбщийМодуль("ОбновлениеКонфигурации");
МодульОбновлениеКонфигурации.ИсправленияИзменены();
ОбщегоНазначения.ХранилищеСистемныхНастроекСохранить("ПроверкаПатчей", "НомерВерсии", Метаданные.Версия);
КонецЕсли;
КонецЕсли;
СтатусОбработчиков = СтатусНевыполненныхОбработчиков();
Если СтатусОбработчиков = "" Тогда
Возврат;
@@ -13,12 +13,15 @@
// конфигурации в пакетном режиме (см. ОбновлениеИнформационнойБазы.ВыполнитьОбновлениеИнформационнойБазы).
// Важно: Выполненные действия применятся после перезапуска сеанса.
//
// Параметры:
// ТолькоПроверка - Булево - если Истина, устаревшие патчи не будут удаляться.
//
// Возвращаемое значение:
// Структура - со свойствами:
// * ЕстьИзменения - Булево - истина, если были внесены изменения в составе исправлений.
// * ОписаниеИзменений - Строка - информация о удаленных и измененных патчах.
//
Функция ИсправленияИзменены() Экспорт
Функция ИсправленияИзменены(ТолькоПроверка = Ложь) Экспорт
Результат = Новый Структура;
Результат.Вставить("ЕстьИзменения", Ложь);
@@ -48,6 +51,11 @@
Если Исправления.Количество() > 0 Тогда
ТекстСообщения = НСтр("ru = 'В составе конфигурации обнаружены установленные исправления (%1).
|Начало проверки необходимости удаления устаревших патчей.'");
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстСообщения, Исправления.Количество());
ЗаписьЖурналаРегистрации(СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Информация,,, ТекстСообщения);
ОписанияПодсистем = СтандартныеПодсистемыПовтИсп.ОписанияПодсистем();
БиблиотекиКонфигурации = Новый Соответствие;
@@ -62,6 +70,10 @@
// Исправление еще не применено.
УдалитьИсправление = Ложь;
Иначе
ТекстСообщения = НСтр("ru = 'Проверка патча ""%1"".'");
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстСообщения, Исправление.Имя);
ЗаписьЖурналаРегистрации(СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Информация,,, ТекстСообщения);
Для Каждого ИнформацияОПрименимости Из СвойстваИсправления.AppliedFor Цикл
ВерсияБиблиотекиКонфигурации = БиблиотекиКонфигурации.Получить(ИнформацияОПрименимости.ConfigurationName);
@@ -72,7 +84,16 @@
КонецЦикла;
КонецЕсли;
Если ТолькоПроверка И УдалитьИсправление Тогда
Результат.ЕстьИзменения = Истина;
Возврат Результат;
КонецЕсли;
Если УдалитьИсправление Тогда
ТекстСообщения = НСтр("ru = 'Патч ""%1"" устарел и будет удален.'");
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстСообщения, Исправление.Имя);
ЗаписьЖурналаРегистрации(СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Информация,,, ТекстСообщения);
Попытка
Исправление.Удалить();
Изменения.УдаленныеИсправления.Добавить(Исправление.Имя);
@@ -142,6 +163,18 @@
КонецЕсли;
КонецЦикла;
Если Изменения.УдаленныеИсправления.Количество() > 0 Тогда
ОсталосьИсправлений = Исправления.Количество() - Изменения.УдаленныеИсправления.Количество();
ТекстСообщения = НСтр("ru = 'Удаление устаревших патчей завершено.
|Удалено: %1
|Осталось действующих патчей: %2'");
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
ТекстСообщения,
Изменения.УдаленныеИсправления.Количество(),
ОсталосьИсправлений);
ЗаписьЖурналаРегистрации(СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Информация,,, ТекстСообщения);
КонецЕсли;
ОписаниеИзменений = "";
Если Изменения.УдаленныеИсправления.Количество() > 0 Тогда
@@ -412,6 +445,15 @@
#Область СлужебныйПрограммныйИнтерфейс
Процедура ПроверитьНаличиеУстаревшихИсправлений() Экспорт
Результат = ИсправленияИзменены(Истина);
Если Результат.ЕстьИзменения Тогда
ТекстСообщения = НСтр("ru = 'Некорректный вызов функции ""ОбновлениеИнформационнойБазы.ВыполнитьОбновлениеИнформационнойБазы"".
|Перед вызовом не были удалены устаревшие патчи, возможно, обновление выполняется нештатными средствами.'");
ЗаписьЖурналаРегистрации(СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Ошибка,,, ТекстСообщения);
КонецЕсли;
КонецПроцедуры
// Вызывается при завершении обновления конфигурации через COM-соединение.
//
// Параметры:
@@ -87,4 +87,8 @@
ОбновлениеКонфигурации.СохранитьНастройкиОбновленияКонфигурации(Настройки);
КонецПроцедуры
Процедура ОбновитьИсправленияИзСкрипта(НовыеИсправления, УдаляемыеИсправления) Экспорт
ОбновлениеКонфигурации.ОбновитьИсправленияИзСкрипта(НовыеИсправления, УдаляемыеИсправления);
КонецПроцедуры
#КонецОбласти
@@ -225,7 +225,7 @@
КонецЕсли;
// Расчет показателей.
ПараметрыРасчета = ПараметрыРасчетаПоказателейЯчеек(ТабличныйДокумент);
ПараметрыРасчета = ПараметрыРасчетаПоказателейЯчеек(Элементы[ИмяТабличногоДокумента]);
Если ПараметрыРасчета.РассчитатьНаСервере Тогда
РасчетныеПоказатели = СтандартныеПодсистемыВызовСервера.РасчетныеПоказателиЯчеек(
@@ -1013,7 +1013,7 @@
// Формирует описание выделенных областей табличного документа.
//
// Параметры:
// ТабличныйДокумент - ТабличныйДокумент - документ, значения ячеек которого участвуют в расчете.
// ПолеДокумента - ПолеФормы, ПолеТабличногоДокумента - документ, значения ячеек которого участвуют в расчете.
//
// Возвращаемое значение:
// Структура - содержит:
@@ -1025,14 +1025,16 @@
// * ТипОбласти - ТипОбластиЯчеекТабличногоДокумента - Колонки, Прямоугольник, Строки, Таблица.
// * РассчитатьНаСервере - Булево - признак того, что расчет должен выполняться на сервере.
//
Функция ПараметрыРасчетаПоказателейЯчеек(ТабличныйДокумент)
Функция ПараметрыРасчетаПоказателейЯчеек(ПолеДокумента)
ПараметрыРасчетаПоказателей = Новый Структура;
ПараметрыРасчетаПоказателей.Вставить("ВыделенныеОбласти", Новый Массив);
ПараметрыРасчетаПоказателей.Вставить("РассчитатьНаСервере", Ложь);
ВыделенныеОбласти = ПараметрыРасчетаПоказателей.ВыделенныеОбласти;
Для Каждого ВыделеннаяОбласть Из ТабличныйДокумент.ВыделенныеОбласти Цикл
ВыделенныеОбластиДокумента = ПолеДокумента.ПолучитьВыделенныеОбласти();
Для Каждого ВыделеннаяОбласть Из ВыделенныеОбластиДокумента Цикл
Если ТипЗнч(ВыделеннаяОбласть) <> Тип("ОбластьЯчеекТабличногоДокумента") Тогда
Продолжить;
@@ -97,10 +97,6 @@
#КонецОбласти
Если ВыделенныеОбласти = Неопределено Тогда
ВыделенныеОбласти = ТабличныйДокумент.ВыделенныеОбласти;
КонецЕсли;
ПроверенныеЯчейки = Новый Соответствие;
Для Каждого ВыделеннаяОбласть Из ВыделенныеОбласти Цикл
@@ -8,16 +8,6 @@
#Область СлужебныеПроцедурыИФункции
// Проверка учетной записи электронной почты.
//
// См. описание процедуры РаботаСПочтовымиСообщениямиСлужебный.ПроверитьВозможностьОтправкиИПолученияЭлектроннойПочты.
//
Процедура ПроверитьВозможностьОтправкиИПолученияЭлектроннойПочты(УчетнаяЗапись, СообщениеОбОшибке, ДополнительноеСообщение) Экспорт
РаботаСПочтовымиСообщениямиСлужебный.ПроверитьВозможностьОтправкиИПолученияЭлектроннойПочты(УчетнаяЗапись, СообщениеОбОшибке, ДополнительноеСообщение);
КонецПроцедуры
// Возвращает Истина, если текущему пользователю доступна по меньшей мере одна учетная запись для отправки.
Функция ЕстьДоступныеУчетныеЗаписиДляОтправки() Экспорт
Возврат РаботаСПочтовымиСообщениями.ДоступныеУчетныеЗаписи(Истина).Количество() > 0;
@@ -119,6 +119,16 @@
#КонецОбласти
#Область СлужебныйПрограммныйИнтерфейс
Процедура ПерейтиКДокументацииПоВводуУчетнойЗаписиЭлектроннойПочты() Экспорт
ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку("https://its.1c.ru/bmk/bsp_email_account");
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
// Продолжение процедуры СоздатьНовоеПисьмо.
@@ -185,49 +195,15 @@
ОткрытьФорму("ОбщаяФорма.ОтправкаСообщения", ПараметрыПисьма, , , , , ОписаниеОповещенияОЗакрытии);
КонецПроцедуры
// Выполняет проверку учетной записи.
//
// Параметры:
// УчетнаяЗапись - СправочникСсылка.УчетныеЗаписиЭлектроннойПочты - учетная запись,
// которую нужно проверить.
//
Процедура ПроверитьУчетнуюЗапись(Знач УчетнаяЗапись) Экспорт
ОчиститьСообщения();
ПроверитьВозможностьОтправкиИПолученияЭлектроннойПочты(Неопределено, УчетнаяЗапись);
КонецПроцедуры
// Проверка учетной записи электронной почты.
//
// См. описание процедуры РаботаСПочтовымиСообщениямиСлужебный.ПроверитьВозможностьОтправкиИПолученияЭлектроннойПочты.
//
Процедура ПроверитьВозможностьОтправкиИПолученияЭлектроннойПочты(ОбработчикРезультата, УчетнаяЗапись)
СообщениеОбОшибке = "";
ДополнительноеСообщение = "";
РаботаСПочтовымиСообщениямиВызовСервера.ПроверитьВозможностьОтправкиИПолученияЭлектроннойПочты(УчетнаяЗапись, СообщениеОбОшибке, ДополнительноеСообщение);
Если ЗначениеЗаполнено(СообщениеОбОшибке) Тогда
ПоказатьПредупреждение(ОбработчикРезультата, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Проверка параметров учетной записи завершилась с ошибками:
|%1'"), СообщениеОбОшибке ),,
НСтр("ru = 'Проверка учетной записи'"));
Иначе
ПоказатьПредупреждение(ОбработчикРезультата, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Проверка параметров учетной записи завершилась успешно. %1'"),
ДополнительноеСообщение),,
НСтр("ru = 'Проверка учетной записи'"));
КонецЕсли;
КонецПроцедуры
Процедура ПроверитьНаличиеУчетнойЗаписиДляОтправкиПочтыЗавершение(ОбработчикРезультата) Экспорт
ВыполнитьОбработкуОповещения(ОбработчикРезультата, Ложь);
КонецПроцедуры
Процедура ПерейтиКДокументацииПоВводуУчетнойЗаписиЭлектроннойПочты() Экспорт
Функция ПроверитьНастройкиУчетнойЗаписи(УчетнаяЗапись) Экспорт
ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку("https://its.1c.ru/bmk/bsp_email_account");
Параметры = Новый Структура("УчетнаяЗапись", УчетнаяЗапись);
ОткрытьФорму("Справочник.УчетныеЗаписиЭлектроннойПочты.Форма.ПроверкаНастроекУчетнойЗаписи", Параметры);
КонецПроцедуры
КонецФункции
#КонецОбласти
@@ -644,6 +644,7 @@
ПочтовыеЯщики = Соединение.ПолучитьПочтовыеЯщики();
Для Каждого ПочтовыйЯщик Из ПочтовыеЯщики Цикл
Если НРег(ПочтовыйЯщик) = "отправленные"
Или НРег(ПочтовыйЯщик) = "inbox.sent"
Или НРег(ПочтовыйЯщик) = "sent" Тогда
Соединение.ТекущийПочтовыйЯщик = ПочтовыйЯщик;
@@ -988,11 +989,10 @@
ДополнительноеСообщение = "";
Если НастройкиУчетнойЗаписи.ИспользоватьДляОтправки Тогда
Попытка
ПроверитьВозможностьПодключенияКПочтовомуСерверу(УчетнаяЗапись, Ложь);
Исключение
СообщениеОбОшибке = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Не удалось подключиться к серверу SMTP: %1'"), КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
КонецПопытки;
ТекстОшибки = Справочники.УчетныеЗаписиЭлектроннойПочты.ПроверитьВозможностьПодключенияКПочтовомуСерверу(УчетнаяЗапись, Ложь);
Если ЗначениеЗаполнено(ТекстОшибки) Тогда
СообщениеОбОшибке = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Не удалось подключиться к серверу SMTP: %1'") + Символы.ПС, ТекстОшибки);
КонецЕсли;
Если Не НастройкиУчетнойЗаписи.ИспользоватьДляПолучения Тогда
ДополнительноеСообщение = Символы.ПС + НСтр("ru = '(Выполнена проверка отправки электронных сообщений.)'");
КонецЕсли;
@@ -1001,16 +1001,15 @@
Если НастройкиУчетнойЗаписи.ИспользоватьДляПолучения
Или НастройкиУчетнойЗаписи.ИспользоватьДляОтправки И НастройкиУчетнойЗаписи.ПротоколВходящейПочты = "IMAP" Тогда
Попытка
ПроверитьВозможностьПодключенияКПочтовомуСерверу(УчетнаяЗапись, Истина);
Исключение
ТекстОшибки = Справочники.УчетныеЗаписиЭлектроннойПочты.ПроверитьВозможностьПодключенияКПочтовомуСерверу(УчетнаяЗапись, Истина);
Если ЗначениеЗаполнено(ТекстОшибки) Тогда
Если ЗначениеЗаполнено(СообщениеОбОшибке) Тогда
СообщениеОбОшибке = СообщениеОбОшибке + Символы.ПС;
КонецЕсли;
СообщениеОбОшибке = СообщениеОбОшибке + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Не удалось подключиться к серверу %1: %2'"),
НастройкиУчетнойЗаписи.ПротоколВходящейПочты, КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
КонецПопытки;
СообщениеОбОшибке = СообщениеОбОшибке + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Не удалось подключиться к серверу %1:
|%2'"), НастройкиУчетнойЗаписи.ПротоколВходящейПочты, ТекстОшибки);
КонецЕсли;
Если Не НастройкиУчетнойЗаписи.ИспользоватьДляОтправки Тогда
ДополнительноеСообщение = Символы.ПС + НСтр("ru = '(Выполнена проверка получения электронных сообщений.)'");
@@ -1020,26 +1019,6 @@
КонецПроцедуры
Процедура ПроверитьВозможностьПодключенияКПочтовомуСерверу(Знач УчетнаяЗапись, ВходящаяПочта)
УстановитьОтключениеБезопасногоРежима(Истина);
Профиль = ИнтернетПочтовыйПрофиль(УчетнаяЗапись, ВходящаяПочта);
Соединение = Новый ИнтернетПочта;
Если ВходящаяПочта Тогда
Протокол = ПротоколИнтернетПочты.POP3;
Если ОбщегоНазначения.ЗначениеРеквизитаОбъекта(УчетнаяЗапись, "ПротоколВходящейПочты") = "IMAP" Тогда
Протокол = ПротоколИнтернетПочты.IMAP;
КонецЕсли;
Соединение.Подключиться(Профиль, Протокол);
Иначе
Соединение.Подключиться(Профиль);
КонецЕсли;
Соединение.Отключиться();
КонецПроцедуры
// Отключает все учетные записи. Используется при начальной настройке узла РИБ.
Процедура ОтключитьИспользованиеУчетныхЗаписей()
@@ -1029,8 +1029,7 @@
| Справочник." + МетаданныеСправочника.Имя + " КАК СправочникПрисоединенныеФайлы
|ГДЕ
| СправочникПрисоединенныеФайлы.Том = &Том
| И СправочникПрисоединенныеФайлы.ТипХраненияФайла = ЗНАЧЕНИЕ(Перечисление.ТипыХраненияФайлов.ВТомахНаДиске)
| И НЕ СправочникПрисоединенныеФайлы.ПометкаУдаления";
| И СправочникПрисоединенныеФайлы.ТипХраненияФайла = ЗНАЧЕНИЕ(Перечисление.ТипыХраненияФайлов.ВТомахНаДиске)";
Если ЕстьВозможностьХранитьВерсии Тогда
СправочникВерсийФайлов = Метаданные.НайтиПоТипу(МетаданныеСправочника.Реквизиты.ТекущаяВерсия.Тип.Типы()[0]);
Запрос.Текст = Запрос.Текст + "
@@ -1055,8 +1054,7 @@
| Справочник." + МетаданныеСправочника.Имя + " КАК СправочникПрисоединенныеФайлы
|ГДЕ
| СправочникПрисоединенныеФайлы.Том = &Том
| И СправочникПрисоединенныеФайлы.ТипХраненияФайла = ЗНАЧЕНИЕ(Перечисление.ТипыХраненияФайлов.ВТомахНаДиске)
| И НЕ СправочникПрисоединенныеФайлы.ПометкаУдаления";
| И СправочникПрисоединенныеФайлы.ТипХраненияФайла = ЗНАЧЕНИЕ(Перечисление.ТипыХраненияФайлов.ВТомахНаДиске)";
Если ДобавитьПсевдонимПоля Тогда
ДобавитьПсевдонимПоля = Ложь;
@@ -1578,7 +1578,7 @@
//
Функция ВыполнитьДоставку(ПараметрыЖурнала, ПараметрыДоставки, Вложения) Экспорт
Результат = Ложь;
ШаблонСообщенияОбОшибке = НСтр("ru = 'Ошибка доставки отчетов'");
ШаблонСообщенияОбОшибке = НСтр("ru = 'Отчеты не доставлены'");
РежимТестирования = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ПараметрыДоставки, "РежимТестирования", Ложь);
////////////////////////////////////////////////////////////////////////////
@@ -1588,7 +1588,7 @@
СетевойКаталогСервера = ПараметрыДоставки.СетевойКаталогWindows;
СистемнаяИнфо = Новый СистемнаяИнформация;
ТипПлатформыСервера = СистемнаяИнфо.ТипПлатформы;
ТипПлатформыСервера = СистемнаяИнфо.ТипПлатформы;
Если ТипПлатформыСервера = ТипПлатформы.Linux_x86
Или ТипПлатформыСервера = ТипПлатформы.Linux_x86_64 Тогда
@@ -928,7 +928,12 @@
КонецЕсли;
Если ТипЗнч(СпискиДляОбновления[0]) = Тип("Строка") Тогда
Идентификаторы = ОбщегоНазначения.ИдентификаторыОбъектовМетаданных(СпискиДляОбновления);
Если Списки = Неопределено Тогда
Идентификаторы = Справочники.ИдентификаторыОбъектовМетаданных.ИдентификаторыОбъектовМетаданных(СпискиДляОбновления, Истина);
Иначе
Идентификаторы = ОбщегоНазначения.ИдентификаторыОбъектовМетаданных(СпискиДляОбновления);
КонецЕсли;
СпискиПоИдентификаторам = Новый Соответствие;
Для Каждого ОписаниеИдентификатора Из Идентификаторы Цикл
СпискиПоИдентификаторам.Вставить(ОписаниеИдентификатора.Значение, ОписаниеИдентификатора.Ключ);
@@ -14680,6 +14685,8 @@
Если ОбщегоНазначения.ИнформационнаяБазаФайловая() Тогда
ЭлементБлокировки = Блокировка.Добавить("Справочник.НаборыГруппДоступа");
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.КлючиДоступаГруппДоступа");
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
КонецЕсли;
Выгрузка.Свернуть("КлючДоступа");
@@ -143,6 +143,7 @@
ПочтовыеЯщики = Соединение.ПолучитьПочтовыеЯщики();
Для Каждого ПочтовыйЯщик Из ПочтовыеЯщики Цикл
Если НРег(ПочтовыйЯщик) = "отправленные"
Или НРег(ПочтовыйЯщик) = "inbox.sent"
Или НРег(ПочтовыйЯщик) = "sent" Тогда
Соединение.ТекущийПочтовыйЯщик = ПочтовыйЯщик;
@@ -486,6 +487,7 @@
ПочтовыеЯщики = Соединение.ПолучитьПочтовыеЯщики();
Для Каждого ПочтовыйЯщик Из ПочтовыеЯщики Цикл
Если НРег(ПочтовыйЯщик) = "отправленные"
Или НРег(ПочтовыйЯщик) = "inbox.sent"
Или НРег(ПочтовыйЯщик) = "sent" Тогда
Соединение.ТекущийПочтовыйЯщик = ПочтовыйЯщик;
@@ -2220,10 +2220,10 @@
КонецЕсли;
ЧтениеXML.Закрыть();
Если ПараметрыДампов.type <> ТипДампа Тогда
СоздатьСекциюСбораДампов(Файл, ЧтениеXML, КаталогДампов, ТипДампа);
ИначеЕсли СтрНайти(КаталогДампов.Путь, "80af5716-b134-4b1c-a38d-4658d1ac4196") > 0 Тогда
Если НЕ ПараметрыДампов.Свойство("externaldump") Тогда
Если СтрНайти(КаталогДампов.Путь, "80af5716-b134-4b1c-a38d-4658d1ac4196") > 0 Тогда
Если ПараметрыДампов.type <> ТипДампа Тогда
СоздатьСекциюСбораДампов(Файл, ЧтениеXML, КаталогДампов, ТипДампа);
ИначеЕсли НЕ ПараметрыДампов.Свойство("externaldump") Тогда
СоздатьСекциюСбораДампов(Файл, ЧтениеXML, КаталогДампов, ТипДампа);
ИначеЕсли ПараметрыДампов.externaldump <> "1" Тогда
СоздатьСекциюСбораДампов(Файл, ЧтениеXML, КаталогДампов, ТипДампа);
+9 -9
View File
@@ -1,17 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:Configuration xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="2c2a9341-7a9b-49c9-93ff-20590382ae77">
<mdclass:Configuration xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="9462c9f2-e1cf-48e2-b5b1-994f4769d016">
<name>БиблиотекаСтандартныхПодсистем</name>
<synonym>
<key>ru</key>
<value>Библиотека стандартных подсистем, редакция 3.0</value>
</synonym>
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="f8c935ce-c040-4b39-b8bb-00cd5088db9b"/>
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="d7547dad-e0fd-4bdf-a802-2ed8f608688f"/>
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="cede9e85-b744-4952-9eac-84c0350725af"/>
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="31054e47-0138-43c7-8723-da690d341424"/>
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="225acae4-0c79-4e80-b5ac-f3edf315be5e"/>
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="17c1c1bc-aaeb-4571-8079-40bbca9af29e"/>
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="fb18aeac-1afd-4e83-8f66-515f6af9594d"/>
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="0cabf0e5-fce3-4970-91b2-34e7887acd3b"/>
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="bdb15d5f-f200-40b1-ba97-5a5618f6a862"/>
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="7c421a2b-3a9a-42fc-a91f-01d9ea96e9f8"/>
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="59aa8529-906a-47d2-bff6-8297dfc68957"/>
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="acf58977-79dd-4bc4-9703-6791cdb7359f"/>
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="cda62e59-81b4-4368-b971-594539e8efab"/>
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="442b5aa0-801e-4565-9fb9-8d6c176e8109"/>
<defaultRunMode>ManagedApplication</defaultRunMode>
<usePurposes>PersonalComputer</usePurposes>
<scriptVariant>Russian</scriptVariant>
@@ -19,7 +19,7 @@
<defaultRoles>Role.АдминистраторСистемы</defaultRoles>
<defaultRoles>Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</defaultRoles>
<vendor>Фирма &quot;1С&quot;</vendor>
<version>3.0.3.142</version>
<version>3.0.3.148</version>
<updateCatalogAddress>http://downloads.v8.1c.ru/tmplts/</updateCatalogAddress>
<includeHelpInContents>true</includeHelpInContents>
<usedMobileApplicationFunctionalities>
@@ -1 +1 @@
{6,1,1,5bb55107-e020-4db5-8966-4aa54675b27a,1,0cb64779-9878-4d8d-8af7-1a26c7bd7ba7,"3.0.3.142","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",6041,1,0,2c2a9341-7a9b-49c9-93ff-20590382ae77,2c2a9341-7a9b-49c9-93ff-20590382ae77,1,0,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,1,0,9233322b-dfdb-4c66-91fe-1299292d40a5,9233322b-dfdb-4c66-91fe-1299292d40a5,1,0,7795348b-2f52-47f7-bf00-e11e5e795a43,7795348b-2f52-47f7-bf00-e11e5e795a43,1,0,0421b67e-ed26-491d-ab98-ec59002ed4ce,0421b67e-ed26-491d-ab98-ec59002ed4ce,1,0,bb47ced2-31f9-4870-8633-20b986e53ccc,bb47ced2-31f9-4870-8633-20b986e53ccc,1,0,7d8acec9-f5a9-411e-921c-446ed0dd3332,7d8acec9-f5a9-411e-921c-446ed0dd3332,1,0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,1,0,cdbd26b1-9583-46e8-adf7-8cc705639892,cdbd26b1-9583-46e8-adf7-8cc705639892,1,0,c0e38c3e-7088-4e35-9d84-2d0ab9655402,c0e38c3e-7088-4e35-9d84-2d0ab9655402,1,0,1098786f-dd24-4cce-b212-be0cb5f01735,1098786f-dd24-4cce-b212-be0cb5f01735,1,0,3c0037f3-4422-4836-b116-8c72e32bdd55,3c0037f3-4422-4836-b116-8c72e32bdd55,1,0,6f7c6c31-206b-4010-bdad-1ad2e304f154,6f7c6c31-206b-4010-bdad-1ad2e304f154,1,0,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,1,0,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,1,0,5b68d479-7880-44de-84e3-7f578b43f0dc,5b68d479-7880-44de-84e3-7f578b43f0dc,1,0,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,1,0,b4629308-42de-4ce8-8591-cf0c2399a9a2,b4629308-42de-4ce8-8591-cf0c2399a9a2,1,0,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,1,0,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,1,0,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,1,0,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1,0,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,1,0,b93b8760-6200-40ee-8bdc-875ba80a6155,b93b8760-6200-40ee-8bdc-875ba80a6155,1,0,c27472ee-879a-4746-9d21-122738ec80b7,c27472ee-879a-4746-9d21-122738ec80b7,1,0,e8b248d9-9049-456a-9c7d-7a0462cc67ab,e8b248d9-9049-456a-9c7d-7a0462cc67ab,1,0,d4562287-440d-4462-9de2-7097ccbf3764,d4562287-440d-4462-9de2-7097ccbf3764,1,0,ec797c75-02c5-4cf5-9dd4-26cd46c99519,ec797c75-02c5-4cf5-9dd4-26cd46c99519,1,0,6fccdf59-fc99-4a2b-a144-fffe438a147c,6fccdf59-fc99-4a2b-a144-fffe438a147c,1,0,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,1,0,08a413ff-bebd-42e5-8ff3-2115746a0844,08a413ff-bebd-42e5-8ff3-2115746a0844,1,0,da9b32e6-5b93-45a6-84b2-238d57541e18,da9b32e6-5b93-45a6-84b2-238d57541e18,1,0,e43d69c8-b284-47da-b236-611bc94a15b6,e43d69c8-b284-47da-b236-611bc94a15b6,1,0,31eeaa05-6c49-41fe-b840-1edbad4ccac7,31eeaa05-6c49-41fe-b840-1edbad4ccac7,1,0,842c8662-8f39-405e-9665-cbdabc116159,842c8662-8f39-405e-9665-cbdabc116159,1,0,fca4b033-02c4-4d61-9e51-87783c3cef1a,fca4b033-02c4-4d61-9e51-87783c3cef1a,1,0,396ef757-d7f6-411f-8c4c-1acb1106a009,396ef757-d7f6-411f-8c4c-1acb1106a009,1,0,839e29b1-a0d2-40fa-9f3e-46e66b943358,839e29b1-a0d2-40fa-9f3e-46e66b943358,1,0,c56d2cc7-630a-441b-b23f-ba78c34849bd,c56d2cc7-630a-441b-b23f-ba78c34849bd,1,0,9aecf4f5-46ed-4d1c-a584-cd028e467895,9aecf4f5-46ed-4d1c-a584-cd028e467895,1,0,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,1,0,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,1,0,a1f10624-22e9-4a04-b370-fd085bdd0f67,a1f10624-22e9-4a04-b370-fd085bdd0f67,1,0,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,1,0,3cffb795-2a28-4beb-92f4-5813f5994022,3cffb795-2a28-4beb-92f4-5813f5994022,1,0,3323ca68-1382-4710-a933-23fc56588935,3323ca68-1382-4710-a933-23fc56588935,1,0,d6b12775-3255-42b8-88b2-62684f873e7d,d6b12775-3255-42b8-88b2-62684f873e7d,1,0,cc23d903-ccc5-42f4-862f-5e7278c4e346,cc23d903-ccc5-42f4-862f-5e7278c4e346,1,0,98f033e0-fa40-46e0-b51a-87a066749a35,98f033e0-fa40-46e0-b51a-87a066749a35,1,0,e8b4cb2d-1180-4101-954a-4cb5464f198c,e8b4cb2d-1180-4101-954a-4cb5464f198c,1,0,a379287d-1ce8-460d-a503-910e728e28f1,a379287d-1ce8-460d-a503-910e728e28f1,1,0,f765c4ba-c677-42ac-8d0c-43bb485405b9,f765c4ba-c677-42ac-8d0c-43bb485405b9,1,0,83192b3e-e7a9-4595-8887-24cda84457a9,83192b3e-e7a9-4595-8887-24cda84457a9,1,0,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,c8a4c5da-bc88-4f6e-9787-1c22c2f41be7,c8a4c5da-bc88-4f6e-9787-1c22c2f41be7,1,0,08eeb8f1-944f-4450-83f6-ef20aaab7d86,08eeb8f1-944f-4450-83f6-ef20aaab7d86,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,8d77dd4a-e646-4105-8dcf-8ce8fc3da0b4,8d77dd4a-e646-4105-8dcf-8ce8fc3da0b4,1,0,2fd12dba-5311-4f31-949c-f6b15decc0cc,2fd12dba-5311-4f31-949c-f6b15decc0cc,1,0,d7cf3981-cf63-4a21-868b-8175a7704a8f,d7cf3981-cf63-4a21-868b-8175a7704a8f,1,0,35895e12-52b6-49a1-acdf-6d828a948af0,35895e12-52b6-49a1-acdf-6d828a948af0,1,0,0ae93712-74e8-41c7-8f2d-4dfc8983697d,0ae93712-74e8Line truncated
{6,1,1,bbe59d2d-0b0f-4322-86bc-78220fb76547,1,ba5a5c95-73ae-4104-b4d9-d648959c1312,"3.0.3.148","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",6043,1,0,9462c9f2-e1cf-48e2-b5b1-994f4769d016,9462c9f2-e1cf-48e2-b5b1-994f4769d016,1,0,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,1,0,9233322b-dfdb-4c66-91fe-1299292d40a5,9233322b-dfdb-4c66-91fe-1299292d40a5,1,0,7795348b-2f52-47f7-bf00-e11e5e795a43,7795348b-2f52-47f7-bf00-e11e5e795a43,1,0,0421b67e-ed26-491d-ab98-ec59002ed4ce,0421b67e-ed26-491d-ab98-ec59002ed4ce,1,0,bb47ced2-31f9-4870-8633-20b986e53ccc,bb47ced2-31f9-4870-8633-20b986e53ccc,1,0,7d8acec9-f5a9-411e-921c-446ed0dd3332,7d8acec9-f5a9-411e-921c-446ed0dd3332,1,0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,1,0,cdbd26b1-9583-46e8-adf7-8cc705639892,cdbd26b1-9583-46e8-adf7-8cc705639892,1,0,c0e38c3e-7088-4e35-9d84-2d0ab9655402,c0e38c3e-7088-4e35-9d84-2d0ab9655402,1,0,1098786f-dd24-4cce-b212-be0cb5f01735,1098786f-dd24-4cce-b212-be0cb5f01735,1,0,3c0037f3-4422-4836-b116-8c72e32bdd55,3c0037f3-4422-4836-b116-8c72e32bdd55,1,0,6f7c6c31-206b-4010-bdad-1ad2e304f154,6f7c6c31-206b-4010-bdad-1ad2e304f154,1,0,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,1,0,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,1,0,5b68d479-7880-44de-84e3-7f578b43f0dc,5b68d479-7880-44de-84e3-7f578b43f0dc,1,0,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,1,0,b4629308-42de-4ce8-8591-cf0c2399a9a2,b4629308-42de-4ce8-8591-cf0c2399a9a2,1,0,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,1,0,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,1,0,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,1,0,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1,0,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,1,0,b93b8760-6200-40ee-8bdc-875ba80a6155,b93b8760-6200-40ee-8bdc-875ba80a6155,1,0,c27472ee-879a-4746-9d21-122738ec80b7,c27472ee-879a-4746-9d21-122738ec80b7,1,0,e8b248d9-9049-456a-9c7d-7a0462cc67ab,e8b248d9-9049-456a-9c7d-7a0462cc67ab,1,0,d4562287-440d-4462-9de2-7097ccbf3764,d4562287-440d-4462-9de2-7097ccbf3764,1,0,ec797c75-02c5-4cf5-9dd4-26cd46c99519,ec797c75-02c5-4cf5-9dd4-26cd46c99519,1,0,6fccdf59-fc99-4a2b-a144-fffe438a147c,6fccdf59-fc99-4a2b-a144-fffe438a147c,1,0,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,1,0,08a413ff-bebd-42e5-8ff3-2115746a0844,08a413ff-bebd-42e5-8ff3-2115746a0844,1,0,da9b32e6-5b93-45a6-84b2-238d57541e18,da9b32e6-5b93-45a6-84b2-238d57541e18,1,0,e43d69c8-b284-47da-b236-611bc94a15b6,e43d69c8-b284-47da-b236-611bc94a15b6,1,0,31eeaa05-6c49-41fe-b840-1edbad4ccac7,31eeaa05-6c49-41fe-b840-1edbad4ccac7,1,0,842c8662-8f39-405e-9665-cbdabc116159,842c8662-8f39-405e-9665-cbdabc116159,1,0,fca4b033-02c4-4d61-9e51-87783c3cef1a,fca4b033-02c4-4d61-9e51-87783c3cef1a,1,0,396ef757-d7f6-411f-8c4c-1acb1106a009,396ef757-d7f6-411f-8c4c-1acb1106a009,1,0,839e29b1-a0d2-40fa-9f3e-46e66b943358,839e29b1-a0d2-40fa-9f3e-46e66b943358,1,0,c56d2cc7-630a-441b-b23f-ba78c34849bd,c56d2cc7-630a-441b-b23f-ba78c34849bd,1,0,9aecf4f5-46ed-4d1c-a584-cd028e467895,9aecf4f5-46ed-4d1c-a584-cd028e467895,1,0,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,1,0,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,1,0,a1f10624-22e9-4a04-b370-fd085bdd0f67,a1f10624-22e9-4a04-b370-fd085bdd0f67,1,0,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,1,0,3cffb795-2a28-4beb-92f4-5813f5994022,3cffb795-2a28-4beb-92f4-5813f5994022,1,0,3323ca68-1382-4710-a933-23fc56588935,3323ca68-1382-4710-a933-23fc56588935,1,0,d6b12775-3255-42b8-88b2-62684f873e7d,d6b12775-3255-42b8-88b2-62684f873e7d,1,0,cc23d903-ccc5-42f4-862f-5e7278c4e346,cc23d903-ccc5-42f4-862f-5e7278c4e346,1,0,98f033e0-fa40-46e0-b51a-87a066749a35,98f033e0-fa40-46e0-b51a-87a066749a35,1,0,e8b4cb2d-1180-4101-954a-4cb5464f198c,e8b4cb2d-1180-4101-954a-4cb5464f198c,1,0,a379287d-1ce8-460d-a503-910e728e28f1,a379287d-1ce8-460d-a503-910e728e28f1,1,0,f765c4ba-c677-42ac-8d0c-43bb485405b9,f765c4ba-c677-42ac-8d0c-43bb485405b9,1,0,83192b3e-e7a9-4595-8887-24cda84457a9,83192b3e-e7a9-4595-8887-24cda84457a9,1,0,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,c8a4c5da-bc88-4f6e-9787-1c22c2f41be7,c8a4c5da-bc88-4f6e-9787-1c22c2f41be7,1,0,08eeb8f1-944f-4450-83f6-ef20aaab7d86,08eeb8f1-944f-4450-83f6-ef20aaab7d86,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,8d77dd4a-e646-4105-8dcf-8ce8fc3da0b4,8d77dd4a-e646-4105-8dcf-8ce8fc3da0b4,1,0,2fd12dba-5311-4f31-949c-f6b15decc0cc,2fd12dba-5311-4f31-949c-f6b15decc0cc,1,0,d7cf3981-cf63-4a21-868b-8175a7704a8f,d7cf3981-cf63-4a21-868b-8175a7704a8f,1,0,35895e12-52b6-49a1-acdf-6d828a948af0,35895e12-52b6-49a1-acdf-6d828a948af0,1,0,0ae93712-74e8-41c7-8f2d-4dfc8983697d,0ae93712-74e8Line truncated
@@ -2733,9 +2733,15 @@
</edit>
</attributes>
<attributes>
<name>РезультатВыполнения</name>
<name>ИдентификаторЗадания</name>
<title>
<key>ru</key>
<value>Идентификатор задания</value>
</title>
<id>15</id>
<valueType/>
<valueType>
<types>UUID</types>
</valueType>
<view>
<common>true</common>
</view>
@@ -259,7 +259,7 @@
КонецЕсли;
Если Результат.Статус = "Выполнено" Тогда
ЗагрузитьПодготовленныеДанные();
ЗагрузитьПодготовленныеДанные(Результат.АдресРезультата);
ОбщегоНазначенияКлиентСервер.УстановитьСостояниеПоляТабличногоДокумента(Элементы.ПолеИндикаторДлительныхОпераций, "НеИспользовать");
Элементы.Страницы.ТекущаяСтраница = Элементы.ЖурналРегистрации;
ПозиционированиеВКонецСписка();
@@ -381,11 +381,10 @@
&НаСервере
Функция ПрочитатьЖурнал()
Если РезультатВыполнения <> Неопределено
И ЗначениеЗаполнено(РезультатВыполнения.ИдентификаторЗадания) Тогда
ДлительныеОперации.ОтменитьВыполнениеЗадания(РезультатВыполнения.ИдентификаторЗадания);
Если ЗначениеЗаполнено(ИдентификаторЗадания) Тогда
ДлительныеОперации.ОтменитьВыполнениеЗадания(ИдентификаторЗадания);
ИдентификаторЗадания = Неопределено;
КонецЕсли;
ПараметрыОтчета = ПараметрыОтчета();
ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияВФоне(УникальныйИдентификатор);
@@ -400,9 +399,9 @@
Элементы.Страницы.ТекущаяСтраница = Элементы.ЖурналРегистрации;
ВызватьИсключение РезультатВыполнения.КраткоеПредставлениеОшибки;
КонецЕсли;
ИдентификаторЗадания = РезультатВыполнения.ИдентификаторЗадания;
ЖурналРегистрации.СформироватьПредставлениеОтбора(ПредставлениеОтбора, ОтборЖурналаРегистрации, ОтборЖурналаРегистрацииПоУмолчанию);
Возврат РезультатВыполнения;
КонецФункции
@@ -421,13 +420,13 @@
КонецФункции
&НаСервере
Процедура ЗагрузитьПодготовленныеДанные()
Результат = ПолучитьИзВременногоХранилища(РезультатВыполнения.АдресРезультата);
СобытияЖурнала = Результат.СобытияЖурнала;
Процедура ЗагрузитьПодготовленныеДанные(Знач АдресРезультата)
Результат = ПолучитьИзВременногоХранилища(АдресРезультата);
СобытияЖурнала = Результат.СобытияЖурнала;
ЖурналРегистрации.ПоместитьДанныеВоВременноеХранилище(СобытияЖурнала, УникальныйИдентификатор);
ЗначениеВДанныеФормы(СобытияЖурнала, Журнал);
КонецПроцедуры
&НаКлиенте
@@ -500,7 +500,7 @@ function doExecuteUpdate (lastVersion) {
throw new Error('Не удалось обновить исправления конфигурации. Подробности см. в предыдущей записи.')
}
} catch (e) {
log(format('Исключение при вызове ОбновлениеКонфигурации.ОбновитьИсправленияИзСкрипта: {0}, {1}.', e.name, e.message), true)
log(format('Исключение при вызове ОбновлениеКонфигурацииВызовСервера.ОбновитьИсправленияИзСкрипта: {0}, {1}.', e.name, e.message), true)
return 2
}
}
@@ -29,7 +29,7 @@ try {
var COMConnector = new ActiveXObject(COMConnectorName)
var connection = COMConnector.Connect(ConnectionString)
connection.ОбновлениеКонфигурации.ОбновитьИсправленияИзСкрипта(fixFileNames, removeFixNames)
connection.ОбновлениеКонфигурацииВызовСервера.ОбновитьИсправленияИзСкрипта(fixFileNames, removeFixNames)
} catch (ex) {
if (outf != null) {
@@ -1193,93 +1193,6 @@
<value>true</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>true</value>
</right>
<right>
<name>DataAdministration</name>
<value>true</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>true</value>
</right>
<right>
<name>ExclusiveMode</name>
<value>true</value>
</right>
<right>
<name>ActiveUsers</name>
<value>true</value>
</right>
<right>
<name>EventLog</name>
<value>true</value>
</right>
<right>
<name>ThinClient</name>
<value>true</value>
</right>
<right>
<name>WebClient</name>
<value>true</value>
</right>
<right>
<name>ThickClient</name>
<value>true</value>
</right>
<right>
<name>ExternalConnection</name>
<value>true</value>
</right>
<right>
<name>Automation</name>
<value>true</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeNormal</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeEmbeddedWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeFullscreenWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeKiosk</name>
<value>true</value>
</right>
<right>
<name>AnalyticsSystemClient</name>
<value>true</value>
</right>
<right>
<name>SaveUserData</name>
<value>true</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>true</value>
</right>
<right>
<name>Output</name>
<value>true</value>
</right>
</object>
<object>
<name>Constant.ИспользоватьСинхронизациюДанныхВМоделиСервиса</name>
<right>
@@ -3549,6 +3462,93 @@
<value>true</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>true</value>
</right>
<right>
<name>DataAdministration</name>
<value>true</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>true</value>
</right>
<right>
<name>ExclusiveMode</name>
<value>true</value>
</right>
<right>
<name>ActiveUsers</name>
<value>true</value>
</right>
<right>
<name>EventLog</name>
<value>true</value>
</right>
<right>
<name>ThinClient</name>
<value>true</value>
</right>
<right>
<name>WebClient</name>
<value>true</value>
</right>
<right>
<name>ThickClient</name>
<value>true</value>
</right>
<right>
<name>ExternalConnection</name>
<value>true</value>
</right>
<right>
<name>Automation</name>
<value>true</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeNormal</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeEmbeddedWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeFullscreenWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeKiosk</name>
<value>true</value>
</right>
<right>
<name>AnalyticsSystemClient</name>
<value>true</value>
</right>
<right>
<name>SaveUserData</name>
<value>true</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>true</value>
</right>
<right>
<name>Output</name>
<value>true</value>
</right>
</object>
<object>
<name>Constant.ИспользоватьАльтернативныйСерверДляЗагрузкиКурсовВалют</name>
<right>
@@ -14,37 +14,6 @@
<value>true</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>MainWindowModeNormal</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeEmbeddedWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeFullscreenWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeKiosk</name>
<value>true</value>
</right>
<right>
<name>AnalyticsSystemClient</name>
<value>true</value>
</right>
<right>
<name>Output</name>
<value>true</value>
</right>
</object>
<object>
<name>Catalog.РассылкиОтчетов.Command.СобытияРассылки</name>
<right>
@@ -107,6 +76,37 @@
<value>true</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>MainWindowModeNormal</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeEmbeddedWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeFullscreenWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeKiosk</name>
<value>true</value>
</right>
<right>
<name>AnalyticsSystemClient</name>
<value>true</value>
</right>
<right>
<name>Output</name>
<value>true</value>
</right>
</object>
<restrictionTemplate>
<name>ДляОбъекта(ПолеОбъекта)</name>
<condition>// ДляОбъекта(ПолеОбъекта = "")
@@ -1618,45 +1618,6 @@
<value>false</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>false</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>false</value>
</right>
<right>
<name>ThickClient</name>
<value>false</value>
</right>
<right>
<name>ExternalConnection</name>
<value>false</value>
</right>
<right>
<name>Automation</name>
<value>false</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>false</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtDataProcessors</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtReports</name>
<value>false</value>
</right>
</object>
<object>
<name>Constant.ИспользоватьСинхронизациюДанныхВМоделиСервиса</name>
<right>
@@ -4723,6 +4684,45 @@
<value>false</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>false</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>false</value>
</right>
<right>
<name>ThickClient</name>
<value>false</value>
</right>
<right>
<name>ExternalConnection</name>
<value>false</value>
</right>
<right>
<name>Automation</name>
<value>false</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>false</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtDataProcessors</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtReports</name>
<value>false</value>
</right>
</object>
<object>
<name>Constant.ИспользоватьАльтернативныйСерверДляЗагрузкиКурсовВалют</name>
<right>