astakhovp/SSL
1
0 Fork 0
Code Issues Actions Packages Projects Releases Wiki Activity

3_1_2_223

Browse Source
This commit is contained in:
Компания 1С committed 2019-11-29 12:35:00 +03:00
1 parent 3cdf33327d
commit 905304b7e8
72 files changed
+3469 -1618
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

SSL/src/Catalogs/РассылкиОтчетов/Forms/Предупреждение/Form.form
+324
View File
@@ -0,0 +1,324 @@
<?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>SearchEverywhere</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>
SSL/src/Catalogs/РассылкиОтчетов/Forms/Предупреждение/Module.bsl
+103
View File
@@ -0,0 +1,103 @@
///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
УстановитьЗаголовок();
УстановитьОписание();
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
&НаКлиенте
Процедура ПерейтиКДокументации(Команда)
МодульРаботаСПочтовымиСообщениямиКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("РаботаСПочтовымиСообщениямиКлиент");
МодульРаботаСПочтовымиСообщениямиКлиент.ПерейтиКДокументацииПоВводуУчетнойЗаписиЭлектроннойПочты();
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаСервере
Процедура УстановитьЗаголовок()
ТекстЗаголовка = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "Заголовок");
Если ЗначениеЗаполнено(ТекстЗаголовка) Тогда
Заголовок = ТекстЗаголовка;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура УстановитьОписание()
Описание = Новый Структура("Текст, Подробно, Ссылка");
ЗаполнитьЗначенияСвойств(Описание, Параметры);
Элементы.ПерейтиКДокументации.Видимость =
ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСПочтовымиСообщениями")
И ЗначениеЗаполнено(Описание.Подробно)
И ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "ИспользоватьЭлектроннуюПочту", Ложь);
Если Не ЗначениеЗаполнено(Описание.Текст) Тогда
Возврат;
КонецЕсли;
Текст.Добавить(Описание.Текст, Тип("ТекстФорматированногоДокумента"));
Если ЗначениеЗаполнено(Описание.Подробно) Тогда
Текст.Добавить(, Тип("ПереводСтрокиФорматированногоДокумента"));
Текст.Добавить(, Тип("ПереводСтрокиФорматированногоДокумента"));
Текст.Добавить(Описание.Подробно, Тип("ТекстФорматированногоДокумента"));
Элементы.Индикатор.Картинка = БиблиотекаКартинок.ДиалогВосклицание;
КонецЕсли;
УстановитьОписаниеОшибкиАутентификации(Описание);
КонецПроцедуры
&НаСервере
Процедура УстановитьОписаниеОшибкиАутентификации(Описание)
Если СтрНайти(ВРег(Описание.Подробно), "USERNAME AND PASSWORD NOT ACCEPTED") = 0 Тогда
Возврат;
КонецЕсли;
Текст.Добавить(, Тип("ПереводСтрокиФорматированногоДокумента"));
Текст.Добавить(, Тип("ПереводСтрокиФорматированногоДокумента"));
// АПК:1299-выкл Строка текста добавляется фрагментами, чтобы для одного из них установить навигационную ссылку
Текст.Добавить(НСтр("ru = 'Перейдите к '"), Тип("ТекстФорматированногоДокумента"));
ЭлементСсылки = Текст.Добавить(НСтр("ru = 'настройкам учетной записи электронной почты'"), Тип("ТекстФорматированногоДокумента"));
Текст.Добавить(НСтр("ru = ' для корректировки логина, пароля.'"), Тип("ТекстФорматированногоДокумента"));
// АПК:1299-вкл Строка текста добавляется фрагментами, чтобы для одного из них установить навигационную ссылку
Ссылка = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "Ссылка");
Если ЗначениеЗаполнено(Ссылка) Тогда
ЭлементСсылки.НавигационнаяСсылка = ПолучитьНавигационнуюСсылку(Ссылка);
КонецЕсли;
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Form.form
+48 -153
View File
@@ -4379,33 +4379,6 @@
<textSize>Normal</textSize> <textSize>Normal</textSize>
</extInfo> </extInfo>
</items> </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> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
@@ -4547,33 +4520,6 @@
<textSize>Normal</textSize> <textSize>Normal</textSize>
</extInfo> </extInfo>
</items> </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> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
@@ -4672,33 +4618,6 @@
</inputHint> </inputHint>
</extInfo> </extInfo>
</items> </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> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
@@ -4940,33 +4859,6 @@
<textSize>Normal</textSize> <textSize>Normal</textSize>
</extInfo> </extInfo>
</items> </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"> <items xsi:type="form:FormField">
<name>ТолькоУведомить</name> <name>ТолькоУведомить</name>
<id>413</id> <id>413</id>
@@ -8329,6 +8221,32 @@
<placementArea>UserCmds</placementArea> <placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu> <representationInContextMenu>Auto</representationInContextMenu>
</items> </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"> <items xsi:type="form:Button">
<name>КомандаСобытияРассылки</name> <name>КомандаСобытияРассылки</name>
<id>1053</id> <id>1053</id>
@@ -10058,28 +9976,6 @@
<currentRowUse>DontUse</currentRowUse> <currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse> <selectedRowsUse>Auto</selectedRowsUse>
</formCommands> </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> <formCommands>
<name>ДобавитьШаблонАвтора</name> <name>ДобавитьШаблонАвтора</name>
<title> <title>
@@ -10367,29 +10263,6 @@
<currentRowUse>DontUse</currentRowUse> <currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse> <selectedRowsUse>Auto</selectedRowsUse>
</formCommands> </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> <formCommands>
<name>ДобавитьШаблонПоУмолчанию</name> <name>ДобавитьШаблонПоУмолчанию</name>
<title> <title>
@@ -10618,6 +10491,28 @@
<currentRowUse>DontUse</currentRowUse> <currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse> <selectedRowsUse>Auto</selectedRowsUse>
</formCommands> </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> <commandInterface>
<navigationPanel/> <navigationPanel/>
<commandBar/> <commandBar/>
SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Module.bsl
+17 -27
View File
@@ -1760,29 +1760,16 @@
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
Процедура ПроверитьПубликацию(Команда) Процедура ПроверитьВозможностьРассылки(Команда)
// Параметры доставки
ПараметрыДоставки = Новый Структура; ПараметрыДоставки = Новый Структура;
//
ПараметрыДоставки.Вставить("ИспользоватьПапку", Объект.ИспользоватьПапку); ПараметрыДоставки.Вставить("ИспользоватьПапку", Объект.ИспользоватьПапку);
ПараметрыДоставки.Вставить("ИспользоватьСетевойКаталог", Объект.ИспользоватьСетевойКаталог); ПараметрыДоставки.Вставить("ИспользоватьСетевойКаталог", Объект.ИспользоватьСетевойКаталог);
ПараметрыДоставки.Вставить("ИспользоватьFTPРесурс", Объект.ИспользоватьFTPРесурс); ПараметрыДоставки.Вставить("ИспользоватьFTPРесурс", Объект.ИспользоватьFTPРесурс);
ПараметрыДоставки.Вставить("ИспользоватьЭлектроннуюПочту", Ложь); ПараметрыДоставки.Вставить("ИспользоватьЭлектроннуюПочту", Объект.ИспользоватьЭлектроннуюПочту);
//
ПроверитьРассылку(ПараметрыДоставки);
КонецПроцедуры
&НаКлиенте
Процедура ПроверитьЭлектроннуюПочту(Команда)
// Параметры доставки
ПараметрыДоставки = Новый Структура;
//
ПараметрыДоставки.Вставить("ИспользоватьПапку", Ложь);
ПараметрыДоставки.Вставить("ИспользоватьСетевойКаталог", Ложь);
ПараметрыДоставки.Вставить("ИспользоватьFTPРесурс", Ложь);
ПараметрыДоставки.Вставить("ИспользоватьЭлектроннуюПочту", Истина);
//
ПроверитьРассылку(ПараметрыДоставки); ПроверитьРассылку(ПараметрыДоставки);
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
@@ -2001,11 +1988,14 @@
ПараметрыДоставки.Вставить("ДобавлятьСсылки", ""); ПараметрыДоставки.Вставить("ДобавлятьСсылки", "");
РезультатВыполнения = ПроверитьСпособДоставки(Объект.Ссылка, ПараметрыДоставки); РезультатВыполнения = ПроверитьСпособДоставки(Объект.Ссылка, ПараметрыДоставки);
ПараметрыВопроса = СтандартныеПодсистемыКлиент.ПараметрыВопросаПользователю();
ПараметрыВопроса.ПредлагатьБольшеНеЗадаватьЭтотВопрос = Ложь; ПараметрыПредупреждения = Новый Структура("Заголовок, Текст, Подробно, Ссылка, ИспользоватьЭлектроннуюПочту");
СтандартныеПодсистемыКлиент.ПоказатьВопросПользователю(Неопределено, ЗаполнитьЗначенияСвойств(ПараметрыПредупреждения, ПараметрыДоставки);
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = '%1 ЗаполнитьЗначенияСвойств(ПараметрыПредупреждения, РезультатВыполнения);
|%2'"), РезультатВыполнения.Текст, РезультатВыполнения.Подробно), РежимДиалогаВопрос.ОК); ПараметрыПредупреждения.Заголовок = НСтр("ru = 'Результат проверки'");
ПараметрыПредупреждения.Ссылка = Объект.УчетнаяЗапись;
ОткрытьФорму("Справочник.РассылкиОтчетов.Форма.Предупреждение", ПараметрыПредупреждения, ЭтотОбъект, УникальныйИдентификатор);
КонецПроцедуры КонецПроцедуры
@@ -2465,7 +2455,6 @@
Элементы.ДругойСпособДоставки.Доступность = Форма.Публиковать; Элементы.ДругойСпособДоставки.Доступность = Форма.Публиковать;
Элементы.ПараметрыДоставки.Доступность = Форма.Публиковать; Элементы.ПараметрыДоставки.Доступность = Форма.Публиковать;
Элементы.ПараметрыДоставки.ТекущаяСтраница = Элементы[Форма.ДругойСпособДоставки]; Элементы.ПараметрыДоставки.ТекущаяСтраница = Элементы[Форма.ДругойСпособДоставки];
Элементы.ПроверитьПубликацию.Доступность = Форма.Публиковать;
КонецЕсли; КонецЕсли;
Если Изменения = "" Или Изменения = "ИспользоватьЭлектроннуюПочту" Или Изменения = "ВидРассылки" Тогда Если Изменения = "" Или Изменения = "ИспользоватьЭлектроннуюПочту" Или Изменения = "ВидРассылки" Тогда
@@ -3080,7 +3069,7 @@
// Доставка // Доставка
НачатьТранзакцию(); НачатьТранзакцию();
Попытка Попытка
Выполнена = РассылкаОтчетов.ВыполнитьДоставку(ПараметрыЖурнала, ПараметрыДоставки, Вложения); РассылкаОтчетов.ВыполнитьДоставку(ПараметрыЖурнала, ПараметрыДоставки, Вложения);
ОтменитьТранзакцию(); // После окончания теста откатываются все изменения в базе. ОтменитьТранзакцию(); // После окончания теста откатываются все изменения в базе.
Исключение Исключение
ОтменитьТранзакцию(); ОтменитьТранзакцию();
@@ -3093,10 +3082,11 @@
КонецЦикла; КонецЦикла;
РезультатВыполнения = Новый Структура("Текст, Подробно", "", ""); РезультатВыполнения = Новый Структура("Текст, Подробно", "", "");
Если Выполнена Тогда
РезультатВыполнения.Текст = НСтр("ru = 'Тест способа доставки успешно пройден.'"); Если ПараметрыЖурнала.МассивОшибок.Количество() = 0 Тогда
РезультатВыполнения.Текст = НСтр("ru = 'Проверка возможности доставки успешно пройдена.'");
Иначе Иначе
РезультатВыполнения.Текст = НСтр("ru = 'Тест способа доставки не пройден.'"); РезультатВыполнения.Текст = НСтр("ru = 'Проверка возможности доставки не пройдена.'");
РезультатВыполнения.Подробно = РассылкаОтчетов.СтрокаСообщенийПользователю(ПараметрыЖурнала.МассивОшибок, Ложь); РезультатВыполнения.Подробно = РассылкаОтчетов.СтрокаСообщенийПользователю(ПараметрыЖурнала.МассивОшибок, Ложь);
КонецЕсли; КонецЕсли;
SSL/src/Catalogs/РассылкиОтчетов/РассылкиОтчетов.mdo
+9
View File
@@ -1045,6 +1045,15 @@
<usePurposes>PersonalComputer</usePurposes> <usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes> <usePurposes>MobileDevice</usePurposes>
</forms> </forms>
<forms uuid="ad6e5d1c-4ebc-429f-b54e-52ae3bff8954">
<name>Предупреждение</name>
<synonym>
<key>ru</key>
<value>Предупреждение</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="d0b79c3d-b0c5-4eb3-9971-1def1c88698f"> <forms uuid="d0b79c3d-b0c5-4eb3-9971-1def1c88698f">
<name>ФормаВыбораГруппы</name> <name>ФормаВыбораГруппы</name>
<synonym> <synonym>
SSL/src/Catalogs/СценарииОбменовДанными/Forms/НастройкаРасписанияОбменовДанными/Module.bsl
+3
View File
@@ -175,6 +175,9 @@
#Область СлужебныеПроцедурыИФункции #Область СлужебныеПроцедурыИФункции
// Параметры:
// Ссылка - СправочникСсылка.СценарииОбменовДанными - сценарий обмена.
//
&НаСервереБезКонтекста &НаСервереБезКонтекста
Процедура ВключитьОтключитьРегламентноеЗаданиеНаСервере(Ссылка) Процедура ВключитьОтключитьРегламентноеЗаданиеНаСервере(Ссылка)
SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПомощникНастройкиУчетнойЗаписи/Module.bsl
+3 -44
View File
@@ -37,11 +37,7 @@
НСтр("ru = 'Для отправки писем необходимо настроить учетную запись электронной почты'"), НСтр("ru = 'Для отправки писем необходимо настроить учетную запись электронной почты'"),
НСтр("ru = 'Введите параметры учетной записи'")); НСтр("ru = 'Введите параметры учетной записи'"));
Если Не КонтекстныйРежим Тогда
Заголовок = НСтр("ru = 'Создание учетной записи электронной почты'");
Иначе
Заголовок = НСтр("ru = 'Настройка учетной записи электронной почты'"); Заголовок = НСтр("ru = 'Настройка учетной записи электронной почты'");
КонецЕсли;
ИспользоватьДляПолучения = Не КонтекстныйРежим И ДоступноПолучениеПисем; ИспользоватьДляПолучения = Не КонтекстныйРежим И ДоступноПолучениеПисем;
ИспользоватьДляОтправки = Истина; ИспользоватьДляОтправки = Истина;
@@ -67,6 +63,7 @@
ЗаполнитьЗначенияСвойств(ЭтотОбъект, Выборка); ЗаполнитьЗначенияСвойств(ЭтотОбъект, Выборка);
КонецЕсли; КонецЕсли;
Иначе Иначе
Заголовок = НСтр("ru = 'Создание учетной записи электронной почты'");
СсылкаНовойУчетнойЗаписи = Справочники.УчетныеЗаписиЭлектроннойПочты.ПолучитьСсылку(); СсылкаНовойУчетнойЗаписи = Справочники.УчетныеЗаписиЭлектроннойПочты.ПолучитьСсылку();
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
@@ -537,59 +534,21 @@
Функция ПроверитьПодключениеКСерверуВходящейПочты() Функция ПроверитьПодключениеКСерверуВходящейПочты()
Профиль = ИнтернетПочтовыйПрофиль(Истина); Профиль = ИнтернетПочтовыйПрофиль(Истина);
ИнтернетПочта = Новый ИнтернетПочта;
ИспользуемыйПротокол = ПротоколИнтернетПочты.POP3; ИспользуемыйПротокол = ПротоколИнтернетПочты.POP3;
Если Протокол = "IMAP" Тогда Если Протокол = "IMAP" Тогда
ИспользуемыйПротокол = ПротоколИнтернетПочты.IMAP; ИспользуемыйПротокол = ПротоколИнтернетПочты.IMAP;
КонецЕсли; КонецЕсли;
ТекстОшибки = ""; Возврат Справочники.УчетныеЗаписиЭлектроннойПочты.ПроверитьПодключениеКСерверуВходящейПочты(Профиль, Протокол);
Попытка
ИнтернетПочта.Подключиться(Профиль, ИспользуемыйПротокол);
Исключение
ТекстОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
КонецПопытки;
ИнтернетПочта.Отключиться();
Возврат ТекстОшибки;
КонецФункции КонецФункции
&НаСервере &НаСервере
Функция ПроверитьПодключениеКСерверуИсходящейПочты() Функция ПроверитьПодключениеКСерверуИсходящейПочты()
Тема = НСтр("ru = 'Тестовое сообщение 1С:Предприятие'");
Тело = НСтр("ru = 'Это сообщение отправлено подсистемой электронной почты 1С:Предприятие'");
Письмо = Новый ИнтернетПочтовоеСообщение;
Письмо.Тема = Тема;
Получатель = Письмо.Получатели.Добавить(АдресЭлектроннойПочты);
Получатель.ОтображаемоеИмя = ИмяОтправителяПисем;
Письмо.ИмяОтправителя = ИмяОтправителяПисем;
Письмо.Отправитель.ОтображаемоеИмя = ИмяОтправителяПисем;
Письмо.Отправитель.Адрес = АдресЭлектроннойПочты;
Текст = Письмо.Тексты.Добавить(Тело);
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Профиль = ИнтернетПочтовыйПрофиль(); Профиль = ИнтернетПочтовыйПрофиль();
ИнтернетПочта = Новый ИнтернетПочта; Возврат Справочники.УчетныеЗаписиЭлектроннойПочты.ПроверитьПодключениеКСерверуИсходящейПочты(Профиль, АдресЭлектроннойПочты);
ТекстОшибки = "";
Попытка
ИнтернетПочта.Подключиться(Профиль);
ИнтернетПочта.Послать(Письмо);
Исключение
ТекстОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
КонецПопытки;
ИнтернетПочта.Отключиться();
Возврат ТекстОшибки;
КонецФункции КонецФункции
SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПроверкаНастроекУчетнойЗаписи/Form.form
+610
View File
@@ -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>
SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ПроверкаНастроекУчетнойЗаписи/Module.bsl
+77
View File
@@ -0,0 +1,77 @@
///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Элементы.Страницы.ТекущаяСтраница = Элементы.ВыполняетсяПроверкаНастроек;
Элементы.ФормаЗакрыть.Заголовок = НСтр("ru = 'Отмена'");
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ПодключитьОбработчикОжидания("ВыполнитьПроверкуНастроек", 0.1, Истина)
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовШапкиФормы
&НаКлиенте
Процедура НужнаПомощьНажатие(Элемент)
РаботаСПочтовымиСообщениямиКлиент.ПерейтиКДокументацииПоВводуУчетнойЗаписиЭлектроннойПочты();
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаКлиенте
Процедура ВыполнитьПроверкуНастроек()
ДлительнаяОперация = НачатьВыполнениеНаСервере();
ОповещениеОЗавершении = Новый ОписаниеОповещения("ОбработатьРезультат", ЭтотОбъект);
ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект);
ПараметрыОжидания.ВыводитьОкноОжидания = Ложь;
ДлительныеОперацииКлиент.ОжидатьЗавершение(ДлительнаяОперация, ОповещениеОЗавершении, ПараметрыОжидания);
КонецПроцедуры
&НаСервере
Функция НачатьВыполнениеНаСервере()
ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияФункции(УникальныйИдентификатор);
Возврат ДлительныеОперации.ВыполнитьФункцию(ПараметрыВыполнения, "Справочники.УчетныеЗаписиЭлектроннойПочты.ПроверитьНастройкиУчетнойЗаписи",
Параметры.УчетнаяЗапись);
КонецФункции
&НаКлиенте
Процедура ОбработатьРезультат(Результат, ДополнительныеПараметры) Экспорт
Если Результат = Неопределено Тогда
Возврат;
КонецЕсли;
Элементы.ФормаЗакрыть.Заголовок = НСтр("ru = 'Закрыть'");
Если Результат.Статус = "Ошибка" Тогда
ВызватьИсключение Результат.КраткоеПредставлениеОшибки;
КонецЕсли;
РезультатПроверки = ПолучитьИзВременногоХранилища(Результат.АдресРезультата);
СообщенияОбОшибках = РезультатПроверки.ОшибкиПодключения;
ВыполненныеПроверки = РезультатПроверки.ВыполненныеПроверки;
Если ЗначениеЗаполнено(СообщенияОбОшибках) Тогда
Элементы.Страницы.ТекущаяСтраница = Элементы.ПриПроверкеОбнаруженыОшибки;
Иначе
Элементы.Страницы.ТекущаяСтраница = Элементы.ПроверкаУспешноВыполнена;
КонецЕсли;
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Form.form
+56
View File
@@ -196,6 +196,10 @@
<segments>Объект.ИспользоватьДляОтправки</segments> <segments>Объект.ИспользоватьДляОтправки</segments>
</dataPath> </dataPath>
<titleLocation>Right</titleLocation> <titleLocation>Right</titleLocation>
<handlers>
<event>OnChange</event>
<name>ИспользованиеПриИзменении</name>
</handlers>
<extendedTooltip> <extendedTooltip>
<name>ДляОтправкиРасширеннаяПодсказка</name> <name>ДляОтправкиРасширеннаяПодсказка</name>
<id>92</id> <id>92</id>
@@ -234,6 +238,10 @@
<segments>Объект.ИспользоватьДляПолучения</segments> <segments>Объект.ИспользоватьДляПолучения</segments>
</dataPath> </dataPath>
<titleLocation>Right</titleLocation> <titleLocation>Right</titleLocation>
<handlers>
<event>OnChange</event>
<name>ИспользованиеПриИзменении</name>
</handlers>
<extendedTooltip> <extendedTooltip>
<name>ДляПолученияРасширеннаяПодсказка</name> <name>ДляПолученияРасширеннаяПодсказка</name>
<id>95</id> <id>95</id>
@@ -2351,6 +2359,32 @@
<placementArea>UserCmds</placementArea> <placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu> <representationInContextMenu>Auto</representationInContextMenu>
</items> </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"> <items xsi:type="form:Button">
<name>ФормаСправка</name> <name>ФормаСправка</name>
<id>212</id> <id>212</id>
@@ -2708,6 +2742,28 @@
<currentRowUse>Auto</currentRowUse> <currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse> <selectedRowsUse>Auto</selectedRowsUse>
</formCommands> </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> <parameters>
<name>БлокироватьВладельца</name> <name>БлокироватьВладельца</name>
<valueType> <valueType>
SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/Forms/ФормаЭлемента/Module.bsl
+72 -40
View File
@@ -22,58 +22,20 @@
РежимОткрытияОкна = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца; РежимОткрытияОкна = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца;
КонецЕсли; КонецЕсли;
ДоступноПолучениеПисем = РаботаСПочтовымиСообщениямиСлужебный.НастройкиПодсистемы().ДоступноПолучениеПисем;
Элементы.ИспользоватьУчетнуюЗапись.ОтображатьЗаголовок = ДоступноПолучениеПисем; Элементы.ИспользоватьУчетнуюЗапись.ОтображатьЗаголовок = ДоступноПолучениеПисем;
Элементы.ДляПолучения.Видимость = ДоступноПолучениеПисем; Элементы.ДляПолучения.Видимость = ДоступноПолучениеПисем;
Элементы.ОставлятьПисьмаНаСервере.Видимость = Объект.ПротоколВходящейПочты = "POP" И ДоступноПолучениеПисем;
Если Не ДоступноПолучениеПисем Тогда Если Не ДоступноПолучениеПисем Тогда
Элементы.ДляОтправки.Заголовок = НСтр("ru = 'Использовать для отправки писем'"); Элементы.ДляОтправки.Заголовок = НСтр("ru = 'Использовать для отправки писем'");
КонецЕсли; КонецЕсли;
Элементы.СерверВходящейПочты.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Сервер %1'"), Объект.ПротоколВходящейПочты);
Если Объект.Ссылка.Пустая() Тогда Если Объект.Ссылка.Пустая() Тогда
Объект.ИспользоватьДляОтправки = Истина; Объект.ИспользоватьДляОтправки = Истина;
Объект.ИспользоватьДляПолучения = ДоступноПолучениеПисем; Объект.ИспользоватьДляПолучения = ДоступноПолучениеПисем;
ЗаполнитьНастройки();
КонецЕсли; КонецЕсли;
УдалятьПисьмаССервера = Объект.ПериодХраненияСообщенийНаСервере > 0;
Если Не УдалятьПисьмаССервера Тогда
Объект.ПериодХраненияСообщенийНаСервере = 10;
КонецЕсли;
Если НЕ Объект.Ссылка.Пустая() Тогда
УстановитьПривилегированныйРежим(Истина);
Пароли = ОбщегоНазначения.ПрочитатьДанныеИзБезопасногоХранилища(Объект.Ссылка, "Пароль, ПарольSMTP");
УстановитьПривилегированныйРежим(Ложь);
Пароль = ?(ЗначениеЗаполнено(Пароли.Пароль), ЭтотОбъект.УникальныйИдентификатор, "");
ПарольSMTP = ?(ЗначениеЗаполнено(Пароли.ПарольSMTP), ЭтотОбъект.УникальныйИдентификатор, "");
Если Не Справочники.УчетныеЗаписиЭлектроннойПочты.ИзменениеРазрешено(Объект.Ссылка) Тогда
ТолькоПросмотр = Истина;
КонецЕсли;
КонецЕсли;
Элементы.ФормаЗаписатьИЗакрыть.Доступность = Не ТолькоПросмотр;
ЭтоПерсональнаяУчетнаяЗапись = ЗначениеЗаполнено(Объект.ВладелецУчетнойЗаписи);
Элементы.ПользовательУчетнойЗаписи.Доступность = ЭтоПерсональнаяУчетнаяЗапись;
ВидУчетнойЗаписи = ?(ЭтоПерсональнаяУчетнаяЗапись, "Персональная", "Общая");
Элементы.ГруппаДляКогоУчетнаяЗапись.Доступность = Пользователи.ЭтоПолноправныйПользователь(); Элементы.ГруппаДляКогоУчетнаяЗапись.Доступность = Пользователи.ЭтоПолноправныйПользователь();
ВладелецУчетнойЗаписи = Объект.ВладелецУчетнойЗаписи;
ИспользуетсяПротоколPOP = Объект.ПротоколВходящейПочты = "POP";
ТребуетсяАвторизацияПриОтправкеПисем = ЗначениеЗаполнено(Объект.ПользовательSMTP) Или Объект.ТребуетсяВходНаСерверПередОтправкой;
Элементы.АвторизацияПриОтправкеПисем.Доступность = ТребуетсяАвторизацияПриОтправкеПисем;
УстановитьВидГруппыТребуетсяАвторизация(ЭтотОбъект, ИспользуетсяПротоколPOP);
ШифрованиеПриОтправкеПочты = ?(Объект.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты, "SSL", "Авто");
ШифрованиеПриПолученииПочты = ?(Объект.ИспользоватьЗащищенноеСоединениеДляВходящейПочты, "SSL", "Авто");
СпособАвторизацииПриОтправкеПочты = ?(Объект.ТребуетсяВходНаСерверПередОтправкой, "POP", "SMTP");
РеквизитыТребующиеВводаПароляДляИзменения = Справочники.УчетныеЗаписиЭлектроннойПочты.РеквизитыТребующиеВводаПароляДляИзменения(); РеквизитыТребующиеВводаПароляДляИзменения = Справочники.УчетныеЗаписиЭлектроннойПочты.РеквизитыТребующиеВводаПароляДляИзменения();
@@ -157,6 +119,8 @@
КонецЕсли; КонецЕсли;
// Конец СтандартныеПодсистемы.УправлениеДоступом // Конец СтандартныеПодсистемы.УправлениеДоступом
ЗаполнитьНастройки();
КонецПроцедуры КонецПроцедуры
&НаСервере &НаСервере
@@ -300,6 +264,11 @@
КонецПроцедуры КонецПроцедуры
&НаКлиенте
Процедура ИспользованиеПриИзменении(Элемент)
Элементы.ФормаПроверитьНастройки.Доступность = Объект.ИспользоватьДляОтправки Или Объект.ИспользоватьДляПолучения;
КонецПроцедуры
#КонецОбласти #КонецОбласти
#Область ОбработчикиКомандФормы #Область ОбработчикиКомандФормы
@@ -316,6 +285,15 @@
ВыполнитьПроверкуНастроек(); ВыполнитьПроверкуНастроек();
КонецПроцедуры КонецПроцедуры
&НаКлиенте
Процедура ОткрытьПомощникНастройки(Команда)
ОписаниеОповещения = Новый ОписаниеОповещения("ПриЗавершенииНастройки", ЭтотОбъект);
ОткрытьФорму("Справочник.УчетныеЗаписиЭлектроннойПочты.Форма.ПомощникНастройкиУчетнойЗаписи",
Новый Структура("Ключ", Объект.Ссылка), , , , , ОписаниеОповещения);
КонецПроцедуры
#КонецОбласти #КонецОбласти
#Область СлужебныеПроцедурыИФункции #Область СлужебныеПроцедурыИФункции
@@ -529,8 +507,62 @@
Если Модифицированность Тогда Если Модифицированность Тогда
Записать(Новый Структура("ПроверитьНастройки")); Записать(Новый Структура("ПроверитьНастройки"));
Иначе Иначе
РаботаСПочтовымиСообщениямиКлиент.ПроверитьУчетнуюЗапись(Объект.Ссылка); РаботаСПочтовымиСообщениямиКлиент.ПроверитьНастройкиУчетнойЗаписи(Объект.Ссылка);
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
&НаКлиенте
Процедура ПриЗавершенииНастройки(Результат, ДополнительныеПараметры) Экспорт
Прочитать();
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьНастройки()
Перем ИспользуетсяПротоколPOP, Пароли, ЭтоПерсональнаяУчетнаяЗапись;
ДоступноПолучениеПисем = РаботаСПочтовымиСообщениямиСлужебный.НастройкиПодсистемы().ДоступноПолучениеПисем;
Элементы.ОставлятьПисьмаНаСервере.Видимость = Объект.ПротоколВходящейПочты = "POP" И ДоступноПолучениеПисем;
Элементы.СерверВходящейПочты.Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Сервер %1'"), Объект.ПротоколВходящейПочты);
УдалятьПисьмаССервера = Объект.ПериодХраненияСообщенийНаСервере > 0;
Если Не УдалятьПисьмаССервера Тогда
Объект.ПериодХраненияСообщенийНаСервере = 10;
КонецЕсли;
Если НЕ Объект.Ссылка.Пустая() Тогда
УстановитьПривилегированныйРежим(Истина);
Пароли = ОбщегоНазначения.ПрочитатьДанныеИзБезопасногоХранилища(Объект.Ссылка, "Пароль, ПарольSMTP");
УстановитьПривилегированныйРежим(Ложь);
Пароль = ?(ЗначениеЗаполнено(Пароли.Пароль), ЭтотОбъект.УникальныйИдентификатор, "");
ПарольSMTP = ?(ЗначениеЗаполнено(Пароли.ПарольSMTP), ЭтотОбъект.УникальныйИдентификатор, "");
Если Не Справочники.УчетныеЗаписиЭлектроннойПочты.ИзменениеРазрешено(Объект.Ссылка) Тогда
ТолькоПросмотр = Истина;
КонецЕсли;
КонецЕсли;
Элементы.ФормаЗаписатьИЗакрыть.Доступность = Не ТолькоПросмотр;
ЭтоПерсональнаяУчетнаяЗапись = ЗначениеЗаполнено(Объект.ВладелецУчетнойЗаписи);
Элементы.ПользовательУчетнойЗаписи.Доступность = ЭтоПерсональнаяУчетнаяЗапись;
ВидУчетнойЗаписи = ?(ЭтоПерсональнаяУчетнаяЗапись, "Персональная", "Общая");
ВладелецУчетнойЗаписи = Объект.ВладелецУчетнойЗаписи;
ИспользуетсяПротоколPOP = Объект.ПротоколВходящейПочты = "POP";
ТребуетсяАвторизацияПриОтправкеПисем = ЗначениеЗаполнено(Объект.ПользовательSMTP) Или Объект.ТребуетсяВходНаСерверПередОтправкой;
Элементы.АвторизацияПриОтправкеПисем.Доступность = ТребуетсяАвторизацияПриОтправкеПисем;
УстановитьВидГруппыТребуетсяАвторизация(ЭтотОбъект, ИспользуетсяПротоколPOP);
ШифрованиеПриОтправкеПочты = ?(Объект.ИспользоватьЗащищенноеСоединениеДляИсходящейПочты, "SSL", "Авто");
ШифрованиеПриПолученииПочты = ?(Объект.ИспользоватьЗащищенноеСоединениеДляВходящейПочты, "SSL", "Авто");
СпособАвторизацииПриОтправкеПочты = ?(Объект.ТребуетсяВходНаСерверПередОтправкой, "POP", "SMTP");
КонецПроцедуры
#КонецОбласти #КонецОбласти
SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/ManagerModule.bsl
+113 -2
View File
@@ -511,7 +511,7 @@
КонецФункции КонецФункции
Функция ПроверитьПодключениеКСерверуВходящейПочты(Профиль, Протокол) Функция ПроверитьПодключениеКСерверуВходящейПочты(Профиль, Протокол) Экспорт
ИнтернетПочта = Новый ИнтернетПочта; ИнтернетПочта = Новый ИнтернетПочта;
@@ -547,7 +547,7 @@
КонецФункции КонецФункции
Функция ПроверитьПодключениеКСерверуИсходящейПочты(Профиль, АдресЭлектроннойПочты) Функция ПроверитьПодключениеКСерверуИсходящейПочты(Профиль, АдресЭлектроннойПочты) Экспорт
Тема = НСтр("ru = 'Тестовое сообщение 1С:Предприятие'"); Тема = НСтр("ru = 'Тестовое сообщение 1С:Предприятие'");
Тело = НСтр("ru = 'Это сообщение отправлено подсистемой электронной почты 1С:Предприятие'"); Тело = НСтр("ru = 'Это сообщение отправлено подсистемой электронной почты 1С:Предприятие'");
@@ -887,6 +887,117 @@
КонецФункции КонецФункции
Функция ПроверитьВозможностьПодключенияКПочтовомуСерверу(Знач УчетнаяЗапись, Знач ВходящаяПочта) Экспорт
УстановитьОтключениеБезопасногоРежима(Истина);
Профиль = РаботаСПочтовымиСообщениямиСлужебный.ИнтернетПочтовыйПрофиль(УчетнаяЗапись, ВходящаяПочта);
Если ВходящаяПочта Тогда
Протокол = ПротоколИнтернетПочты.POP3;
Если ОбщегоНазначения.ЗначениеРеквизитаОбъекта(УчетнаяЗапись, "ПротоколВходящейПочты") = "IMAP" Тогда
Протокол = ПротоколИнтернетПочты.IMAP;
КонецЕсли;
ТекстОшибки = ПроверитьПодключениеКСерверуВходящейПочты(Профиль, Протокол);
Иначе
Адрес = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(УчетнаяЗапись, "АдресЭлектроннойПочты");
ТекстОшибки = ПроверитьПодключениеКСерверуИсходящейПочты(Профиль, Адрес);
КонецЕсли;
Возврат ТекстОшибки;
КонецФункции
Функция ПроверитьНастройкиУчетнойЗаписи(УчетнаяЗапись) Экспорт
НастройкиУчетнойЗаписи = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(УчетнаяЗапись, "ИспользоватьДляОтправки,ИспользоватьДляПолучения,ПротоколВходящейПочты,АдресЭлектроннойПочты");
ТекстСообщения = Новый Массив;
ТехническиеПодробности = Новый Массив;
ВыполненныеПроверки = Новый Массив;
ОшибкаАутентификации = Ложь;
ТребуетсяПроверкаНастроекИсходящейПочты = Ложь;
ТребуетсяПроверкаНастроекВходящейПочты = Ложь;
УчетнаяЗаписьИспользуется = НастройкиУчетнойЗаписи.ИспользоватьДляОтправки Или НастройкиУчетнойЗаписи.ИспользоватьДляПолучения;
Если НастройкиУчетнойЗаписи.ИспользоватьДляОтправки Тогда
ТекстОшибки = ПроверитьВозможностьПодключенияКПочтовомуСерверу(УчетнаяЗапись, Ложь);
Если ЗначениеЗаполнено(ТекстОшибки) Тогда
ТехническиеПодробности.Добавить(ТекстОшибки);
ОшибкаАутентификации = ОшибкаАутентификации(ТекстОшибки);
Если ОшибкаАутентификации(ТекстОшибки) Тогда
ТекстСообщения.Добавить(НСтр("ru = 'Отправка тестового сообщения не выполнена: не удалось авторизоваться.'"));
Иначе
ТекстСообщения.Добавить(НСтр("ru = 'Отправка тестового сообщения не выполнена.'"));
ТребуетсяПроверкаНастроекИсходящейПочты = Истина;
КонецЕсли;
Иначе
ВыполненныеПроверки.Добавить("- " + НСтр("ru = 'Выполнена отправка тестового сообщения.'"));
КонецЕсли;
КонецЕсли;
Если НастройкиУчетнойЗаписи.ИспользоватьДляПолучения Тогда
ТекстОшибки = ПроверитьВозможностьПодключенияКПочтовомуСерверу(УчетнаяЗапись, Истина);
Если ЗначениеЗаполнено(ТекстОшибки) Тогда
ТехническиеПодробности.Добавить(ТекстОшибки);
ОшибкаАутентификации = ОшибкаАутентификации(ТекстОшибки);
Если ОшибкаАутентификации(ТекстОшибки) Тогда
ТекстСообщения.Добавить(НСтр("ru = 'Подключение к серверу входящей почты не выполнено: не удалось авторизоваться.'"));
Иначе
ТекстСообщения.Добавить(НСтр("ru = 'Подключение к серверу входящей почты не выполнено.'"));
ТребуетсяПроверкаНастроекВходящейПочты = Истина;
КонецЕсли;
Иначе
ВыполненныеПроверки.Добавить("- " + НСтр("ru = 'Выполнено подключение к серверу входящей почты.'"));
КонецЕсли;
КонецЕсли;
ОшибкиПодключения = "";
Если ЗначениеЗаполнено(ТекстСообщения) Тогда
ЧастиАдреса = СтрРазделить(НастройкиУчетнойЗаписи.АдресЭлектроннойПочты, "@", Истина);
ДоменноеИмя = ЧастиАдреса[ЧастиАдреса.ВГраница()];
ТекстСообщения = СтрСоединить(ТекстСообщения, Символы.ПС);
ТехническиеПодробности = СтрСоединить(ТехническиеПодробности, Символы.ПС + Символы.ПС);
Рекомендации = Новый Массив;
Если ОшибкаАутентификации Тогда
Рекомендации.Добавить(НСтр("ru = 'Проверьте правильность ввода логина и пароля, а также выбранный способ авторизации.'"));
КонецЕсли;
Если ТребуетсяПроверкаНастроекИсходящейПочты Тогда
Рекомендации.Добавить(НСтр("ru = 'Проверьте настройки подключения к серверу исходящей почты.'"));
КонецЕсли;
Если ТребуетсяПроверкаНастроекИсходящейПочты Тогда
Рекомендации.Добавить(НСтр("ru = 'Проверьте настройки подключения к серверу входящей почты.'"));
КонецЕсли;
Рекомендации = СтрСоединить(Рекомендации, Символы.ПС);
ОшибкиПодключения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = '%1
|
|%2
|
|Обратитесь к администратору почтового сервера ""%3"".
|---
|Технические подробности:
|
|%4'"), ТекстСообщения, Рекомендации, ДоменноеИмя, ТехническиеПодробности);
КонецЕсли;
ВыполненныеПроверки = СтрСоединить(ВыполненныеПроверки, Символы.ПС);
Результат = Новый Структура;
Результат.Вставить("ВыполненныеПроверки", ВыполненныеПроверки);
Результат.Вставить("ОшибкиПодключения", ОшибкиПодключения);
Возврат Результат;
КонецФункции
#КонецОбласти #КонецОбласти
#КонецЕсли #КонецЕсли
SSL/src/Catalogs/УчетныеЗаписиЭлектроннойПочты/УчетныеЗаписиЭлектроннойПочты.mdo
+9
View File
@@ -596,4 +596,13 @@
<usePurposes>PersonalComputer</usePurposes> <usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes> <usePurposes>MobileDevice</usePurposes>
</forms> </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> </mdclass:Catalog>
SSL/src/CommonForms/АдреснаяКнига/Module.bsl
+4 -4
View File
@@ -517,28 +517,28 @@
&НаСервере &НаСервере
Функция НайтиКонтакты() Функция НайтиКонтакты()
Возврат Взаимодействия.НайтиКонтакты(СтрокаПоиска, ЭтотОбъект); Возврат Взаимодействия.НайтиКонтакты(СтрокаПоиска, Истина, НайденныеКонтакты);
КонецФункции КонецФункции
&НаСервере &НаСервере
Процедура НайтиПоEmail(ПоДомену) Процедура НайтиПоEmail(ПоДомену)
Взаимодействия.НайтиПоEmail(СтрокаПоиска, ПоДомену, ЭтотОбъект); Взаимодействия.НайтиПоEmail(СтрокаПоиска, ПоДомену, НайденныеКонтакты);
КонецПроцедуры КонецПроцедуры
&НаСервере &НаСервере
Функция КонтактыНайденныеПоСтроке() Функция КонтактыНайденныеПоСтроке()
Возврат Взаимодействия.ПолнотекстовыйПоискКонтактовПоСтроке(СтрокаПоиска, ЭтотОбъект, Истина); Возврат Взаимодействия.ПолнотекстовыйПоискКонтактовПоСтроке(СтрокаПоиска, НайденныеКонтакты, Истина);
КонецФункции КонецФункции
&НаСервере &НаСервере
Процедура НайтиПоНачалуНаименования() Процедура НайтиПоНачалуНаименования()
Взаимодействия.НайтиКонтактыСАдресамиПоНаименованию(СтрокаПоиска, ЭтотОбъект); Взаимодействия.НайтиКонтактыСАдресамиПоНаименованию(СтрокаПоиска, НайденныеКонтакты);
КонецПроцедуры КонецПроцедуры
SSL/src/CommonForms/ВыборКонтакта/Form.form
+56 -3
View File
@@ -50,7 +50,7 @@
<event>Clearing</event> <event>Clearing</event>
<name>ВариантыПоискаОчистка</name> <name>ВариантыПоискаОчистка</name>
</handlers> </handlers>
<width>20</width> <width>15</width>
<autoMaxWidth>true</autoMaxWidth> <autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight> <autoMaxHeight>true</autoMaxHeight>
<horizontalStretch>false</horizontalStretch> <horizontalStretch>false</horizontalStretch>
@@ -71,6 +71,7 @@
<dataPath xsi:type="form:DataPath"> <dataPath xsi:type="form:DataPath">
<segments>СтрокаПоиска</segments> <segments>СтрокаПоиска</segments>
</dataPath> </dataPath>
<defaultItem>true</defaultItem>
<titleLocation>None</titleLocation> <titleLocation>None</titleLocation>
<extendedTooltip> <extendedTooltip>
<name>СтрокаПоискаExtendedTooltip</name> <name>СтрокаПоискаExtendedTooltip</name>
@@ -93,12 +94,17 @@
<headerHorizontalAlign>Left</headerHorizontalAlign> <headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter> <showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo"> <extInfo xsi:type="form:InputFieldExtInfo">
<width>28</width>
<autoMaxWidth>true</autoMaxWidth> <autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight> <autoMaxHeight>true</autoMaxHeight>
<chooseType>true</chooseType> <chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled> <typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit> <textEdit>true</textEdit>
<textSize>Normal</textSize> <textSize>Normal</textSize>
<inputHint>
<key>ru</key>
<value>Введите часть адреса или имени контакта</value>
</inputHint>
</extInfo> </extInfo>
</items> </items>
<items xsi:type="form:Button"> <items xsi:type="form:Button">
@@ -347,6 +353,32 @@
<contextMenu> <contextMenu>
<name>НайденныеКонтактыКонтекстноеМеню</name> <name>НайденныеКонтактыКонтекстноеМеню</name>
<id>21</id> <id>21</id>
<items xsi:type="form:Button">
<name>НайденныеКонтактыКонтекстноеМенюПросмотр</name>
<id>170</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>НайденныеКонтактыКонтекстноеМенюПросмотрРасширеннаяПодсказка</name>
<id>171</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"> <items xsi:type="form:Button">
<name>НайтиВСпискеИзСпискаНайденных</name> <name>НайтиВСпискеИзСпискаНайденных</name>
<id>90</id> <id>90</id>
@@ -387,7 +419,6 @@
<verticalScrollBar>AutoUse</verticalScrollBar> <verticalScrollBar>AutoUse</verticalScrollBar>
<horizontalLines>true</horizontalLines> <horizontalLines>true</horizontalLines>
<verticalLines>true</verticalLines> <verticalLines>true</verticalLines>
<useAlternationRowColorBWA>false</useAlternationRowColorBWA>
<autoInsertNewRow>true</autoInsertNewRow> <autoInsertNewRow>true</autoInsertNewRow>
<searchOnInput>Auto</searchOnInput> <searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView> <initialListView>Auto</initialListView>
@@ -1246,7 +1277,7 @@
<name>Представление</name> <name>Представление</name>
<title> <title>
<key>ru</key> <key>ru</key>
<value>Найдено по</value> <value>Найдено в</value>
</title> </title>
<id>1</id> <id>1</id>
<valueType> <valueType>
@@ -1693,6 +1724,28 @@
<currentRowUse>DontUse</currentRowUse> <currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse> <selectedRowsUse>Auto</selectedRowsUse>
</formCommands> </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> <parameters>
<name>Предмет</name> <name>Предмет</name>
<valueType> <valueType>
SSL/src/CommonForms/ВыборКонтакта/Module.bsl
+22 -12
View File
@@ -133,8 +133,6 @@
#Область ОбработчикиКомандФормы #Область ОбработчикиКомандФормы
// Инициирует процесс поиска контактов.
//
&НаКлиенте &НаКлиенте
Процедура КомандаНайтиВыполнить() Процедура КомандаНайтиВыполнить()
@@ -164,9 +162,6 @@
КонецПроцедуры КонецПроцедуры
// Выполняет позиционирование в соответствующем динамическом списке на текущем контакте из
// списка "Найденные контакты".
//
&НаКлиенте &НаКлиенте
Процедура НайтиВСпискеИзСпискаНайденныхВыполнить() Процедура НайтиВСпискеИзСпискаНайденныхВыполнить()
@@ -176,9 +171,6 @@
КонецПроцедуры КонецПроцедуры
// Выполняет позиционирование в соответствующем динамическом списке на текущем контакте
// из списка "Контакты по предмету".
//
&НаКлиенте &НаКлиенте
Процедура НайтиВСпискеИзСпискаПредметовВыполнить() Процедура НайтиВСпискеИзСпискаПредметовВыполнить()
@@ -255,6 +247,24 @@
КонецПроцедуры КонецПроцедуры
&НаКлиенте
Процедура Просмотр(Команда)
Если Элементы.СтраницыСписки.ТекущаяСтраница = Элементы.СтраницаПользователей Тогда
ТекущиеДанные = Элементы.СписокПользователей.ТекущиеДанные;
ИначеЕсли ТипЗнч(ТекущийЭлемент) = Тип("ТаблицаФормы") Тогда
ТекущиеДанные = ТекущийЭлемент.ТекущиеДанные;
Иначе
Возврат;
КонецЕсли;
Если ТекущиеДанные = Неопределено Тогда
Возврат;
КонецЕсли;
ПоказатьЗначение(, ТекущиеДанные.Ссылка);
КонецПроцедуры
#КонецОбласти #КонецОбласти
#Область СлужебныеПроцедурыИФункции #Область СлужебныеПроцедурыИФункции
@@ -347,7 +357,7 @@
&НаСервере &НаСервере
Функция НайтиПоEmail(ПоДомену) Функция НайтиПоEmail(ПоДомену)
Возврат Взаимодействия.НайтиПоEmail(СтрокаПоиска, ПоДомену, ЭтотОбъект); Возврат Взаимодействия.НайтиПоEmail(СтрокаПоиска, ПоДомену, НайденныеКонтакты);
КонецФункции КонецФункции
@@ -356,7 +366,7 @@
&НаСервере &НаСервере
Функция НайтиПоТелефону() Функция НайтиПоТелефону()
Возврат Взаимодействия.ПолучитьВсеКонтактыПоТелефону(СтрокаПоиска, ЭтотОбъект); Возврат Взаимодействия.НайтиКонтактыПоТелефону(СтрокаПоиска, ЭтотОбъект);
КонецФункции КонецФункции
@@ -365,7 +375,7 @@
&НаСервере &НаСервере
Функция НайтиПоСтроке() Функция НайтиПоСтроке()
Возврат Взаимодействия.ПолнотекстовыйПоискКонтактовПоСтроке(СтрокаПоиска, ЭтотОбъект); Возврат Взаимодействия.ПолнотекстовыйПоискКонтактовПоСтроке(СтрокаПоиска, НайденныеКонтакты);
КонецФункции КонецФункции
@@ -374,7 +384,7 @@
&НаСервере &НаСервере
Функция НайтиПоНачалуНаименования() Функция НайтиПоНачалуНаименования()
ТаблицаКонтактов = Взаимодействия.ВсеКонтактыПоНачалуНаименования(СтрокаПоиска); ТаблицаКонтактов = Взаимодействия.НайтиКонтактыПоНачалуНаименования(СтрокаПоиска);
Если ТаблицаКонтактов = Неопределено ИЛИ ТаблицаКонтактов.Количество() = 0 Тогда Если ТаблицаКонтактов = Неопределено ИЛИ ТаблицаКонтактов.Количество() = 0 Тогда
Возврат Ложь; Возврат Ложь;
SSL/src/CommonForms/МониторСинхронизацииДанныхВМоделиСервиса/Module.bsl
+10 -10
View File
@@ -90,28 +90,28 @@
&НаКлиенте &НаКлиенте
Процедура ОбновитьДанныеМонитора() Процедура ОбновитьДанныеМонитора()
ИндексСтрокиСписокСостоянияУзлов = ПолучитьТекущийИндексСтроки("СписокСостоянияУзлов"); ИндексСтрокиСписокСостоянияУзлов = ПолучитьТекущийИндексСтроки();
// выполняем обновление таблиц монитора на сервере // выполняем обновление таблиц монитора на сервере
ОбновитьСписокСостоянияУзлов(); ОбновитьСписокСостоянияУзлов();
// выполняем позиционирование курсора // выполняем позиционирование курсора
ВыполнитьПозиционированиеКурсора("СписокСостоянияУзлов", ИндексСтрокиСписокСостоянияУзлов); ВыполнитьПозиционированиеКурсора(ИндексСтрокиСписокСостоянияУзлов);
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
Функция ПолучитьТекущийИндексСтроки(ИмяТаблицы) Функция ПолучитьТекущийИндексСтроки()
// возвращаемое значение функции // возвращаемое значение функции
ИндексСтроки = Неопределено; ИндексСтроки = Неопределено;
// при обновлении монитора выполняем позиционирование курсора // при обновлении монитора выполняем позиционирование курсора
ТекущиеДанные = Элементы[ИмяТаблицы].ТекущиеДанные; ТекущиеДанные = Элементы.СписокСостоянияУзлов.ТекущиеДанные;
Если ТекущиеДанные <> Неопределено Тогда Если ТекущиеДанные <> Неопределено Тогда
ИндексСтроки = ЭтотОбъект[ИмяТаблицы].Индекс(ТекущиеДанные); ИндексСтроки = СписокСостоянияУзлов.Индекс(ТекущиеДанные);
КонецЕсли; КонецЕсли;
@@ -119,21 +119,21 @@
КонецФункции КонецФункции
&НаКлиенте &НаКлиенте
Процедура ВыполнитьПозиционированиеКурсора(ИмяТаблицы, ИндексСтроки) Процедура ВыполнитьПозиционированиеКурсора(ИндексСтроки)
Если ИндексСтроки <> Неопределено Тогда Если ИндексСтроки <> Неопределено Тогда
// выполняем проверки позиционирования курсора после получения новых данных // выполняем проверки позиционирования курсора после получения новых данных
Если ЭтотОбъект[ИмяТаблицы].Количество() <> 0 Тогда Если СписокСостоянияУзлов.Количество() <> 0 Тогда
Если ИндексСтроки > ЭтотОбъект[ИмяТаблицы].Количество() - 1 Тогда Если ИндексСтроки > СписокСостоянияУзлов.Количество() - 1 Тогда
ИндексСтроки = ЭтотОбъект[ИмяТаблицы].Количество() - 1; ИндексСтроки = СписокСостоянияУзлов.Количество() - 1;
КонецЕсли; КонецЕсли;
// позиционируем курсор // позиционируем курсор
Элементы[ИмяТаблицы].ТекущаяСтрока = ЭтотОбъект[ИмяТаблицы][ИндексСтроки].ПолучитьИдентификатор(); Элементы.СписокСостоянияУзлов.ТекущаяСтрока = СписокСостоянияУзлов[ИндексСтроки].ПолучитьИдентификатор();
КонецЕсли; КонецЕсли;
SSL/src/CommonForms/СинхронизацияДанных/Module.bsl
+18 -18
View File
@@ -770,13 +770,13 @@
&НаКлиенте &НаКлиенте
Процедура ОбновитьДанныеМонитораИнтерактивно() Процедура ОбновитьДанныеМонитораИнтерактивно()
ИндексСтрокиСписокПриложений = ПолучитьТекущийИндексСтроки("СписокПриложений"); ИндексСтрокиСписокПриложений = ПолучитьТекущийИндексСтроки();
Если МодельСервиса Тогда Если МодельСервиса Тогда
ПриНачалеОбновленияДанныхМонитора(); ПриНачалеОбновленияДанныхМонитора();
Иначе Иначе
ОбновитьСписокПриложений(); ОбновитьСписокПриложений();
ВыполнитьПозиционированиеКурсора("СписокПриложений", ИндексСтрокиСписокПриложений); ВыполнитьПозиционированиеКурсора(ИндексСтрокиСписокПриложений);
ПодключитьОбработчикОжидания("ОбновитьДанныеМонитораВФоне", 60, Истина); ПодключитьОбработчикОжидания("ОбновитьДанныеМонитораВФоне", 60, Истина);
КонецЕсли; КонецЕсли;
@@ -786,7 +786,7 @@
&НаКлиенте &НаКлиенте
Процедура ОбновитьДанныеМонитораВФоне() Процедура ОбновитьДанныеМонитораВФоне()
ИндексСтрокиСписокПриложений = ПолучитьТекущийИндексСтроки("СписокПриложений"); ИндексСтрокиСписокПриложений = ПолучитьТекущийИндексСтроки();
ОбновитьПриложенияМоделиСервиса = МодельСервиса; ОбновитьПриложенияМоделиСервиса = МодельСервиса;
ОбновитьСписокПриложений(ОбновитьПриложенияМоделиСервиса); ОбновитьСписокПриложений(ОбновитьПриложенияМоделиСервиса);
@@ -795,7 +795,7 @@
И ОбновитьПриложенияМоделиСервиса Тогда И ОбновитьПриложенияМоделиСервиса Тогда
ПриНачалеОбновленияДанныхМонитораВФоне(); ПриНачалеОбновленияДанныхМонитораВФоне();
Иначе Иначе
ВыполнитьПозиционированиеКурсора("СписокПриложений", ИндексСтрокиСписокПриложений); ВыполнитьПозиционированиеКурсора(ИндексСтрокиСписокПриложений);
ПодключитьОбработчикОжидания("ОбновитьДанныеМонитораВФоне", 60, Истина); ПодключитьОбработчикОжидания("ОбновитьДанныеМонитораВФоне", 60, Истина);
КонецЕсли; КонецЕсли;
@@ -854,7 +854,7 @@
Процедура ПриЗавершенииОбновленияДанныхМонитора() Процедура ПриЗавершенииОбновленияДанныхМонитора()
ПриЗавершенииПолученияСпискаПриложенийНаСервере(); ПриЗавершенииПолученияСпискаПриложенийНаСервере();
ВыполнитьПозиционированиеКурсора("СписокПриложений", ИндексСтрокиСписокПриложений); ВыполнитьПозиционированиеКурсора(ИндексСтрокиСписокПриложений);
Элементы.ПанельСписокПриложений.ТекущаяСтраница = Элементы.СтраницаСписокПриложений; Элементы.ПанельСписокПриложений.ТекущаяСтраница = Элементы.СтраницаСписокПриложений;
Элементы.КоманднаяПанель.Доступность = Истина; Элементы.КоманднаяПанель.Доступность = Истина;
@@ -912,7 +912,7 @@
Процедура ПриЗавершенииОбновленияДанныхМонитораВФоне() Процедура ПриЗавершенииОбновленияДанныхМонитораВФоне()
ПриЗавершенииПолученияСпискаПриложенийНаСервере(); ПриЗавершенииПолученияСпискаПриложенийНаСервере();
ВыполнитьПозиционированиеКурсора("СписокПриложений", ИндексСтрокиСписокПриложений); ВыполнитьПозиционированиеКурсора(ИндексСтрокиСписокПриложений);
ПодключитьОбработчикОжидания("ОбновитьДанныеМонитораВФоне", 60, Истина); ПодключитьОбработчикОжидания("ОбновитьДанныеМонитораВФоне", 60, Истина);
@@ -1225,17 +1225,17 @@
КонецФункции КонецФункции
&НаКлиенте &НаКлиенте
Функция ПолучитьТекущийИндексСтроки(ИмяТаблицы) Функция ПолучитьТекущийИндексСтроки()
// Возвращаемое значение функции. // Возвращаемое значение функции.
ИндексСтроки = Неопределено; ИндексСтроки = Неопределено;
// При обновлении монитора выполняем позиционирование курсора. // При обновлении монитора выполняем позиционирование курсора.
ТекущиеДанные = Элементы[ИмяТаблицы].ТекущиеДанные; ТекущиеДанные = Элементы.СписокПриложений.ТекущиеДанные;
Если ТекущиеДанные <> Неопределено Тогда Если ТекущиеДанные <> Неопределено Тогда
ИндексСтроки = ЭтотОбъект[ИмяТаблицы].Индекс(ТекущиеДанные); ИндексСтроки = СписокПриложений.Индекс(ТекущиеДанные);
КонецЕсли; КонецЕсли;
@@ -1244,31 +1244,31 @@
КонецФункции КонецФункции
&НаКлиенте &НаКлиенте
Процедура ВыполнитьПозиционированиеКурсора(ИмяТаблицы, ИндексСтроки) Процедура ВыполнитьПозиционированиеКурсора(ИндексСтроки)
Если ИндексСтроки <> Неопределено Тогда Если ИндексСтроки <> Неопределено Тогда
// Выполняем проверки позиционирования курсора после получения новых данных. // Выполняем проверки позиционирования курсора после получения новых данных.
Если ЭтотОбъект[ИмяТаблицы].Количество() <> 0 Тогда Если СписокПриложений.Количество() <> 0 Тогда
Если ИндексСтроки > ЭтотОбъект[ИмяТаблицы].Количество() - 1 Тогда Если ИндексСтроки > СписокПриложений.Количество() - 1 Тогда
ИндексСтроки = ЭтотОбъект[ИмяТаблицы].Количество() - 1; ИндексСтроки = СписокПриложений.Количество() - 1;
КонецЕсли; КонецЕсли;
// позиционируем курсор // позиционируем курсор
Элементы[ИмяТаблицы].ТекущаяСтрока = ЭтотОбъект[ИмяТаблицы][ИндексСтроки].ПолучитьИдентификатор(); Элементы.СписокПриложений.ТекущаяСтрока = СписокПриложений[ИндексСтроки].ПолучитьИдентификатор();
КонецЕсли; КонецЕсли;
КонецЕсли; КонецЕсли;
// Если спозиционировать строку не удалось, то устанавливаем текущей первую строку. // Если спозиционировать строку не удалось, то устанавливаем текущей первую строку.
Если Элементы[ИмяТаблицы].ТекущаяСтрока = Неопределено Если Элементы.СписокПриложений.ТекущаяСтрока = Неопределено
И ЭтотОбъект[ИмяТаблицы].Количество() <> 0 Тогда И СписокПриложений.Количество() <> 0 Тогда
Элементы[ИмяТаблицы].ТекущаяСтрока = ЭтотОбъект[ИмяТаблицы][0].ПолучитьИдентификатор(); Элементы.СписокПриложений.ТекущаяСтрока = СписокПриложений[0].ПолучитьИдентификатор();
КонецЕсли; КонецЕсли;
@@ -1441,7 +1441,7 @@
Выборка = Запрос.Выполнить().Выбрать(); Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда Если Выборка.Следующий() Тогда
СтруктураПравил = Выборка.ПравилаЗачитанные.Получить().Конвертация; СтруктураПравил = Выборка.ПравилаЗачитанные.Получить().Конвертация; // Структура
ИнформацияОПравилах = Новый Структура; ИнформацияОПравилах = Новый Структура;
ИнформацияОПравилах.Вставить("ИмяКонфигурации", СтруктураПравил.Источник); ИнформацияОПравилах.Вставить("ИмяКонфигурации", СтруктураПравил.Источник);
SSL/src/CommonModules/БизнесПроцессыИЗадачиСервер/Module.bsl
+1
View File
@@ -1127,6 +1127,7 @@
Настройка.РегламентноеЗадание = Метаданные.РегламентныеЗадания.УведомлениеИсполнителейОНовыхЗадачах; Настройка.РегламентноеЗадание = Метаданные.РегламентныеЗадания.УведомлениеИсполнителейОНовыхЗадачах;
Настройка.ФункциональнаяОпция = Метаданные.ФункциональныеОпции.ИспользоватьБизнесПроцессыИЗадачи; Настройка.ФункциональнаяОпция = Метаданные.ФункциональныеОпции.ИспользоватьБизнесПроцессыИЗадачи;
Настройка.РаботаетСВнешнимиРесурсами = Истина; Настройка.РаботаетСВнешнимиРесурсами = Истина;
Настройка.ВключатьПриВключенииФункциональнойОпции = Ложь;
Настройка = Настройки.Добавить(); Настройка = Настройки.Добавить();
Настройка.РегламентноеЗадание = Метаданные.РегламентныеЗадания.СтартОтложенныхПроцессов; Настройка.РегламентноеЗадание = Метаданные.РегламентныеЗадания.СтартОтложенныхПроцессов;
SSL/src/CommonModules/ВариантыОтчетов/Module.bsl
+11 -2
View File
@@ -1335,7 +1335,7 @@
Выборка = Запрос.Выполнить().Выбрать(); Выборка = Запрос.Выполнить().Выбрать();
Если Не Выборка.Следующий() Тогда Если Не Выборка.Следующий() Тогда
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Недостаточно прав для открытия варианта ""%1"".'"), Строка(ВариантСсылка)); ВызватьИсключение НСтр("ru = 'Недостаточно прав для просмотра.'");
КонецЕсли; КонецЕсли;
ЗаполнитьЗначенияСвойств(ПараметрыОткрытия, Выборка); ЗаполнитьЗначенияСвойств(ПараметрыОткрытия, Выборка);
@@ -5784,6 +5784,8 @@
|ПОМЕСТИТЬ ПредставленияПодсистем |ПОМЕСТИТЬ ПредставленияПодсистем
|ИЗ |ИЗ
| &ПредставленияПодсистем КАК ПредставленияПодсистем | &ПредставленияПодсистем КАК ПредставленияПодсистем
|ГДЕ
| НЕ &ЭтоОсновнойЯзык
| |
|ИНДЕКСИРОВАТЬ ПО |ИНДЕКСИРОВАТЬ ПО
| Ссылка | Ссылка
@@ -5870,12 +5872,19 @@
|ВЫБРАТЬ РАЗЛИЧНЫЕ |ВЫБРАТЬ РАЗЛИЧНЫЕ
| РазмещениеВариантовОтчетов.Ссылка КАК Ссылка, | РазмещениеВариантовОтчетов.Ссылка КАК Ссылка,
| РазмещениеВариантовОтчетов.Подсистема, | РазмещениеВариантовОтчетов.Подсистема,
| ЕСТЬNULL(ПредставленияПодсистем.Представление, """") КАК НаименованиеПодсистемы | ЕСТЬNULL(ИдентификаторыМетаданных.Синоним, ЕСТЬNULL(ИдентификаторыРасширений.Синоним, ЕСТЬNULL(ПредставленияПодсистем.Представление, """"))) КАК НаименованиеПодсистемы
|ПОМЕСТИТЬ РазмещениеСУчетомНастроек |ПОМЕСТИТЬ РазмещениеСУчетомНастроек
|ИЗ |ИЗ
| РазмещениеВариантовОтчетов КАК РазмещениеВариантовОтчетов | РазмещениеВариантовОтчетов КАК РазмещениеВариантовОтчетов
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ИдентификаторыОбъектовМетаданных КАК ИдентификаторыМетаданных
| ПО ИдентификаторыМетаданных.Ссылка = РазмещениеВариантовОтчетов.Подсистема
| И &ЭтоОсновнойЯзык
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ИдентификаторыОбъектовРасширений КАК ИдентификаторыРасширений
| ПО ИдентификаторыРасширений.Ссылка = РазмещениеВариантовОтчетов.Подсистема
| И &ЭтоОсновнойЯзык
| ЛЕВОЕ СОЕДИНЕНИЕ ПредставленияПодсистем КАК ПредставленияПодсистем | ЛЕВОЕ СОЕДИНЕНИЕ ПредставленияПодсистем КАК ПредставленияПодсистем
| ПО ПредставленияПодсистем.Ссылка = РазмещениеВариантовОтчетов.Подсистема | ПО ПредставленияПодсистем.Ссылка = РазмещениеВариантовОтчетов.Подсистема
| И НЕ &ЭтоОсновнойЯзык
| ЛЕВОЕ СОЕДИНЕНИЕ НастройкиВариантовОтчетов КАК НастройкиВариантовОтчетов | ЛЕВОЕ СОЕДИНЕНИЕ НастройкиВариантовОтчетов КАК НастройкиВариантовОтчетов
| ПО НастройкиВариантовОтчетов.Ссылка = РазмещениеВариантовОтчетов.Ссылка | ПО НастройкиВариантовОтчетов.Ссылка = РазмещениеВариантовОтчетов.Ссылка
| И НастройкиВариантовОтчетов.Подсистема В ( | И НастройкиВариантовОтчетов.Подсистема В (
SSL/src/CommonModules/ВариантыОтчетовПовтИсп/Module.bsl
+4
View File
@@ -225,6 +225,10 @@
Результат.Колонки.Добавить("ПолноеИмя", ВариантыОтчетов.ОписаниеТиповСтрока(510)); Результат.Колонки.Добавить("ПолноеИмя", ВариантыОтчетов.ОписаниеТиповСтрока(510));
Результат.Колонки.Добавить("Представление", ВариантыОтчетов.ОписаниеТиповСтрока(150)); Результат.Колонки.Добавить("Представление", ВариантыОтчетов.ОписаниеТиповСтрока(150));
Если ТекущийЯзык() = Метаданные.ОсновнойЯзык Тогда
Возврат Результат;
КонецЕсли;
ИдентификаторНачальнойСтраницы = ВариантыОтчетовКлиентСервер.ИдентификаторНачальнойСтраницы(); ИдентификаторНачальнойСтраницы = ВариантыОтчетовКлиентСервер.ИдентификаторНачальнойСтраницы();
Для Каждого Раздел Из ВариантыОтчетов.СписокРазделов() Цикл Для Каждого Раздел Из ВариантыОтчетов.СписокРазделов() Цикл
SSL/src/CommonModules/Взаимодействия/Module.bsl
+75 -38
View File
@@ -1559,12 +1559,12 @@
// //
// Параметры: // Параметры:
// Телефон - Строка - строка, содержащая телефон. // Телефон - Строка - строка, содержащая телефон.
// Форма - ФормаКлиентскогоПриложения - Форма, для которой выполняется операция. // НайденныеКонтакты - ТаблицаЗначений.
// //
// Возвращаемое значение: // Возвращаемое значение:
// Булево - Истина, если найден хотя бы один контакт. // Булево - Истина, если найден хотя бы один контакт.
// //
Функция ПолучитьВсеКонтактыПоТелефону(Телефон, Форма) Экспорт Функция НайтиКонтактыПоТелефону(Знач Телефон, НайденныеКонтакты) Экспорт
МассивОписанияТиповКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов(); МассивОписанияТиповКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов();
@@ -1587,7 +1587,7 @@
Если ЭлементМассиваОписания.Имя = "Пользователи" Тогда Если ЭлементМассиваОписания.Имя = "Пользователи" Тогда
Продолжить; Продолжить;
Иначе КонецЕсли;
ТекстЗапроса = ТекстЗапроса + " ТекстЗапроса = ТекстЗапроса + "
|ОБЪЕДИНИТЬ ВСЕ |ОБЪЕДИНИТЬ ВСЕ
@@ -1605,7 +1605,6 @@
| ИЛИ ТаблицаКонтактнойИнформации.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Факс)) | ИЛИ ТаблицаКонтактнойИнформации.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Факс))
| И (НЕ ТаблицаКонтактнойИнформации.Ссылка.ПометкаУдаления) | И (НЕ ТаблицаКонтактнойИнформации.Ссылка.ПометкаУдаления)
| " + ?(ЭлементМассиваОписания.Иерархический," И (НЕ ТаблицаКонтактнойИнформации.Ссылка.ЭтоГруппа)",""); | " + ?(ЭлементМассиваОписания.Иерархический," И (НЕ ТаблицаКонтактнойИнформации.Ссылка.ЭтоГруппа)","");
КонецЕсли;
КонецЦикла; КонецЦикла;
@@ -1613,9 +1612,7 @@
|УПОРЯДОЧИТЬ ПО |УПОРЯДОЧИТЬ ПО
| Наименование"; | Наименование";
Запрос = Новый Запрос; Запрос = Новый Запрос(ТекстЗапроса);
Запрос.Текст = ТекстЗапроса;
Запрос.УстановитьПараметр("Телефон", Телефон); Запрос.УстановитьПараметр("Телефон", Телефон);
ТаблицаКонтакты = Запрос.Выполнить().Выгрузить(); ТаблицаКонтакты = Запрос.Выполнить().Выгрузить();
@@ -1623,8 +1620,7 @@
Возврат Ложь; Возврат Ложь;
КонецЕсли; КонецЕсли;
ЗаполнитьНайденныеКонтакты(ТаблицаКонтакты,Форма.НайденныеКонтакты); ЗаполнитьНайденныеКонтакты(ТаблицаКонтакты, НайденныеКонтакты);
Возврат Истина; Возврат Истина;
КонецФункции КонецФункции
@@ -1637,7 +1633,7 @@
// Возвращаемое значение: // Возвращаемое значение:
// ТаблицаЗначений - Результат выполненного запроса выгруженный в таблицу значений. // ТаблицаЗначений - Результат выполненного запроса выгруженный в таблицу значений.
// //
Функция ВсеКонтактыПоНачалуНаименования(СтрокаПоиска) Экспорт Функция НайтиКонтактыПоНачалуНаименования(Знач СтрокаПоиска) Экспорт
МассивОписанияТиповКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов(); МассивОписанияТиповКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов();
@@ -1693,20 +1689,20 @@
// Поиск по наименованию контактов, содержащих адреса электронной почты. // Поиск по наименованию контактов, содержащих адреса электронной почты.
// //
// Параметры: // Параметры:
// Наименование - Строка - строка, содержащая начало наименования контакта. // Наименование - Строка - содержит начало наименования контакта.
// Форма - ФормаКлиентскогоПриложения - Форма, для которой выполняется операция. // НайденныеКонтакты - ТаблицаЗначений
// //
// Возвращаемое значение: // Возвращаемое значение:
// Булево - Истина, если найден хотя бы один контакт. // Булево - Истина, если найден хотя бы один контакт.
// //
Функция НайтиКонтактыСАдресамиПоНаименованию(СтрокаПоиска, Форма) Экспорт Функция НайтиКонтактыСАдресамиПоНаименованию(Знач СтрокаПоиска, НайденныеКонтакты) Экспорт
ТаблицаКонтакты = НайтиКонтактыСАдресами(СтрокаПоиска); ТаблицаКонтакты = НайтиКонтактыСАдресами(СтрокаПоиска);
Если ТаблицаКонтакты = Неопределено ИЛИ ТаблицаКонтакты.Количество() = 0 Тогда Если ТаблицаКонтакты = Неопределено ИЛИ ТаблицаКонтакты.Количество() = 0 Тогда
Возврат Ложь; Возврат Ложь;
КонецЕсли; КонецЕсли;
ЗаполнитьНайденныеКонтакты(ТаблицаКонтакты, Форма.НайденныеКонтакты); ЗаполнитьНайденныеКонтакты(ТаблицаКонтакты, НайденныеКонтакты);
Возврат Истина; Возврат Истина;
КонецФункции КонецФункции
@@ -1813,16 +1809,16 @@
КонецФункции КонецФункции
Функция НайтиКонтакты(Знач СтрокаПоиска, Форма) Экспорт Функция НайтиКонтакты(Знач СтрокаПоиска, Знач ДляАдреснойКниги, НайденныеКонтакты) Экспорт
Если ПолнотекстовыйПоиск.ПолучитьРежимПолнотекстовогоПоиска() = РежимПолнотекстовогоПоиска.Запретить Если ПолнотекстовыйПоиск.ПолучитьРежимПолнотекстовогоПоиска() = РежимПолнотекстовогоПоиска.Запретить
ИЛИ Не ПолучитьФункциональнуюОпцию("ИспользоватьПолнотекстовыйПоиск") Тогда ИЛИ Не ПолучитьФункциональнуюОпцию("ИспользоватьПолнотекстовыйПоиск") Тогда
НайтиКонтактыСАдресамиПоНаименованию(СтрокаПоиска, Форма); НайтиКонтактыСАдресамиПоНаименованию(СтрокаПоиска, НайденныеКонтакты);
Возврат ""; Возврат "";
Иначе Иначе
Результат = ПолнотекстовыйПоискКонтактовПоСтроке(СтрокаПоиска, Форма, Истина); Результат = ПолнотекстовыйПоискКонтактовПоСтроке(СтрокаПоиска, НайденныеКонтакты, ДляАдреснойКниги);
Если ПустаяСтрока(Результат) Тогда Если ПустаяСтрока(Результат) Тогда
НайтиПоEmail(СтрокаПоиска, Ложь, Форма); НайтиПоEmail(СтрокаПоиска, Ложь, НайденныеКонтакты);
КонецЕсли; КонецЕсли;
Возврат Результат; Возврат Результат;
КонецЕсли; КонецЕсли;
@@ -1834,12 +1830,12 @@
// Параметры: // Параметры:
// СтрокаПоиска - Строка - служит основой для поиска. // СтрокаПоиска - Строка - служит основой для поиска.
// ПоДомену - Булево - признак того, что поиск необходимо осуществлять по домену. // ПоДомену - Булево - признак того, что поиск необходимо осуществлять по домену.
// Форма - ФормаКлиентскогоПриложения - Форма, для которой выполняется операция. // НайденныеКонтакты - ТаблицаЗначений.
// //
// Возвращаемое значение: // Возвращаемое значение:
// Булево - Истина, если найден хотя бы один контакт. // Булево - Истина, если найден хотя бы один контакт.
// //
Функция НайтиПоEmail(СтрокаПоиска, ПоДомену, Форма) Экспорт Функция НайтиПоEmail(Знач СтрокаПоиска, Знач ПоДомену, НайденныеКонтакты) Экспорт
Если ПоДомену Тогда Если ПоДомену Тогда
ТаблицаКонтакты = КонтактыПоДоменномуАдресу(СтрокаПоиска); ТаблицаКонтакты = КонтактыПоДоменномуАдресу(СтрокаПоиска);
@@ -1851,7 +1847,7 @@
Возврат Ложь; Возврат Ложь;
КонецЕсли; КонецЕсли;
ЗаполнитьНайденныеКонтакты(ТаблицаКонтакты, Форма.НайденныеКонтакты); ЗаполнитьНайденныеКонтакты(ТаблицаКонтакты, НайденныеКонтакты);
Возврат Истина; Возврат Истина;
КонецФункции КонецФункции
@@ -1864,7 +1860,7 @@
// Возвращаемое значение: // Возвращаемое значение:
// ТаблицаЗначений - таблица, содержащая информацию о найденных контактах. // ТаблицаЗначений - таблица, содержащая информацию о найденных контактах.
// //
Функция КонтактыПоДоменномуАдресу(ИмяДомена) Функция КонтактыПоДоменномуАдресу(Знач ИмяДомена)
Если ПустаяСтрока(ИмяДомена) Тогда Если ПустаяСтрока(ИмяДомена) Тогда
Возврат Неопределено; Возврат Неопределено;
@@ -1931,9 +1927,9 @@
// Возвращаемое значение: // Возвращаемое значение:
// Строка - сообщение пользователю по результатам поиска. // Строка - сообщение пользователю по результатам поиска.
// //
Функция ПолнотекстовыйПоискКонтактовПоСтроке(Знач СтрокаПоиска, Форма, ДляАдреснойКниги = Ложь) Экспорт Функция ПолнотекстовыйПоискКонтактовПоСтроке(Знач СтрокаПоиска, НайденныеКонтакты, Знач ДляАдреснойКниги = Ложь) Экспорт
Форма.НайденныеКонтакты.Очистить(); НайденныеКонтакты.Очистить();
Если ПустаяСтрока(СтрокаПоиска) Тогда Если ПустаяСтрока(СтрокаПоиска) Тогда
Возврат ""; Возврат "";
@@ -1968,7 +1964,7 @@
Для Инд = 0 По Мин(КоличествоНайденныхЭлементов, 100) - 1 Цикл Для Инд = 0 По Мин(КоличествоНайденныхЭлементов, 100) - 1 Цикл
ЭлементСписка = СписокПоиска.Получить(Инд); ЭлементСписка = СписокПоиска.Получить(Инд);
МассивСсылок.Добавить(ЭлементСписка.Значение); МассивСсылок.Добавить(ЭлементСписка.Значение);
СоответствиеОписаний.Вставить(ЭлементСписка.Значение, ЭлементСписка.Описание); СоответствиеОписаний[ЭлементСписка.Значение] = ЭлементСписка.Описание;
КонецЦикла; КонецЦикла;
Если ДляАдреснойКниги Тогда Если ДляАдреснойКниги Тогда
@@ -1983,19 +1979,41 @@
Выборка = Запрос.Выполнить().Выбрать(); Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл Пока Выборка.Следующий() Цикл
НоваяСтрока = Форма.НайденныеКонтакты.Добавить(); НоваяСтрока = НайденныеКонтакты.Добавить();
НоваяСтрока.Ссылка = Выборка.Контакт; НоваяСтрока.Ссылка = Выборка.Контакт;
НоваяСтрока.Представление = ?(ДляАдреснойКниги ,Выборка.Представление,СоответствиеОписаний.Получить(Выборка.Контакт)); НоваяСтрока.Представление = ?(ДляАдреснойКниги, Выборка.Представление, СоответствиеОписаний[Выборка.Контакт]);
НоваяСтрока.НаименованиеКонтакта = Выборка.Наименование НоваяСтрока.НаименованиеКонтакта = Выборка.Наименование
+ ?(ПустаяСтрока(Выборка.НаименованиеВладельца), + ?(ПустаяСтрока(Выборка.НаименованиеВладельца), "", " (" + Выборка.НаименованиеВладельца + ")");
"",
" (" + Выборка.НаименованиеВладельца + ")");
КонецЦикла; КонецЦикла;
Возврат ?(КоличествоНайденныхЭлементов < 101, "", НСтр("ru = 'Уточните параметры поиска. В списке отображены не все найденные контакты.'")); Возврат ?(КоличествоНайденныхЭлементов < 101, "", НСтр("ru = 'Уточните параметры поиска. В списке отображены не все найденные контакты.'"));
КонецФункции КонецФункции
Функция АвтоПодборКонтактов(Знач СтрокаПоиска) Экспорт
Результат = Новый СписокЗначений;
НайденныеКонтакты = Новый ТаблицаЗначений;
НайденныеКонтакты.Колонки.Добавить("Ссылка", Метаданные.ОпределяемыеТипы.КонтактВзаимодействия.Тип);
НайденныеКонтакты.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
НайденныеКонтакты.Колонки.Добавить("ИмяСправочника", Новый ОписаниеТипов("Строка"));
НайденныеКонтакты.Колонки.Добавить("НаименованиеКонтакта", Новый ОписаниеТипов("Строка"));
РезультатПоиска = НайтиКонтакты(СтрокаПоиска, Ложь, НайденныеКонтакты);
Если Не ПустаяСтрока(РезультатПоиска) Тогда
Возврат Результат;
КонецЕсли;
Для каждого Выборка Из НайденныеКонтакты Цикл
ЗначениеВыбора = Новый Структура;
ЗначениеВыбора.Вставить("Контакт", Выборка.Ссылка);
ЗначениеВыбора.Вставить("ПредставлениеКонтакта", Выборка.НаименованиеКонтакта);
Результат.Добавить(ЗначениеВыбора, Выборка.НаименованиеКонтакта + " [" + Выборка.Представление + "]");
КонецЦикла;
Возврат Результат;
КонецФункции
// Формирует текст запроса для поиска контактов по строке. // Формирует текст запроса для поиска контактов по строке.
// //
// Возвращаемое значение: // Возвращаемое значение:
@@ -2902,6 +2920,7 @@
ПочтовыеЯщики = Соединение.ПолучитьПочтовыеЯщики(); ПочтовыеЯщики = Соединение.ПолучитьПочтовыеЯщики();
Для Каждого ПочтовыйЯщик Из ПочтовыеЯщики Цикл Для Каждого ПочтовыйЯщик Из ПочтовыеЯщики Цикл
Если НРег(ПочтовыйЯщик) = "отправленные" Если НРег(ПочтовыйЯщик) = "отправленные"
Или НРег(ПочтовыйЯщик) = "inbox.sent"
Или НРег(ПочтовыйЯщик) = "sent" Тогда Или НРег(ПочтовыйЯщик) = "sent" Тогда
Соединение.ТекущийПочтовыйЯщик = ПочтовыйЯщик; Соединение.ТекущийПочтовыйЯщик = ПочтовыйЯщик;
@@ -3584,18 +3603,21 @@
КонецПроцедуры КонецПроцедуры
#Область ОбработчикиОбновления //////////////////////////////////////////////////////////////////////////////////
// Работа с элементами и реквизитами форм взаимодействий.
Процедура ОтключитьПодсистемуВМоделиСервиса() Экспорт Процедура УстановитьУсловноеОформлениеВзаимодействия(Форма) Экспорт
Если ОбщегоНазначения.РазделениеВключено() Тогда Элемент = Форма.УсловноеОформление.Элементы.Добавить();
Константы.ИспользоватьПочтовыйКлиент.Установить(Ложь); ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
Константы.ИспользоватьПризнакРассмотрено.Установить(Ложь); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Форма.Элементы.ПредставлениеКонтакта.Имя);
Константы.ИспользоватьПрочиеВзаимодействия.Установить(Ложь);
Константы.ОтправлятьПисьмаВФорматеHTML.Установить(Ложь);
КонецЕсли; ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.Участники.Контакт");
ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.НеЗаполнено;
Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ЦветФонаВыделенияПоля);
КонецПроцедуры КонецПроцедуры
@@ -3802,6 +3824,21 @@
КонецПроцедуры КонецПроцедуры
#Область ОбработчикиОбновления
Процедура ОтключитьПодсистемуВМоделиСервиса() Экспорт
Если ОбщегоНазначения.РазделениеВключено() Тогда
Константы.ИспользоватьПочтовыйКлиент.Установить(Ложь);
Константы.ИспользоватьПризнакРассмотрено.Установить(Ложь);
Константы.ИспользоватьПрочиеВзаимодействия.Установить(Ложь);
Константы.ОтправлятьПисьмаВФорматеHTML.Установить(Ложь);
КонецЕсли;
КонецПроцедуры
#КонецОбласти #КонецОбласти
////////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////////
SSL/src/CommonModules/ВзаимодействияКлиент/Module.bsl
+24 -8
View File
@@ -440,7 +440,7 @@
ТекущиеДанные.КакСвязаться = Адрес; ТекущиеДанные.КакСвязаться = Адрес;
ТекущиеДанные.ПредставлениеКонтакта = Представление; ТекущиеДанные.ПредставлениеКонтакта = Представление;
ВзаимодействияКлиентСервер.ПроверитьЗаполнениеКонтактов(Форма.Объект,Форма,"ЗапланированноеВзаимодействие"); ВзаимодействияКлиентСервер.ПроверитьЗаполнениеКонтактов(Форма.Объект, Форма, "Встреча");
Форма.Модифицированность = Истина; Форма.Модифицированность = Истина;
ИначеЕсли ТипЗнч(Форма.Объект.Ссылка)=Тип("ДокументСсылка.ТелефонныйЗвонок") Тогда ИначеЕсли ТипЗнч(Форма.Объект.Ссылка)=Тип("ДокументСсылка.ТелефонныйЗвонок") Тогда
@@ -484,15 +484,11 @@
// Вызывает форму выбора контакта и обрабатывает результат выбора. // Вызывает форму выбора контакта и обрабатывает результат выбора.
// //
// Параметры: // Параметры:
// Предмет - Ссылка - ссылка на предмет взаимодействия. // Предмет - ОпределяемыйТип.ПредметВзаимодействия - предмет взаимодействия.
// Адрес - Строка - адрес контакта. // Адрес - Строка - адрес контакта.
// Представление - Строка - представление контакта. // Представление - Строка - представление контакта.
// Контакт - Ссылка - контакт. // Контакт - ОпределяемыйТип.КонтактВзаимодействия - контакт.
// Параметры - Структура - структура параметров открытия формы, состоит из // Параметры - см. ВзаимодействияКлиент.ПараметрыВыбораКонтакта.
// ТолькоEmail,
// ТолькоТелефон,
// ЗаменятьПустыеАдресИПредставление,
// ДляФормыУточненияКонтактов.
// //
Процедура ВыбратьКонтакт(Предмет, Адрес, Представление, Контакт, Параметры) Экспорт Процедура ВыбратьКонтакт(Предмет, Адрес, Представление, Контакт, Параметры) Экспорт
@@ -511,6 +507,26 @@
КонецПроцедуры КонецПроцедуры
// Возвращает параметры открытия для ВзаимодействияКлиент.ВыбратьКонтакт.
//
// Структура - состоит из:
// * ТолькоEmail - Булево
// * ТолькоТелефон - Булево
// * ЗаменятьПустыеАдресИПредставление - Булево
// * ДляФормыУточненияКонтактов - Булево
//
Функция ПараметрыВыбораКонтакта(ИдентификаторФормы) Экспорт
Результат = Новый Структура;
Результат.Вставить("ТолькоEmail", Ложь);
Результат.Вставить("ТолькоТелефон", Ложь);
Результат.Вставить("ЗаменятьПустыеАдресИПредставление", Истина);
Результат.Вставить("ДляФормыУточненияКонтактов", Ложь);
Результат.Вставить("ИдентификаторФормы", ИдентификаторФормы);
Возврат Результат;
КонецФункции
// Обработка выбора поля "рассмотреть после" в документах взаимодействиях. // Обработка выбора поля "рассмотреть после" в документах взаимодействиях.
// //
// Параметры: // Параметры:
SSL/src/CommonModules/ОбменДаннымиСервер/Module.bsl
+121 -55
View File
@@ -62,7 +62,9 @@
// Процедура-обработчик события "ПриСозданииНаСервере" для формы узла плана обмена. // Процедура-обработчик события "ПриСозданииНаСервере" для формы узла плана обмена.
// //
// Параметры: // Параметры:
// Форма - ФормаКлиентскогоПриложения - форма, из которой вызвана процедура. // Форма - ФормаКлиентскогоПриложения - форма, из которой вызвана процедура:
// * Объект - ДанныеФормыСтруктура - основной реквизит формы:
// ** Ссылка - ПланОбменаСсылка - узел плана обмена.
// Отказ - Булево - признак отказа от создания формы. Если установить в Истина, то форма создана не будет. // Отказ - Булево - признак отказа от создания формы. Если установить в Истина, то форма создана не будет.
// //
Процедура ФормаУзлаПриСозданииНаСервере(Форма, Отказ) Экспорт Процедура ФормаУзлаПриСозданииНаСервере(Форма, Отказ) Экспорт
@@ -1098,7 +1100,7 @@
Выборка = Запрос.Выполнить().Выбрать(); Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда Если Выборка.Следующий() Тогда
СценарийОбъект = Выборка.Сценарий.ПолучитьОбъект(); СценарийОбъект = Выборка.Сценарий.ПолучитьОбъект(); // СправочникОбъект.СценарииОбменовДанными
Отказ = Ложь; Отказ = Ложь;
Справочники.СценарииОбменовДанными.ОбновитьДанныеРегламентногоЗадания( Справочники.СценарииОбменовДанными.ОбновитьДанныеРегламентногоЗадания(
@@ -1882,7 +1884,7 @@
Возврат; Возврат;
КонецЕсли; КонецЕсли;
ДвоичныеДанные = ХранилищеЗначений.Получить(); ДвоичныеДанные = ХранилищеЗначений.Получить(); // ДвоичныеДанные
Если ДвоичныеДанные = Неопределено Тогда Если ДвоичныеДанные = Неопределено Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
@@ -1955,6 +1957,10 @@
ТипЗначенияОтбора = ЧтениеXML.ЗначениеАтрибута("Type"); ТипЗначенияОтбора = ЧтениеXML.ЗначениеАтрибута("Type");
МетаданныеЗначенияОтбора = Метаданные.НайтиПоПолномуИмени(ТипЗначенияОтбора); МетаданныеЗначенияОтбора = Метаданные.НайтиПоПолномуИмени(ТипЗначенияОтбора);
ЭлементОтбора = ОбъектКОбработке.Отбор.Найти(ИмяОтбора);
Если ЭлементОтбора <> Неопределено Тогда
Если МетаданныеЗначенияОтбора <> Неопределено Тогда Если МетаданныеЗначенияОтбора <> Неопределено Тогда
МенеджерОбъектаОтбора = ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени(ТипЗначенияОтбора); МенеджерОбъектаОтбора = ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени(ТипЗначенияОтбора);
@@ -1965,13 +1971,13 @@
СсылкаНаЗначение = МенеджерОбъектаОтбора.ПолучитьСсылку(Новый УникальныйИдентификатор(ЗначениеОтбора)); СсылкаНаЗначение = МенеджерОбъектаОтбора.ПолучитьСсылку(Новый УникальныйИдентификатор(ЗначениеОтбора));
КонецЕсли; КонецЕсли;
ОбъектКОбработке.Отбор[ИмяОтбора].Установить(СсылкаНаЗначение); ЭлементОтбора.Установить(СсылкаНаЗначение);
Иначе Иначе
Если ВРег(СтрЗаменить(ТипЗначенияОтбора, " ", "")) = "УНИКАЛЬНЫЙИДЕНТИФИКАТОР" Тогда Если ВРег(СтрЗаменить(ТипЗначенияОтбора, " ", "")) = "УНИКАЛЬНЫЙИДЕНТИФИКАТОР" Тогда
ОбъектКОбработке.Отбор[ИмяОтбора].Установить(XMLЗначение(Тип("УникальныйИдентификатор"), ЗначениеОтбора)); ЭлементОтбора.Установить(XMLЗначение(Тип("УникальныйИдентификатор"), ЗначениеОтбора));
Иначе Иначе
ОбъектКОбработке.Отбор[ИмяОтбора].Установить(XMLЗначение(Тип(ТипЗначенияОтбора), ЗначениеОтбора)); ЭлементОтбора.Установить(XMLЗначение(Тип(ТипЗначенияОтбора), ЗначениеОтбора));
КонецЕсли; КонецЕсли;
КонецЕсли; КонецЕсли;
@@ -1979,6 +1985,8 @@
КонецЕсли; КонецЕсли;
КонецЕсли;
КонецЦикла; КонецЦикла;
КонецЕсли; КонецЕсли;
@@ -2272,6 +2280,10 @@
Возврат Истина; Возврат Истина;
КонецФункции КонецФункции
// Параметры:
// Приемник - ТаблицаЗначений, ТабличнаяЧасть - приемник данных.
// Источник - ТаблицаЗначений, ТабличнаяЧасть - источник данных.
//
Процедура ЗаполнитьТаблицуЗначений(Приемник, Знач Источник) Экспорт Процедура ЗаполнитьТаблицуЗначений(Приемник, Знач Источник) Экспорт
Приемник.Очистить(); Приемник.Очистить();
@@ -3727,36 +3739,24 @@
// //
Процедура УдалитьДвиженияУДокумента(ДокументОбъект) Экспорт Процедура УдалитьДвиженияУДокумента(ДокументОбъект) Экспорт
МассивОбрабатываемыхСтрокТаблицыДвижений = Новый Массив(); МассивОбрабатываемыхСтрокТаблицыДвижений = Новый Массив;
// Получение списка регистров, по которым существуют движения. // Получение списка регистров, по которым существуют движения.
ТаблицаДвижений = ОпределитьНаличиеДвиженийПоДокументу(ДокументОбъект.Ссылка); ТаблицаДвижений = ОпределитьНаличиеДвиженийПоДокументу(ДокументОбъект.Ссылка);
ТаблицаДвижений.Колонки.Добавить("НаборЗаписей");
ТаблицаДвижений.Колонки.Добавить("БезусловноеУдаление", Новый ОписаниеТипов("Булево"));
Для Каждого СтрокаДвижения Из ТаблицаДвижений Цикл Для Каждого СтрокаДвижения Из ТаблицаДвижений Цикл
// Имя регистра передается как значение, полученное с помощью // Имя регистра передается как значение, полученное с помощью
// функции ПолноеИмя() метаданных регистра. // функции ПолноеИмя() метаданных регистра.
ПозицияТочки = СтрНайти(СтрокаДвижения.Имя, "."); ПолноеИмяРегистра = СтрокаДвижения.Имя;
ТипРегистра = Лев(СтрокаДвижения.Имя, ПозицияТочки - 1);
ИмяРегистра = СокрП(Сред(СтрокаДвижения.Имя, ПозицияТочки + 1));
МассивОбрабатываемыхСтрокТаблицыДвижений.Добавить(СтрокаДвижения); МассивОбрабатываемыхСтрокТаблицыДвижений.Добавить(СтрокаДвижения);
Если ТипРегистра = "РегистрНакопления" Тогда Набор = ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени(ПолноеИмяРегистра).СоздатьНаборЗаписей();
Набор = РегистрыНакопления[ИмяРегистра].СоздатьНаборЗаписей();
ИначеЕсли ТипРегистра = "РегистрБухгалтерии" Тогда
Набор = РегистрыБухгалтерии[ИмяРегистра].СоздатьНаборЗаписей();
ИначеЕсли ТипРегистра = "РегистрСведений" Тогда
Набор = РегистрыСведений[ИмяРегистра].СоздатьНаборЗаписей();
ИначеЕсли ТипРегистра = "РегистрРасчета" Тогда
Набор = РегистрыРасчета[ИмяРегистра].СоздатьНаборЗаписей();
КонецЕсли;
Если Не ПравоДоступа("Изменение", Набор.Метаданные()) Тогда Если Не ПравоДоступа("Изменение", Набор.Метаданные()) Тогда
// Отсутствуют права на всю таблицу регистра. // Отсутствуют права на всю таблицу регистра.
ТекстИсключения = НСтр("ru = 'Нарушение прав доступа: %1'"); ТекстИсключения = НСтр("ru = 'Нарушение прав доступа: %1'");
ТекстИсключения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстИсключения, СтрокаДвижения.Имя); ТекстИсключения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстИсключения, ПолноеИмяРегистра);
ВызватьИсключение ТекстИсключения; ВызватьИсключение ТекстИсключения;
КонецЕсли; КонецЕсли;
@@ -3794,7 +3794,9 @@
Если ДокументОбъект.Метаданные().ЗаполнениеПоследовательностей = Метаданные.СвойстваОбъектов.ЗаполнениеПоследовательностей.ЗаполнятьАвтоматически Тогда Если ДокументОбъект.Метаданные().ЗаполнениеПоследовательностей = Метаданные.СвойстваОбъектов.ЗаполнениеПоследовательностей.ЗаполнятьАвтоматически Тогда
ТекстЗапроса = ""; ТекстЗапроса = "";
Для Каждого Последовательность Из ДокументОбъект.ПринадлежностьПоследовательностям Цикл КоллекцияПоследовательностей = ДокументОбъект.ПринадлежностьПоследовательностям;
Для Каждого Последовательность Из КоллекцияПоследовательностей Цикл
// В запросе получаем имена последовательностей, в которых документ зарегистрирован. // В запросе получаем имена последовательностей, в которых документ зарегистрирован.
ТекстЗапроса = ТекстЗапроса + " ТекстЗапроса = ТекстЗапроса + "
|" + ?(ТекстЗапроса = "", "", "ОБЪЕДИНИТЬ ВСЕ ") + " |" + ?(ТекстЗапроса = "", "", "ОБЪЕДИНИТЬ ВСЕ ") + "
@@ -3813,7 +3815,6 @@
КонецЕсли; КонецЕсли;
// Получение списка последовательностей в которых зарегистрирован документ. // Получение списка последовательностей в которых зарегистрирован документ.
КоллекцияПоследовательностей = ДокументОбъект.ПринадлежностьПоследовательностям;
Для Каждого НаборЗаписейРегистрацииВПоследовательности Из КоллекцияПоследовательностей Цикл Для Каждого НаборЗаписейРегистрацииВПоследовательности Из КоллекцияПоследовательностей Цикл
Если (НаборЗаписейРегистрацииВПоследовательности.Количество() > 0) Если (НаборЗаписейРегистрацииВПоследовательности.Количество() > 0)
ИЛИ (НЕ ТаблицаРегистраций.Найти(НаборЗаписейРегистрацииВПоследовательности.Метаданные().Имя, "Имя") = Неопределено) Тогда ИЛИ (НЕ ТаблицаРегистраций.Найти(НаборЗаписейРегистрацииВПоследовательности.Метаданные().Имя, "Имя") = Неопределено) Тогда
@@ -3842,6 +3843,10 @@
#Область ОбработчикиСобытийПодсистемКонфигурации #Область ОбработчикиСобытийПодсистемКонфигурации
// См. ОбновлениеИнформационнойБазыБСП.ПриДобавленииОбработчиковОбновления. // См. ОбновлениеИнформационнойБазыБСП.ПриДобавленииОбработчиковОбновления.
//
// Параметры:
// Обработчики - см. ОбновлениеИнформационнойБазы.НоваяТаблицаОбработчиковОбновления
//
Процедура ПриДобавленииОбработчиковОбновления(Обработчики) Экспорт Процедура ПриДобавленииОбработчиковОбновления(Обработчики) Экспорт
Обработчик = Обработчики.Добавить(); Обработчик = Обработчики.Добавить();
@@ -4042,6 +4047,11 @@
КонецПроцедуры КонецПроцедуры
// См. УправлениеДоступомПереопределяемый.ПриЗаполненииПоставляемыхПрофилейГруппДоступа. // См. УправлениеДоступомПереопределяемый.ПриЗаполненииПоставляемыхПрофилейГруппДоступа.
//
// Параметры:
// ОписанияПрофилей - Массив из см. УправлениеДоступом.НовоеОписаниеПрофиляГруппДоступа - набор описаний профилей.
// ПараметрыОбновления - Структура - см. УправлениеДоступомПереопределяемый.ПриЗаполненииПоставляемыхПрофилейГруппДоступа
//
Процедура ПриЗаполненииПоставляемыхПрофилейГруппДоступа(ОписанияПрофилей, ПараметрыОбновления) Экспорт Процедура ПриЗаполненииПоставляемыхПрофилейГруппДоступа(ОписанияПрофилей, ПараметрыОбновления) Экспорт
// Профиль "Синхронизация данных с другими программами". // Профиль "Синхронизация данных с другими программами".
@@ -4072,6 +4082,10 @@
КонецПроцедуры КонецПроцедуры
// См. РегламентныеЗаданияПереопределяемый.ПриОпределенииНастроекРегламентныхЗаданий. // См. РегламентныеЗаданияПереопределяемый.ПриОпределенииНастроекРегламентныхЗаданий.
//
// Параметры:
// Зависимости - ТаблицаЗначений - см. РегламентныеЗаданияПереопределяемый.ПриОпределенииНастроекРегламентныхЗаданий.
//
Процедура ПриОпределенииНастроекРегламентныхЗаданий(Зависимости) Экспорт Процедура ПриОпределенииНастроекРегламентныхЗаданий(Зависимости) Экспорт
Зависимость = Зависимости.Добавить(); Зависимость = Зависимости.Добавить();
Зависимость.РегламентноеЗадание = Метаданные.РегламентныеЗадания.УдалениеНеактуальнойИнформацииСинхронизации; Зависимость.РегламентноеЗадание = Метаданные.РегламентныеЗадания.УдалениеНеактуальнойИнформацииСинхронизации;
@@ -6314,7 +6328,7 @@
КонецЕсли; КонецЕсли;
СтруктураНастроекОбмена.РезультатВыполненияОбмена = Неопределено; СтруктураНастроекОбмена.РезультатВыполненияОбмена = Неопределено;
СтруктураНастроекОбменаВнешнееСоединение.ДатаНачала = ВнешнееСоединение.ТекущаяДатаСеанса(); СтруктураНастроекОбменаВнешнееСоединение.Вставить("ДатаНачала", ВнешнееСоединение.ТекущаяДатаСеанса());
ВнешнееСоединение.ОбменДаннымиВнешнееСоединение.ЗаписьЖурналаРегистрацииНачалаОбменаДанными(СтруктураНастроекОбменаВнешнееСоединение); ВнешнееСоединение.ОбменДаннымиВнешнееСоединение.ЗаписьЖурналаРегистрацииНачалаОбменаДанными(СтруктураНастроекОбменаВнешнееСоединение);
// ОБМЕН ДАННЫМИ // ОБМЕН ДАННЫМИ
@@ -7533,7 +7547,7 @@
Процедура ВыполнитьСтандартнуюЗагрузкуПорцииДанных(ПараметрыЗагрузки, ПродолжитьЗагрузку) Процедура ВыполнитьСтандартнуюЗагрузкуПорцииДанных(ПараметрыЗагрузки, ПродолжитьЗагрузку)
ЧтениеXML = ПараметрыЗагрузки.ЧтениеXML; ЧтениеXML = ПараметрыЗагрузки.ЧтениеXML;
ЧтениеСообщения = ПараметрыЗагрузки.ЧтениеСообщения; ЧтениеСообщения = ПараметрыЗагрузки.ЧтениеСообщения; // ЧтениеСообщенияОбмена
КоличествоЗаписанных = 0; КоличествоЗаписанных = 0;
@@ -7911,7 +7925,7 @@
ЗаписьЖурналаРегистрацииОбменаДанными(Комментарий, СтруктураНастроекОбмена); ЗаписьЖурналаРегистрацииОбменаДанными(Комментарий, СтруктураНастроекОбмена);
Для НомерЧасти = 1 По КоличествоЧастей Цикл Для НомерЧасти = 1 По КоличествоЧастей Цикл
ДанныеЧасти = Неопределено; ДанныеЧасти = Неопределено; // ДвоичныеДанные
Попытка Попытка
Прокси.GetFilePart(ИдентификаторСессии, НомерЧасти, ДанныеЧасти); Прокси.GetFilePart(ИдентификаторСессии, НомерЧасти, ДанныеЧасти);
Исключение Исключение
@@ -10126,10 +10140,12 @@
ПараметрыПоискаПроблем = РегистрыСведений.РезультатыОбменаДанными.ПараметрыПоискаПроблем(); ПараметрыПоискаПроблем = РегистрыСведений.РезультатыОбменаДанными.ПараметрыПоискаПроблем();
ПараметрыПоискаПроблем.УзлыПланаОбмена = УзлыОбмена; ПараметрыПоискаПроблем.УзлыПланаОбмена = УзлыОбмена;
ПараметрыПоискаПроблем.ТипПроблемы = Новый Массив; ТипыПроблем = Новый Массив;
ПараметрыПоискаПроблем.ТипПроблемы.Добавить(Перечисления.ТипыПроблемОбменаДанными.НезаполненныеРеквизиты); ТипыПроблем.Добавить(Перечисления.ТипыПроблемОбменаДанными.НезаполненныеРеквизиты);
ПараметрыПоискаПроблем.ТипПроблемы.Добавить(Перечисления.ТипыПроблемОбменаДанными.НепроведенныйДокумент); ТипыПроблем.Добавить(Перечисления.ТипыПроблемОбменаДанными.НепроведенныйДокумент);
ПараметрыПоискаПроблем.ТипПроблемы.Добавить(Перечисления.ТипыПроблемОбменаДанными.ОшибкаПроверкиСконвертированногоОбъекта); ТипыПроблем.Добавить(Перечисления.ТипыПроблемОбменаДанными.ОшибкаПроверкиСконвертированногоОбъекта);
ПараметрыПоискаПроблем.ТипПроблемы = ТипыПроблем;
Возврат РегистрыСведений.РезультатыОбменаДанными.КоличествоПроблем(ПараметрыПоискаПроблем); Возврат РегистрыСведений.РезультатыОбменаДанными.КоличествоПроблем(ПараметрыПоискаПроблем);
@@ -11900,6 +11916,11 @@
Возврат ОбщегоНазначения.ЗначениеВСтрокуXML(Результат); Возврат ОбщегоНазначения.ЗначениеВСтрокуXML(Результат);
КонецФункции КонецФункции
// Параметры:
// СтрокиДерева - КоллекцияСтрокДереваЗначений - строки дерева идентификаторов:
// * Идентификатор - Строка -
// * Ссылка - ЛюбаяСсылка -
//
Процедура ЗаполнитьИдентификаторыСсылокВДереве(СтрокиДерева) Процедура ЗаполнитьИдентификаторыСсылокВДереве(СтрокиДерева)
Для Каждого Строка Из СтрокиДерева Цикл Для Каждого Строка Из СтрокиДерева Цикл
@@ -12027,6 +12048,12 @@
Возврат ДеревоИнформацииСтатистики; Возврат ДеревоИнформацииСтатистики;
КонецФункции КонецФункции
// Параметры:
// ДеревоИнформацииСтатистики - ДеревоЗначений -
// ИнформацияСтатистики - ТаблицаЗначений -
// Отбор - Структура -
// УжеОбработанныеСтроки - Соответствие -
//
Процедура ЗаполнитьДеревоИнформацииСтатистикиОдинКоМногим(ДеревоИнформацииСтатистики, ИнформацияСтатистики, Отбор, УжеОбработанныеСтроки) Процедура ЗаполнитьДеревоИнформацииСтатистикиОдинКоМногим(ДеревоИнформацииСтатистики, ИнформацияСтатистики, Отбор, УжеОбработанныеСтроки)
СтрокиДляОбработки = ИнформацияСтатистики.НайтиСтроки(Отбор); СтрокиДляОбработки = ИнформацияСтатистики.НайтиСтроки(Отбор);
@@ -12952,6 +12979,9 @@
КонецФункции КонецФункции
// Параметры:
// ИнформацияОбОшибке - ИнформацияОбОшибке - информация об ошибке.
//
Функция КраткоеПредставлениеПервойОшибки(ИнформацияОбОшибке) Функция КраткоеПредставлениеПервойОшибки(ИнформацияОбОшибке)
Если ИнформацияОбОшибке.Причина <> Неопределено Тогда Если ИнформацияОбОшибке.Причина <> Неопределено Тогда
@@ -13011,6 +13041,10 @@
КонецФункции КонецФункции
// Параметры:
// Контекст - Структура - структура со значениями для переноса в объект.
// Объект - ОбработкаОбъект.СопоставлениеОбъектовИнформационныхБаз - объект-приемник данных.
//
Процедура ЗагрузитьКонтекстОбъекта(Знач Контекст, Знач Объект) Экспорт Процедура ЗагрузитьКонтекстОбъекта(Знач Контекст, Знач Объект) Экспорт
Для Каждого Реквизит Из Объект.Метаданные().Реквизиты Цикл Для Каждого Реквизит Из Объект.Метаданные().Реквизиты Цикл
@@ -13039,13 +13073,15 @@
Результат = Новый Структура; Результат = Новый Структура;
Для Каждого Реквизит Из Объект.Метаданные().Реквизиты Цикл МетаданныеОбъекта = Объект.Метаданные(); // ОбъектМетаданных
Для Каждого Реквизит Из МетаданныеОбъекта.Реквизиты Цикл
Результат.Вставить(Реквизит.Имя, Объект[Реквизит.Имя]); Результат.Вставить(Реквизит.Имя, Объект[Реквизит.Имя]);
КонецЦикла; КонецЦикла;
Для Каждого ТабличнаяЧасть Из Объект.Метаданные().ТабличныеЧасти Цикл Для Каждого ТабличнаяЧасть Из МетаданныеОбъекта.ТабличныеЧасти Цикл
Результат.Вставить(ТабличнаяЧасть.Имя, Объект[ТабличнаяЧасть.Имя].Выгрузить()); Результат.Вставить(ТабличнаяЧасть.Имя, Объект[ТабличнаяЧасть.Имя].Выгрузить());
@@ -13054,6 +13090,10 @@
Возврат Результат; Возврат Результат;
КонецФункции КонецФункции
// Параметры:
// Таблица - ТаблицаЗначений - объект-приемник данных.
// Дерево - КоллекцияСтрокДереваЗначений - объект-источник данных.
//
Процедура РазвернутьДеревоЗначений(Таблица, Дерево) Процедура РазвернутьДеревоЗначений(Таблица, Дерево)
Для Каждого СтрокаДерева Из Дерево Цикл Для Каждого СтрокаДерева Из Дерево Цикл
@@ -13076,6 +13116,9 @@
КонецФункции КонецФункции
// Параметры:
// ТаблицаЗначений - ТаблицаЗначений - таблица значений для преобразования
//
Функция ТаблицаВМассивСтруктур(Знач ТаблицаЗначений) Функция ТаблицаВМассивСтруктур(Знач ТаблицаЗначений)
Результат = Новый Массив; Результат = Новый Массив;
@@ -13323,6 +13366,10 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// Настройки - Структура - структура настроек:
// * НастройкиКомпоновщикаОтбораВсехДокументов - НастройкиКомпоновкиДанных -
//
Функция ИнтерактивноеИзменениеВыгрузки_ОбъектПоНастройкам(Знач Настройки) Функция ИнтерактивноеИзменениеВыгрузки_ОбъектПоНастройкам(Знач Настройки)
ОбъектОтчета = Обработки.ИнтерактивноеИзменениеВыгрузки.Создать(); ОбъектОтчета = Обработки.ИнтерактивноеИзменениеВыгрузки.Создать();
@@ -13517,17 +13564,28 @@
Возврат Синоним; Возврат Синоним;
КонецФункции КонецФункции
// Возвращаемое значение:
// ТаблицаЗначений - коллекция регистров с движениями по заданному регистратору:
// * Имя - Строка - полное имя таблицы регистра.
// * НаборЗаписей - РегистрСведенийНаборЗаписей, РегистрНакопленияНаборЗаписей -
// * БезусловноеУдаление - Булево -
//
Функция ОпределитьНаличиеДвиженийПоДокументу(ДокументСсылка) Функция ОпределитьНаличиеДвиженийПоДокументу(ДокументСсылка)
ТекстЗапроса = "";
// Для исключения падения для документов, проводящимся более чем по 256 таблицам.
счетчик_таблиц = 0;
МетаданныеДокумента = ДокументСсылка.Метаданные(); МетаданныеДокумента = ДокументСсылка.Метаданные();
Если МетаданныеДокумента.Движения.Количество() = 0 Тогда Если МетаданныеДокумента.Движения.Количество() = 0 Тогда
Возврат Новый ТаблицаЗначений; Результат = Новый ТаблицаЗначений;
Результат.Колонки.Добавить("Имя", Новый ОписаниеТипов("Строка"));
Результат.Колонки.Добавить("НаборЗаписей");
Результат.Колонки.Добавить("БезусловноеУдаление", Новый ОписаниеТипов("Булево"));
Возврат Результат;
КонецЕсли; КонецЕсли;
ТекстЗапроса = "";
// Для исключения падения для документов, проводящимся более чем по 256 таблицам.
СчетчикТаблиц = 0;
Для Каждого Движение Из МетаданныеДокумента.Движения Цикл Для Каждого Движение Из МетаданныеДокумента.Движения Цикл
// В запросе получаем имена регистров, по которым есть хотя бы одно движение. // В запросе получаем имена регистров, по которым есть хотя бы одно движение.
// Например, // Например,
@@ -13544,32 +13602,33 @@
// Если в запрос попадает более 256 таблиц - разбиваем его на две части // Если в запрос попадает более 256 таблиц - разбиваем его на две части
// (вариант документа с проведением по 512 регистрам считаем нежизненным). // (вариант документа с проведением по 512 регистрам считаем нежизненным).
счетчик_таблиц = счетчик_таблиц + 1; СчетчикТаблиц = СчетчикТаблиц + 1;
Если счетчик_таблиц = 256 Тогда Если СчетчикТаблиц = 256 Тогда
Прервать; Прервать;
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
Запрос = Новый Запрос(ТекстЗапроса); Запрос = Новый Запрос(ТекстЗапроса);
ЗАпрос.УстановитьПараметр("Регистратор", ДокументСсылка); Запрос.УстановитьПараметр("Регистратор", ДокументСсылка);
// При выгрузке для колонки "Имя" тип устанавливается по самой длинной строке из запроса // При выгрузке для колонки "Имя" тип устанавливается по самой длинной строке из запроса
// при втором проходе по таблице новое имя может не «влезть», по этому сразу в запросе // при втором проходе по таблице новое имя может не «влезть», по этому сразу в запросе
// приводится к строка(200). // приводится к строка(200).
ТаблицаЗапроса = Запрос.Выполнить().Выгрузить(); ТаблицаЗапроса = Запрос.Выполнить().Выгрузить();
ТаблицаЗапроса.Колонки.Добавить("НаборЗаписей");
ТаблицаЗапроса.Колонки.Добавить("БезусловноеУдаление", Новый ОписаниеТипов("Булево"));
// Если количество таблиц не превысило 256 - возвращаем таблицу. // Если количество таблиц не превысило 256 - возвращаем таблицу.
Если счетчик_таблиц = МетаданныеДокумента.Движения.Количество() Тогда Если СчетчикТаблиц = МетаданныеДокумента.Движения.Количество() Тогда
Возврат ТаблицаЗапроса; Возврат ТаблицаЗапроса;
КонецЕсли; КонецЕсли;
// Таблиц больше чем 256, делаем доп. запрос и дополняем строки таблицы. // Таблиц больше чем 256, делаем доп. запрос и дополняем строки таблицы.
ТекстЗапроса = ""; ТекстЗапроса = "";
Для Каждого Движение Из МетаданныеДокумента.Движения Цикл Для Каждого Движение Из МетаданныеДокумента.Движения Цикл
Если счетчик_таблиц > 0 Тогда Если СчетчикТаблиц > 0 Тогда
счетчик_таблиц = счетчик_таблиц - 1; СчетчикТаблиц = СчетчикТаблиц - 1;
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
@@ -13578,9 +13637,9 @@
|ВЫБРАТЬ ПЕРВЫЕ 1 """ + Движение.ПолноеИмя() + """ КАК Имя ИЗ " |ВЫБРАТЬ ПЕРВЫЕ 1 """ + Движение.ПолноеИмя() + """ КАК Имя ИЗ "
+ Движение.ПолноеИмя() + " ГДЕ Регистратор = &Регистратор"; + Движение.ПолноеИмя() + " ГДЕ Регистратор = &Регистратор";
КонецЦикла; КонецЦикла;
Запрос.Текст = ТекстЗапроса; Запрос.Текст = ТекстЗапроса;
Выборка = Запрос.Выполнить().Выбрать(); Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл Пока Выборка.Следующий() Цикл
СтрокаТаблицы = ТаблицаЗапроса.Добавить(); СтрокаТаблицы = ТаблицаЗапроса.Добавить();
@@ -14048,7 +14107,7 @@
// Функция должна возвращать одно и то же значение при многократном вызове. // Функция должна возвращать одно и то же значение при многократном вызове.
// //
// Параметры: // Параметры:
// ВнешнийМодуль - ЛюбаяСсылка, ссылка на внешний модуль. // ВнешнийМодуль - ЛюбаяСсылка - ссылка на внешний модуль.
// //
// Возвращаемое значение - Строка - шаблон имя профиля безопасности, содержащий символы // Возвращаемое значение - Строка - шаблон имя профиля безопасности, содержащий символы
// "%1", вместо которых в дальнейшем будет подставлен уникальный идентификатор. // "%1", вместо которых в дальнейшем будет подставлен уникальный идентификатор.
@@ -14187,14 +14246,17 @@
// Очистка отбора всех документов. // Очистка отбора всех документов.
// //
// Параметры: // Параметры:
// ДополнениеВыгрузки - Структура, РеквизитФормыКоллекция - описание параметров выгрузки. // ДополнениеВыгрузки - Структура, ДанныеФормыСтруктура - описание параметров выгрузки:
// * КомпоновщикОтбораВсехДокументов - КомпоновщикНастроекКомпоновкиДанных -
// * АдресКомпоновщикаВсехДокументов - Строка -
// * АдресХранилищаФормы - Строка -
// //
Процедура ИнтерактивноеИзменениеВыгрузкиОчисткаОбщегоОтбора(ДополнениеВыгрузки) Экспорт Процедура ИнтерактивноеИзменениеВыгрузкиОчисткаОбщегоОтбора(ДополнениеВыгрузки) Экспорт
Если ПустаяСтрока(ДополнениеВыгрузки.АдресКомпоновщикаВсехДокументов) Тогда Если ПустаяСтрока(ДополнениеВыгрузки.АдресКомпоновщикаВсехДокументов) Тогда
ДополнениеВыгрузки.КомпоновщикОтбораВсехДокументов.Настройки.Отбор.Элементы.Очистить(); ДополнениеВыгрузки.КомпоновщикОтбораВсехДокументов.Настройки.Отбор.Элементы.Очистить();
Иначе Иначе
Данные = ПолучитьИзВременногоХранилища(ДополнениеВыгрузки.АдресКомпоновщикаВсехДокументов); Данные = ПолучитьИзВременногоХранилища(ДополнениеВыгрузки.АдресКомпоновщикаВсехДокументов); // КомпоновщикНастроекКомпоновкиДанных
Данные.Настройки.Отбор.Элементы.Очистить(); Данные.Настройки.Отбор.Элементы.Очистить();
ДополнениеВыгрузки.АдресКомпоновщикаВсехДокументов = ПоместитьВоВременноеХранилище(Данные, ДополнениеВыгрузки.АдресХранилищаФормы); ДополнениеВыгрузки.АдресКомпоновщикаВсехДокументов = ПоместитьВоВременноеХранилище(Данные, ДополнениеВыгрузки.АдресХранилищаФормы);
@@ -14348,7 +14410,8 @@
// //
// Параметры: // Параметры:
// Форма - ФормаКлиентскогоПриложения - форма для установки реквизита. // Форма - ФормаКлиентскогоПриложения - форма для установки реквизита.
// НастройкиДополненияВыгрузки - Структура - исходные настройки. // НастройкиДополненияВыгрузки - Структура - исходные настройки:
// * ДополнительнаяРегистрация - ДеревоЗначений -
// ИмяРеквизитаДополнения - Строка - имя реквизита формы для создания или заполнения. // ИмяРеквизитаДополнения - Строка - имя реквизита формы для создания или заполнения.
// //
Процедура ИнтерактивноеИзменениеВыгрузкиРеквизитПоНастройкам(Форма, Знач НастройкиДополненияВыгрузки, Знач ИмяРеквизитаДополнения="ДополнениеВыгрузки") Экспорт Процедура ИнтерактивноеИзменениеВыгрузкиРеквизитПоНастройкам(Форма, Знач НастройкиДополненияВыгрузки, Знач ИмяРеквизитаДополнения="ДополнениеВыгрузки") Экспорт
@@ -14359,7 +14422,8 @@
// Разбираемся с реквизитами // Разбираемся с реквизитами
РеквизитДополнения = Неопределено; РеквизитДополнения = Неопределено;
Для Каждого Реквизит Из Форма.ПолучитьРеквизиты() Цикл КоллекцияРеквизитов = Форма.ПолучитьРеквизиты(); // Массив из РеквизитФормы
Для Каждого Реквизит Из КоллекцияРеквизитов Цикл
Если Реквизит.Имя = ИмяРеквизитаДополнения Тогда Если Реквизит.Имя = ИмяРеквизитаДополнения Тогда
РеквизитДополнения = Реквизит; РеквизитДополнения = Реквизит;
Прервать; Прервать;
@@ -14432,17 +14496,19 @@
// Возвращает описание выгрузки по настройкам. // Возвращает описание выгрузки по настройкам.
// //
// Параметры: // Параметры:
// ДополнениеВыгрузки - Структура, ДанныеФормыКоллекция - описание параметров выгрузки. // ДополнениеВыгрузки - Структура, ДанныеФормыКоллекция - описание параметров выгрузки:
// * УзелИнформационнойБазы - ПланОбменаСсылка - узел плана обмена.
// //
// Возвращаемое значение: // Возвращаемое значение:
// Строка - представление. // Строка - представление.
// //
Функция ПредставлениеДополненияВыгрузкиПоСценариюУзла(Знач ДополнениеВыгрузки) Функция ПредставлениеДополненияВыгрузкиПоСценариюУзла(Знач ДополнениеВыгрузки)
МетаУзел = ДополнениеВыгрузки.УзелИнформационнойБазы.Метаданные(); ИмяПланаОбмена = ОбменДаннымиПовтИсп.ПолучитьИмяПланаОбмена(ДополнениеВыгрузки.УзелИнформационнойБазы);
Если НЕ ЕстьАлгоритмМенеджераПланаОбмена("ПредставлениеОтбораИнтерактивнойВыгрузки",МетаУзел.Имя) Тогда
Если Не ЕстьАлгоритмМенеджераПланаОбмена("ПредставлениеОтбораИнтерактивнойВыгрузки", ИмяПланаОбмена) Тогда
Возврат ""; Возврат "";
КонецЕсли; КонецЕсли;
МодульМенеджера = ПланыОбмена[МетаУзел.Имя]; МодульМенеджера = ПланыОбмена[ИмяПланаОбмена];
Параметры = Новый Структура; Параметры = Новый Структура;
Параметры.Вставить("ИспользоватьПериодОтбора", ДополнениеВыгрузки.ПараметрыСценарияДополнения.ВариантДополнительно.ИспользоватьПериодОтбора); Параметры.Вставить("ИспользоватьПериодОтбора", ДополнениеВыгрузки.ПараметрыСценарияДополнения.ВариантДополнительно.ИспользоватьПериодОтбора);
SSL/src/CommonModules/ОбменДаннымиСлужебный/Module.bsl
+68 -7
View File
@@ -404,8 +404,10 @@
КонецЕсли; КонецЕсли;
ИмяФайла = ОбщегоНазначенияКлиентСервер.ПолучитьПолноеИмяФайла(КаталогВременныхФайлов, Разархиватор.Элементы[0].Имя); ЭлементАрхива = Разархиватор.Элементы.Получить(0);
Разархиватор.Извлечь(Разархиватор.Элементы[0], КаталогВременныхФайлов); ИмяФайла = ОбщегоНазначенияКлиентСервер.ПолучитьПолноеИмяФайла(КаталогВременныхФайлов, ЭлементАрхива.Имя);
Разархиватор.Извлечь(ЭлементАрхива, КаталогВременныхФайлов);
Разархиватор.Закрыть(); Разархиватор.Закрыть();
// Помещаем файл в каталог временного хранилища файлов. // Помещаем файл в каталог временного хранилища файлов.
@@ -791,6 +793,15 @@
#Область ВыполнениеОбменаМетодамиСериализации #Область ВыполнениеОбменаМетодамиСериализации
// Возвращает таблицу предопределенных данных информационной базы.
//
// Возвращаемое значение:
// ТаблицаЗначений - набор предопределенных элементов:
// * ИмяТаблицы - Строка - имя таблицы ИБ.
// * ИмяТипаXML - Строка - имя типа сериализованного объекта.
// * Ссылка - ЛюбаяСсылка - ссылка на предопределенный элемент данных.
// * ИмяПредопределенныхДанных - Строка - имя предопределенного элемента.
//
Функция ТаблицаПредопределенныхДанных() Экспорт Функция ТаблицаПредопределенныхДанных() Экспорт
ТаблицаПредопределенных = Новый ТаблицаЗначений; ТаблицаПредопределенных = Новый ТаблицаЗначений;
@@ -863,13 +874,17 @@
КонецФункции КонецФункции
// Параметры:
// Данные - СправочникОбъект, ДокументОбъект, ПланСчетовОбъект, ПланВидовРасчетаОбъект - объект данных.
// ТаблицаПредопределенных - см. ОбменДаннымиСлужебный.ТаблицаПредопределенныхДанных
//
Процедура ОтметитьСсылкиНаПредопределенныеДанные(Данные, ТаблицаПредопределенных) Экспорт Процедура ОтметитьСсылкиНаПредопределенныеДанные(Данные, ТаблицаПредопределенных) Экспорт
Если Данные = Неопределено Если Данные = Неопределено
Или ТипЗнч(Данные) = Тип("УдалениеОбъекта") Тогда Или ТипЗнч(Данные) = Тип("УдалениеОбъекта") Тогда
Возврат; Возврат;
Иначе Иначе
МетаданныеОбъекта = Данные.Метаданные(); // ОбъектМетаданных МетаданныеОбъекта = Данные.Метаданные();
Если ОбщегоНазначения.ЭтоКонстанта(МетаданныеОбъекта) Тогда Если ОбщегоНазначения.ЭтоКонстанта(МетаданныеОбъекта) Тогда
@@ -907,6 +922,10 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// Данные - СправочникОбъект, ДокументОбъект, ПланСчетовОбъект, ПланВидовРасчетаОбъект - объект данных.
// ТаблицаПредопределенных - см. ОбменДаннымиСлужебный.ТаблицаПредопределенныхДанных
//
Процедура ЗаменитьСсылкиНаПредопределенныеЭлементы(Данные, ТаблицаПредопределенных) Экспорт Процедура ЗаменитьСсылкиНаПредопределенныеЭлементы(Данные, ТаблицаПредопределенных) Экспорт
Если Данные = Неопределено Если Данные = Неопределено
@@ -946,6 +965,12 @@
ИначеЕсли ОбщегоНазначения.ЭтоРегистр(МетаданныеОбъекта) Тогда ИначеЕсли ОбщегоНазначения.ЭтоРегистр(МетаданныеОбъекта) Тогда
Для Каждого ЭлементОтбора Из Данные.Отбор Цикл
ЗначениеОтбора = Новый Структура("Значение", ЭлементОтбора.Значение);
ПроверитьЗаменитьСсылкуПредопределенногоВРеквизитеОбъекта(ЗначениеОтбора, "Значение", ТаблицаПредопределенных);
ЭлементОтбора.Установить(ЗначениеОтбора.Значение);
КонецЦикла;
ПроверитьЗаменитьСсылкуПредопределенныхВТаблицеДанных(Данные, ТаблицаПредопределенных); ПроверитьЗаменитьСсылкуПредопределенныхВТаблицеДанных(Данные, ТаблицаПредопределенных);
КонецЕсли; КонецЕсли;
@@ -1056,7 +1081,7 @@
// //
Процедура ОбновитьЗаписьВРегистрСведений(СтруктураЗаписи, Знач ИмяРегистра) Экспорт Процедура ОбновитьЗаписьВРегистрСведений(СтруктураЗаписи, Знач ИмяРегистра) Экспорт
МетаданныеРегистра = Метаданные.РегистрыСведений[ИмяРегистра]; МетаданныеРегистра = Метаданные.РегистрыСведений[ИмяРегистра]; // ОбъектМетаданныхРегистрСведений
// Создаем менеджер записи регистра. // Создаем менеджер записи регистра.
МенеджерЗаписи = РегистрыСведений[ИмяРегистра].СоздатьМенеджерЗаписи(); МенеджерЗаписи = РегистрыСведений[ИмяРегистра].СоздатьМенеджерЗаписи();
@@ -1108,9 +1133,12 @@
// набор. // набор.
// ИмяРегистра - Строка - имя регистра сведений. // ИмяРегистра - Строка - имя регистра сведений.
// //
// Возвращаемое значение:
// РегистрСведенийНаборЗаписей - набор записей регистра по указанному отбору.
//
Функция СоздатьНаборЗаписейРегистраСведений(СтруктураЗаписи, ИмяРегистра) Экспорт Функция СоздатьНаборЗаписейРегистраСведений(СтруктураЗаписи, ИмяРегистра) Экспорт
МетаданныеРегистра = Метаданные.РегистрыСведений[ИмяРегистра]; МетаданныеРегистра = Метаданные.РегистрыСведений[ИмяРегистра]; // ОбъектМетаданныхРегистрСведений
// Создаем набор записей регистра. // Создаем набор записей регистра.
НаборЗаписей = РегистрыСведений[ИмяРегистра].СоздатьНаборЗаписей(); НаборЗаписей = РегистрыСведений[ИмяРегистра].СоздатьНаборЗаписей();
@@ -1119,9 +1147,10 @@
Для Каждого Измерение Из МетаданныеРегистра.Измерения Цикл Для Каждого Измерение Из МетаданныеРегистра.Измерения Цикл
// Если задано значение в структуре, то отбор устанавливаем. // Если задано значение в структуре, то отбор устанавливаем.
Если СтруктураЗаписи.Свойство(Измерение.Имя) Тогда ЗначениеСвойства = Неопределено;
Если СтруктураЗаписи.Свойство(Измерение.Имя, ЗначениеСвойства) Тогда
НаборЗаписей.Отбор[Измерение.Имя].Установить(СтруктураЗаписи[Измерение.Имя]); НаборЗаписей.Отбор[Измерение.Имя].Установить(ЗначениеСвойства);
КонецЕсли; КонецЕсли;
@@ -1302,6 +1331,11 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// Данные - Произвольный - объект данных.
// МассивКоллекций - Массив из КоллекцияОбъектовМетаданных - набор коллекций реквизитов.
// ТаблицаПредопределенных - ТаблицаЗначений - таблица предопределенных элементов.
//
Процедура ПроверитьОтметитьСсылкуПредопределенныхВКоллекцииРеквизитовОбъекта(Данные, МассивКоллекций, ТаблицаПредопределенных) Процедура ПроверитьОтметитьСсылкуПредопределенныхВКоллекцииРеквизитовОбъекта(Данные, МассивКоллекций, ТаблицаПредопределенных)
Для Каждого КоллекцияРеквизитов Из МассивКоллекций Цикл Для Каждого КоллекцияРеквизитов Из МассивКоллекций Цикл
@@ -1312,6 +1346,10 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// ДанныеТаблицы - ТаблицаЗначений - таблица с данными объекта.
// ТаблицаПредопределенных - ТаблицаЗначений - таблица предопределенных элементов.
//
Процедура ПроверитьОтметитьСсылкуПредопределенныхВТаблицеДанных(ДанныеТаблицы, ТаблицаПредопределенных) Процедура ПроверитьОтметитьСсылкуПредопределенныхВТаблицеДанных(ДанныеТаблицы, ТаблицаПредопределенных)
Для Каждого СтрокаТаблицы Из ДанныеТаблицы Цикл Для Каждого СтрокаТаблицы Из ДанныеТаблицы Цикл
@@ -1322,6 +1360,10 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// Данные - СправочникОбъект, ПланВидовХарактеристикОбъект, ПланСчетовОбъект, ПланВидовРасчетаОбъект -
// ТаблицаПредопределенных - см. ОбменДаннымиСлужебный.ТаблицаПредопределенныхДанных
//
Процедура ОбработатьЗагрузкуПредопределенногоЭлемента(Данные, ТаблицаПредопределенных) Процедура ОбработатьЗагрузкуПредопределенногоЭлемента(Данные, ТаблицаПредопределенных)
ИсходнаяСсылкаДанных = Данные.Ссылка; ИсходнаяСсылкаДанных = Данные.Ссылка;
@@ -1368,6 +1410,11 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// Источник - Произвольный - объект-источник данных.
// Приемник - Произвольный - объект-приемник данных.
// МассивКоллекций - Массив из КоллекцияОбъектовМетаданных - набор коллекций реквизитов.
//
Процедура ПеренестиЗначенияКоллекцииРеквизитовМеждуОбъектами(Источник, Приемник, МассивКоллекций) Процедура ПеренестиЗначенияКоллекцииРеквизитовМеждуОбъектами(Источник, Приемник, МассивКоллекций)
Для Каждого КоллекцияРеквизитов Из МассивКоллекций Цикл Для Каждого КоллекцияРеквизитов Из МассивКоллекций Цикл
@@ -1384,6 +1431,11 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// Данные - Произвольный - объект данных.
// ИмяРеквизита - Строка - имя реквизита объекта.
// ТаблицаПредопределенных - см. ОбменДаннымиСлужебный.ТаблицаПредопределенныхДанных
//
Процедура ПроверитьЗаменитьСсылкуПредопределенногоВРеквизитеОбъекта(Данные, ИмяРеквизита, ТаблицаПредопределенных) Процедура ПроверитьЗаменитьСсылкуПредопределенногоВРеквизитеОбъекта(Данные, ИмяРеквизита, ТаблицаПредопределенных)
Значение = Данные[ИмяРеквизита]; Значение = Данные[ИмяРеквизита];
@@ -1399,6 +1451,11 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// Данные - Произвольный - объект данных.
// МассивКоллекций - Массив из КоллекцияОбъектовМетаданных - набор коллекций реквизитов.
// ТаблицаПредопределенных - ТаблицаЗначений - см. ОбменДаннымиСлужебный.ТаблицаПредопределенныхДанных
//
Процедура ПроверитьЗаменитьСсылкуПредопределенныхВКоллекцииРеквизитовОбъекта(Данные, МассивКоллекций, ТаблицаПредопределенных) Процедура ПроверитьЗаменитьСсылкуПредопределенныхВКоллекцииРеквизитовОбъекта(Данные, МассивКоллекций, ТаблицаПредопределенных)
Для Каждого КоллекцияРеквизитов Из МассивКоллекций Цикл Для Каждого КоллекцияРеквизитов Из МассивКоллекций Цикл
@@ -1409,6 +1466,10 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// ДанныеТаблицы - ТабличнаяЧасть - табличная часть объекта или набор записей регистра.
// ТаблицаПредопределенных - см. ОбменДаннымиСлужебный.ТаблицаПредопределенныхДанных
//
Процедура ПроверитьЗаменитьСсылкуПредопределенныхВТаблицеДанных(ДанныеТаблицы, ТаблицаПредопределенных) Процедура ПроверитьЗаменитьСсылкуПредопределенныхВТаблицеДанных(ДанныеТаблицы, ТаблицаПредопределенных)
Если ДанныеТаблицы.Количество() = 0 Тогда Если ДанныеТаблицы.Количество() = 0 Тогда
SSL/src/CommonModules/ОбменДаннымиСобытия/Module.bsl
+65 -18
View File
@@ -437,9 +437,9 @@
// Параметры: // Параметры:
// Получатель - ПланОбменаСсылка - узел плана обмена, для которого выполняется регистрация изменений // Получатель - ПланОбменаСсылка - узел плана обмена, для которого выполняется регистрация изменений
// данных; // данных;
// Данные - <Данные>, УдалениеОбъекта - объект, представляющий данные, хранимые в базе данных, такой как // Данные - СправочникОбъект, ДокументОбъект, Произвольный, УдалениеОбъекта - объект, представляющий данные,
// документ, элемент справочника, счет бухгалтерского учета, менеджер записи константы, // хранимые в базе данных, такой как документ, элемент справочника, счет бухгалтерского учета, менеджер
// набор записей регистра и т. п. // записи константы, набор записей регистра и т. п.
// ПроверятьРазрешениеВыгрузки - Булево - Необязательный флаг. Если установить в Ложь, то дополнительная проверка // ПроверятьРазрешениеВыгрузки - Булево - Необязательный флаг. Если установить в Ложь, то дополнительная проверка
// на соответствие общим настройкам узла при регистрации производится не // на соответствие общим настройкам узла при регистрации производится не
// будет. // будет.
@@ -640,6 +640,10 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// Источник - ПланОбменаОбъект - узел плана обмена.
// Отказ - Булево - Истина, в случае отказа от выполнения операции.
//
Процедура ОтключитьИспользованиеПланаОбмена(Источник, Отказ) Экспорт Процедура ОтключитьИспользованиеПланаОбмена(Источник, Отказ) Экспорт
// Проверка значения свойства ОбменДанными.Загрузка отсутствует по причине того, что в расположенным ниже коде, // Проверка значения свойства ОбменДанными.Загрузка отсутствует по причине того, что в расположенным ниже коде,
@@ -736,7 +740,9 @@
Результат = Запрос.Выполнить(); Результат = Запрос.Выполнить();
Если Не Результат.Пустой() Тогда Если Результат.Пустой() Тогда
Продолжить;
КонецЕсли;
ЗарегистрированныеДанныеОдногоТипа = Результат.Выгрузить(); ЗарегистрированныеДанныеОдногоТипа = Результат.Выгрузить();
@@ -744,9 +750,11 @@
Для Каждого Строка Из ЗарегистрированныеДанныеОдногоТипа Цикл Для Каждого Строка Из ЗарегистрированныеДанныеОдногоТипа Цикл
Если ОбщегоНазначения.СсылкаСуществует(Строка.Ссылка) Тогда СсылкаНаОбъект = Строка.Ссылка; // ЛюбаяСсылка
ОбъектСсылки = Строка.Ссылка.ПолучитьОбъект(); Если ОбщегоНазначения.СсылкаСуществует(СсылкаНаОбъект) Тогда
ОбъектСсылки = СсылкаНаОбъект.ПолучитьОбъект();
Если ВыгрузкаОбъектаРазрешена(УзелОбъект.Ссылка, ОбъектСсылки) Тогда Если ВыгрузкаОбъектаРазрешена(УзелОбъект.Ссылка, ОбъектСсылки) Тогда
ЗарегистрированныеДанные.Добавить(ОбъектСсылки); ЗарегистрированныеДанные.Добавить(ОбъектСсылки);
@@ -789,8 +797,6 @@
КонецЕсли; КонецЕсли;
КонецЕсли;
КонецЦикла; КонецЦикла;
УзелОбъект.ДополнительныеСвойства.Вставить("ЗарегистрированныеКВыгрузкеОбъекты", ЗарегистрированныеДанные); УзелОбъект.ДополнительныеСвойства.Вставить("ЗарегистрированныеКВыгрузкеОбъекты", ЗарегистрированныеДанные);
@@ -2216,6 +2222,11 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// Объект - Произвольный -
// ДеревоЗначенийПриемник - ДеревоЗначений -
// ДеревоЗначенийИсточник - ДеревоЗначений -
//
Процедура СоздатьДопустимыйОтборПоСвойствам(Объект, ДеревоЗначенийПриемник, ДеревоЗначенийИсточник) Процедура СоздатьДопустимыйОтборПоСвойствам(Объект, ДеревоЗначенийПриемник, ДеревоЗначенийИсточник)
Для Каждого СтрокаДереваИсточника Из ДеревоЗначенийИсточник.Строки Цикл Для Каждого СтрокаДереваИсточника Из ДеревоЗначенийИсточник.Строки Цикл
@@ -2819,6 +2830,10 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// Объект - СправочникОбъект, ДокументОбъект, Произвольный - объект ссылочного типа.
// ТаблицаРеквизитовСсылочногоТипа - ТаблицаЗначений -
//
Процедура ВыполнитьРегистрациюОбъектовСсылочногоТипаПоСвойствамУзла(Объект, ТаблицаРеквизитовСсылочногоТипа) Процедура ВыполнитьРегистрациюОбъектовСсылочногоТипаПоСвойствамУзла(Объект, ТаблицаРеквизитовСсылочногоТипа)
УзелИнформационнойБазы = Объект.Ссылка; УзелИнформационнойБазы = Объект.Ссылка;
@@ -3026,7 +3041,7 @@
// ПланСчетовОбъект, // ПланСчетовОбъект,
// ПланОбменаОбъект, // ПланОбменаОбъект,
// БизнесПроцессОбъект, // БизнесПроцессОбъект,
// ЗадачаОбъект - Первая версия данных для сравнения. // ЗадачаОбъект - первая версия данных для сравнения.
// Данные2 - СправочникОбъект, // Данные2 - СправочникОбъект,
// ДокументОбъект, // ДокументОбъект,
// ПланВидовХарактеристикОбъект, // ПланВидовХарактеристикОбъект,
@@ -3034,11 +3049,11 @@
// ПланСчетовОбъект, // ПланСчетовОбъект,
// ПланОбменаОбъект, // ПланОбменаОбъект,
// БизнесПроцессОбъект, // БизнесПроцессОбъект,
// ЗадачаОбъект - Вторая версия данных для сравнения. // ЗадачаОбъект - вторая версия данных для сравнения.
// СписокСвойств - Строка - Список свойств объекта и табличных частей, разделенных запятыми. // СписокСвойств - Строка - Список свойств объекта и табличных частей, разделенных запятыми.
// Если параметр задан, то заполнение свойств объекта будет // Если параметр задан, то заполнение свойств объекта будет
// выполняться согласно заданным свойствам, при этом параметр. // выполняться согласно заданным свойствам, при этом параметр
// ИсключаяСвойства будет проигнорирован. // "ИсключаяСвойства" будет проигнорирован.
// ИсключаяСвойства - Строка - Список свойств объекта и табличных частей, разделенных запятыми. // ИсключаяСвойства - Строка - Список свойств объекта и табличных частей, разделенных запятыми.
// Если параметр задан, то заполнение свойств объекта будет выполняться // Если параметр задан, то заполнение свойств объекта будет выполняться
// для всех свойств и табличных частей, исключая заданные свойства. // для всех свойств и табличных частей, исключая заданные свойства.
@@ -3052,7 +3067,7 @@
Возврат Истина; Возврат Истина;
КонецЕсли; КонецЕсли;
ОбъектМетаданных = Данные1.Метаданные(); ОбъектМетаданных = Данные1.Метаданные(); // ОбъектМетаданных
Если ОбщегоНазначения.ЭтоСправочник(ОбъектМетаданных) Тогда Если ОбщегоНазначения.ЭтоСправочник(ОбъектМетаданных) Тогда
@@ -3138,6 +3153,13 @@
// Возвращает массив табличных частей объекта. // Возвращает массив табличных частей объекта.
// //
// Параметры:
// ОбъектМетаданных - ОбъектМетаданных - ссылочный объект метаданных:
// * ТабличныеЧасти - КоллекцияОбъектовМетаданных из ОбъектМетаданныхТабличнаяЧасть -
//
// Возвращаемое значение:
// Массив из Строка - коллекция табличных частей объекта.
//
Функция ТабличныеЧастиОбъекта(ОбъектМетаданных) Экспорт Функция ТабличныеЧастиОбъекта(ОбъектМетаданных) Экспорт
Результат = Новый Массив; Результат = Новый Массив;
@@ -3151,10 +3173,14 @@
Возврат Результат; Возврат Результат;
КонецФункции КонецФункции
// Параметры:
// УзелПланаОбмена - ПланОбменаОбъект - узел плана обмена.
// Настройки - Структура - структура со значениями настроек.
//
Процедура УстановитьЗначенияНаУзле(УзелПланаОбмена, Настройки) Процедура УстановитьЗначенияНаУзле(УзелПланаОбмена, Настройки)
// УзелПланаОбмена - ПланОбменаОбъект - недоступный тип параметра // УзелПланаОбмена - недоступный тип параметра для модулей с повторным использованием значений,
// для модулей с повторным использованием значений, поэтому используется УзелПланаОбмена.Ссылка. // поэтому используется УзелПланаОбмена.Ссылка.
ИмяПланаОбмена = ОбменДаннымиПовтИсп.ПолучитьИмяПланаОбмена(УзелПланаОбмена.Ссылка); ИмяПланаОбмена = ОбменДаннымиПовтИсп.ПолучитьИмяПланаОбмена(УзелПланаОбмена.Ссылка);
Для Каждого Элемент Из Настройки Цикл Для Каждого Элемент Из Настройки Цикл
@@ -3320,6 +3346,13 @@
// Проверяет наличие коллизий при загрузке // Проверяет наличие коллизий при загрузке
// и выдает информацию есть ли коллизия при обмене. // и выдает информацию есть ли коллизия при обмене.
//
// Параметры:
// ЭлементДанных - Произвольный - произвольные данные.
// ПолучениеЭлемента - ПолучениеЭлементаДанных -
// Отправитель - ПланОбменаОбъект -
// ЭтоПолучениеОтГлавного - Булево -
//
Процедура ПроверитьКоллизиюИзмененийДанных(ЭлементДанных, ПолучениеЭлемента, Знач Отправитель, Знач ЭтоПолучениеОтГлавного) Процедура ПроверитьКоллизиюИзмененийДанных(ЭлементДанных, ПолучениеЭлемента, Знач Отправитель, Знач ЭтоПолучениеОтГлавного)
Если ТипЗнч(ЭлементДанных) = Тип("УдалениеОбъекта") Тогда Если ТипЗнч(ЭлементДанных) = Тип("УдалениеОбъекта") Тогда
@@ -3426,10 +3459,10 @@
// Выполняет проверку на наличие запрета загрузки по дате. // Выполняет проверку на наличие запрета загрузки по дате.
// //
// Параметры: // Параметры:
// ЭлементДанных - СправочникОбъект, ДокументОбъект, РегистрСведенийНаборЗаписей и др. данные. // ЭлементДанных - СправочникОбъект, ДокументОбъект, РегистрСведенийНаборЗаписей -
// Данные, которые были зачитаны из сообщения обмена, но еще не были записаны в ИБ. // Данные, которые были зачитаны из сообщения обмена, но еще не были записаны в ИБ.
// ПолучениеЭлемента - ПолучениеЭлементаДанных. // ПолучениеЭлемента - ПолучениеЭлементаДанных -
// Отправитель - ПланыОбменаОбъект. // Отправитель - ПланОбменаОбъект -
// //
Процедура ПроверитьНаличиеЗапретаЗагрузкиПоДате(ЭлементДанных, ПолучениеЭлемента, Знач Отправитель) Процедура ПроверитьНаличиеЗапретаЗагрузкиПоДате(ЭлементДанных, ПолучениеЭлемента, Знач Отправитель)
@@ -3534,6 +3567,13 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// Объект - СправочникОбъект, ДокументОбъект, ПланВидовХарактеристикОбъект, ПланСчетовОбъект, ПланВидовРасчетаОбъект,
// БизнесПроцессОбъект, ЗадачаОбъект -
// МетаданныеОбъекта - ОбъектМетаданных -
// ЗаписатьОбъект - Булево -
// ЭтоСсылочныйТип - Булево -
//
Процедура ЗарегистрироватьПредупреждениеОКоллизииВЖурналеРегистрации(Объект, МетаданныеОбъекта, ЗаписатьОбъект, ЭтоСсылочныйТип) Процедура ЗарегистрироватьПредупреждениеОКоллизииВЖурналеРегистрации(Объект, МетаданныеОбъекта, ЗаписатьОбъект, ЭтоСсылочныйТип)
Если ЗаписатьОбъект Тогда Если ЗаписатьОбъект Тогда
@@ -3555,6 +3595,13 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// Объект - Произвольный -
// МетаданныеОбъекта - ОбъектМетаданных -
// ЭтоСсылочныйТип - Булево -
// СсылкаСуществует - Булево -
// ОбъектВБазе - ЛюбаяСсылка, Неопределено -
//
Функция ДанныеОбъектаСтрокойДоИзменения(Объект, МетаданныеОбъекта, ЭтоСсылочныйТип, СсылкаСуществует, ОбъектВБазе) Функция ДанныеОбъектаСтрокойДоИзменения(Объект, МетаданныеОбъекта, ЭтоСсылочныйТип, СсылкаСуществует, ОбъектВБазе)
// Возвращаемое значение функции. // Возвращаемое значение функции.
SSL/src/CommonModules/ОбновлениеИнформационнойБазы/Module.bsl
+2
View File
@@ -2916,6 +2916,8 @@
// Выполнить неинтерактивное обновление данных ИБ. // Выполнить неинтерактивное обновление данных ИБ.
// Для вызова через внешнее соединение. // Для вызова через внешнее соединение.
// При вызове метода с подключенными расширениями, модифицирующими роли конфигурации, будет вызвано исключение. // При вызове метода с подключенными расширениями, модифицирующими роли конфигурации, будет вызвано исключение.
// Важно: Перед вызовом метода необходимо запустить удаление устаревших патчей,
// см. функцию ОбновлениеКонфигурации.ИсправленияИзменены().
// //
// Для использования в других библиотеках и конфигурациях. // Для использования в других библиотеках и конфигурациях.
// //
SSL/src/CommonModules/ОбновлениеИнформационнойБазыБСП/Module.bsl
+1 -1
View File
@@ -41,7 +41,7 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "СтандартныеПодсистемы"; Описание.Имя = "СтандартныеПодсистемы";
Описание.Версия = "3.1.2.217"; Описание.Версия = "3.1.2.223";
Описание.ИдентификаторИнтернетПоддержки = "SSL"; Описание.ИдентификаторИнтернетПоддержки = "SSL";
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно"; Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0"; Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0";
SSL/src/CommonModules/ОбновлениеИнформационнойБазыСлужебный/Module.bsl
+6
View File
@@ -78,6 +78,12 @@
Функция ВыполнитьОбновлениеИнформационнойБазы(ПараметрыОбновления) Экспорт Функция ВыполнитьОбновлениеИнформационнойБазы(ПараметрыОбновления) Экспорт
Если Не ПараметрыОбновления.ПриЗапускеКлиентскогоПриложения Тогда Если Не ПараметрыОбновления.ПриЗапускеКлиентскогоПриложения Тогда
Если Не ОбщегоНазначения.РазделениеВключено()
И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ОбновлениеКонфигурации") Тогда
МодульОбновлениеКонфигурации = ОбщегоНазначения.ОбщийМодуль("ОбновлениеКонфигурации");
МодульОбновлениеКонфигурации.ПроверитьНаличиеУстаревшихИсправлений();
КонецЕсли;
Попытка Попытка
РегистрыСведений.ПараметрыРаботыПрограммы.ЗагрузитьОбновитьПараметрыРаботыПрограммы(); РегистрыСведений.ПараметрыРаботыПрограммы.ЗагрузитьОбновитьПараметрыРаботыПрограммы();
Исключение Исключение
SSL/src/CommonModules/ОбновлениеКонфигурации/Module.bsl
+43 -1
View File
@@ -13,12 +13,15 @@
// конфигурации в пакетном режиме (см. ОбновлениеИнформационнойБазы.ВыполнитьОбновлениеИнформационнойБазы). // конфигурации в пакетном режиме (см. ОбновлениеИнформационнойБазы.ВыполнитьОбновлениеИнформационнойБазы).
// Важно: Выполненные действия применятся после перезапуска сеанса. // Важно: Выполненные действия применятся после перезапуска сеанса.
// //
// Параметры:
// ТолькоПроверка - Булево - если Истина, устаревшие патчи не будут удаляться.
//
// Возвращаемое значение: // Возвращаемое значение:
// Структура - со свойствами: // Структура - со свойствами:
// * ЕстьИзменения - Булево - истина, если были внесены изменения в составе исправлений. // * ЕстьИзменения - Булево - истина, если были внесены изменения в составе исправлений.
// * ОписаниеИзменений - Строка - информация о удаленных и измененных патчах. // * ОписаниеИзменений - Строка - информация о удаленных и измененных патчах.
// //
Функция ИсправленияИзменены() Экспорт Функция ИсправленияИзменены(ТолькоПроверка = Ложь) Экспорт
Результат = Новый Структура; Результат = Новый Структура;
Результат.Вставить("ЕстьИзменения", Ложь); Результат.Вставить("ЕстьИзменения", Ложь);
@@ -48,6 +51,11 @@
Если Исправления.Количество() > 0 Тогда Если Исправления.Количество() > 0 Тогда
ТекстСообщения = НСтр("ru = 'В составе конфигурации обнаружены установленные исправления (%1).
|Начало проверки необходимости удаления устаревших патчей.'");
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстСообщения, Исправления.Количество());
ЗаписьЖурналаРегистрации(СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Информация,,, ТекстСообщения);
ОписанияПодсистем = СтандартныеПодсистемыПовтИсп.ОписанияПодсистем(); ОписанияПодсистем = СтандартныеПодсистемыПовтИсп.ОписанияПодсистем();
БиблиотекиКонфигурации = Новый Соответствие; БиблиотекиКонфигурации = Новый Соответствие;
@@ -62,6 +70,10 @@
// Исправление еще не применено. // Исправление еще не применено.
УдалитьИсправление = Ложь; УдалитьИсправление = Ложь;
Иначе Иначе
ТекстСообщения = НСтр("ru = 'Проверка патча ""%1"".'");
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстСообщения, Исправление.Имя);
ЗаписьЖурналаРегистрации(СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Информация,,, ТекстСообщения);
Для Каждого ИнформацияОПрименимости Из СвойстваИсправления.AppliedFor Цикл Для Каждого ИнформацияОПрименимости Из СвойстваИсправления.AppliedFor Цикл
ВерсияБиблиотекиКонфигурации = БиблиотекиКонфигурации.Получить(ИнформацияОПрименимости.ConfigurationName); ВерсияБиблиотекиКонфигурации = БиблиотекиКонфигурации.Получить(ИнформацияОПрименимости.ConfigurationName);
@@ -72,7 +84,16 @@
КонецЦикла; КонецЦикла;
КонецЕсли; КонецЕсли;
Если ТолькоПроверка И УдалитьИсправление Тогда
Результат.ЕстьИзменения = Истина;
Возврат Результат;
КонецЕсли;
Если УдалитьИсправление Тогда Если УдалитьИсправление Тогда
ТекстСообщения = НСтр("ru = 'Патч ""%1"" устарел и будет удален.'");
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстСообщения, Исправление.Имя);
ЗаписьЖурналаРегистрации(СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Информация,,, ТекстСообщения);
Попытка Попытка
Исправление.Удалить(); Исправление.Удалить();
Изменения.УдаленныеИсправления.Добавить(Исправление.Имя); Изменения.УдаленныеИсправления.Добавить(Исправление.Имя);
@@ -142,6 +163,18 @@
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
Если Изменения.УдаленныеИсправления.Количество() > 0 Тогда
ОсталосьИсправлений = Исправления.Количество() - Изменения.УдаленныеИсправления.Количество();
ТекстСообщения = НСтр("ru = 'Удаление устаревших патчей завершено.
|Удалено: %1
|Осталось действующих патчей: %2'");
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
ТекстСообщения,
Изменения.УдаленныеИсправления.Количество(),
ОсталосьИсправлений);
ЗаписьЖурналаРегистрации(СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Информация,,, ТекстСообщения);
КонецЕсли;
ОписаниеИзменений = ""; ОписаниеИзменений = "";
Если Изменения.УдаленныеИсправления.Количество() > 0 Тогда Если Изменения.УдаленныеИсправления.Количество() > 0 Тогда
@@ -421,6 +454,15 @@
#Область СлужебныйПрограммныйИнтерфейс #Область СлужебныйПрограммныйИнтерфейс
Процедура ПроверитьНаличиеУстаревшихИсправлений() Экспорт
Результат = ИсправленияИзменены(Истина);
Если Результат.ЕстьИзменения Тогда
ТекстСообщения = НСтр("ru = 'Некорректный вызов функции ""ОбновлениеИнформационнойБазы.ВыполнитьОбновлениеИнформационнойБазы"".
|Перед вызовом не были удалены устаревшие патчи, возможно, обновление выполняется нештатными средствами.'");
ЗаписьЖурналаРегистрации(СобытиеЖурналаРегистрации(), УровеньЖурналаРегистрации.Ошибка,,, ТекстСообщения);
КонецЕсли;
КонецПроцедуры
// Вызывается при завершении обновления конфигурации через COM-соединение. // Вызывается при завершении обновления конфигурации через COM-соединение.
// //
// Параметры: // Параметры:
SSL/src/CommonModules/ОбновлениеКонфигурацииВызовСервера/Module.bsl
+4
View File
@@ -127,4 +127,8 @@
ОбновлениеКонфигурации.СохранитьНастройкиОбновленияКонфигурации(Настройки); ОбновлениеКонфигурации.СохранитьНастройкиОбновленияКонфигурации(Настройки);
КонецПроцедуры КонецПроцедуры
Процедура ОбновитьИсправленияИзСкрипта(НовыеИсправления, УдаляемыеИсправления) Экспорт
ОбновлениеКонфигурации.ОбновитьИсправленияИзСкрипта(НовыеИсправления, УдаляемыеИсправления);
КонецПроцедуры
#КонецОбласти #КонецОбласти
SSL/src/CommonModules/ОбщегоНазначенияСлужебныйКлиент/Module.bsl
+6 -4
View File
@@ -225,7 +225,7 @@
КонецЕсли; КонецЕсли;
// Расчет показателей. // Расчет показателей.
ПараметрыРасчета = ПараметрыРасчетаПоказателейЯчеек(ТабличныйДокумент); ПараметрыРасчета = ПараметрыРасчетаПоказателейЯчеек(Элементы[ИмяТабличногоДокумента]);
Если ПараметрыРасчета.РассчитатьНаСервере Тогда Если ПараметрыРасчета.РассчитатьНаСервере Тогда
РасчетныеПоказатели = СтандартныеПодсистемыВызовСервера.РасчетныеПоказателиЯчеек( РасчетныеПоказатели = СтандартныеПодсистемыВызовСервера.РасчетныеПоказателиЯчеек(
@@ -999,7 +999,7 @@
// Формирует описание выделенных областей табличного документа. // Формирует описание выделенных областей табличного документа.
// //
// Параметры: // Параметры:
// ТабличныйДокумент - ТабличныйДокумент - документ, значения ячеек которого участвуют в расчете. // ПолеДокумента - ПолеФормы, ПолеТабличногоДокумента - документ, значения ячеек которого участвуют в расчете.
// //
// Возвращаемое значение: // Возвращаемое значение:
// Структура - содержит: // Структура - содержит:
@@ -1011,14 +1011,16 @@
// * ТипОбласти - ТипОбластиЯчеекТабличногоДокумента - Колонки, Прямоугольник, Строки, Таблица. // * ТипОбласти - ТипОбластиЯчеекТабличногоДокумента - Колонки, Прямоугольник, Строки, Таблица.
// * РассчитатьНаСервере - Булево - признак того, что расчет должен выполняться на сервере. // * РассчитатьНаСервере - Булево - признак того, что расчет должен выполняться на сервере.
// //
Функция ПараметрыРасчетаПоказателейЯчеек(ТабличныйДокумент) Функция ПараметрыРасчетаПоказателейЯчеек(ПолеДокумента)
ПараметрыРасчетаПоказателей = Новый Структура; ПараметрыРасчетаПоказателей = Новый Структура;
ПараметрыРасчетаПоказателей.Вставить("ВыделенныеОбласти", Новый Массив); ПараметрыРасчетаПоказателей.Вставить("ВыделенныеОбласти", Новый Массив);
ПараметрыРасчетаПоказателей.Вставить("РассчитатьНаСервере", Ложь); ПараметрыРасчетаПоказателей.Вставить("РассчитатьНаСервере", Ложь);
ВыделенныеОбласти = ПараметрыРасчетаПоказателей.ВыделенныеОбласти; ВыделенныеОбласти = ПараметрыРасчетаПоказателей.ВыделенныеОбласти;
Для Каждого ВыделеннаяОбласть Из ТабличныйДокумент.ВыделенныеОбласти Цикл ВыделенныеОбластиДокумента = ПолеДокумента.ПолучитьВыделенныеОбласти();
Для Каждого ВыделеннаяОбласть Из ВыделенныеОбластиДокумента Цикл
Если ТипЗнч(ВыделеннаяОбласть) <> Тип("ОбластьЯчеекТабличногоДокумента") Тогда Если ТипЗнч(ВыделеннаяОбласть) <> Тип("ОбластьЯчеекТабличногоДокумента") Тогда
Продолжить; Продолжить;
SSL/src/CommonModules/ОбщегоНазначенияСлужебныйКлиентСервер/Module.bsl
-4
View File
@@ -97,10 +97,6 @@
#КонецОбласти #КонецОбласти
Если ВыделенныеОбласти = Неопределено Тогда
ВыделенныеОбласти = ТабличныйДокумент.ВыделенныеОбласти;
КонецЕсли;
ПроверенныеЯчейки = Новый Соответствие; ПроверенныеЯчейки = Новый Соответствие;
Для Каждого ВыделеннаяОбласть Из ВыделенныеОбласти Цикл Для Каждого ВыделеннаяОбласть Из ВыделенныеОбласти Цикл
SSL/src/CommonModules/ОтчетыСервер/Module.bsl
+45 -29
View File
@@ -2698,12 +2698,12 @@
// //
Функция СведенияОПользовательскихНастройках(Настройки) Функция СведенияОПользовательскихНастройках(Настройки)
Сведения = Новый Соответствие; Сведения = Новый Соответствие;
ПолучитьСведенияОГруппировке(Настройки, Сведения); ПолучитьСведенияОГруппировке(Настройки, Сведения, Настройки.ДополнительныеСвойства);
Возврат Сведения; Возврат Сведения;
КонецФункции КонецФункции
Процедура ПолучитьСведенияОГруппировке(Группировка, Сведения) Процедура ПолучитьСведенияОГруппировке(Группировка, Сведения, ДополнительныеСвойства)
ТипГруппировки = ТипЗнч(Группировка); ТипГруппировки = ТипЗнч(Группировка);
Если ТипГруппировки <> Тип("НастройкиКомпоновкиДанных") Если ТипГруппировки <> Тип("НастройкиКомпоновкиДанных")
И ТипГруппировки <> Тип("ГруппировкаКомпоновкиДанных") И ТипГруппировки <> Тип("ГруппировкаКомпоновкиДанных")
@@ -2722,10 +2722,10 @@
Сведения.Вставить(Группировка.ИдентификаторПользовательскойНастройки, ВидыСведений); Сведения.Вставить(Группировка.ИдентификаторПользовательскойНастройки, ВидыСведений);
КонецЕсли; КонецЕсли;
ПолучитьСведенияОСвойствахЭлементаНастроек(Группировка, Сведения); ПолучитьСведенияОСвойствахЭлементаНастроек(Группировка, Сведения, ДополнительныеСвойства);
КонецПроцедуры КонецПроцедуры
Процедура ПолучитьСведенияОТаблице(Таблица, Сведения) Процедура ПолучитьСведенияОТаблице(Таблица, Сведения, ДополнительныеСвойства)
Если ТипЗнч(Таблица) <> Тип("ТаблицаКомпоновкиДанных") Тогда Если ТипЗнч(Таблица) <> Тип("ТаблицаКомпоновкиДанных") Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
@@ -2738,12 +2738,12 @@
Сведения.Вставить(Таблица.ИдентификаторПользовательскойНастройки, ВидыСведений); Сведения.Вставить(Таблица.ИдентификаторПользовательскойНастройки, ВидыСведений);
КонецЕсли; КонецЕсли;
ПолучитьСведенияОСвойствахЭлементаНастроек(Таблица, Сведения); ПолучитьСведенияОСвойствахЭлементаНастроек(Таблица, Сведения, ДополнительныеСвойства);
ПолучитьСведенияОКоллекции(Таблица, Таблица.Строки, Сведения); ПолучитьСведенияОКоллекции(Таблица, Таблица.Строки, Сведения, ДополнительныеСвойства);
ПолучитьСведенияОКоллекции(Таблица, Таблица.Колонки, Сведения); ПолучитьСведенияОКоллекции(Таблица, Таблица.Колонки, Сведения, ДополнительныеСвойства);
КонецПроцедуры КонецПроцедуры
Процедура ПолучитьСведенияОДиаграмме(Диаграмма, Сведения) Процедура ПолучитьСведенияОДиаграмме(Диаграмма, Сведения, ДополнительныеСвойства)
Если ТипЗнч(Диаграмма) <> Тип("ДиаграммаКомпоновкиДанных") Тогда Если ТипЗнч(Диаграмма) <> Тип("ДиаграммаКомпоновкиДанных") Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
@@ -2756,12 +2756,12 @@
Сведения.Вставить(Диаграмма.ИдентификаторПользовательскойНастройки, ВидыСведений); Сведения.Вставить(Диаграмма.ИдентификаторПользовательскойНастройки, ВидыСведений);
КонецЕсли; КонецЕсли;
ПолучитьСведенияОСвойствахЭлементаНастроек(Диаграмма, Сведения); ПолучитьСведенияОСвойствахЭлементаНастроек(Диаграмма, Сведения, ДополнительныеСвойства);
ПолучитьСведенияОКоллекции(Диаграмма, Диаграмма.Серии, Сведения); ПолучитьСведенияОКоллекции(Диаграмма, Диаграмма.Серии, Сведения, ДополнительныеСвойства);
ПолучитьСведенияОКоллекции(Диаграмма, Диаграмма.Точки, Сведения); ПолучитьСведенияОКоллекции(Диаграмма, Диаграмма.Точки, Сведения, ДополнительныеСвойства);
КонецПроцедуры КонецПроцедуры
Процедура ПолучитьСведенияОКоллекции(ЭлементНастроек, Коллекция, Сведения) Процедура ПолучитьСведенияОКоллекции(ЭлементНастроек, Коллекция, Сведения, ДополнительныеСвойства)
ТипКоллекции = ТипЗнч(Коллекция); ТипКоллекции = ТипЗнч(Коллекция);
Если ТипКоллекции <> Тип("КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных") Если ТипКоллекции <> Тип("КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных")
И ТипКоллекции <> Тип("КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных") И ТипКоллекции <> Тип("КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных")
@@ -2791,29 +2791,33 @@
Настройки = Элемент.Настройки; Настройки = Элемент.Настройки;
КонецЕсли; КонецЕсли;
ПолучитьСведенияОГруппировке(Настройки, Сведения); ПолучитьСведенияОГруппировке(Настройки, Сведения, ДополнительныеСвойства);
ПолучитьСведенияОТаблице(Настройки, Сведения); ПолучитьСведенияОТаблице(Настройки, Сведения, ДополнительныеСвойства);
ПолучитьСведенияОДиаграмме(Настройки, Сведения); ПолучитьСведенияОДиаграмме(Настройки, Сведения, ДополнительныеСвойства);
КонецЦикла; КонецЦикла;
КонецПроцедуры КонецПроцедуры
Процедура ПолучитьСведенияОСвойствахЭлементаНастроек(ЭлементНастроек, Сведения) Процедура ПолучитьСведенияОСвойствахЭлементаНастроек(ЭлементНастроек, Сведения, ДополнительныеСвойства)
ИдентификаторыСвойств = СтрРазделить("Выбор, ПараметрыВывода, УсловноеОформление", ", ", Ложь); ИдентификаторыСвойств = ИдентификаторыСвойствНастроек(ДополнительныеСвойства);
ДополнительныеИдентификаторы = Новый Массив;
ДоступныеСвойства = Новый Структура("Выбор, Отбор, Порядок, УсловноеОформление, Структура"); ДоступныеСвойства = Новый Структура("Выбор, Отбор, Порядок, УсловноеОформление, Структура");
ТипЭлементаНастроек = ТипЗнч(ЭлементНастроек); ТипЭлементаНастроек = ТипЗнч(ЭлементНастроек);
Если ТипЭлементаНастроек <> Тип("ТаблицаКомпоновкиДанных") Если ТипЭлементаНастроек <> Тип("ТаблицаКомпоновкиДанных")
И ТипЭлементаНастроек <> Тип("ДиаграммаКомпоновкиДанных") Тогда И ТипЭлементаНастроек <> Тип("ДиаграммаКомпоновкиДанных") Тогда
ИдентификаторыСвойств.Добавить("Отбор"); ДополнительныеИдентификаторы.Добавить("Отбор");
ИдентификаторыСвойств.Добавить("Порядок"); ДополнительныеИдентификаторы.Добавить("Порядок");
ИдентификаторыСвойств.Добавить("Структура"); ДополнительныеИдентификаторы.Добавить("Структура");
Если ТипЭлементаНастроек = Тип("НастройкиКомпоновкиДанных") Тогда Если ТипЭлементаНастроек = Тип("НастройкиКомпоновкиДанных") Тогда
ИдентификаторыСвойств.Добавить("ПараметрыДанных"); ДополнительныеИдентификаторы.Добавить("ПараметрыДанных");
КонецЕсли; КонецЕсли;
КонецЕсли; КонецЕсли;
ОбщегоНазначенияКлиентСервер.ДополнитьМассив(ИдентификаторыСвойств, ДополнительныеИдентификаторы, Истина);
Для Каждого Идентификатор Из ИдентификаторыСвойств Цикл Для Каждого Идентификатор Из ИдентификаторыСвойств Цикл
Свойство = ЭлементНастроек[Идентификатор]; Свойство = ЭлементНастроек[Идентификатор];
@@ -2827,8 +2831,8 @@
Сведения.Вставить(Свойство.ИдентификаторПользовательскойНастройки, ВидыСведений); Сведения.Вставить(Свойство.ИдентификаторПользовательскойНастройки, ВидыСведений);
КонецЕсли; КонецЕсли;
ПолучитьСведенияОЭлементахСвойстваНастроек(ЭлементНастроек, Свойство, Идентификатор, Сведения); ПолучитьСведенияОЭлементахСвойстваНастроек(ЭлементНастроек, Свойство, Идентификатор, Сведения, ДополнительныеСвойства);
ПолучитьСведенияОКоллекции(ЭлементНастроек, Свойство, Сведения); ПолучитьСведенияОКоллекции(ЭлементНастроек, Свойство, Сведения, ДополнительныеСвойства);
КонецЦикла; КонецЦикла;
КонецПроцедуры КонецПроцедуры
@@ -2842,8 +2846,9 @@
// - УсловноеОформлениеКомпоновкиДанных - // - УсловноеОформлениеКомпоновкиДанных -
// ИдентификаторСвойства - Строка - // ИдентификаторСвойства - Строка -
// Сведения - Соответствие - см. ВидыСведений // Сведения - Соответствие - см. ВидыСведений
// ДополнительныеСвойства - Структура -
// //
Процедура ПолучитьСведенияОЭлементахСвойстваНастроек(Настройки, Свойство, ИдентификаторСвойства, Сведения) Процедура ПолучитьСведенияОЭлементахСвойстваНастроек(Настройки, Свойство, ИдентификаторСвойства, Сведения, ДополнительныеСвойства)
СвойстваСЭлементами = Новый Структура("Отбор, ПараметрыДанных, ПараметрыВывода, УсловноеОформление"); СвойстваСЭлементами = Новый Структура("Отбор, ПараметрыДанных, ПараметрыВывода, УсловноеОформление");
Если Не СвойстваСЭлементами.Свойство(ИдентификаторСвойства) Тогда Если Не СвойстваСЭлементами.Свойство(ИдентификаторСвойства) Тогда
Возврат; Возврат;
@@ -2879,16 +2884,17 @@
КонецЕсли; КонецЕсли;
Если ТипЭлемента = Тип("ГруппаЭлементовОтбораКомпоновкиДанных") Тогда Если ТипЭлемента = Тип("ГруппаЭлементовОтбораКомпоновкиДанных") Тогда
ПолучитьСведенияОЭлементахСвойстваНастроек(Настройки, Элемент, ИдентификаторСвойства, Сведения); ПолучитьСведенияОЭлементахСвойстваНастроек(
Настройки, Элемент, ИдентификаторСвойства, Сведения, ДополнительныеСвойства);
ИначеЕсли ТипЭлемента = Тип("ЗначениеПараметраКомпоновкиДанных") ИначеЕсли ТипЭлемента = Тип("ЗначениеПараметраКомпоновкиДанных")
Или ТипЭлемента = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда Или ТипЭлемента = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда
ПолучитьСведенияОЗначенияхВложенныхПараметров( ПолучитьСведенияОЗначенияхВложенныхПараметров(
Настройки, Элемент.ЗначенияВложенныхПараметров, ИдентификаторСвойства, Сведения); Настройки, Элемент.ЗначенияВложенныхПараметров, ИдентификаторСвойства, Сведения, ДополнительныеСвойства);
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
КонецПроцедуры КонецПроцедуры
Процедура ПолучитьСведенияОЗначенияхВложенныхПараметров(Настройки, ЗначенияПараметров, ИдентификаторСвойства, Сведения) Процедура ПолучитьСведенияОЗначенияхВложенныхПараметров(Настройки, ЗначенияПараметров, ИдентификаторСвойства, Сведения, ДополнительныеСвойства)
Для Каждого ЗначениеПараметра Из ЗначенияПараметров Цикл Для Каждого ЗначениеПараметра Из ЗначенияПараметров Цикл
Если ЗначениеЗаполнено(ЗначениеПараметра.ИдентификаторПользовательскойНастройки) Тогда Если ЗначениеЗаполнено(ЗначениеПараметра.ИдентификаторПользовательскойНастройки) Тогда
ВидыСведений = ВидыСведений(); ВидыСведений = ВидыСведений();
@@ -2901,10 +2907,21 @@
КонецЕсли; КонецЕсли;
ПолучитьСведенияОЗначенияхВложенныхПараметров( ПолучитьСведенияОЗначенияхВложенныхПараметров(
Настройки, ЗначениеПараметра.ЗначенияВложенныхПараметров, ИдентификаторСвойства, Сведения); Настройки, ЗначениеПараметра.ЗначенияВложенныхПараметров, ИдентификаторСвойства, Сведения, ДополнительныеСвойства);
КонецЦикла; КонецЦикла;
КонецПроцедуры КонецПроцедуры
Функция ИдентификаторыСвойствНастроек(ДополнительныеСвойства)
ИдентификаторыСвойствПоУмолчанию = СтрРазделить("Выбор, ПараметрыВывода, УсловноеОформление", ", ", Ложь);
ИдентификаторыСвойств = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(
ДополнительныеСвойства,
"ИдентификаторыСвойствНастроек",
ИдентификаторыСвойствПоУмолчанию);
Возврат ОбщегоНазначения.СкопироватьРекурсивно(ИдентификаторыСвойств);
КонецФункции
// Конструктор индекса свойств пользовательских настроек. // Конструктор индекса свойств пользовательских настроек.
// //
// Возвращаемое значение: // Возвращаемое значение:
@@ -2922,7 +2939,6 @@
// Перегруппировка элементов формы, связанных с пользовательскими настройками. // Перегруппировка элементов формы, связанных с пользовательскими настройками.
// Формирует коллекции имен реквизитов, сгруппированных по стилям: Период, Флажок, Список. // Формирует коллекции имен реквизитов, сгруппированных по стилям: Период, Флажок, Список.
// //
// Параметры: // Параметры:
SSL/src/CommonModules/РаботаСПочтовымиСообщениямиВызовСервера/Module.bsl
-10
View File
@@ -8,16 +8,6 @@
#Область СлужебныеПроцедурыИФункции #Область СлужебныеПроцедурыИФункции
// Проверка учетной записи электронной почты.
//
// См. описание процедуры РаботаСПочтовымиСообщениямиСлужебный.ПроверитьВозможностьОтправкиИПолученияЭлектроннойПочты.
//
Процедура ПроверитьВозможностьОтправкиИПолученияЭлектроннойПочты(УчетнаяЗапись, СообщениеОбОшибке, ДополнительноеСообщение) Экспорт
РаботаСПочтовымиСообщениямиСлужебный.ПроверитьВозможностьОтправкиИПолученияЭлектроннойПочты(УчетнаяЗапись, СообщениеОбОшибке, ДополнительноеСообщение);
КонецПроцедуры
// Возвращает Истина, если текущему пользователю доступна по меньшей мере одна учетная запись для отправки. // Возвращает Истина, если текущему пользователю доступна по меньшей мере одна учетная запись для отправки.
Функция ЕстьДоступныеУчетныеЗаписиДляОтправки() Экспорт Функция ЕстьДоступныеУчетныеЗаписиДляОтправки() Экспорт
Возврат РаботаСПочтовымиСообщениями.ДоступныеУчетныеЗаписи(Истина).Количество() > 0; Возврат РаботаСПочтовымиСообщениями.ДоступныеУчетныеЗаписи(Истина).Количество() > 0;
SSL/src/CommonModules/РаботаСПочтовымиСообщениямиКлиент/Module.bsl
+14 -38
View File
@@ -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"); Параметры = Новый Структура("УчетнаяЗапись", УчетнаяЗапись);
ОткрытьФорму("Справочник.УчетныеЗаписиЭлектроннойПочты.Форма.ПроверкаНастроекУчетнойЗаписи", Параметры);
КонецПроцедуры КонецФункции
#КонецОбласти #КонецОбласти
SSL/src/CommonModules/РаботаСПочтовымиСообщениямиСлужебный/Module.bsl
+10 -31
View File
@@ -388,6 +388,7 @@
ПочтовыеЯщики = Соединение.ПолучитьПочтовыеЯщики(); ПочтовыеЯщики = Соединение.ПолучитьПочтовыеЯщики();
Для Каждого ПочтовыйЯщик Из ПочтовыеЯщики Цикл Для Каждого ПочтовыйЯщик Из ПочтовыеЯщики Цикл
Если НРег(ПочтовыйЯщик) = "отправленные" Если НРег(ПочтовыйЯщик) = "отправленные"
Или НРег(ПочтовыйЯщик) = "inbox.sent"
Или НРег(ПочтовыйЯщик) = "sent" Тогда Или НРег(ПочтовыйЯщик) = "sent" Тогда
Соединение.ТекущийПочтовыйЯщик = ПочтовыйЯщик; Соединение.ТекущийПочтовыйЯщик = ПочтовыйЯщик;
@@ -684,11 +685,10 @@
ДополнительноеСообщение = ""; ДополнительноеСообщение = "";
Если НастройкиУчетнойЗаписи.ИспользоватьДляОтправки Тогда Если НастройкиУчетнойЗаписи.ИспользоватьДляОтправки Тогда
Попытка ТекстОшибки = Справочники.УчетныеЗаписиЭлектроннойПочты.ПроверитьВозможностьПодключенияКПочтовомуСерверу(УчетнаяЗапись, Ложь);
ПроверитьВозможностьПодключенияКПочтовомуСерверу(УчетнаяЗапись, Ложь); Если ЗначениеЗаполнено(ТекстОшибки) Тогда
Исключение СообщениеОбОшибке = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Не удалось подключиться к серверу SMTP: %1'") + Символы.ПС, ТекстОшибки);
СообщениеОбОшибке = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Не удалось подключиться к серверу SMTP: %1'"), КраткоеПредставлениеОшибки(ИнформацияОбОшибке())); КонецЕсли;
КонецПопытки;
Если Не НастройкиУчетнойЗаписи.ИспользоватьДляПолучения Тогда Если Не НастройкиУчетнойЗаписи.ИспользоватьДляПолучения Тогда
ДополнительноеСообщение = Символы.ПС + НСтр("ru = '(Выполнена проверка отправки электронных сообщений.)'"); ДополнительноеСообщение = Символы.ПС + НСтр("ru = '(Выполнена проверка отправки электронных сообщений.)'");
КонецЕсли; КонецЕсли;
@@ -697,16 +697,15 @@
Если НастройкиУчетнойЗаписи.ИспользоватьДляПолучения Если НастройкиУчетнойЗаписи.ИспользоватьДляПолучения
Или НастройкиУчетнойЗаписи.ИспользоватьДляОтправки И НастройкиУчетнойЗаписи.ПротоколВходящейПочты = "IMAP" Тогда Или НастройкиУчетнойЗаписи.ИспользоватьДляОтправки И НастройкиУчетнойЗаписи.ПротоколВходящейПочты = "IMAP" Тогда
Попытка ТекстОшибки = Справочники.УчетныеЗаписиЭлектроннойПочты.ПроверитьВозможностьПодключенияКПочтовомуСерверу(УчетнаяЗапись, Истина);
ПроверитьВозможностьПодключенияКПочтовомуСерверу(УчетнаяЗапись, Истина); Если ЗначениеЗаполнено(ТекстОшибки) Тогда
Исключение
Если ЗначениеЗаполнено(СообщениеОбОшибке) Тогда Если ЗначениеЗаполнено(СообщениеОбОшибке) Тогда
СообщениеОбОшибке = СообщениеОбОшибке + Символы.ПС; СообщениеОбОшибке = СообщениеОбОшибке + Символы.ПС;
КонецЕсли; КонецЕсли;
СообщениеОбОшибке = СообщениеОбОшибке + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Не удалось подключиться к серверу %1: %2'"), СообщениеОбОшибке = СообщениеОбОшибке + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Не удалось подключиться к серверу %1:
НастройкиУчетнойЗаписи.ПротоколВходящейПочты, КраткоеПредставлениеОшибки(ИнформацияОбОшибке())); |%2'"), НастройкиУчетнойЗаписи.ПротоколВходящейПочты, ТекстОшибки);
КонецПопытки; КонецЕсли;
Если Не НастройкиУчетнойЗаписи.ИспользоватьДляОтправки Тогда Если Не НастройкиУчетнойЗаписи.ИспользоватьДляОтправки Тогда
ДополнительноеСообщение = Символы.ПС + НСтр("ru = '(Выполнена проверка получения электронных сообщений.)'"); ДополнительноеСообщение = Символы.ПС + НСтр("ru = '(Выполнена проверка получения электронных сообщений.)'");
@@ -716,26 +715,6 @@
КонецПроцедуры КонецПроцедуры
Процедура ПроверитьВозможностьПодключенияКПочтовомуСерверу(Знач УчетнаяЗапись, ВходящаяПочта)
УстановитьОтключениеБезопасногоРежима(Истина);
Профиль = ИнтернетПочтовыйПрофиль(УчетнаяЗапись, ВходящаяПочта);
Соединение = Новый ИнтернетПочта;
Если ВходящаяПочта Тогда
Протокол = ПротоколИнтернетПочты.POP3;
Если ОбщегоНазначения.ЗначениеРеквизитаОбъекта(УчетнаяЗапись, "ПротоколВходящейПочты") = "IMAP" Тогда
Протокол = ПротоколИнтернетПочты.IMAP;
КонецЕсли;
Соединение.Подключиться(Профиль, Протокол);
Иначе
Соединение.Подключиться(Профиль);
КонецЕсли;
Соединение.Отключиться();
КонецПроцедуры
// Отключает все учетные записи. Используется при начальной настройке узла РИБ. // Отключает все учетные записи. Используется при начальной настройке узла РИБ.
Процедура ОтключитьИспользованиеУчетныхЗаписей() Процедура ОтключитьИспользованиеУчетныхЗаписей()
SSL/src/CommonModules/РаботаСФайламиВТомахСлужебный/Module.bsl
+33 -49
View File
@@ -955,68 +955,50 @@
ТипыФайлов = Метаданные.ОпределяемыеТипы.ПрисоединенныйФайл.Тип.Типы(); ТипыФайлов = Метаданные.ОпределяемыеТипы.ПрисоединенныйФайл.Тип.Типы();
Запрос = Новый Запрос; Запрос = Новый Запрос;
ДобавитьПсевдонимПоля = Истина; ПустойТекстЗапроса = Истина;
Для Каждого СправочникФайлов Из ТипыФайлов Цикл Для Каждого СправочникФайлов Из ТипыФайлов Цикл
МетаданныеСправочника = Метаданные.НайтиПоТипу(СправочникФайлов); МетаданныеСправочника = Метаданные.НайтиПоТипу(СправочникФайлов);
Если МетаданныеСправочника.Реквизиты.Найти("ВладелецФайла") <> Неопределено Тогда ЭтоСправочникВерсий = ОбщегоНазначения.ЕстьРеквизитОбъекта("РодительскаяВерсия", МетаданныеСправочника);
ЕстьВозможностьХранитьВерсии = ОбщегоНазначения.ЕстьРеквизитОбъекта("ТекущаяВерсия", МетаданныеСправочника); ФрагментЗапроса =
"ВЫБРАТЬ
Запрос.Текст = Запрос.Текст + ?(ПустаяСтрока(Запрос.Текст),"", " ОБЪЕДИНИТЬ ВСЕ") + " | СправочникПрисоединенныеФайлы.Ссылка,
| | СправочникПрисоединенныеФайлы.%1 " + ?(ПустойТекстЗапроса, "КАК ВладелецФайла","") + ",
|ВЫБРАТЬ | СправочникПрисоединенныеФайлы.Расширение,
| СправочникПрисоединенныеФайлы.Ссылка " + ?(ДобавитьПсевдонимПоля, "КАК Ссылка,",",") + " | СправочникПрисоединенныеФайлы.Наименование,
| СправочникПрисоединенныеФайлы.ВладелецФайла " + ?(ДобавитьПсевдонимПоля, "КАК ВладелецФайла,",",") + " | СправочникПрисоединенныеФайлы.Том,
| СправочникПрисоединенныеФайлы.Расширение " + ?(ДобавитьПсевдонимПоля, "КАК Расширение,",",") + " | СправочникПрисоединенныеФайлы.%2 " + ?(ПустойТекстЗапроса, "КАК Отредактировал","") + ",
| СправочникПрисоединенныеФайлы.Наименование " + ?(ДобавитьПсевдонимПоля, "КАК Наименование,",",") + " | СправочникПрисоединенныеФайлы.ДатаМодификацииУниверсальная " + ?(ПустойТекстЗапроса, "КАК ДатаМодификацииФайла","") + ",
| СправочникПрисоединенныеФайлы.Том " + ?(ДобавитьПсевдонимПоля, "КАК Том,",",") + " | СправочникПрисоединенныеФайлы.ПутьКФайлу,
| СправочникПрисоединенныеФайлы.Изменил " + ?(ДобавитьПсевдонимПоля, "КАК Отредактировал,",",") + " | СправочникПрисоединенныеФайлы.ПометкаУдаления
| СправочникПрисоединенныеФайлы.ДатаМодификацииУниверсальная " + ?(ДобавитьПсевдонимПоля, "КАК ДатаМодификацииФайла,",",") + "
| СправочникПрисоединенныеФайлы.ПутьКФайлу " + ?(ДобавитьПсевдонимПоля, "КАК ПутьКФайлу","") + "
|ИЗ |ИЗ
| Справочник." + МетаданныеСправочника.Имя + " КАК СправочникПрисоединенныеФайлы | Справочник." + МетаданныеСправочника.Имя + " КАК СправочникПрисоединенныеФайлы
|ГДЕ |ГДЕ
| СправочникПрисоединенныеФайлы.Том = &Том | СправочникПрисоединенныеФайлы.Том = &Том
| И СправочникПрисоединенныеФайлы.ТипХраненияФайла = ЗНАЧЕНИЕ(Перечисление.ТипыХраненияФайлов.ВТомахНаДиске) | И СправочникПрисоединенныеФайлы.ТипХраненияФайла = ЗНАЧЕНИЕ(Перечисление.ТипыХраненияФайлов.ВТомахНаДиске)";
| И НЕ СправочникПрисоединенныеФайлы.ПометкаУдаления";
Если ЕстьВозможностьХранитьВерсии Тогда ФрагментЗапроса = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ФрагментЗапроса,
СправочникВерсийФайлов = Метаданные.НайтиПоТипу(МетаданныеСправочника.Реквизиты.ТекущаяВерсия.Тип.Типы()[0]); ?(ЭтоСправочникВерсий, "Владелец.ВладелецФайла", "ВладелецФайла"),
Запрос.Текст = Запрос.Текст + " ?(ЭтоСправочникВерсий, "Автор", "Изменил"));
| И СправочникПрисоединенныеФайлы.ТекущаяВерсия = ЗНАЧЕНИЕ(Справочник." + СправочникВерсийФайлов.Имя + ".ПустаяСсылка)";
КонецЕсли;
Если ДобавитьПсевдонимПоля Тогда Если Не ЭтоСправочникВерсий
ДобавитьПсевдонимПоля = Ложь; И ОбщегоНазначения.ЕстьРеквизитОбъекта("ТекущаяВерсия", МетаданныеСправочника) Тогда
КонецЕсли;
ИначеЕсли МетаданныеСправочника.Реквизиты.Найти("РодительскаяВерсия") <> Неопределено Тогда СправочникВерсийФайлов = Метаданные.НайтиПоТипу(
МетаданныеСправочника.Реквизиты.ТекущаяВерсия.Тип.Типы()[0]);
Запрос.Текст = Запрос.Текст + ?(ПустаяСтрока(Запрос.Текст),"", " ОБЪЕДИНИТЬ ВСЕ") + " ФрагментЗапроса = ФрагментЗапроса + "
| | И СправочникПрисоединенныеФайлы.ТекущаяВерсия = ЗНАЧЕНИЕ(Справочник."
|ВЫБРАТЬ + СправочникВерсийФайлов.Имя + ".ПустаяСсылка)";
| СправочникПрисоединенныеФайлы.Ссылка " + ?(ДобавитьПсевдонимПоля, "КАК Ссылка,",",") + "
| СправочникПрисоединенныеФайлы.Владелец.ВладелецФайла " + ?(ДобавитьПсевдонимПоля, "КАК ВладелецФайла,",",") + "
| СправочникПрисоединенныеФайлы.Расширение " + ?(ДобавитьПсевдонимПоля, "КАК Расширение,",",") + "
| СправочникПрисоединенныеФайлы.Наименование " + ?(ДобавитьПсевдонимПоля, "КАК Наименование,",",") + "
| СправочникПрисоединенныеФайлы.Том " + ?(ДобавитьПсевдонимПоля, "КАК Том,",",") + "
| СправочникПрисоединенныеФайлы.Автор " + ?(ДобавитьПсевдонимПоля, "КАК Отредактировал,",",") + "
| СправочникПрисоединенныеФайлы.ДатаМодификацииУниверсальная " + ?(ДобавитьПсевдонимПоля, "КАК ДатаМодификацииФайла,",",") + "
| СправочникПрисоединенныеФайлы.ПутьКФайлу " + ?(ДобавитьПсевдонимПоля, "КАК ПутьКФайлу","") + "
|ИЗ
| Справочник." + МетаданныеСправочника.Имя + " КАК СправочникПрисоединенныеФайлы
|ГДЕ
| СправочникПрисоединенныеФайлы.Том = &Том
| И СправочникПрисоединенныеФайлы.ТипХраненияФайла = ЗНАЧЕНИЕ(Перечисление.ТипыХраненияФайлов.ВТомахНаДиске)
| И НЕ СправочникПрисоединенныеФайлы.ПометкаУдаления";
Если ДобавитьПсевдонимПоля Тогда
ДобавитьПсевдонимПоля = Ложь;
КонецЕсли;
КонецЕсли; КонецЕсли;
Запрос.Текст = Запрос.Текст + ?(ПустойТекстЗапроса,"", "
|ОБЪЕДИНИТЬ ВСЕ
|") + ФрагментЗапроса;
ПустойТекстЗапроса = Ложь;
КонецЦикла; КонецЦикла;
Запрос.УстановитьПараметр("Том", Том); Запрос.УстановитьПараметр("Том", Том);
@@ -1040,7 +1022,6 @@
Если СуществующийФайл.Количество() = 0 Тогда Если СуществующийФайл.Количество() = 0 Тогда
НесуществующийФайл = ТаблицаФайловНаДиске.Добавить(); НесуществующийФайл = ТаблицаФайловНаДиске.Добавить();
НесуществующийФайл.СтатусПроверки = НСтр("ru = 'Отсутствуют данные в томе на диске'");
НесуществующийФайл.Файл = ВерсияСсылка; НесуществующийФайл.Файл = ВерсияСсылка;
НесуществующийФайл.ПолноеИмя = ПолныйПутьФайла; НесуществующийФайл.ПолноеИмя = ПолныйПутьФайла;
НесуществующийФайл.Расширение = ВерсияСсылка.Расширение; НесуществующийФайл.Расширение = ВерсияСсылка.Расширение;
@@ -1049,6 +1030,9 @@
НесуществующийФайл.Отредактировал = Выборка.Отредактировал; НесуществующийФайл.Отредактировал = Выборка.Отредактировал;
НесуществующийФайл.ДатаРедактирования = Выборка.ДатаМодификацииФайла; НесуществующийФайл.ДатаРедактирования = Выборка.ДатаМодификацииФайла;
НесуществующийФайл.Количество = 1; НесуществующийФайл.Количество = 1;
НесуществующийФайл.СтатусПроверки = ?(Выборка.ПометкаУдаления,
НСтр("ru = 'Целостные данные'"),
НСтр("ru = 'Отсутствуют данные в томе на диске'"));
Иначе Иначе
SSL/src/CommonModules/РассылкаОтчетов/Module.bsl
+1 -1
View File
@@ -1464,7 +1464,7 @@
// //
Функция ВыполнитьДоставку(ПараметрыЖурнала, ПараметрыДоставки, Вложения) Экспорт Функция ВыполнитьДоставку(ПараметрыЖурнала, ПараметрыДоставки, Вложения) Экспорт
Результат = Ложь; Результат = Ложь;
ШаблонСообщенияОбОшибке = НСтр("ru = 'Ошибка доставки отчетов'"); ШаблонСообщенияОбОшибке = НСтр("ru = 'Отчеты не доставлены'");
РежимТестирования = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ПараметрыДоставки, "РежимТестирования", Ложь); РежимТестирования = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ПараметрыДоставки, "РежимТестирования", Ложь);
//////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////
SSL/src/CommonModules/УправлениеДоступомСлужебный/Module.bsl
+3 -1
View File
@@ -977,7 +977,7 @@
КонецЕсли; КонецЕсли;
Если ТипЗнч(СпискиДляОбновления[0]) = Тип("Строка") Тогда Если ТипЗнч(СпискиДляОбновления[0]) = Тип("Строка") Тогда
Идентификаторы = ОбщегоНазначения.ИдентификаторыОбъектовМетаданных(СпискиДляОбновления); Идентификаторы = ОбщегоНазначения.ИдентификаторыОбъектовМетаданных(СпискиДляОбновления, Списки <> Неопределено);
СпискиПоИдентификаторам = Новый Соответствие; СпискиПоИдентификаторам = Новый Соответствие;
Для Каждого ОписаниеИдентификатора Из Идентификаторы Цикл Для Каждого ОписаниеИдентификатора Из Идентификаторы Цикл
СпискиПоИдентификаторам.Вставить(ОписаниеИдентификатора.Значение, ОписаниеИдентификатора.Ключ); СпискиПоИдентификаторам.Вставить(ОписаниеИдентификатора.Значение, ОписаниеИдентификатора.Ключ);
@@ -14615,6 +14615,8 @@
Если ОбщегоНазначения.ИнформационнаяБазаФайловая() Тогда Если ОбщегоНазначения.ИнформационнаяБазаФайловая() Тогда
ЭлементБлокировки = Блокировка.Добавить("Справочник.НаборыГруппДоступа"); ЭлементБлокировки = Блокировка.Добавить("Справочник.НаборыГруппДоступа");
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый; ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.КлючиДоступаГруппДоступа");
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
КонецЕсли; КонецЕсли;
Выгрузка.Свернуть("КлючДоступа"); Выгрузка.Свернуть("КлючДоступа");
SSL/src/CommonModules/УправлениеКонтактнойИнформацией/Module.bsl
+171 -88
View File
@@ -1424,6 +1424,7 @@
МетаданныеОбъекта = СсылкаНаОбъект.Метаданные(); МетаданныеОбъекта = СсылкаНаОбъект.Метаданные();
ПолноеИмяОбъектаМетаданных = МетаданныеОбъекта.ПолноеИмя(); ПолноеИмяОбъектаМетаданных = МетаданныеОбъекта.ПолноеИмя();
ИмяОбъекта = МетаданныеОбъекта.Имя; ИмяОбъекта = МетаданныеОбъекта.Имя;
ЭтоОсновнойЯзык = ТекущийЯзык() = Метаданные.ОсновнойЯзык;
ГруппаВидовКонтактнойИнформации = ГруппаВидовКонтактнойИнформацииОбъекта(ПолноеИмяОбъектаМетаданных); ГруппаВидовКонтактнойИнформации = ГруппаВидовКонтактнойИнформацииОбъекта(ПолноеИмяОбъектаМетаданных);
ИспользуетсяКонтактнаяИнформация = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ГруппаВидовКонтактнойИнформации, "Используется"); ИспользуетсяКонтактнаяИнформация = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ГруппаВидовКонтактнойИнформации, "Используется");
@@ -1451,19 +1452,21 @@
| КонтактнаяИнформация.Представление КАК Представление, | КонтактнаяИнформация.Представление КАК Представление,
| КонтактнаяИнформация.НомерСтроки КАК НомерСтроки, | КонтактнаяИнформация.НомерСтроки КАК НомерСтроки,
| КонтактнаяИнформация.Вид КАК Вид, | КонтактнаяИнформация.Вид КАК Вид,
| ВидыКонтактнойИнформации.ХранитьИсториюИзменений КАК ХранитьИсториюИзменений, | ЕСТЬNULL(ВидыКонтактнойИнформации.ХранитьИсториюИзменений, ЛОЖЬ) КАК ХранитьИсториюИзменений,
| КонтактнаяИнформация.ЗначенияПолей, | КонтактнаяИнформация.ЗначенияПолей,
| КонтактнаяИнформация.Значение, | КонтактнаяИнформация.Значение,
| """" КАК ДействуетС, | """" КАК ДействуетС,
| 0 КАК ИдентификаторСтрокиТабличнойЧасти, | 0 КАК ИдентификаторСтрокиТабличнойЧасти,
| ЛОЖЬ КАК ЭтоИсторическаяКонтактнаяИнформация | ЛОЖЬ КАК ЭтоИсторическаяКонтактнаяИнформация
|ИЗ |ИЗ
| Справочник.ВидыКонтактнойИнформации КАК ВидыКонтактнойИнформации | &ПолноеИмяОбъектаМетаданных.КонтактнаяИнформация КАК КонтактнаяИнформация
| ЛЕВОЕ СОЕДИНЕНИЕ " + ПолноеИмяОбъектаМетаданных + ".КонтактнаяИнформация КАК КонтактнаяИнформация | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВидыКонтактнойИнформации КАК ВидыКонтактнойИнформации
| ПО (КонтактнаяИнформация.Вид = ВидыКонтактнойИнформации.Ссылка) | ПО (КонтактнаяИнформация.Вид = ВидыКонтактнойИнформации.Ссылка)
|ГДЕ |ГДЕ
| КонтактнаяИнформация.Ссылка = &Ссылка УПОРЯДОЧИТЬ ПО Вид, ДействуетС"; | КонтактнаяИнформация.Ссылка = &Ссылка УПОРЯДОЧИТЬ ПО Вид, ДействуетС";
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&ПолноеИмяОбъектаМетаданных", ПолноеИмяОбъектаМетаданных);
Если ЕстьКолонкаИдентификаторСтрокиТабличнойЧасти Тогда Если ЕстьКолонкаИдентификаторСтрокиТабличнойЧасти Тогда
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "0 КАК ИдентификаторСтрокиТабличнойЧасти", ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "0 КАК ИдентификаторСтрокиТабличнойЧасти",
"ЕСТЬNULL(КонтактнаяИнформация.ИдентификаторСтрокиТабличнойЧасти, 0) КАК ИдентификаторСтрокиТабличнойЧасти"); "ЕСТЬNULL(КонтактнаяИнформация.ИдентификаторСтрокиТабличнойЧасти, 0) КАК ИдентификаторСтрокиТабличнойЧасти");
@@ -1505,89 +1508,22 @@
ПредыдущийВид = СтрокаКонтактнойИнформации.Вид; ПредыдущийВид = СтрокаКонтактнойИнформации.Вид;
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
ТекстЗапросаИсторическаяИнформация = " КонтактнаяИнформация.ЭтоИсторическаяКонтактнаяИнформация КАК ЭтоИсторическаяКонтактнаяИнформация, ЕстьИсторическаяИнформация = Истина;
| КонтактнаяИнформация.ДействуетС КАК ДействуетС,";
Иначе Иначе
ТекстЗапросаИсторическаяИнформация = "ЛОЖЬ КАК ЭтоИсторическаяКонтактнаяИнформация,0 КАК ДействуетС, "; ЕстьИсторическаяИнформация = Ложь;
КонецЕсли; КонецЕсли;
ТекстЗапроса = " ВЫБРАТЬ ТекстЗапроса = СформироватьТекстЗапроса(ЕстьКолонкаИдентификаторСтрокиТабличнойЧасти, ЕстьИсторическаяИнформация, ЭтоОсновнойЯзык);
| КонтактнаяИнформация.Представление КАК Представление,
| КонтактнаяИнформация.Значение КАК Значение,
| КонтактнаяИнформация.ЗначенияПолей КАК ЗначенияПолей,
| КонтактнаяИнформация.НомерСтроки КАК НомерСтроки, " + ТекстЗапросаИсторическаяИнформация + "
| КонтактнаяИнформация.Вид КАК Вид,
| 0 КАК ИдентификаторСтрокиТабличнойЧасти
|ПОМЕСТИТЬ
| КонтактнаяИнформация
|ИЗ
| &ТаблицаКонтактнойИнформации КАК КонтактнаяИнформация
|ИНДЕКСИРОВАТЬ ПО
| Вид
|;////////////////////////////////////////////////////////////////////////////////
|
|ВЫБРАТЬ
| ВидыКонтактнойИнформации.Ссылка КАК Вид,
|ВЫБОР
| КОГДА ВидыКонтактнойИнформации.ИмяПредопределенногоВида <> """"
| ТОГДА ВидыКонтактнойИнформации.ИмяПредопределенногоВида
| ИНАЧЕ ВидыКонтактнойИнформации.ИмяПредопределенныхДанных
|КОНЕЦ КАК ИмяПредопределенногоВида,
| ВидыКонтактнойИнформации.Тип КАК Тип,
| ВидыКонтактнойИнформации.ОбязательноеЗаполнение КАК ОбязательноеЗаполнение,
| ВидыКонтактнойИнформации.ВидПоляДругое КАК ВидПоляДругое,
| ВЫБОР
| КОГДА &ЭтоОсновнойЯзык
| ТОГДА ВидыКонтактнойИнформации.Наименование
| ИНАЧЕ ВЫРАЗИТЬ(ЕСТЬNULL(ВидыКонтактнойИнформацииПредставления.Наименование, ВидыКонтактнойИнформации.Наименование) КАК СТРОКА(150))
| КОНЕЦ КАК Наименование,
| ВидыКонтактнойИнформации.ХранитьИсториюИзменений КАК ХранитьИсториюИзменений,
| ВидыКонтактнойИнформации.ВидРедактирования КАК ВидРедактирования,
| ВидыКонтактнойИнформации.ЭтоГруппа КАК ЭтоРеквизитТабличнойЧасти,
| ВидыКонтактнойИнформации.РеквизитДопУпорядочивания КАК РеквизитДопУпорядочивания,
| ВидыКонтактнойИнформации.МеждународныйФорматАдреса КАК МеждународныйФорматАдреса,
| ЕСТЬNULL(КонтактнаяИнформация.ЭтоИсторическаяКонтактнаяИнформация, ЛОЖЬ) КАК ЭтоИсторическаяКонтактнаяИнформация,
| ЕСТЬNULL(КонтактнаяИнформация.Представление, """") КАК Представление,
| ЕСТЬNULL(КонтактнаяИнформация.ЗначенияПолей, """") КАК ЗначенияПолей,
| ЕСТЬNULL(КонтактнаяИнформация.Значение, """") КАК Значение,
| ЕСТЬNULL(КонтактнаяИнформация.ДействуетС, 0) КАК ДействуетС,
| ЕСТЬNULL(КонтактнаяИнформация.НомерСтроки, 0) КАК НомерСтроки,
| 0 КАК ИдентификаторСтрокиТабличнойЧасти,
| ВЫРАЗИТЬ("""" КАК СТРОКА(200)) КАК ИмяРеквизита,
| ВидыКонтактнойИнформации.ПометкаУдаления КАК ПометкаУдаления,
| ВЫРАЗИТЬ("""" КАК СТРОКА) КАК Комментарий
|ИЗ
| Справочник.ВидыКонтактнойИнформации КАК ВидыКонтактнойИнформации
|ЛЕВОЕ СОЕДИНЕНИЕ
| КонтактнаяИнформация КАК КонтактнаяИнформация
|ПО
| ВидыКонтактнойИнформации.Ссылка = КонтактнаяИнформация.Вид
|ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВидыКонтактнойИнформации.Представления КАК ВидыКонтактнойИнформацииПредставления
|ПО ВидыКонтактнойИнформацииПредставления.Ссылка = ВидыКонтактнойИнформации.Ссылка
| И ВидыКонтактнойИнформацииПредставления.КодЯзыка = &КодЯзыка
|ГДЕ
| ВидыКонтактнойИнформации.Используется
| И ЕСТЬNULL(ВидыКонтактнойИнформации.Родитель.Используется, ИСТИНА)
| И (
| ВидыКонтактнойИнформации.Родитель = &ГруппаВидовКИ
| ИЛИ ВидыКонтактнойИнформации.Родитель.Родитель = &ГруппаВидовКИ)
| И ВидыКонтактнойИнформации.Ссылка НЕ В (&СкрываемыеВиды)
|УПОРЯДОЧИТЬ ПО
| ВидыКонтактнойИнформации.Ссылка ИЕРАРХИЯ
|";
Если ЕстьКолонкаИдентификаторСтрокиТабличнойЧасти Тогда
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "0 КАК ИдентификаторСтрокиТабличнойЧасти",
"ЕСТЬNULL(КонтактнаяИнформация.ИдентификаторСтрокиТабличнойЧасти, 0) КАК ИдентификаторСтрокиТабличнойЧасти");
КонецЕсли;
Запрос = Новый Запрос(ТекстЗапроса); Запрос = Новый Запрос(ТекстЗапроса);
Запрос.УстановитьПараметр("ТаблицаКонтактнойИнформации", КонтактнаяИнформация); Запрос.УстановитьПараметр("ТаблицаКонтактнойИнформации", КонтактнаяИнформация);
Запрос.УстановитьПараметр("ГруппаВидовКИ", ГруппаВидовКонтактнойИнформации); Запрос.УстановитьПараметр("ГруппаВидовКИ", ГруппаВидовКонтактнойИнформации);
Запрос.УстановитьПараметр("Владелец", СсылкаНаОбъект); Запрос.УстановитьПараметр("Владелец", СсылкаНаОбъект);
Запрос.УстановитьПараметр("СкрываемыеВиды", СкрываемыеВиды); Запрос.УстановитьПараметр("СкрываемыеВиды", СкрываемыеВиды);
Запрос.УстановитьПараметр("ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык); Если Не ЭтоОсновнойЯзык Тогда
Запрос.УстановитьПараметр("ЭтоОсновнойЯзык", ЭтоОсновнойЯзык);
Запрос.УстановитьПараметр("КодЯзыка", ТекущийЯзык().КодЯзыка); Запрос.УстановитьПараметр("КодЯзыка", ТекущийЯзык().КодЯзыка);
КонецЕсли;
УстановитьПривилегированныйРежим(Истина); УстановитьПривилегированныйРежим(Истина);
КонтактнаяИнформация = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией).Строки; КонтактнаяИнформация = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией).Строки;
@@ -1604,10 +1540,6 @@
ПараметрыКонтактнойИнформации.ПараметрыАдреса.ТипПомещения = ТипПомещения; ПараметрыКонтактнойИнформации.ПараметрыАдреса.ТипПомещения = ТипПомещения;
ПараметрыКонтактнойИнформации.ОбработкаНавигационнойСсылки = ОбработкаНавигационнойСсылки; ПараметрыКонтактнойИнформации.ОбработкаНавигационнойСсылки = ОбработкаНавигационнойСсылки;
// Кеш значений всех видов контактной информации у данного объекта.
ДанныеВидовКонтактнойИнформации = УправлениеКонтактнойИнформациейСлужебный.ДанныеВидовКонтактнойИнформации(
КонтактнаяИнформация.ВыгрузитьКолонку("Вид"));
Отбор = Новый Структура("Тип", Перечисления.ТипыКонтактнойИнформации.Адрес); Отбор = Новый Структура("Тип", Перечисления.ТипыКонтактнойИнформации.Адрес);
КоличествоАдресов = КонтактнаяИнформация.НайтиСтроки(Отбор).Количество(); КоличествоАдресов = КонтактнаяИнформация.НайтиСтроки(Отбор).Количество();
@@ -1617,8 +1549,10 @@
Для Каждого СтрокаКИ Из КонтактнаяИнформация Цикл Для Каждого СтрокаКИ Из КонтактнаяИнформация Цикл
ДанныеВидаКонтактнойИнформации = ОбщегоНазначения.СтрокаТаблицыЗначенийВСтруктуру(СтрокаКИ);
Если СтрокаКИ.ЭтоРеквизитТабличнойЧасти Тогда Если СтрокаКИ.ЭтоРеквизитТабличнойЧасти Тогда
СоздатьЭлементыТабличнойЧасти(Форма, ИмяОбъекта, ИмяЭлементаДляРазмещения, СтрокаКИ, ДанныеВидовКонтактнойИнформации); СоздатьЭлементыТабличнойЧасти(Форма, ИмяОбъекта, ИмяЭлементаДляРазмещения, СтрокаКИ, ДанныеВидаКонтактнойИнформации);
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
@@ -1632,7 +1566,7 @@
Если ОтложеннаяИнициализация Тогда Если ОтложеннаяИнициализация Тогда
ДобавитьРеквизитВОписание(Форма, СтрокаКИ, ДанныеВидовКонтактнойИнформации, ЭтоНовыйВидКИ,, ДобавитьРеквизитВОписание(Форма, СтрокаКИ, ДанныеВидаКонтактнойИнформации, ЭтоНовыйВидКИ,,
СтатическийЭлемент, ИмяЭлементаДляРазмещения); СтатическийЭлемент, ИмяЭлементаДляРазмещения);
Если СтатическийЭлемент Тогда Если СтатическийЭлемент Тогда
СозданныеЭлементы.Удалить(ИндексЭлемента); СозданныеЭлементы.Удалить(ИндексЭлемента);
@@ -1640,7 +1574,7 @@
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
ДобавитьРеквизитВОписание(Форма, СтрокаКИ, ДанныеВидовКонтактнойИнформации, ЭтоНовыйВидКИ,, ДобавитьРеквизитВОписание(Форма, СтрокаКИ, ДанныеВидаКонтактнойИнформации, ЭтоНовыйВидКИ,,
НЕ СтрокаКИ.ЭтоИсторическаяКонтактнаяИнформация, ИмяЭлементаДляРазмещения); НЕ СтрокаКИ.ЭтоИсторическаяКонтактнаяИнформация, ИмяЭлементаДляРазмещения);
Если СтатическийЭлемент Тогда Если СтатическийЭлемент Тогда
@@ -3791,7 +3725,7 @@
КонецПроцедуры КонецПроцедуры
Процедура ДобавитьРеквизитВОписание(Форма, СтрокаКонтактнойИнформации, ДанныеВидовКонтактнойИнформации, ЭтоНовыйВидКИ, Процедура ДобавитьРеквизитВОписание(Форма, СтрокаКонтактнойИнформации, ДанныеВидаКонтактнойИнформации, ЭтоНовыйВидКИ,
ЭтоРеквизитТабличнойЧасти = Ложь, ЗаполнятьЗначениеРеквизита = Истина, ИмяЭлементаДляРазмещения = "ГруппаКонтактнаяИнформация") ЭтоРеквизитТабличнойЧасти = Ложь, ЗаполнятьЗначениеРеквизита = Истина, ИмяЭлементаДляРазмещения = "ГруппаКонтактнаяИнформация")
ТаблицаОписанияДополнительныхРеквизитов = Форма.КонтактнаяИнформацияОписаниеДополнительныхРеквизитов; // ТаблицаЗначений ТаблицаОписанияДополнительныхРеквизитов = Форма.КонтактнаяИнформацияОписаниеДополнительныхРеквизитов; // ТаблицаЗначений
@@ -3833,7 +3767,6 @@
КонецЕсли; КонецЕсли;
ДанныеВидаКонтактнойИнформации = ДанныеВидовКонтактнойИнформации[СтрокаКонтактнойИнформации.Вид];
ДанныеВидаКонтактнойИнформации.Вставить("Ссылка", СтрокаКонтактнойИнформации.Вид); ДанныеВидаКонтактнойИнформации.Вставить("Ссылка", СтрокаКонтактнойИнформации.Вид);
Если ЭтоНовыйВидКИ И ДанныеВидаКонтактнойИнформации.РазрешитьВводНесколькихЗначений И Не ЭтоРеквизитТабличнойЧасти И Не ДанныеВидаКонтактнойИнформации.ПометкаУдаления Тогда Если ЭтоНовыйВидКИ И ДанныеВидаКонтактнойИнформации.РазрешитьВводНесколькихЗначений И Не ЭтоРеквизитТабличнойЧасти И Не ДанныеВидаКонтактнойИнформации.ПометкаУдаления Тогда
@@ -4016,7 +3949,7 @@
КонецПроцедуры КонецПроцедуры
Процедура СоздатьЭлементыТабличнойЧасти(Знач Форма, Знач ИмяОбъекта, ИмяЭлементаДляРазмещения, Процедура СоздатьЭлементыТабличнойЧасти(Знач Форма, Знач ИмяОбъекта, ИмяЭлементаДляРазмещения,
Знач СтрокаКонтактнойИнформации, Знач ДанныеВидовКонтактнойИнформации) Знач СтрокаКонтактнойИнформации, Знач ДанныеВидаКонтактнойИнформации)
ВидыКонтактнойИнформацииТЧ = Новый Массив; ВидыКонтактнойИнформацииТЧ = Новый Массив;
Для Каждого СтрокаТабличнойЧасти Из СтрокаКонтактнойИнформации.Строки Цикл Для Каждого СтрокаТабличнойЧасти Из СтрокаКонтактнойИнформации.Строки Цикл
@@ -4025,9 +3958,9 @@
ДанныеВидовКонтактнойИнформацииТЧ = УправлениеКонтактнойИнформациейСлужебный.ДанныеВидовКонтактнойИнформации( ДанныеВидовКонтактнойИнформацииТЧ = УправлениеКонтактнойИнформациейСлужебный.ДанныеВидовКонтактнойИнформации(
ВидыКонтактнойИнформацииТЧ); ВидыКонтактнойИнформацииТЧ);
ИмяВидаКонтактнойИнформации = ДанныеВидовКонтактнойИнформации[СтрокаКонтактнойИнформации.Вид].ИмяПредопределенногоВида; ИмяВидаКонтактнойИнформации = ДанныеВидаКонтактнойИнформации.ИмяПредопределенногоВида;
Если ПустаяСтрока(ИмяВидаКонтактнойИнформации) Тогда Если ПустаяСтрока(ИмяВидаКонтактнойИнформации) Тогда
ИмяВидаКонтактнойИнформации = ДанныеВидовКонтактнойИнформации[СтрокаКонтактнойИнформации.Вид].ИмяПредопределенныхДанных; ИмяВидаКонтактнойИнформации = ДанныеВидаКонтактнойИнформации.ИмяПредопределенныхДанных;
КонецЕсли; КонецЕсли;
Позиция = СтрНайти(ИмяВидаКонтактнойИнформации, ИмяОбъекта); Позиция = СтрНайти(ИмяВидаКонтактнойИнформации, ИмяОбъекта);
ИмяТабличнойЧасти = Сред(ИмяВидаКонтактнойИнформации, Позиция + СтрДлина(ИмяОбъекта)); ИмяТабличнойЧасти = Сред(ИмяВидаКонтактнойИнформации, Позиция + СтрДлина(ИмяОбъекта));
@@ -5277,4 +5210,154 @@
Возврат Результат Возврат Результат
КонецФункции КонецФункции
Функция СформироватьТекстЗапроса(Знач ЕстьКолонкаИдентификаторСтрокиТабличнойЧасти, Знач ТекстЗапросаИсторическаяИнформация, Знач ЭтоОсновнойЯзык)
Если ЭтоОсновнойЯзык Тогда
ТекстЗапроса = "ВЫБРАТЬ
| КонтактнаяИнформация.Представление КАК Представление,
| КонтактнаяИнформация.Значение КАК Значение,
| КонтактнаяИнформация.ЗначенияПолей КАК ЗначенияПолей,
| КонтактнаяИнформация.НомерСтроки КАК НомерСтроки,
| &ДействуетС КАК ДействуетС,
| &ЭтоИсторическаяКонтактнаяИнформация КАК ЭтоИсторическаяКонтактнаяИнформация,
| КонтактнаяИнформация.Вид КАК Вид,
| &ИдентификаторСтрокиТабличнойЧасти КАК ИдентификаторСтрокиТабличнойЧасти
|ПОМЕСТИТЬ
| КонтактнаяИнформация
|ИЗ
| &ТаблицаКонтактнойИнформации КАК КонтактнаяИнформация
|ИНДЕКСИРОВАТЬ ПО
| Вид
|;////////////////////////////////////////////////////////////////////////////////
|
|ВЫБРАТЬ
| ВидыКонтактнойИнформации.Ссылка КАК Вид,
|ВЫБОР
| КОГДА ВидыКонтактнойИнформации.ИмяПредопределенногоВида <> """"
| ТОГДА ВидыКонтактнойИнформации.ИмяПредопределенногоВида
| ИНАЧЕ ВидыКонтактнойИнформации.ИмяПредопределенныхДанных
|КОНЕЦ КАК ИмяПредопределенногоВида,
| ВидыКонтактнойИнформации.ИмяПредопределенныхДанных КАК ИмяПредопределенныхДанных,
| ВидыКонтактнойИнформации.Тип КАК Тип,
| ВидыКонтактнойИнформации.ОбязательноеЗаполнение КАК ОбязательноеЗаполнение,
| ВидыКонтактнойИнформации.ВидПоляДругое КАК ВидПоляДругое,
| ВидыКонтактнойИнформации.РазрешитьВводНесколькихЗначений КАК РазрешитьВводНесколькихЗначений,
| ВидыКонтактнойИнформации.Наименование КАК Наименование,
| ВидыКонтактнойИнформации.ХранитьИсториюИзменений КАК ХранитьИсториюИзменений,
| ВидыКонтактнойИнформации.ВидРедактирования КАК ВидРедактирования,
| ВидыКонтактнойИнформации.ЭтоГруппа КАК ЭтоРеквизитТабличнойЧасти,
| ВидыКонтактнойИнформации.РеквизитДопУпорядочивания КАК РеквизитДопУпорядочивания,
| ВидыКонтактнойИнформации.МеждународныйФорматАдреса КАК МеждународныйФорматАдреса,
| ЕСТЬNULL(КонтактнаяИнформация.ЭтоИсторическаяКонтактнаяИнформация, ЛОЖЬ) КАК ЭтоИсторическаяКонтактнаяИнформация,
| ЕСТЬNULL(КонтактнаяИнформация.Представление, """") КАК Представление,
| ЕСТЬNULL(КонтактнаяИнформация.ЗначенияПолей, """") КАК ЗначенияПолей,
| ЕСТЬNULL(КонтактнаяИнформация.Значение, """") КАК Значение,
| ЕСТЬNULL(КонтактнаяИнформация.ДействуетС, 0) КАК ДействуетС,
| ЕСТЬNULL(КонтактнаяИнформация.НомерСтроки, 0) КАК НомерСтроки,
| 0 КАК ИдентификаторСтрокиТабличнойЧасти,
| ВЫРАЗИТЬ("""" КАК СТРОКА(200)) КАК ИмяРеквизита,
| ВидыКонтактнойИнформации.ПометкаУдаления КАК ПометкаУдаления,
| ВЫРАЗИТЬ("""" КАК СТРОКА) КАК Комментарий
|ИЗ
| Справочник.ВидыКонтактнойИнформации КАК ВидыКонтактнойИнформации
|ЛЕВОЕ СОЕДИНЕНИЕ
| КонтактнаяИнформация КАК КонтактнаяИнформация
|ПО
| ВидыКонтактнойИнформации.Ссылка = КонтактнаяИнформация.Вид
|ГДЕ
| ВидыКонтактнойИнформации.Используется
| И ЕСТЬNULL(ВидыКонтактнойИнформации.Родитель.Используется, ИСТИНА)
| И (
| ВидыКонтактнойИнформации.Родитель = &ГруппаВидовКИ
| ИЛИ ВидыКонтактнойИнформации.Родитель.Родитель = &ГруппаВидовКИ)
| И ВидыКонтактнойИнформации.Ссылка НЕ В (&СкрываемыеВиды)
|УПОРЯДОЧИТЬ ПО
| ВидыКонтактнойИнформации.Ссылка ИЕРАРХИЯ
|";
Иначе
ТекстЗапроса = "ВЫБРАТЬ
| КонтактнаяИнформация.Представление КАК Представление,
| КонтактнаяИнформация.Значение КАК Значение,
| КонтактнаяИнформация.ЗначенияПолей КАК ЗначенияПолей,
| КонтактнаяИнформация.НомерСтроки КАК НомерСтроки,
| &ДействуетС КАК ДействуетС,
| &ЭтоИсторическаяКонтактнаяИнформация КАК ЭтоИсторическаяКонтактнаяИнформация,
| КонтактнаяИнформация.Вид КАК Вид,
| &ИдентификаторСтрокиТабличнойЧасти КАК ИдентификаторСтрокиТабличнойЧасти
|ПОМЕСТИТЬ
| КонтактнаяИнформация
|ИЗ
| &ТаблицаКонтактнойИнформации КАК КонтактнаяИнформация
|ИНДЕКСИРОВАТЬ ПО
| Вид
|;////////////////////////////////////////////////////////////////////////////////
|
|ВЫБРАТЬ
| ВидыКонтактнойИнформации.Ссылка КАК Вид,
|ВЫБОР
| КОГДА ВидыКонтактнойИнформации.ИмяПредопределенногоВида <> """"
| ТОГДА ВидыКонтактнойИнформации.ИмяПредопределенногоВида
| ИНАЧЕ ВидыКонтактнойИнформации.ИмяПредопределенныхДанных
|КОНЕЦ КАК ИмяПредопределенногоВида,
| ВидыКонтактнойИнформации.ИмяПредопределенныхДанных КАК ИмяПредопределенныхДанных,
| ВидыКонтактнойИнформации.Тип КАК Тип,
| ВидыКонтактнойИнформации.ОбязательноеЗаполнение КАК ОбязательноеЗаполнение,
| ВидыКонтактнойИнформации.ВидПоляДругое КАК ВидПоляДругое,
| ВидыКонтактнойИнформации.РазрешитьВводНесколькихЗначений КАК РазрешитьВводНесколькихЗначений,
| ВЫРАЗИТЬ(ЕСТЬNULL(ВидыКонтактнойИнформацииПредставления.Наименование, ВидыКонтактнойИнформации.Наименование) КАК СТРОКА(150)) КАК Наименование,
| ВидыКонтактнойИнформации.ХранитьИсториюИзменений КАК ХранитьИсториюИзменений,
| ВидыКонтактнойИнформации.ВидРедактирования КАК ВидРедактирования,
| ВидыКонтактнойИнформации.ЭтоГруппа КАК ЭтоРеквизитТабличнойЧасти,
| ВидыКонтактнойИнформации.РеквизитДопУпорядочивания КАК РеквизитДопУпорядочивания,
| ВидыКонтактнойИнформации.МеждународныйФорматАдреса КАК МеждународныйФорматАдреса,
| ЕСТЬNULL(КонтактнаяИнформация.ЭтоИсторическаяКонтактнаяИнформация, ЛОЖЬ) КАК ЭтоИсторическаяКонтактнаяИнформация,
| ЕСТЬNULL(КонтактнаяИнформация.Представление, """") КАК Представление,
| ЕСТЬNULL(КонтактнаяИнформация.ЗначенияПолей, """") КАК ЗначенияПолей,
| ЕСТЬNULL(КонтактнаяИнформация.Значение, """") КАК Значение,
| ЕСТЬNULL(КонтактнаяИнформация.ДействуетС, 0) КАК ДействуетС,
| ЕСТЬNULL(КонтактнаяИнформация.НомерСтроки, 0) КАК НомерСтроки,
| 0 КАК ИдентификаторСтрокиТабличнойЧасти,
| ВЫРАЗИТЬ("""" КАК СТРОКА(200)) КАК ИмяРеквизита,
| ВидыКонтактнойИнформации.ПометкаУдаления КАК ПометкаУдаления,
| ВЫРАЗИТЬ("""" КАК СТРОКА) КАК Комментарий
|ИЗ
| Справочник.ВидыКонтактнойИнформации КАК ВидыКонтактнойИнформации
|ЛЕВОЕ СОЕДИНЕНИЕ
| КонтактнаяИнформация КАК КонтактнаяИнформация
|ПО
| ВидыКонтактнойИнформации.Ссылка = КонтактнаяИнформация.Вид
|ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВидыКонтактнойИнформации.Представления КАК ВидыКонтактнойИнформацииПредставления
|ПО ВидыКонтактнойИнформацииПредставления.Ссылка = ВидыКонтактнойИнформации.Ссылка
| И ВидыКонтактнойИнформацииПредставления.КодЯзыка = &КодЯзыка
|ГДЕ
| ВидыКонтактнойИнформации.Используется
| И ЕСТЬNULL(ВидыКонтактнойИнформации.Родитель.Используется, ИСТИНА)
| И (
| ВидыКонтактнойИнформации.Родитель = &ГруппаВидовКИ
| ИЛИ ВидыКонтактнойИнформации.Родитель.Родитель = &ГруппаВидовКИ)
| И ВидыКонтактнойИнформации.Ссылка НЕ В (&СкрываемыеВиды)
|УПОРЯДОЧИТЬ ПО
| ВидыКонтактнойИнформации.Ссылка ИЕРАРХИЯ
|";
КонецЕсли;
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&ИдентификаторСтрокиТабличнойЧасти",
?(ЕстьКолонкаИдентификаторСтрокиТабличнойЧасти,
"ЕСТЬNULL(КонтактнаяИнформация.ИдентификаторСтрокиТабличнойЧасти, 0)",
"0"));
Если ТекстЗапросаИсторическаяИнформация Тогда
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&ДействуетС", "КонтактнаяИнформация.ДействуетС");
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&ЭтоИсторическаяКонтактнаяИнформация", "КонтактнаяИнформация.ЭтоИсторическаяКонтактнаяИнформация");
Иначе
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&ДействуетС", "0");
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&ЭтоИсторическаяКонтактнаяИнформация", "ЛОЖЬ");
КонецЕсли;
Возврат ТекстЗапроса;
КонецФункции
#КонецОбласти #КонецОбласти
SSL/src/CommonModules/УправлениеСвойствамиСлужебный/Module.bsl
+5 -2
View File
@@ -388,7 +388,10 @@
Зависимости = ОбщегоНазначения.ЗначенияРеквизитовОбъектов(Реквизиты, "ЗависимостиДополнительныхРеквизитов"); Зависимости = ОбщегоНазначения.ЗначенияРеквизитовОбъектов(Реквизиты, "ЗависимостиДополнительныхРеквизитов");
Для Каждого Элемент Из Зависимости Цикл Для Каждого Элемент Из Зависимости Цикл
ТаблицаЗависимостей = Элемент.Значение.ЗависимостиДополнительныхРеквизитов.Выгрузить(); ТаблицаЗависимостей = Элемент.Значение.ЗависимостиДополнительныхРеквизитов.Выгрузить();
Если ТаблицаЗависимостей.Количество() = 0 Тогда Отбор = Новый Структура;
Отбор.Вставить("ЗависимоеСвойство", "ЗаполнятьОбязательно");
ЗависимостиОбязательностиЗаполнения = ТаблицаЗависимостей.НайтиСтроки(Отбор);
Если ЗависимостиОбязательностиЗаполнения.Количество() = 0 Тогда
Текст = НСтр("ru = 'Реквизит ""%1"" не заполнен.'"); Текст = НСтр("ru = 'Реквизит ""%1"" не заполнен.'");
Текст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Текст, Элемент.Ключ); Текст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Текст, Элемент.Ключ);
Сообщения.Добавить(Текст); Сообщения.Добавить(Текст);
@@ -409,7 +412,7 @@
ОписаниеЗависимогоРеквизита = Новый Структура; ОписаниеЗависимогоРеквизита = Новый Структура;
ОписаниеЗависимогоРеквизита.Вставить("УсловиеОбязательностиЗаполнения", Неопределено); ОписаниеЗависимогоРеквизита.Вставить("УсловиеОбязательностиЗаполнения", Неопределено);
Для Каждого СтрокаЗависимостей Из ТаблицаЗависимостей Цикл Для Каждого СтрокаЗависимостей Из ЗависимостиОбязательностиЗаполнения Цикл
Если ТипЗнч(СтрокаЗависимостей.Реквизит) = Тип("Строка") Тогда Если ТипЗнч(СтрокаЗависимостей.Реквизит) = Тип("Строка") Тогда
ПутьКРеквизиту = "Параметры.ОписаниеОбъекта." + СтрокаЗависимостей.Реквизит; ПутьКРеквизиту = "Параметры.ОписаниеОбъекта." + СтрокаЗависимостей.Реквизит;
Иначе Иначе
SSL/src/CommonModules/УправлениеЭлектроннойПочтой/Module.bsl
+3 -1
View File
@@ -411,7 +411,9 @@
Если Результат.ПротоколПодключения = ПротоколИнтернетПочты.IMAP Тогда Если Результат.ПротоколПодключения = ПротоколИнтернетПочты.IMAP Тогда
ПочтовыеЯщики = Результат.Соединение.ПолучитьПочтовыеЯщики(); ПочтовыеЯщики = Результат.Соединение.ПолучитьПочтовыеЯщики();
Для Каждого ПочтовыйЯщик Из ПочтовыеЯщики Цикл Для Каждого ПочтовыйЯщик Из ПочтовыеЯщики Цикл
Если НРег(ПочтовыйЯщик) = "отправленные" Или НРег(ПочтовыйЯщик) = "sent" Тогда Если НРег(ПочтовыйЯщик) = "отправленные"
Или НРег(ПочтовыйЯщик) = "inbox.sent"
Или НРег(ПочтовыйЯщик) = "sent" Тогда
Результат.Соединение.ТекущийПочтовыйЯщик = ПочтовыйЯщик; Результат.Соединение.ТекущийПочтовыйЯщик = ПочтовыйЯщик;
Прервать; Прервать;
КонецЕсли; КонецЕсли;
SSL/src/CommonModules/ЦентрМониторингаСлужебный/Module.bsl
+2 -2
View File
@@ -2220,10 +2220,10 @@
КонецЕсли; КонецЕсли;
ЧтениеXML.Закрыть(); ЧтениеXML.Закрыть();
Если СтрНайти(КаталогДампов.Путь, "80af5716-b134-4b1c-a38d-4658d1ac4196") > 0 Тогда
Если ПараметрыДампов.type <> ТипДампа Тогда Если ПараметрыДампов.type <> ТипДампа Тогда
СоздатьСекциюСбораДампов(Файл, ЧтениеXML, КаталогДампов, ТипДампа); СоздатьСекциюСбораДампов(Файл, ЧтениеXML, КаталогДампов, ТипДампа);
ИначеЕсли СтрНайти(КаталогДампов.Путь, "80af5716-b134-4b1c-a38d-4658d1ac4196") > 0 Тогда ИначеЕсли НЕ ПараметрыДампов.Свойство("externaldump") Тогда
Если НЕ ПараметрыДампов.Свойство("externaldump") Тогда
СоздатьСекциюСбораДампов(Файл, ЧтениеXML, КаталогДампов, ТипДампа); СоздатьСекциюСбораДампов(Файл, ЧтениеXML, КаталогДампов, ТипДампа);
ИначеЕсли ПараметрыДампов.externaldump <> "1" Тогда ИначеЕсли ПараметрыДампов.externaldump <> "1" Тогда
СоздатьСекциюСбораДампов(Файл, ЧтениеXML, КаталогДампов, ТипДампа); СоздатьСекциюСбораДампов(Файл, ЧтениеXML, КаталогДампов, ТипДампа);
SSL/src/Configuration/Configuration.mdo
+9 -9
View File
@@ -1,17 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<mdclass:Configuration xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="6e6595ed-612d-48a8-b4a1-1bbb8c8d68fc"> <mdclass:Configuration xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="11a30762-d54f-4522-8289-99086caa109b">
<name>БиблиотекаСтандартныхПодсистем</name> <name>БиблиотекаСтандартныхПодсистем</name>
<synonym> <synonym>
<key>ru</key> <key>ru</key>
<value>Библиотека стандартных подсистем, редакция 3.1</value> <value>Библиотека стандартных подсистем, редакция 3.1</value>
</synonym> </synonym>
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="393f8c5e-18eb-4c4d-8d82-19316328bb76"/> <containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="04a34bab-27ba-4e81-a799-ea37f627b66c"/>
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="263ad628-29a6-4af7-b22f-4addf8ba1a0e"/> <containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="406703a4-f35f-49fe-8115-05447d47fe43"/>
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="0fddf735-d497-4e4b-a761-4560fd16b855"/> <containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="843e1333-0afc-452a-85bb-4bfe34e59cbe"/>
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="53e3b31a-36c1-4dc4-83f5-60d9a04801c4"/> <containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="ca5b9b14-7f09-4a97-bc90-727d13db1fc9"/>
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="59175047-ffd6-498a-9a8d-e5f5a76d0b52"/> <containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="a93bf13a-a6eb-4e81-b52b-ce51a2cd401e"/>
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="f0f67aec-1f20-4a9e-b402-c2234b7f6f58"/> <containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="3e2c5b26-a84c-4864-801f-daeab23892f1"/>
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="78c641c4-6e50-45db-aa6a-6a1b9edd0573"/> <containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="73a7adab-b47f-445b-8836-232b7b7befc0"/>
<defaultRunMode>ManagedApplication</defaultRunMode> <defaultRunMode>ManagedApplication</defaultRunMode>
<usePurposes>PersonalComputer</usePurposes> <usePurposes>PersonalComputer</usePurposes>
<scriptVariant>Russian</scriptVariant> <scriptVariant>Russian</scriptVariant>
@@ -19,7 +19,7 @@
<defaultRoles>Role.АдминистраторСистемы</defaultRoles> <defaultRoles>Role.АдминистраторСистемы</defaultRoles>
<defaultRoles>Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</defaultRoles> <defaultRoles>Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</defaultRoles>
<vendor>Фирма &quot;1С&quot;</vendor> <vendor>Фирма &quot;1С&quot;</vendor>
<version>3.1.2.217</version> <version>3.1.2.223</version>
<updateCatalogAddress>http://downloads.v8.1c.ru/tmplts/</updateCatalogAddress> <updateCatalogAddress>http://downloads.v8.1c.ru/tmplts/</updateCatalogAddress>
<includeHelpInContents>true</includeHelpInContents> <includeHelpInContents>true</includeHelpInContents>
<usedMobileApplicationFunctionalities> <usedMobileApplicationFunctionalities>
SSL/src/Configuration/ParentConfigurations.bin
+1 -1
View File
@@ -1 +1 @@
{6,1,1,cf9f4d4a-b574-49c3-9f6e-b0adb1142f59,1,ab760954-9a53-471e-b767-7e1faea07204,"3.1.2.217","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",5910,1,0,6e6595ed-612d-48a8-b4a1-1bbb8c8d68fc,6e6595ed-612d-48a8-b4a1-1bbb8c8d68fc,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,e8b248d9-9049-456a-9c7d-7a0462cc67ab,e8b248d9-9049-456a-9c7d-7a0462cc67ab,1,0,d4562287-440d-4462-9de2-7097ccbf3764,d4562287-440d-4462-9de2-7097ccbf3764,1,0,1983fe34-c984-4659-ba41-0e94504f8989,1983fe34-c984-4659-ba41-0e94504f8989,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,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,4009cb3a-6754-481f-911b-907558cea38a,4009cb3a-6754-481f-911b-907558cea38a,1,0,653a7fd8-91c7-49aa-aa63-45da087e0d0a,653a7fd8-91c7-49aa-aa63-45da087e0d0a,1,0,d7cf3981-cf63-4a21-868b-8175a7704a8f,d7cf3981-cf63-4a21-868b-8175a7704a8f,1,0,0ae93712-74e8-41c7-8f2d-4dfc8983697d,0ae93712-74e8-41c7-8f2d-4dfc8983697d,1,0,9e4dfdfa-ec05-4c9e-89bd-fc24f60f2678,9e4dfdfa-ec05-4c9e-89bd-fc24f60f2678,1,0,64f548c8-c1fc-434e-b3ee-5be367ead1db,64f548c8-c1fc-434e-b3ee-5be367ead1db,1,0,cd592a5d-b184-4558-8a28-7079ccf28b89,cd592a5d-b184-4558-8a28-7079ccf28b89,1,0,2009c673-c1a5-45fc-8da2-a36c435085a6,2009c673-c1a5Line truncated {6,1,1,f3088d9d-f4c0-4e71-b504-e5adb72786f8,1,5da1f3c6-ab1c-4d3d-b1d3-49335cb3b630,"3.1.2.223","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",5912,1,0,11a30762-d54f-4522-8289-99086caa109b,11a30762-d54f-4522-8289-99086caa109b,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,e8b248d9-9049-456a-9c7d-7a0462cc67ab,e8b248d9-9049-456a-9c7d-7a0462cc67ab,1,0,d4562287-440d-4462-9de2-7097ccbf3764,d4562287-440d-4462-9de2-7097ccbf3764,1,0,1983fe34-c984-4659-ba41-0e94504f8989,1983fe34-c984-4659-ba41-0e94504f8989,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,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,4009cb3a-6754-481f-911b-907558cea38a,4009cb3a-6754-481f-911b-907558cea38a,1,0,653a7fd8-91c7-49aa-aa63-45da087e0d0a,653a7fd8-91c7-49aa-aa63-45da087e0d0a,1,0,d7cf3981-cf63-4a21-868b-8175a7704a8f,d7cf3981-cf63-4a21-868b-8175a7704a8f,1,0,0ae93712-74e8-41c7-8f2d-4dfc8983697d,0ae93712-74e8-41c7-8f2d-4dfc8983697d,1,0,9e4dfdfa-ec05-4c9e-89bd-fc24f60f2678,9e4dfdfa-ec05-4c9e-89bd-fc24f60f2678,1,0,64f548c8-c1fc-434e-b3ee-5be367ead1db,64f548c8-c1fc-434e-b3ee-5be367ead1db,1,0,cd592a5d-b184-4558-8a28-7079ccf28b89,cd592a5d-b184-4558-8a28-7079ccf28b89,1,0,2009c673-c1a5-45fc-8da2-a36c435085a6,2009c673-c1a5Line truncated
SSL/src/DataProcessors/ВыгрузкаЗагрузкаEnterpriseData/Forms/Форма/Module.bsl
+4
View File
@@ -378,6 +378,10 @@
НачатьПолучениеФайлов(ОповещениеПолученФайл,ПолучаемыеФайлы,,Ложь); НачатьПолучениеФайлов(ОповещениеПолученФайл,ПолучаемыеФайлы,,Ложь);
КонецПроцедуры КонецПроцедуры
// Параметры:
// ПолученныеФайлы - Массив из ОписаниеПереданногоФайла, Неопределено - результат получения файлов.
// ДополнительныеПараметры - Произвольный - произвольные дополнительные параметры.
//
&НаКлиенте &НаКлиенте
Процедура ПолученФайлВыгрузки(ПолученныеФайлы, ДополнительныеПараметры) Экспорт Процедура ПолученФайлВыгрузки(ПолученныеФайлы, ДополнительныеПараметры) Экспорт
Если ПолученныеФайлы <> Неопределено Тогда Если ПолученныеФайлы <> Неопределено Тогда
SSL/src/DataProcessors/ЖурналРегистрации/Forms/ЖурналРегистрации/Form.form
+5 -3
View File
@@ -2752,9 +2752,11 @@
</edit> </edit>
</attributes> </attributes>
<attributes> <attributes>
<name>РезультатВыполнения</name> <name>ИдентификаторЗадания</name>
<id>15</id> <id>8</id>
<valueType/> <valueType>
<types>UUID</types>
</valueType>
<view> <view>
<common>true</common> <common>true</common>
</view> </view>
SSL/src/DataProcessors/ЖурналРегистрации/Forms/ЖурналРегистрации/Module.bsl
+6 -6
View File
@@ -261,7 +261,7 @@
КонецЕсли; КонецЕсли;
Если Результат.Статус = "Выполнено" Тогда Если Результат.Статус = "Выполнено" Тогда
ЗагрузитьПодготовленныеДанные(); ЗагрузитьПодготовленныеДанные(Результат.АдресРезультата);
ОбщегоНазначенияКлиентСервер.УстановитьСостояниеПоляТабличногоДокумента(Элементы.ПолеИндикаторДлительныхОпераций, "НеИспользовать"); ОбщегоНазначенияКлиентСервер.УстановитьСостояниеПоляТабличногоДокумента(Элементы.ПолеИндикаторДлительныхОпераций, "НеИспользовать");
Элементы.Страницы.ТекущаяСтраница = Элементы.ЖурналРегистрации; Элементы.Страницы.ТекущаяСтраница = Элементы.ЖурналРегистрации;
ПозиционированиеВКонецСписка(); ПозиционированиеВКонецСписка();
@@ -383,9 +383,8 @@
&НаСервере &НаСервере
Функция ПрочитатьЖурнал() Функция ПрочитатьЖурнал()
Если РезультатВыполнения <> Неопределено Если ЗначениеЗаполнено(ИдентификаторЗадания) Тогда
И ЗначениеЗаполнено(РезультатВыполнения.ИдентификаторЗадания) Тогда ДлительныеОперации.ОтменитьВыполнениеЗадания(ИдентификаторЗадания);
ДлительныеОперации.ОтменитьВыполнениеЗадания(РезультатВыполнения.ИдентификаторЗадания);
КонецЕсли; КонецЕсли;
ПараметрыОтчета = ПараметрыОтчета(); ПараметрыОтчета = ПараметрыОтчета();
@@ -402,6 +401,7 @@
Элементы.Страницы.ТекущаяСтраница = Элементы.ЖурналРегистрации; Элементы.Страницы.ТекущаяСтраница = Элементы.ЖурналРегистрации;
ВызватьИсключение РезультатВыполнения.КраткоеПредставлениеОшибки; ВызватьИсключение РезультатВыполнения.КраткоеПредставлениеОшибки;
КонецЕсли; КонецЕсли;
ИдентификаторЗадания = РезультатВыполнения.ИдентификаторЗадания;
ЖурналРегистрации.СформироватьПредставлениеОтбора(ПредставлениеОтбора, ОтборЖурналаРегистрации, ОтборЖурналаРегистрацииПоУмолчанию); ЖурналРегистрации.СформироватьПредставлениеОтбора(ПредставлениеОтбора, ОтборЖурналаРегистрации, ОтборЖурналаРегистрацииПоУмолчанию);
@@ -423,8 +423,8 @@
КонецФункции КонецФункции
&НаСервере &НаСервере
Процедура ЗагрузитьПодготовленныеДанные() Процедура ЗагрузитьПодготовленныеДанные(АдресРезультата)
Результат = ПолучитьИзВременногоХранилища(РезультатВыполнения.АдресРезультата); Результат = ПолучитьИзВременногоХранилища(АдресРезультата);
СобытияЖурнала = Результат.СобытияЖурнала; СобытияЖурнала = Результат.СобытияЖурнала;
ЖурналРегистрации.ПоместитьДанныеВоВременноеХранилище(СобытияЖурнала, УникальныйИдентификатор); ЖурналРегистрации.ПоместитьДанныеВоВременноеХранилище(СобытияЖурнала, УникальныйИдентификатор);
SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/НастройкиРаботыСФайлами/Help/ru.html
+25 -13
View File
@@ -7,30 +7,42 @@ TD {
</style><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.10570.1001"></meta></head><body> </style><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.10570.1001"></meta></head><body>
<p>В данной панели осуществляется настройка параметров загрузки, хранения и обработки файлов. Доступны команды:</p> <p>В данной панели осуществляется настройка параметров загрузки, хранения и обработки файлов. Доступны команды:</p>
<ul><li><strong>Хранить файлы в томах на диске</strong> - выбор между хранением файлов в информационной базе или в томах на диске. В последнем случае файлы не будут храниться в программе. <ul><li><strong>Хранить файлы в томах на диске</strong> - выбор между хранением файлов в информационной базе или в томах на диске. В последнем случае файлы не будут храниться в программе.
<ul><li>Если флажок включен, становится доступной команда <a name="СтандартныеПодсистемы.РаботаСФайлами"></a><a href="Catalog.ТомаХраненияФайлов/Help">Тома хранения файлов</a> - переход к настройке подключения к томам (папкам) хранения файлов на файловом сервере. </li></ul></li><li><strong>Запретить загрузку файлов с расширениями</strong> - включите флажок, для того чтобы запретить загрузку в программу файлов с указанными расширениями и укажите запрещенные к загрузке расширения файлов в поле ввода через пробел. <ul><li>Если флажок включен, становится доступной команда <a name="СтандартныеПодсистемы.РаботаСФайлами"></a><a href="Catalog.ТомаХраненияФайлов/Help">Тома хранения файлов</a> - переход к настройке подключения к томам (папкам) хранения файлов на файловом сервере. </li></ul></li>
</li><li><strong>Максимальный размер файла - </strong>введите ограничение загрузки в программу файлов, превышающих указанный размер. По умолчанию указан размер 50 Мб. Файлы большего размера не будут загружаться в программу. Если максимальный размер равен нулю, то объем файлов не ограничен. <li><strong>Запретить загрузку файлов с расширениями</strong> - включите флажок, для того чтобы запретить загрузку в программу файлов с указанными расширениями и укажите запрещенные к загрузке расширения файлов в поле ввода через пробел.
</li><li><strong>Расширения файлов ODF</strong> - можно указать расширения файлов открытого формата документов для офисных приложений, текст из которых также будет извлекаться для построения индекса полнотекстового поиска. Расширения указываются через пробел. По умолчанию список заполнен основными расширениями файлов. Указывать или уточнять список расширений файлов открытого формата документов нужно при использовании операционных систем фирмы Microsoft, если для программы OpenOffice не установлено расширение IFilter. </li>
</li><li><strong>Расширения текстовых файлов - </strong>введите расширения файлов, содержащих текстовые данные. Расширения указываются через пробел. <a name="СтандартныеПодсистемы.РаботаСФайлами"> <li><strong>Максимальный размер файла - </strong>введите ограничение загрузки в программу файлов, превышающих указанный размер. По умолчанию указан размер 50 Мб. Файлы большего размера не будут загружаться в программу.</li>
</a></li><li><a href="InformationRegister.НастройкиОчисткиФайлов/Help">Настройка очистки файлов</a> - выполните команду, для того чтобы настроить очистку ненужных файлов. <li><strong>Расширения файлов ODF</strong> - можно указать расширения файлов открытого формата документов для офисных приложений, текст из которых также будет извлекаться для построения индекса полнотекстового поиска. Расширения указываются через пробел. По умолчанию список заполнен основными расширениями файлов. Указывать или уточнять список расширений файлов открытого формата документов нужно при использовании операционных систем фирмы Microsoft, если для программы OpenOffice не установлено расширение IFilter.
</li><li><strong>Синхронизировать файлы с облачными сервисами</strong> - включите флажок для синхронизации с Яндекс.Диск, Box и другими облачными сервисами для упрощения редактирования файлов. </li>
</li><li><a href="InformationRegister.НастройкиСинхронизацииФайлов/Help">Настройки синхронизации</a> - перейдите по ссылке для настройки синхронизации файлов с облачными сервисами.</li></ul><h3>Преимущества хранения файлов в томах на диске</h3> <li><strong>Расширения текстовых файлов - </strong>введите расширения файлов, содержащих текстовые данные. Расширения указываются через пробел. <a name="СтандартныеПодсистемы.РаботаСФайлами">
</a></li>
<li><a href="InformationRegister.НастройкиОчисткиФайлов/Help">Настройка очистки файлов</a> - выполните команду, для того чтобы настроить очистку ненужных файлов.
</li>
<li><strong>Синхронизировать файлы с облачными сервисами</strong> - включите флажок для синхронизации с Яндекс.Диск, Box и другими облачными сервисами для упрощения редактирования файлов.
</li>
<li><a href="InformationRegister.НастройкиСинхронизацииФайлов/Help">Настройки синхронизации</a> - перейдите по ссылке для настройки синхронизации файлов с облачными сервисами.</li></ul><h3>Преимущества хранения файлов в томах на диске</h3>
<ul><li> <ul><li>
<div>Нет излишней нагрузки на информационную базу. Файлы могут занимать существенный объем, значительно превышающий объем всех остальных данных информационной базы. В таком случае работа программы существенно замедляется;</div> <div>Нет излишней нагрузки на информационную базу. Файлы могут занимать существенный объем, значительно превышающий объем всех остальных данных информационной базы. В таком случае работа программы существенно замедляется;</div>
</li><li> </li>
<li>
<div>Объем тома ограничен только объемом жесткого диска;</div> <div>Объем тома ограничен только объемом жесткого диска;</div>
</li><li> </li>
<li>
<div>Можно организовать проверку файлов на наличие вирусов;</div> <div>Можно организовать проверку файлов на наличие вирусов;</div>
</li><li> </li>
<li>
<div>Простой способ организации резервного копирования файлов.</div></li></ul><h3>Преимущества хранения файлов в информационной базе</h3> <div>Простой способ организации резервного копирования файлов.</div></li></ul><h3>Преимущества хранения файлов в информационной базе</h3>
<ul><li> <ul><li>
<div>Все данные находятся в одном месте - в информационной базе;</div> <div>Все данные находятся в одном месте - в информационной базе;</div>
</li><li> </li>
<li>
<div>Для резервного копирования достаточно стандартных средств платформы 1С:Предприятия или СУБД.</div></li></ul><p>Необходимо помнить, что хранение файлов в информационной базе подходит только для баз с небольшим количеством (объемом) файлов.</p> <div>Для резервного копирования достаточно стандартных средств платформы 1С:Предприятия или СУБД.</div></li></ul><p>Необходимо помнить, что хранение файлов в информационной базе подходит только для баз с небольшим количеством (объемом) файлов.</p>
<h3>Правила хранения файлов в томах</h3> <h3>Правила хранения файлов в томах</h3>
<ul><li> <ul><li>
<div>Переключение флажка <strong>Хранить файлы в томах на диске</strong> обратной силы не имеет. Если хранение файлов в томах отключили, то новые файлы добавляются в саму ИБ, а старые остаются томах. При этом папка с томом будет продолжать использоваться до того, пока в базе есть хотя бы один файл. Файлы, ранее сохраненные в тома, открываются из этих томов.</div> <div>Переключение флажка <strong>Хранить файлы в томах на диске</strong> обратной силы не имеет. Если хранение файлов в томах отключили, то новые файлы добавляются в саму ИБ, а старые остаются томах. При этом папка с томом будет продолжать использоваться до того, пока в базе есть хотя бы один файл. Файлы, ранее сохраненные в тома, открываются из этих томов.</div>
</li><li> </li>
<li>
<div>Если сохранить файл в томе, а потом том удалить (внешними средствами), то файл будет не найден, даже если флажок <strong>Хранить файлы в томах на диск</strong>е уже выключен. Включение и выключение флажка не вернет пропавшие файлы.</div> <div>Если сохранить файл в томе, а потом том удалить (внешними средствами), то файл будет не найден, даже если флажок <strong>Хранить файлы в томах на диск</strong>е уже выключен. Включение и выключение флажка не вернет пропавшие файлы.</div>
</li><li> </li>
<li>
<div>Поэтому если программа не находит файлы, которые хранились в томах, следует в сообщениях об ошибке (в журнале регистрации) посмотреть путь к папке с томом, проверить местонахождение этой папки, наличие в ней нужного файла, и при необходимости восстановить папку. Для осуществления такой возможности необходимо периодически проводить резервное копирование папок с томами файлов внешними средствами (например, средствами операционной системы).</div></li></ul><h3>См. также: </h3> <div>Поэтому если программа не находит файлы, которые хранились в томах, следует в сообщениях об ошибке (в журнале регистрации) посмотреть путь к папке с томом, проверить местонахождение этой папки, наличие в ней нужного файла, и при необходимости восстановить папку. Для осуществления такой возможности необходимо периодически проводить резервное копирование папок с томами файлов внешними средствами (например, средствами операционной системы).</div></li></ul><h3>См. также: </h3>
<ul><li><a href="DataProcessor.ПанельАдминистрированияБСП/Help">Настройки программы</a>.</li></ul></body></html> <ul><li><a href="DataProcessor.ПанельАдминистрированияБСП/Help">Настройки программы</a>.</li></ul></body></html>
SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/ManagerModule.bsl
+6 -1
View File
@@ -493,7 +493,7 @@
Функция ТаблицаСтатистикиСообщенияОбмена(Параметры, Функция ТаблицаСтатистикиСообщенияОбмена(Параметры,
Отказ, РезультатВыполненияОбмена = Неопределено, СообщениеОбОшибке = "") Отказ, РезультатВыполненияОбмена = Неопределено, СообщениеОбОшибке = "")
ИнформацияСтатистики = Неопределено; ИнформацияСтатистики = Неопределено; // ТаблицаЗначений
ИнициализироватьТаблицуСтатистики(ИнформацияСтатистики); ИнициализироватьТаблицуСтатистики(ИнформацияСтатистики);
ИмяВременногоКаталогаСообщенийОбмена = Параметры.ИмяВременногоКаталогаСообщенийОбмена; ИмяВременногоКаталогаСообщенийОбмена = Параметры.ИмяВременногоКаталогаСообщенийОбмена;
@@ -683,6 +683,11 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// Таблица - ТаблицаЗначений -
// ЗначениеИтератора - Число -
// ИмяПоляИтератора - Строка -
//
Процедура ДобавитьКолонкуСоЗначениемВТаблицу(Таблица, ЗначениеИтератора, ИмяПоляИтератора) Процедура ДобавитьКолонкуСоЗначениемВТаблицу(Таблица, ЗначениеИтератора, ИмяПоляИтератора)
Таблица.Колонки.Добавить(ИмяПоляИтератора); Таблица.Колонки.Добавить(ИмяПоляИтератора);
SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса/ManagerModule.bsl
+32
View File
@@ -12,6 +12,12 @@
#Область ВыгрузкаДанныхДляСопоставления #Область ВыгрузкаДанныхДляСопоставления
// Параметры:
// НастройкиВыгрузки - Структура - описание настроек выполнения операции.
// ПараметрыОбработчика - Структура - вспомогательные параметры:
// * ДополнительныеПараметры - Структура - произвольные дополнительные параметры.
// ПродолжитьОжидание - Булево - Истина, если запущена длительная операция.
//
Процедура ПриНачалеВыгрузкиДанныхДляСопоставления(НастройкиВыгрузки, ПараметрыОбработчика, ПродолжитьОжидание) Экспорт Процедура ПриНачалеВыгрузкиДанныхДляСопоставления(НастройкиВыгрузки, ПараметрыОбработчика, ПродолжитьОжидание) Экспорт
КлючФоновогоЗадания = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( КлючФоновогоЗадания = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
@@ -52,6 +58,11 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// ПараметрыОбработчика - Структура - вспомогательные параметры:
// * ДополнительныеПараметры - Структура - произвольные дополнительные параметры.
// ПродолжитьОжидание - Булево - Истина, если длительная операция еще не завершена.
//
Процедура ПриОжиданииВыгрузкиДанныхДляСопоставления(ПараметрыОбработчика, ПродолжитьОжидание) Экспорт Процедура ПриОжиданииВыгрузкиДанныхДляСопоставления(ПараметрыОбработчика, ПродолжитьОжидание) Экспорт
Если ПараметрыОбработчика.ДополнительныеПараметры.Свойство("ОжиданиеСессииПомещенияДанныхДляСопоставления") Тогда Если ПараметрыОбработчика.ДополнительныеПараметры.Свойство("ОжиданиеСессииПомещенияДанныхДляСопоставления") Тогда
@@ -94,6 +105,11 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// ПараметрыОбработчика - Структура - вспомогательные параметры:
// * ДополнительныеПараметры - Структура - произвольные дополнительные параметры.
// СтатусЗавершения - Структура - описание результата выполнения операции.
//
Процедура ПриЗавершенииВыгрузкиДанныхДляСопоставления(ПараметрыОбработчика, СтатусЗавершения) Экспорт Процедура ПриЗавершенииВыгрузкиДанныхДляСопоставления(ПараметрыОбработчика, СтатусЗавершения) Экспорт
ИнициализироватьСтатусЗавершенияДлительнойОперации(СтатусЗавершения); ИнициализироватьСтатусЗавершенияДлительнойОперации(СтатусЗавершения);
@@ -124,6 +140,12 @@
#Область ВыгрузкаЗагрузкаДанных #Область ВыгрузкаЗагрузкаДанных
// Параметры:
// НастройкиВыгрузки - Структура - описание настроек выполнения операции.
// ПараметрыОбработчика - Структура - вспомогательные параметры:
// * ДополнительныеПараметры - Структура - произвольные дополнительные параметры.
// ПродолжитьОжидание - Булево - Истина, если запущена длительная операция.
//
Процедура ПриНачалеВыгрузкиДанных(НастройкиВыгрузки, ПараметрыОбработчика, ПродолжитьОжидание) Экспорт Процедура ПриНачалеВыгрузкиДанных(НастройкиВыгрузки, ПараметрыОбработчика, ПродолжитьОжидание) Экспорт
Если Не ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса") Тогда Если Не ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса") Тогда
@@ -178,6 +200,11 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// ПараметрыОбработчика - Структура - вспомогательные параметры:
// * ДополнительныеПараметры - Структура - произвольные дополнительные параметры.
// ПродолжитьОжидание - Булево - Истина, если длительная операция еще не завершена.
//
Процедура ПриОжиданииВыгрузкиДанных(ПараметрыОбработчика, ПродолжитьОжидание) Экспорт Процедура ПриОжиданииВыгрузкиДанных(ПараметрыОбработчика, ПродолжитьОжидание) Экспорт
Если ПараметрыОбработчика.ДополнительныеПараметры.Свойство("ОжиданиеСессииВыгрузкиЗагрузкиДанных") Тогда Если ПараметрыОбработчика.ДополнительныеПараметры.Свойство("ОжиданиеСессииВыгрузкиЗагрузкиДанных") Тогда
@@ -301,6 +328,11 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// ПараметрыОбработчика - Структура - вспомогательные параметры:
// * ДополнительныеПараметры - Структура - произвольные дополнительные параметры.
// СтатусЗавершения - Структура - описание результата выполнения операции.
//
Процедура ПриЗавершенииВыгрузкиДанных(ПараметрыОбработчика, СтатусЗавершения) Экспорт Процедура ПриЗавершенииВыгрузкиДанных(ПараметрыОбработчика, СтатусЗавершения) Экспорт
ИнициализироватьСтатусЗавершенияДлительнойОперации(СтатусЗавершения); ИнициализироватьСтатусЗавершенияДлительнойОперации(СтатусЗавершения);
SSL/src/DataProcessors/ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете/ManagerModule.bsl
+42 -5
View File
@@ -103,7 +103,11 @@
#Область СписокПриложений #Область СписокПриложений
// Для внутреннего использования. // Параметры:
// Настройки - Структура - описание настроек выполнения операции.
// ПараметрыОбработчика - Структура - вспомогательные параметры:
// * ДополнительныеПараметры - Структура - произвольные дополнительные параметры.
// ПродолжитьОжидание - Булево - Истина, если запущена длительная операция.
// //
Процедура ПриНачалеПолученияСпискаПриложений(Настройки, ПараметрыОбработчика, ПродолжитьОжидание = Истина) Экспорт Процедура ПриНачалеПолученияСпискаПриложений(Настройки, ПараметрыОбработчика, ПродолжитьОжидание = Истина) Экспорт
@@ -153,7 +157,10 @@
КонецПроцедуры КонецПроцедуры
// Для внутреннего использования. // Параметры:
// ПараметрыОбработчика - Структура - вспомогательные параметры:
// * ДополнительныеПараметры - Структура - произвольные дополнительные параметры.
// ПродолжитьОжидание - Булево - Истина, если длительная операция еще не завершена.
// //
Процедура ПриОжиданииПолученияСпискаПриложений(ПараметрыОбработчика, ПродолжитьОжидание = Истина) Экспорт Процедура ПриОжиданииПолученияСпискаПриложений(ПараметрыОбработчика, ПродолжитьОжидание = Истина) Экспорт
@@ -315,7 +322,10 @@
КонецПроцедуры КонецПроцедуры
// Для внутреннего использования. // Параметры:
// ПараметрыОбработчика - Структура - вспомогательные параметры:
// * ДополнительныеПараметры - Структура - произвольные дополнительные параметры.
// СтатусЗавершения - Структура - описание результата выполнения операции.
// //
Процедура ПриЗавершенииПолученияСпискаПриложений(ПараметрыОбработчика, СтатусЗавершения) Экспорт Процедура ПриЗавершенииПолученияСпискаПриложений(ПараметрыОбработчика, СтатусЗавершения) Экспорт
@@ -345,7 +355,11 @@
#Область ПолучениеОбщихДанныхУзловКорреспондента #Область ПолучениеОбщихДанныхУзловКорреспондента
// Для внутреннего использования. // Параметры:
// НастройкиПодключения - Структура - описание настроек выполнения операции.
// ПараметрыОбработчика - Структура - вспомогательные параметры:
// * ДополнительныеПараметры - Структура - произвольные дополнительные параметры.
// ПродолжитьОжидание - Булево - Истина, если запущена длительная операция.
// //
Процедура ПриНачалеПолученияОбщихДанныхУзловКорреспондента(НастройкиПодключения, ПараметрыОбработчика, ПродолжитьОжидание = Истина) Экспорт Процедура ПриНачалеПолученияОбщихДанныхУзловКорреспондента(НастройкиПодключения, ПараметрыОбработчика, ПродолжитьОжидание = Истина) Экспорт
@@ -408,7 +422,10 @@
КонецПроцедуры КонецПроцедуры
// Для внутреннего использования. // Параметры:
// ПараметрыОбработчика - Структура - вспомогательные параметры:
// * ДополнительныеПараметры - Структура - произвольные дополнительные параметры.
// СтатусЗавершения - Структура - описание результата выполнения операции.
// //
Процедура ПриЗавершенииПолученияОбщихДанныхУзловКорреспондента(ПараметрыОбработчика, СтатусЗавершения) Экспорт Процедура ПриЗавершенииПолученияОбщихДанныхУзловКорреспондента(ПараметрыОбработчика, СтатусЗавершения) Экспорт
@@ -460,6 +477,12 @@
#Область СохранениеНастроекПодключения #Область СохранениеНастроекПодключения
// Параметры:
// НастройкиПодключения - Структура - описание настроек выполнения операции.
// ПараметрыОбработчика - Структура - вспомогательные параметры:
// * ДополнительныеПараметры - Структура - произвольные дополнительные параметры.
// ПродолжитьОжидание - Булево - Истина, если запущена длительная операция.
//
Процедура ПриНачалеСохраненияНастроекПодключения(НастройкиПодключения, ПараметрыОбработчика, ПродолжитьОжидание = Истина) Экспорт Процедура ПриНачалеСохраненияНастроекПодключения(НастройкиПодключения, ПараметрыОбработчика, ПродолжитьОжидание = Истина) Экспорт
КлючФоновогоЗадания = КлючФоновогоЗадания(НастройкиПодключения.ИмяПланаОбмена, КлючФоновогоЗадания = КлючФоновогоЗадания(НастройкиПодключения.ИмяПланаОбмена,
@@ -497,6 +520,11 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// ПараметрыОбработчика - Структура - вспомогательные параметры:
// * ДополнительныеПараметры - Структура - произвольные дополнительные параметры.
// ПродолжитьОжидание - Булево - Истина, если длительная операция еще не завершена.
//
Процедура ПриОжиданииСохраненияНастроекПодключения(ПараметрыОбработчика, ПродолжитьОжидание = Истина) Экспорт Процедура ПриОжиданииСохраненияНастроекПодключения(ПараметрыОбработчика, ПродолжитьОжидание = Истина) Экспорт
Если ПараметрыОбработчика.ДополнительныеПараметры.Свойство("ОжиданиеСессииОбменаСообщениямиСистемы1") Тогда Если ПараметрыОбработчика.ДополнительныеПараметры.Свойство("ОжиданиеСессииОбменаСообщениямиСистемы1") Тогда
@@ -553,6 +581,11 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// ПараметрыОбработчика - Структура - вспомогательные параметры:
// * ДополнительныеПараметры - Структура - произвольные дополнительные параметры.
// СтатусЗавершения - Структура - описание результата выполнения операции.
//
Процедура ПриЗавершенииСохраненияНастроекПодключения(ПараметрыОбработчика, СтатусЗавершения) Экспорт Процедура ПриЗавершенииСохраненияНастроекПодключения(ПараметрыОбработчика, СтатусЗавершения) Экспорт
ИнициализироватьСтатусЗавершенияДлительнойОперации(СтатусЗавершения); ИнициализироватьСтатусЗавершенияДлительнойОперации(СтатусЗавершения);
@@ -842,6 +875,10 @@
#КонецОбласти #КонецОбласти
// Параметры:
// ПараметрыОбработчика - Структура - вспомогательные параметры:
// * ДополнительныеПараметры - Структура - произвольные дополнительные параметры.
//
Процедура ПриНачалеПолученияКодовУзловОбластейДанных(ПараметрыОбработчика) Процедура ПриНачалеПолученияКодовУзловОбластейДанных(ПараметрыОбработчика)
Если Не ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса") Тогда Если Не ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса") Тогда
SSL/src/DataProcessors/ПомощникСозданияАвтономногоРабочегоМеста/Forms/ДополнительноеОписание/Module.bsl
+1 -1
View File
@@ -13,7 +13,7 @@
ПолеHTMLДокумента = АвтономнаяРаботаСлужебный.ТекстИнструкцииИзМакета(Параметры.ИмяМакета); ПолеHTMLДокумента = АвтономнаяРаботаСлужебный.ТекстИнструкцииИзМакета(Параметры.ИмяМакета);
Заголовок = Параметры.Заголовок; Параметры.Свойство("Заголовок", Заголовок);
КонецПроцедуры КонецПроцедуры
SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Forms/НоваяСинхронизацияДанных/Module.bsl
+4
View File
@@ -282,6 +282,10 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// ТаблицаНастройки - ТаблицаЗначений - таблица доступных настроек синхронизации.
// РодительскаяГруппа - ГруппаФормы - родительский элемент формы.
//
&НаСервере &НаСервере
Процедура ДобавитьКомандыСозданияНовогоОбменаСтандартныеНастройки(ТаблицаНастройки, РодительскаяГруппа) Процедура ДобавитьКомандыСозданияНовогоОбменаСтандартныеНастройки(ТаблицаНастройки, РодительскаяГруппа)
SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФорма/Module.bsl
+10 -3
View File
@@ -1091,6 +1091,13 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// ВыбранныеФайлы - Массив из Строка - результат выбора файла.
// ДополнительныеПараметры - Структура - произвольные дополнительные параметры:
// * ОбъектХранения - Структура, ФормаКлиентскогоПриложения - приемник для хранения свойства.
// * ИмяСвойства - Строка - имя свойства объекта хранения.
// * Элемент - ПолеФормы - источник события выбора файла.
//
&НаКлиенте &НаКлиенте
Процедура ДиалогВыбораФайлаОбработкаВыбора(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт Процедура ДиалогВыбораФайлаОбработкаВыбора(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
@@ -1209,7 +1216,7 @@
Если ЭтоКлиент Тогда Если ЭтоКлиент Тогда
ДвоичныеДанные = ПолучитьИзВременногоХранилища (АдресФайла); ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресФайла); // ДвоичныеДанные
АдресНаСервере = ПолучитьИмяВременногоФайла(".xml"); АдресНаСервере = ПолучитьИмяВременногоФайла(".xml");
// Удаление временного файла происходит не через УдалитьФайлы(АдресНаСервере), а через // Удаление временного файла происходит не через УдалитьФайлы(АдресНаСервере), а через
// УдалитьФайлы(Объект.ИмяФайлаОбмена) далее. // УдалитьФайлы(Объект.ИмяФайлаОбмена) далее.
@@ -1387,7 +1394,7 @@
Если Объект.БезопаснаяЗагрузка Тогда Если Объект.БезопаснаяЗагрузка Тогда
Если ЭтоАдресВременногоХранилища(АдресФайлаПравилЗагрузкиВХранилище) Тогда Если ЭтоАдресВременногоХранилища(АдресФайлаПравилЗагрузкиВХранилище) Тогда
ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресФайлаПравилЗагрузкиВХранилище); ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресФайлаПравилЗагрузкиВХранилище); // ДвоичныеДанные
АдресНаСервере = ПолучитьИмяВременногоФайла("xml"); АдресНаСервере = ПолучитьИмяВременногоФайла("xml");
// Удаление временного файла происходит не через УдалитьФайлы(АдресНаСервере), а через // Удаление временного файла происходит не через УдалитьФайлы(АдресНаСервере), а через
// УдалитьФайлы(Объект.ИмяФайлаПравилОбмена) далее. // УдалитьФайлы(Объект.ИмяФайлаПравилОбмена) далее.
@@ -1441,7 +1448,7 @@
Иначе Иначе
Расширение = РасширениеФайла(ИмяФайлаДляРасширения); Расширение = РасширениеФайла(ИмяФайлаДляРасширения);
ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресФайла); ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресФайла); // ДвоичныеДанные
АдресНаСервере = ПолучитьИмяВременногоФайла(Расширение); АдресНаСервере = ПолучитьИмяВременногоФайла(Расширение);
// Удаление временного файла происходит не через УдалитьФайлы(АдресНаСервере), // Удаление временного файла происходит не через УдалитьФайлы(АдресНаСервере),
// а через УдалитьФайлы(Объект.ИмяФайлаПравилОбмена) и УдалитьФайлы(Объект.ИмяФайлаОбмена) далее. // а через УдалитьФайлы(Объект.ИмяФайлаПравилОбмена) и УдалитьФайлы(Объект.ИмяФайлаОбмена) далее.
SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/Forms/УправляемаяФормаНастройкиОтладкиОбработчиков/Module.bsl
+5
View File
@@ -75,6 +75,11 @@
КонецПроцедуры КонецПроцедуры
// Параметры:
// ВыбранныеФайлы - Массив из Строка, Неопределено - результат выбора файла.
// ДополнительныеПараметры - Структура - произвольные параметры:
// * Элемент - ПолеФормы - источник выбора файла.
//
&НаКлиенте &НаКлиенте
Процедура ИмяФайлаВнешнейОбработкиОбработчиковСобытийОбработкаВыбора(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт Процедура ИмяФайлаВнешнейОбработкиОбработчиковСобытийОбработкаВыбора(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
SSL/src/DataProcessors/УниверсальныйОбменДаннымиXML/ObjectModule.bsl
+57 -33
View File
@@ -2188,14 +2188,14 @@
// Формирует результат запроса для выгрузки очистки данных. // Формирует результат запроса для выгрузки очистки данных.
// //
// Параметры: // Параметры:
// Свойства - Менеджер - Свойства объекта метаданных. // Свойства - Структура - описание типа значения, см. СтруктураПараметровМенеджера.
// ИмяТипа - Строка - Имя типа. // ИмяТипа - Строка - Имя типа.
// ВыборкаДляОчисткиДанных - Булево - выборка для очистки данных. // ВыборкаДляОчисткиДанных - Булево - выборка для очистки данных.
// УдалятьОбъектыНепосредственно - Булево - признак необходимости непосредственного удаления. // УдалятьОбъектыНепосредственно - Булево - признак необходимости непосредственного удаления.
// ВыбиратьВсеПоля - Булево - признак необходимости выбирать все поля. // ВыбиратьВсеПоля - Булево - признак необходимости выбирать все поля.
// //
// Возвращаемое значение: // Возвращаемое значение:
// РезультатЗапроса или Неопределено - результат запроса для выгрузки очистки данных. // РезультатЗапроса, Неопределено - результат запроса для выгрузки очистки данных.
// //
Функция ПолучитьРезультатЗапросаДляВыгрузкиОчисткиДанных(Свойства, ИмяТипа, Функция ПолучитьРезультатЗапросаДляВыгрузкиОчисткиДанных(Свойства, ИмяТипа,
ВыборкаДляОчисткиДанных = Ложь, УдалятьОбъектыНепосредственно = Ложь, ВыбиратьВсеПоля = Истина) Экспорт ВыборкаДляОчисткиДанных = Ложь, УдалятьОбъектыНепосредственно = Ложь, ВыбиратьВсеПоля = Истина) Экспорт
@@ -2205,13 +2205,13 @@
СтрокаВыбораПолей = ?(ВыбиратьВсеПоля, " * ", " ОбъектДляВыгрузки.Ссылка КАК Ссылка "); СтрокаВыбораПолей = ?(ВыбиратьВсеПоля, " * ", " ОбъектДляВыгрузки.Ссылка КАК Ссылка ");
Если ИмяТипа = "Справочник" Если ИмяТипа = "Справочник"
ИЛИ ИмяТипа = "ПланВидовХарактеристик" Или ИмяТипа = "ПланВидовХарактеристик"
ИЛИ ИмяТипа = "ПланСчетов" Или ИмяТипа = "ПланСчетов"
ИЛИ ИмяТипа = "ПланВидовРасчета" Или ИмяТипа = "ПланВидовРасчета"
ИЛИ ИмяТипа = "РегистрБухгалтерии" Или ИмяТипа = "РегистрБухгалтерии"
ИЛИ ИмяТипа = "ПланОбмена" Или ИмяТипа = "ПланОбмена"
ИЛИ ИмяТипа = "Задача" Или ИмяТипа = "Задача"
ИЛИ ИмяТипа = "БизнесПроцесс" Тогда Или ИмяТипа = "БизнесПроцесс" Тогда
Запрос = Новый Запрос(); Запрос = Новый Запрос();
@@ -3243,7 +3243,10 @@
// //
// Параметры: // Параметры:
// ПравилаОбмена - ЧтениеXML - Объект типа ЧтениеXML. // ПравилаОбмена - ЧтениеXML - Объект типа ЧтениеXML.
// ТаблицаСвойств - таблица значений, содержащая ПКС. // ТаблицаСвойств - ТаблицаЗначений - таблица значений, содержащая ПКС:
// * Имя - Строка - идентификатор ПКС.
// * Наименование - Строка - пользовательское представление ПКС.
// * Источник - Строка - имя свойства-источника.
// //
Процедура ЗагрузитьПКГС(ПравилаОбмена, ТаблицаСвойств) Процедура ЗагрузитьПКГС(ПравилаОбмена, ТаблицаСвойств)
@@ -3358,8 +3361,11 @@
// //
// Параметры: // Параметры:
// ПравилаОбмена - ЧтениеXML - Объект типа ЧтениеXML. // ПравилаОбмена - ЧтениеXML - Объект типа ЧтениеXML.
// ТаблицаСвойств - таблица значений, содержащая ПКС. // ТаблицаСвойств - ТаблицаЗначений - таблица значений, содержащая ПКС:
// ТаблицаПоиска - таблица значений, содержащая ПКС (синхронизирующих). // * Имя - Строка - идентификатор ПКС.
// * Наименование - Строка - пользовательское представление ПКС.
// * Источник - Строка - свойство-источник.
// ТаблицаПоиска - ТаблицаЗначений - таблица значений, содержащая ПКС (синхронизирующих).
// //
Процедура ЗагрузитьПКС(ПравилаОбмена, ТаблицаСвойств, ТаблицаПоиска = Неопределено, СтрокаПолейПоиска = "") Процедура ЗагрузитьПКС(ПравилаОбмена, ТаблицаСвойств, ТаблицаПоиска = Неопределено, СтрокаПолейПоиска = "")
@@ -3577,7 +3583,6 @@
НоваяСтрока = ТаблицаПравилКонвертации.Добавить(); НоваяСтрока = ТаблицаПравилКонвертации.Добавить();
// Значения по умолчанию // Значения по умолчанию
НоваяСтрока.ЗапоминатьВыгруженные = Истина; НоваяСтрока.ЗапоминатьВыгруженные = Истина;
@@ -3906,7 +3911,9 @@
// Осуществляет загрузку группы правил очистки данных в соответствии с форматом правил обмена. // Осуществляет загрузку группы правил очистки данных в соответствии с форматом правил обмена.
// //
// Параметры: // Параметры:
// НоваяСтрока - строка дерева значений, описывающая группу правил очистки данных. // НоваяСтрока - СтрокаДереваЗначений - структура, описывающая группу правил очистки данных:
// * Имя - Строка - идентификатор правила.
// * Наименование - Строка - пользовательское представление правила.
// //
Процедура ЗагрузитьГруппуПОД(ПравилаОбмена, НоваяСтрока) Процедура ЗагрузитьГруппуПОД(ПравилаОбмена, НоваяСтрока)
@@ -3941,7 +3948,6 @@
КонецЦикла; КонецЦикла;
Если ПустаяСтрока(НоваяСтрока.Наименование) Тогда Если ПустаяСтрока(НоваяСтрока.Наименование) Тогда
НоваяСтрока.Наименование = НоваяСтрока.Имя; НоваяСтрока.Наименование = НоваяСтрока.Имя;
КонецЕсли; КонецЕсли;
@@ -3951,7 +3957,9 @@
// Осуществляет загрузку правила очистки данных в соответствии с форматом правил обмена. // Осуществляет загрузку правила очистки данных в соответствии с форматом правил обмена.
// //
// Параметры: // Параметры:
// НоваяСтрока - строка дерева значений, описывающая правило очистки данных. // НоваяСтрока - СтрокаДереваЗначений - структура, описывающая правило очистки данных:
// * Имя - Строка - идентификатор правила.
// * Наименование - Строка - пользовательское представление правила.
// //
Процедура ЗагрузитьПОД(ПравилаОбмена, НоваяСтрока) Процедура ЗагрузитьПОД(ПравилаОбмена, НоваяСтрока)
@@ -4409,8 +4417,10 @@
// Осуществляет загрузку группы правил выгрузки данных в соответствии с форматом правил обмена. // Осуществляет загрузку группы правил выгрузки данных в соответствии с форматом правил обмена.
// //
// Параметры: // Параметры:
// ПравилаОбмена - ЧтениеXML - Объект типа ЧтениеXML. // ПравилаОбмена - ЧтениеXML - объект типа ЧтениеXML.
// НоваяСтрока - строка дерева значений, описывающая группу правил выгрузки данных. // НоваяСтрока - СтрокаДереваЗначений - структура, описывающая группу правил выгрузки данных:
// * Имя - Строка - идентификатор правила.
// * Наименование - Строка - пользовательское представление правила.
// //
Процедура ЗагрузитьГруппуПВД(ПравилаОбмена, НоваяСтрока) Процедура ЗагрузитьГруппуПВД(ПравилаОбмена, НоваяСтрока)
@@ -4443,7 +4453,6 @@
КонецЦикла; КонецЦикла;
Если ПустаяСтрока(НоваяСтрока.Наименование) Тогда Если ПустаяСтрока(НоваяСтрока.Наименование) Тогда
НоваяСтрока.Наименование = НоваяСтрока.Имя; НоваяСтрока.Наименование = НоваяСтрока.Имя;
КонецЕсли; КонецЕсли;
@@ -4454,7 +4463,9 @@
// //
// Параметры: // Параметры:
// ПравилаОбмена - ЧтениеXML - Объект типа ЧтениеXML. // ПравилаОбмена - ЧтениеXML - Объект типа ЧтениеXML.
// НоваяСтрока - строка дерева значений, описывающая правило выгрузки данных. // НоваяСтрока - СтрокаДереваЗначений - структура, описывающая правило выгрузки данных:
// * Имя - Строка - идентификатор правила.
// * Наименование - Строка - пользовательское представление правила.
// //
Процедура ЗагрузитьПВД(ПравилаОбмена, НоваяСтрока) Процедура ЗагрузитьПВД(ПравилаОбмена, НоваяСтрока)
@@ -5371,9 +5382,11 @@
// Формирует интерфейс обработчика ПКС, ПКГС (уникальное имя процедуры с параметрами соответствующего обработчика). // Формирует интерфейс обработчика ПКС, ПКГС (уникальное имя процедуры с параметрами соответствующего обработчика).
// //
// Параметры: // Параметры:
// ПКО - СтрокаТаблицыЗначений - содержит правило конвертации объекта. // ПКО - СтрокаТаблицыЗначений - содержит правило конвертации объекта:
// * Имя - Строка - имя правила.
// ПКГС - СтрокаТаблицыЗначений - содержит правило конвертации группы свойств. // ПКГС - СтрокаТаблицыЗначений - содержит правило конвертации группы свойств.
// Правило - СтрокаТаблицыЗначений - содержит правило конвертации свойств объекта. // Правило - СтрокаТаблицыЗначений - содержит правило конвертации свойств объекта:
// * Имя - Строка - имя правила.
// ИмяОбработчика - Строка - имя обработчика события. // ИмяОбработчика - Строка - имя обработчика события.
// //
// Возвращаемое значение: // Возвращаемое значение:
@@ -5411,7 +5424,8 @@
// Формирует интерфейс обработчика ПКО, ПВД, ПОД (уникальное имя процедуры с параметрами соответствующего обработчика). // Формирует интерфейс обработчика ПКО, ПВД, ПОД (уникальное имя процедуры с параметрами соответствующего обработчика).
// //
// Параметры: // Параметры:
// Правило - произвольная коллекция значений - ПКО, ПВД, ПОД. // Правило - СтрокаТаблицыЗначений - ПКО, ПВД, ПОД:
// * Имя - Строка - имя правила.
// ПрефиксОбработчика - Строка - принимает значения: "ПКО", "ПВД", "ПОД". // ПрефиксОбработчика - Строка - принимает значения: "ПКО", "ПВД", "ПОД".
// ИмяОбработчика - Строка - имя обработчика события для данного правила. // ИмяОбработчика - Строка - имя обработчика события для данного правила.
// //
@@ -5809,16 +5823,18 @@
Для Каждого СтрокаТаблицы Из ТаблицаПравилКонвертации Цикл Для Каждого СтрокаТаблицы Из ТаблицаПравилКонвертации Цикл
Правила.Вставить(СтрокаТаблицы.Имя, СтрокаТаблицы); Правила.Вставить(СтрокаТаблицы.Имя, СтрокаТаблицы);
Если СтрокаТаблицы.Источник <> Неопределено Тогда Источник = СтрокаТаблицы.Источник;
Если Источник <> Неопределено Тогда
Попытка Попытка
Если ТипЗнч(СтрокаТаблицы.Источник) = одТипСтрока Тогда Если ТипЗнч(Источник) = одТипСтрока Тогда
Менеджеры[Тип(СтрокаТаблицы.Источник)].ПКО = СтрокаТаблицы; Менеджеры[Тип(Источник)].ПКО = СтрокаТаблицы;
Иначе Иначе
Менеджеры[СтрокаТаблицы.Источник].ПКО = СтрокаТаблицы; Менеджеры[Источник].ПКО = СтрокаТаблицы;
КонецЕсли; КонецЕсли;
Исключение Исключение
ЗаписатьИнформациюОбОшибкеВПротокол(11, ОписаниеОшибки(), Строка(СтрокаТаблицы.Источник)); ЗаписатьИнформациюОбОшибкеВПротокол(11, ОписаниеОшибки(), Строка(Источник));
КонецПопытки; КонецПопытки;
КонецЕсли; КонецЕсли;
@@ -10838,17 +10854,15 @@
Выборка = Неопределено; Выборка = Неопределено;
ТипВыборки = ТипЗнч(ВыборкаДанных); Если ТипЗнч(ВыборкаДанных) = Тип("ВыборкаИзРезультатаЗапроса") Тогда
Если ТипВыборки = Тип("ВыборкаИзРезультатаЗапроса") Тогда
Выборка = ВыборкаДанных; Выборка = ВыборкаДанных;
ИначеЕсли ТипВыборки = Тип("РезультатЗапроса") Тогда ИначеЕсли ТипЗнч(ВыборкаДанных) = Тип("РезультатЗапроса") Тогда
Выборка = ВыборкаДанных.Выбрать(); Выборка = ВыборкаДанных.Выбрать();
ИначеЕсли ТипВыборки = Тип("Запрос") Тогда ИначеЕсли ТипЗнч(ВыборкаДанных) = Тип("Запрос") Тогда
РезультатЗапроса = ВыборкаДанных.Выполнить(); РезультатЗапроса = ВыборкаДанных.Выполнить();
Выборка = РезультатЗапроса.Выбрать(); Выборка = РезультатЗапроса.Выбрать();
@@ -14207,6 +14221,16 @@
КонецПроцедуры КонецПроцедуры
// Возвращаемое значение:
// Структура - описание менеджера типа значения:
// * Имя - Строка -
// * ИмяТипа - Строка -
// * ТипСсылкиСтрокой - Строка -
// * Менеджер - Произвольный -
// * ОбъектМД - ОбъектМетаданных -
// * ВозможенПоискПоПредопределенным - Булево -
// * ПКО - Произвольный -
//
Функция СтруктураПараметровМенеджера(Имя, ИмяТипа, ТипСсылкиСтрокой, Менеджер, ОбъектМД) Функция СтруктураПараметровМенеджера(Имя, ИмяТипа, ТипСсылкиСтрокой, Менеджер, ОбъектМД)
Структура = Новый Структура(); Структура = Новый Структура();
Структура.Вставить("Имя", Имя); Структура.Вставить("Имя", Имя);
SSL/src/DataProcessors/УстановкаОбновлений/Templates/МакетФайлаОбновленияКонфигурации/Template.txt
+1 -1
View File
@@ -484,7 +484,7 @@ function doExecuteUpdate (lastVersion) {
throw new Error('Не удалось обновить исправления конфигурации. Подробности см. в предыдущей записи.') throw new Error('Не удалось обновить исправления конфигурации. Подробности см. в предыдущей записи.')
} }
} catch (e) { } catch (e) {
log(format('Исключение при вызове ОбновлениеКонфигурации.ОбновитьИсправленияИзСкрипта: {0}, {1}.', e.name, e.message), true) log(format('Исключение при вызове ОбновлениеКонфигурацииВызовСервера.ОбновитьИсправленияИзСкрипта: {0}, {1}.', e.name, e.message), true)
return 2 return 2
} }
} }
SSL/src/DataProcessors/УстановкаОбновлений/Templates/СкриптУдаленияПатчей/Template.txt
+1 -1
View File
@@ -29,7 +29,7 @@ try {
var COMConnector = new ActiveXObject(COMConnectorName) var COMConnector = new ActiveXObject(COMConnectorName)
var connection = COMConnector.Connect(ConnectionString) var connection = COMConnector.Connect(ConnectionString)
connection.ОбновлениеКонфигурации.ОбновитьИсправленияИзСкрипта(fixFileNames, removeFixNames) connection.ОбновлениеКонфигурацииВызовСервера.ОбновитьИсправленияИзСкрипта(fixFileNames, removeFixNames)
} catch (ex) { } catch (ex) {
if (outf != null) { if (outf != null) {
SSL/src/Documents/Встреча/Forms/ФормаДокумента/Form.form
+216 -208
View File
@@ -499,6 +499,10 @@
<items xsi:type="form:FormField"> <items xsi:type="form:FormField">
<name>ПредставлениеКонтакта</name> <name>ПредставлениеКонтакта</name>
<id>32</id> <id>32</id>
<title>
<key>ru</key>
<value>Контакт</value>
</title>
<visible>true</visible> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
@@ -532,9 +536,27 @@
<headerHorizontalAlign>Left</headerHorizontalAlign> <headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter> <showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo"> <extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>AutoComplete</event>
<name>ПредставлениеКонтактаАвтоПодбор</name>
</handlers>
<handlers>
<event>StartChoice</event>
<name>ПредставлениеКонтактаНачалоВыбора</name>
</handlers>
<handlers>
<event>Opening</event>
<name>ПредставлениеКонтактаОткрытие</name>
</handlers>
<handlers>
<event>ChoiceProcessing</event>
<name>ПредставлениеКонтактаОбработкаВыбора</name>
</handlers>
<width>15</width> <width>15</width>
<autoMaxWidth>true</autoMaxWidth> <autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight> <autoMaxHeight>true</autoMaxHeight>
<choiceButton>true</choiceButton>
<openButton>true</openButton>
<chooseType>true</chooseType> <chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled> <typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit> <textEdit>true</textEdit>
@@ -569,6 +591,7 @@
</contextMenu> </contextMenu>
<type>InputField</type> <type>InputField</type>
<editMode>Enter</editMode> <editMode>Enter</editMode>
<autoCellHeight>true</autoCellHeight>
<showInHeader>true</showInHeader> <showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign> <headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter> <showInFooter>true</showInFooter>
@@ -576,56 +599,7 @@
<width>15</width> <width>15</width>
<autoMaxWidth>true</autoMaxWidth> <autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight> <autoMaxHeight>true</autoMaxHeight>
<chooseType>true</chooseType> <wrap>true</wrap>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Контакт</name>
<id>30</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.Участники.Контакт</segments>
</dataPath>
<handlers>
<event>OnChange</event>
<name>КонтактПриИзменении</name>
</handlers>
<extendedTooltip>
<name>КонтактExtendedTooltip</name>
<id>151</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КонтактКонтекстноеМеню</name>
<id>31</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>StartChoice</event>
<name>КонтактНачалоВыбора</name>
</handlers>
<width>15</width>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<clearButton>true</clearButton>
<chooseType>true</chooseType> <chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled> <typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit> <textEdit>true</textEdit>
@@ -772,7 +746,7 @@
<verticalScrollBar>AutoUse</verticalScrollBar> <verticalScrollBar>AutoUse</verticalScrollBar>
<horizontalLines>true</horizontalLines> <horizontalLines>true</horizontalLines>
<verticalLines>true</verticalLines> <verticalLines>true</verticalLines>
<useAlternationRowColorBWA>false</useAlternationRowColorBWA> <autoInsertNewRow>true</autoInsertNewRow>
<searchOnInput>Auto</searchOnInput> <searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView> <initialListView>Auto</initialListView>
<horizontalStretch>true</horizontalStretch> <horizontalStretch>true</horizontalStretch>
@@ -780,6 +754,196 @@
<autoMaxCardHeight>true</autoMaxCardHeight> <autoMaxCardHeight>true</autoMaxCardHeight>
<rowFilter xsi:type="core:UndefinedValue"/> <rowFilter xsi:type="core:UndefinedValue"/>
</items> </items>
<items xsi:type="form:FormGroup">
<name>ГруппаПодвал</name>
<id>207</id>
<items xsi:type="form:FormGroup">
<name>СтраницыУказаныКонтакты</name>
<id>90</id>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыНеЗаполнены</name>
<id>91</id>
<items xsi:type="form:Decoration">
<name>ДекорацияКонтактыНеЗаполнены</name>
<id>95</id>
<title>
<key>ru</key>
<value>Не для всех участников встречи подобраны контакты.</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияКонтактыНеЗаполненыExtendedTooltip</name>
<id>143</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияКонтактыНеЗаполненыКонтекстноеМеню</name>
<id>96</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxHeight>true</autoMaxHeight>
<textColor xsi:type="core:ColorRef">
<color>Style.FieldSelectionBackColor</color>
</textColor>
<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>СтраницаКонтактыНеЗаполненыExtendedTooltip</name>
<id>142</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>Vertical</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыЗаполнены</name>
<id>93</id>
<items xsi:type="form:Decoration">
<name>ДекорацияКонтактыЗаполнены</name>
<id>97</id>
<title>
<key>ru</key>
<value>Участников встречи рекомендуется подбирать из списка контактов.</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияКонтактыЗаполненыExtendedTooltip</name>
<id>145</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияКонтактыЗаполненыКонтекстноеМеню</name>
<id>98</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxHeight>true</autoMaxHeight>
<textColor xsi:type="core:ColorRef">
<color>Style.ПоясняющийТекст</color>
</textColor>
<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>СтраницаКонтактыЗаполненыExtendedTooltip</name>
<id>144</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>Vertical</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Страницы указаны контакты</value>
</title>
<groupVerticalAlign>Center</groupVerticalAlign>
<extendedTooltip>
<name>СтраницыУказаныКонтактыExtendedTooltip</name>
<id>141</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>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Подвал</value>
</title>
<extendedTooltip>
<name>ГруппаПодвалРасширеннаяПодсказка</name>
<id>208</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>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<visible>true</visible> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
@@ -1194,161 +1358,6 @@
<textSize>Normal</textSize> <textSize>Normal</textSize>
</extInfo> </extInfo>
</items> </items>
<items xsi:type="form:FormGroup">
<name>СтраницыУказаныКонтакты</name>
<id>90</id>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыНеЗаполнены</name>
<id>91</id>
<items xsi:type="form:Decoration">
<name>ДекорацияКонтактыНеЗаполнены</name>
<id>95</id>
<title>
<key>ru</key>
<value>Не все контакты подобраны</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияКонтактыНеЗаполненыExtendedTooltip</name>
<id>143</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияКонтактыНеЗаполненыКонтекстноеМеню</name>
<id>96</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxHeight>true</autoMaxHeight>
<textColor xsi:type="core:ColorRef">
<color>Style.FieldSelectionBackColor</color>
</textColor>
<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>СтраницаКонтактыНеЗаполненыExtendedTooltip</name>
<id>142</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>Vertical</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыЗаполнены</name>
<id>93</id>
<items xsi:type="form:Decoration">
<name>ДекорацияКонтактыЗаполнены</name>
<id>97</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияКонтактыЗаполненыExtendedTooltip</name>
<id>145</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияКонтактыЗаполненыКонтекстноеМеню</name>
<id>98</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<textColor xsi:type="core:ColorRef">
<color>Style.ПоясняющийТекст</color>
</textColor>
<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>СтраницаКонтактыЗаполненыExtendedTooltip</name>
<id>144</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>Vertical</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Страницы указаны контакты</value>
</title>
<groupVerticalAlign>Top</groupVerticalAlign>
<extendedTooltip>
<name>СтраницыУказаныКонтактыExtendedTooltip</name>
<id>141</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>
<items xsi:type="form:FormGroup"> <items xsi:type="form:FormGroup">
<name>ГруппаАвторДатаРегистрации</name> <name>ГруппаАвторДатаРегистрации</name>
<id>107</id> <id>107</id>
@@ -2116,12 +2125,11 @@
<id>2</id> <id>2</id>
<toolTip> <toolTip>
<key>ru</key> <key>ru</key>
<value>Создать контакт</value> <value>Создать контакт для участника встречи</value>
</toolTip> </toolTip>
<use> <use>
<common>true</common> <common>true</common>
</use> </use>
<shortcut>Ctrl+S</shortcut>
<picture xsi:type="core:PictureRef"> <picture xsi:type="core:PictureRef">
<picture>StdPicture.AddListItem</picture> <picture>StdPicture.AddListItem</picture>
</picture> </picture>
SSL/src/Documents/Встреча/Forms/ФормаДокумента/Module.bsl
+83 -28
View File
@@ -18,6 +18,8 @@
&НаСервере &НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
УстановитьУсловноеОформление();
Если Объект.Ссылка.Пустая() Тогда Если Объект.Ссылка.Пустая() Тогда
Взаимодействия.УстановитьПредметПоДаннымЗаполнения(Параметры, Предмет); Взаимодействия.УстановитьПредметПоДаннымЗаполнения(Параметры, Предмет);
КонецЕсли; КонецЕсли;
@@ -363,38 +365,57 @@
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
Процедура КонтактНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) Процедура ПредставлениеКонтактаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь; СтандартнаяОбработка = Ложь;
текДанные = Элементы.Участники.ТекущиеДанные; ТекущиеДанные = Элементы.Участники.ТекущиеДанные;
ПараметрыОткрытия = ВзаимодействияКлиент.ПараметрыВыбораКонтакта(УникальныйИдентификатор);
ВзаимодействияКлиент.ВыбратьКонтакт(Предмет, ТекущиеДанные.КакСвязаться, ТекущиеДанные.ПредставлениеКонтакта,
ТекущиеДанные.Контакт, ПараметрыОткрытия);
ПараметрыОткрытия = Новый Структура; КонецПроцедуры
ПараметрыОткрытия.Вставить("ТолькоEmail", Ложь);
ПараметрыОткрытия.Вставить("ТолькоТелефон", Ложь);
ПараметрыОткрытия.Вставить("ЗаменятьПустыеАдресИПредставление", Истина);
ПараметрыОткрытия.Вставить("ДляФормыУточненияКонтактов", Ложь);
ПараметрыОткрытия.Вставить("ИдентификаторФормы", УникальныйИдентификатор);
ВзаимодействияКлиент.ВыбратьКонтакт(Предмет, текДанные.КакСвязаться, текДанные.ПредставлениеКонтакта, &НаКлиенте
текДанные.Контакт, ПараметрыОткрытия) Процедура ПредставлениеКонтактаАвтоПодбор(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка)
Если Ожидание = 0 Тогда
Возврат;
КонецЕсли;
Если ПустаяСтрока(Текст) Тогда
Возврат;
КонецЕсли;
ДанныеВыбора = АвтоПодборКонтактов(Текст);
Если ДанныеВыбора.Количество() > 0 Тогда
СтандартнаяОбработка = Ложь;
Иначе
ДанныеВыбора = Неопределено;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПредставлениеКонтактаОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ТипЗнч(ВыбранноеЗначение) = Тип("Структура") Тогда
ТекущиеДанные = Элементы.Участники.ТекущиеДанные;
ТекущиеДанные.ПредставлениеКонтакта = ВыбранноеЗначение.ПредставлениеКонтакта;
ТекущиеДанные.Контакт = ВыбранноеЗначение.Контакт;
ПредставлениеКонтактаПриИзменении(Элемент);
КонецЕсли;
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
Процедура ПредставлениеКонтактаПриИзменении(Элемент) Процедура ПредставлениеКонтактаПриИзменении(Элемент)
ПроверитьДоступностьСозданияКонтакта();
КонецПроцедуры
&НаКлиенте
Процедура КонтактПриИзменении(Элемент)
ТекущиеДанные = Элементы.Участники.ТекущиеДанные; ТекущиеДанные = Элементы.Участники.ТекущиеДанные;
Если ТекущиеДанные <> Неопределено Тогда Если ТекущиеДанные <> Неопределено И ЗначениеЗаполнено(ТекущиеДанные.Контакт) Тогда
ВзаимодействияВызовСервера.ПредставлениеИВсяКонтактнаяИнформациюКонтакта(ТекущиеДанные.Контакт, ВзаимодействияВызовСервера.ПредставлениеИВсяКонтактнаяИнформациюКонтакта(ТекущиеДанные.Контакт,
ТекущиеДанные.ПредставлениеКонтакта, ТекущиеДанные.ПредставлениеКонтакта, ТекущиеДанные.КакСвязаться);
ТекущиеДанные.КакСвязаться);
КонецЕсли; КонецЕсли;
ПроверитьДоступностьСозданияКонтакта(); ПроверитьДоступностьСозданияКонтакта();
@@ -402,6 +423,19 @@
КонецПроцедуры КонецПроцедуры
&НаКлиенте
Процедура ПредставлениеКонтактаОткрытие(Элемент, СтандартнаяОбработка)
ТекущиеДанные = Элементы.Участники.ТекущиеДанные;
Если ТекущиеДанные = Неопределено Тогда
Возврат;
КонецЕсли;
СтандартнаяОбработка = Ложь;
ПоказатьЗначение(, ТекущиеДанные.Контакт);
КонецПроцедуры
#КонецОбласти #КонецОбласти
#Область ОбработчикиКомандФормы #Область ОбработчикиКомандФормы
@@ -409,12 +443,19 @@
&НаКлиенте &НаКлиенте
Процедура СоздатьКонтактВыполнить() Процедура СоздатьКонтактВыполнить()
текДанные = Элементы.Участники.ТекущиеДанные; ТекущиеДанные = Элементы.Участники.ТекущиеДанные;
Если текДанные <> Неопределено Тогда Если ТекущиеДанные = Неопределено Тогда
ВзаимодействияКлиент.СоздатьКонтакт( Возврат;
текДанные.ПредставлениеКонтакта, текДанные.КакСвязаться, Объект.Ссылка, СписокИнтерактивноСоздаваемыхКонтактов);
КонецЕсли; КонецЕсли;
ОчиститьСообщения();
Если Объект.Ссылка.Пустая() И Не Записать() Тогда
Возврат;
КонецЕсли;
ВзаимодействияКлиент.СоздатьКонтакт(ТекущиеДанные.ПредставлениеКонтакта, ТекущиеДанные.КакСвязаться,
Объект.Ссылка, СписокИнтерактивноСоздаваемыхКонтактов);
КонецПроцедуры КонецПроцедуры
// СтандартныеПодсистемы.Свойства // СтандартныеПодсистемы.Свойства
@@ -457,13 +498,20 @@
#Область СлужебныеПроцедурыИФункции #Область СлужебныеПроцедурыИФункции
&НаСервере
Процедура УстановитьУсловноеОформление()
УсловноеОформление.Элементы.Очистить();
Взаимодействия.УстановитьУсловноеОформлениеВзаимодействия(ЭтотОбъект);
КонецПроцедуры
&НаКлиенте &НаКлиенте
Процедура ПроверитьДоступностьСозданияКонтакта() Процедура ПроверитьДоступностьСозданияКонтакта()
ТекДанные = Элементы.Участники.ТекущиеДанные; ТекущиеДанные = Элементы.Участники.ТекущиеДанные;
Элементы.СоздатьКонтакт.Доступность = (Не Объект.Ссылка.Пустая()) Элементы.СоздатьКонтакт.Доступность = (ТекущиеДанные <> Неопределено)
И ((ТекДанные <> Неопределено) И (НЕ ЗначениеЗаполнено(ТекущиеДанные.Контакт));
И (НЕ ЗначениеЗаполнено(ТекДанные.Контакт)));
КонецПроцедуры КонецПроцедуры
@@ -495,6 +543,13 @@
КонецПроцедуры КонецПроцедуры
&НаСервереБезКонтекста
Функция АвтоПодборКонтактов(Знач СтрокаПоиска)
Возврат Взаимодействия.АвтоПодборКонтактов(СтрокаПоиска);
КонецФункции
// СтандартныеПодсистемы.Свойства // СтандартныеПодсистемы.Свойства
&НаСервере &НаСервере
SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаДокумента/Form.form
+183 -205
View File
@@ -172,6 +172,10 @@
<items xsi:type="form:FormField"> <items xsi:type="form:FormField">
<name>ПредставлениеКонтакта</name> <name>ПредставлениеКонтакта</name>
<id>30</id> <id>30</id>
<title>
<key>ru</key>
<value>Контакт</value>
</title>
<visible>true</visible> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
@@ -205,9 +209,27 @@
<headerHorizontalAlign>Left</headerHorizontalAlign> <headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter> <showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo"> <extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>AutoComplete</event>
<name>ПредставлениеКонтактаАвтоПодбор</name>
</handlers>
<handlers>
<event>StartChoice</event>
<name>ПредставлениеКонтактаНачалоВыбора</name>
</handlers>
<handlers>
<event>Opening</event>
<name>ПредставлениеКонтактаОткрытие</name>
</handlers>
<handlers>
<event>ChoiceProcessing</event>
<name>ПредставлениеКонтактаОбработкаВыбора</name>
</handlers>
<width>15</width> <width>15</width>
<autoMaxWidth>true</autoMaxWidth> <autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight> <autoMaxHeight>true</autoMaxHeight>
<choiceButton>true</choiceButton>
<openButton>true</openButton>
<chooseType>true</chooseType> <chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled> <typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit> <textEdit>true</textEdit>
@@ -242,6 +264,7 @@
</contextMenu> </contextMenu>
<type>InputField</type> <type>InputField</type>
<editMode>Enter</editMode> <editMode>Enter</editMode>
<autoCellHeight>true</autoCellHeight>
<showInHeader>true</showInHeader> <showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign> <headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter> <showInFooter>true</showInFooter>
@@ -249,55 +272,7 @@
<width>15</width> <width>15</width>
<autoMaxWidth>true</autoMaxWidth> <autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight> <autoMaxHeight>true</autoMaxHeight>
<chooseType>true</chooseType> <wrap>true</wrap>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Контакт</name>
<id>28</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.Участники.Контакт</segments>
</dataPath>
<handlers>
<event>OnChange</event>
<name>КонтактПриИзменении</name>
</handlers>
<extendedTooltip>
<name>КонтактExtendedTooltip</name>
<id>128</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КонтактКонтекстноеМеню</name>
<id>29</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>StartChoice</event>
<name>КонтактНачалоВыбора</name>
</handlers>
<width>15</width>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<chooseType>true</chooseType> <chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled> <typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit> <textEdit>true</textEdit>
@@ -444,7 +419,6 @@
<verticalScrollBar>AutoUse</verticalScrollBar> <verticalScrollBar>AutoUse</verticalScrollBar>
<horizontalLines>true</horizontalLines> <horizontalLines>true</horizontalLines>
<verticalLines>true</verticalLines> <verticalLines>true</verticalLines>
<useAlternationRowColorBWA>false</useAlternationRowColorBWA>
<autoInsertNewRow>true</autoInsertNewRow> <autoInsertNewRow>true</autoInsertNewRow>
<searchOnInput>Auto</searchOnInput> <searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView> <initialListView>Auto</initialListView>
@@ -453,6 +427,165 @@
<autoMaxCardHeight>true</autoMaxCardHeight> <autoMaxCardHeight>true</autoMaxCardHeight>
<rowFilter xsi:type="core:UndefinedValue"/> <rowFilter xsi:type="core:UndefinedValue"/>
</items> </items>
<items xsi:type="form:FormGroup">
<name>СтраницыУказаныКонтакты</name>
<id>82</id>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыНеЗаполнены</name>
<id>83</id>
<items xsi:type="form:Decoration">
<name>ДекорацияКонтактыНеЗаполнены</name>
<id>84</id>
<title>
<key>ru</key>
<value>Не для всех участников подобраны контакты.</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияКонтактыНеЗаполненыExtendedTooltip</name>
<id>120</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияКонтактыНеЗаполненыКонтекстноеМеню</name>
<id>85</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxHeight>true</autoMaxHeight>
<textColor xsi:type="core:ColorRef">
<color>Style.FieldSelectionBackColor</color>
</textColor>
<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>СтраницаКонтактыНеЗаполненыExtendedTooltip</name>
<id>119</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>Vertical</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыЗаполнены</name>
<id>86</id>
<items xsi:type="form:Decoration">
<name>ДекорацияКонтактыЗаполнены</name>
<id>87</id>
<title>
<key>ru</key>
<value>Участников рекомендуется подбирать из списка контактов.</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияКонтактыЗаполненыExtendedTooltip</name>
<id>122</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияКонтактыЗаполненыКонтекстноеМеню</name>
<id>88</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<textColor xsi:type="core:ColorRef">
<color>Style.ПоясняющийТекст</color>
</textColor>
<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>СтраницаКонтактыЗаполненыExtendedTooltip</name>
<id>121</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>Vertical</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Страницы указаны контакты</value>
</title>
<groupVerticalAlign>Top</groupVerticalAlign>
<extendedTooltip>
<name>СтраницыУказаныКонтактыExtendedTooltip</name>
<id>118</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>
<visible>true</visible> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
@@ -834,161 +967,6 @@
<textSize>Normal</textSize> <textSize>Normal</textSize>
</extInfo> </extInfo>
</items> </items>
<items xsi:type="form:FormGroup">
<name>СтраницыУказаныКонтакты</name>
<id>82</id>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыНеЗаполнены</name>
<id>83</id>
<items xsi:type="form:Decoration">
<name>ДекорацияКонтактыНеЗаполнены</name>
<id>84</id>
<title>
<key>ru</key>
<value>Не все контакты подобраны</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияКонтактыНеЗаполненыExtendedTooltip</name>
<id>120</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияКонтактыНеЗаполненыКонтекстноеМеню</name>
<id>85</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxHeight>true</autoMaxHeight>
<textColor xsi:type="core:ColorRef">
<color>Style.FieldSelectionBackColor</color>
</textColor>
<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>СтраницаКонтактыНеЗаполненыExtendedTooltip</name>
<id>119</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>Vertical</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыЗаполнены</name>
<id>86</id>
<items xsi:type="form:Decoration">
<name>ДекорацияКонтактыЗаполнены</name>
<id>87</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияКонтактыЗаполненыExtendedTooltip</name>
<id>122</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияКонтактыЗаполненыКонтекстноеМеню</name>
<id>88</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<textColor xsi:type="core:ColorRef">
<color>Style.ПоясняющийТекст</color>
</textColor>
<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>СтраницаКонтактыЗаполненыExtendedTooltip</name>
<id>121</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>Vertical</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Страницы указаны контакты</value>
</title>
<groupVerticalAlign>Top</groupVerticalAlign>
<extendedTooltip>
<name>СтраницыУказаныКонтактыExtendedTooltip</name>
<id>118</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>
<items xsi:type="form:FormGroup"> <items xsi:type="form:FormGroup">
<name>ГруппаДатаАвтор</name> <name>ГруппаДатаАвтор</name>
<id>170</id> <id>170</id>
SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаДокумента/Module.bsl
+86 -31
View File
@@ -18,6 +18,8 @@
&НаСервере &НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
УстановитьУсловноеОформление();
Если Объект.Ссылка.Пустая() Тогда Если Объект.Ссылка.Пустая() Тогда
Взаимодействия.УстановитьПредметПоДаннымЗаполнения(Параметры, Предмет); Взаимодействия.УстановитьПредметПоДаннымЗаполнения(Параметры, Предмет);
КонецЕсли; КонецЕсли;
@@ -298,41 +300,73 @@
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
Процедура КонтактНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) Процедура ПредставлениеКонтактаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь; СтандартнаяОбработка = Ложь;
текДанные = Элементы.Участники.ТекущиеДанные; ТекущиеДанные = Элементы.Участники.ТекущиеДанные;
ПараметрыОткрытия = ВзаимодействияКлиент.ПараметрыВыбораКонтакта(УникальныйИдентификатор);
ВзаимодействияКлиент.ВыбратьКонтакт(Предмет, ТекущиеДанные.КакСвязаться,
ТекущиеДанные.ПредставлениеКонтакта, ТекущиеДанные.Контакт, ПараметрыОткрытия);
ПараметрыОткрытия = Новый Структура; КонецПроцедуры
ПараметрыОткрытия.Вставить("ТолькоEmail", Ложь);
ПараметрыОткрытия.Вставить("ТолькоТелефон", Ложь);
ПараметрыОткрытия.Вставить("ЗаменятьПустыеАдресИПредставление", Истина);
ПараметрыОткрытия.Вставить("ДляФормыУточненияКонтактов", Ложь);
ПараметрыОткрытия.Вставить("ИдентификаторФормы", УникальныйИдентификатор);
ВзаимодействияКлиент.ВыбратьКонтакт(Предмет, текДанные.КакСвязаться, &НаКлиенте
текДанные.ПредставлениеКонтакта, текДанные.Контакт, ПараметрыОткрытия); Процедура ПредставлениеКонтактаАвтоПодбор(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка)
Если Ожидание = 0 Тогда
Возврат;
КонецЕсли;
Если ПустаяСтрока(Текст) Тогда
Возврат;
КонецЕсли;
ДанныеВыбора = АвтоПодборКонтактов(Текст);
Если ДанныеВыбора.Количество() > 0 Тогда
СтандартнаяОбработка = Ложь;
Иначе
ДанныеВыбора = Неопределено;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПредставлениеКонтактаОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ТипЗнч(ВыбранноеЗначение) = Тип("Структура") Тогда
ТекущиеДанные = Элементы.Участники.ТекущиеДанные;
ТекущиеДанные.ПредставлениеКонтакта = ВыбранноеЗначение.ПредставлениеКонтакта;
ТекущиеДанные.Контакт = ВыбранноеЗначение.Контакт;
ПредставлениеКонтактаПриИзменении(Элемент);
КонецЕсли;
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
Процедура ПредставлениеКонтактаПриИзменении(Элемент) Процедура ПредставлениеКонтактаПриИзменении(Элемент)
ТекущиеДанные = Элементы.Участники.ТекущиеДанные;
Если ТекущиеДанные <> Неопределено И ЗначениеЗаполнено(ТекущиеДанные.Контакт) Тогда
ВзаимодействияВызовСервера.ПредставлениеИВсяКонтактнаяИнформациюКонтакта(ТекущиеДанные.Контакт,
ТекущиеДанные.ПредставлениеКонтакта, ТекущиеДанные.КакСвязаться);
КонецЕсли;
ПроверитьДоступностьСозданияКонтакта(); ПроверитьДоступностьСозданияКонтакта();
ВзаимодействияКлиентСервер.ПроверитьЗаполнениеКонтактов(Объект, ЭтотОбъект, "ЗапланированноеВзаимодействие");
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
Процедура КонтактПриИзменении(Элемент) Процедура ПредставлениеКонтактаОткрытие(Элемент, СтандартнаяОбработка)
ТекущиеДанные = Элементы.Участники.ТекущиеДанные; ТекущиеДанные = Элементы.Участники.ТекущиеДанные;
Если ТекущиеДанные <> Неопределено Тогда Если ТекущиеДанные = Неопределено Тогда
ВзаимодействияВызовСервера.ПредставлениеИВсяКонтактнаяИнформациюКонтакта(ТекущиеДанные.Контакт, Возврат;
ТекущиеДанные.ПредставлениеКонтакта,
ТекущиеДанные.КакСвязаться);
КонецЕсли; КонецЕсли;
ПроверитьДоступностьСозданияКонтакта();
ВзаимодействияКлиентСервер.ПроверитьЗаполнениеКонтактов(Объект, ЭтотОбъект, "ЗапланированноеВзаимодействие"); СтандартнаяОбработка = Ложь;
ПоказатьЗначение(, ТекущиеДанные.Контакт);
КонецПроцедуры КонецПроцедуры
@@ -352,12 +386,19 @@
&НаКлиенте &НаКлиенте
Процедура СоздатьКонтактВыполнить() Процедура СоздатьКонтактВыполнить()
текДанные = Элементы.Участники.ТекущиеДанные; ТекущиеДанные = Элементы.Участники.ТекущиеДанные;
Если текДанные <> Неопределено Тогда Если ТекущиеДанные = Неопределено Тогда
ВзаимодействияКлиент.СоздатьКонтакт( Возврат;
текДанные.ПредставлениеКонтакта, текДанные.КакСвязаться, Объект.Ссылка, СписокИнтерактивноСоздаваемыхКонтактов);
КонецЕсли; КонецЕсли;
ОчиститьСообщения();
Если Объект.Ссылка.Пустая() И Не Записать() Тогда
Возврат;
КонецЕсли;
ВзаимодействияКлиент.СоздатьКонтакт(ТекущиеДанные.ПредставлениеКонтакта, ТекущиеДанные.КакСвязаться,
Объект.Ссылка, СписокИнтерактивноСоздаваемыхКонтактов);
КонецПроцедуры КонецПроцедуры
// СтандартныеПодсистемы.Свойства // СтандартныеПодсистемы.Свойства
@@ -400,6 +441,14 @@
#Область СлужебныеПроцедурыИФункции #Область СлужебныеПроцедурыИФункции
&НаСервере
Процедура УстановитьУсловноеОформление()
УсловноеОформление.Элементы.Очистить();
Взаимодействия.УстановитьУсловноеОформлениеВзаимодействия(ЭтотОбъект);
КонецПроцедуры
&НаСервере &НаСервере
Процедура ПриСозданииИПриЧтенииНаСервере() Процедура ПриСозданииИПриЧтенииНаСервере()
@@ -416,6 +465,22 @@
КонецПроцедуры КонецПроцедуры
&НаКлиенте
Процедура ПроверитьДоступностьСозданияКонтакта()
ТекущиеДанные = Элементы.Участники.ТекущиеДанные;
Элементы.СоздатьКонтакт.Доступность = (ТекущиеДанные <> Неопределено)
И (НЕ ЗначениеЗаполнено(ТекущиеДанные.Контакт));
КонецПроцедуры
&НаСервереБезКонтекста
Функция АвтоПодборКонтактов(Знач СтрокаПоиска)
Возврат Взаимодействия.АвтоПодборКонтактов(СтрокаПоиска);
КонецФункции
// СтандартныеПодсистемы.Свойства // СтандартныеПодсистемы.Свойства
&НаСервере &НаСервере
@@ -450,16 +515,6 @@
// Конец СтандартныеПодсистемы.Свойства // Конец СтандартныеПодсистемы.Свойства
&НаКлиенте
Процедура ПроверитьДоступностьСозданияКонтакта()
ТекДанные = Элементы.Участники.ТекущиеДанные;
Элементы.СоздатьКонтакт.Доступность = (НЕ Объект.Ссылка.Пустая())
И ((ТекДанные <> Неопределено)
И (НЕ ЗначениеЗаполнено(ТекДанные.Контакт)));
КонецПроцедуры
// СтандартныеПодсистемы.ПодключаемыеКоманды // СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте &НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда) Процедура Подключаемый_ВыполнитьКоманду(Команда)
SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Form.form
+184 -209
View File
@@ -209,8 +209,12 @@
<excludedCommands>EndEdit</excludedCommands> <excludedCommands>EndEdit</excludedCommands>
<excludedCommands>SelectAll</excludedCommands> <excludedCommands>SelectAll</excludedCommands>
<items xsi:type="form:FormField"> <items xsi:type="form:FormField">
<name>АдресатыПредставлениеКонтакта</name> <name>ПредставлениеКонтакта</name>
<id>59</id> <id>59</id>
<title>
<key>ru</key>
<value>Контакт</value>
</title>
<visible>true</visible> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
@@ -224,7 +228,7 @@
<name>ПредставлениеКонтактаПриИзменении</name> <name>ПредставлениеКонтактаПриИзменении</name>
</handlers> </handlers>
<extendedTooltip> <extendedTooltip>
<name>АдресатыПредставлениеКонтактаExtendedTooltip</name> <name>ПредставлениеКонтактаРасширеннаяПодсказка</name>
<id>145</id> <id>145</id>
<type>Label</type> <type>Label</type>
<autoMaxWidth>true</autoMaxWidth> <autoMaxWidth>true</autoMaxWidth>
@@ -234,20 +238,38 @@
</extInfo> </extInfo>
</extendedTooltip> </extendedTooltip>
<contextMenu> <contextMenu>
<name>АдресатыПредставлениеКонтактаКонтекстноеМеню</name> <name>ПредставлениеКонтактаКонтекстноеМеню</name>
<id>60</id> <id>60</id>
<autoFill>true</autoFill> <autoFill>true</autoFill>
</contextMenu> </contextMenu>
<type>InputField</type> <type>InputField</type>
<editMode>Auto</editMode> <editMode>Enter</editMode>
<showInHeader>true</showInHeader> <showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign> <headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter> <showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo"> <extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>AutoComplete</event>
<name>ПредставлениеКонтактаАвтоПодбор</name>
</handlers>
<handlers>
<event>StartChoice</event>
<name>ПредставлениеКонтактаНачалоВыбора</name>
</handlers>
<handlers>
<event>Opening</event>
<name>ПредставлениеКонтактаОткрытие</name>
</handlers>
<handlers>
<event>ChoiceProcessing</event>
<name>ПредставлениеКонтактаОбработкаВыбора</name>
</handlers>
<width>15</width> <width>15</width>
<autoMaxWidth>true</autoMaxWidth> <autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight> <autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap> <wrap>true</wrap>
<choiceButton>true</choiceButton>
<openButton>true</openButton>
<chooseType>true</chooseType> <chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled> <typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit> <textEdit>true</textEdit>
@@ -304,57 +326,6 @@
<textSize>Normal</textSize> <textSize>Normal</textSize>
</extInfo> </extInfo>
</items> </items>
<items xsi:type="form:FormField">
<name>АдресатыКонтакт</name>
<id>57</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.Адресаты.Контакт</segments>
</dataPath>
<handlers>
<event>OnChange</event>
<name>КонтактПриИзменении</name>
</handlers>
<extendedTooltip>
<name>АдресатыКонтактExtendedTooltip</name>
<id>147</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>АдресатыКонтактКонтекстноеМеню</name>
<id>58</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Auto</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>StartChoice</event>
<name>КонтактНачалоВыбора</name>
</handlers>
<width>15</width>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<choiceButton>true</choiceButton>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField"> <items xsi:type="form:FormField">
<name>АдресатыСостояниеСообщения</name> <name>АдресатыСостояниеСообщения</name>
<id>96</id> <id>96</id>
@@ -587,6 +558,164 @@
<autoMaxCardHeight>true</autoMaxCardHeight> <autoMaxCardHeight>true</autoMaxCardHeight>
<rowFilter xsi:type="core:UndefinedValue"/> <rowFilter xsi:type="core:UndefinedValue"/>
</items> </items>
<items xsi:type="form:FormGroup">
<name>СтраницыУказаныКонтакты</name>
<id>37</id>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыНеЗаполнены</name>
<id>38</id>
<items xsi:type="form:Decoration">
<name>ДекорацияКонтактыНеЗаполнены</name>
<id>39</id>
<title>
<key>ru</key>
<value>Не для всех адресатов подобраны контакты.</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияКонтактыНеЗаполненыExtendedTooltip</name>
<id>138</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияКонтактыНеЗаполненыКонтекстноеМеню</name>
<id>40</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxHeight>true</autoMaxHeight>
<textColor xsi:type="core:ColorRef">
<color>Style.FieldSelectionBackColor</color>
</textColor>
<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>СтраницаКонтактыНеЗаполненыExtendedTooltip</name>
<id>137</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>Vertical</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыЗаполнены</name>
<id>41</id>
<items xsi:type="form:Decoration">
<name>ДекорацияКонтактыЗаполнены</name>
<id>42</id>
<title>
<key>ru</key>
<value>Адресатов рекомендуется подбирать из списка контактов.</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияКонтактыЗаполненыExtendedTooltip</name>
<id>140</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияКонтактыЗаполненыКонтекстноеМеню</name>
<id>43</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<textColor xsi:type="core:ColorRef">
<color>Style.ПоясняющийТекст</color>
</textColor>
<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>СтраницаКонтактыЗаполненыExtendedTooltip</name>
<id>139</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>Vertical</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Страницы указаны контакты</value>
</title>
<extendedTooltip>
<name>СтраницыУказаныКонтактыExtendedTooltip</name>
<id>136</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>
<visible>true</visible> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
@@ -1119,160 +1248,6 @@
<currentRowUse>Auto</currentRowUse> <currentRowUse>Auto</currentRowUse>
</extInfo> </extInfo>
</items> </items>
<items xsi:type="form:FormGroup">
<name>СтраницыУказаныКонтакты</name>
<id>37</id>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыНеЗаполнены</name>
<id>38</id>
<items xsi:type="form:Decoration">
<name>ДекорацияКонтактыНеЗаполнены</name>
<id>39</id>
<title>
<key>ru</key>
<value>Не все контакты подобраны</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияКонтактыНеЗаполненыExtendedTooltip</name>
<id>138</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияКонтактыНеЗаполненыКонтекстноеМеню</name>
<id>40</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxHeight>true</autoMaxHeight>
<textColor xsi:type="core:ColorRef">
<color>Style.FieldSelectionBackColor</color>
</textColor>
<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>СтраницаКонтактыНеЗаполненыExtendedTooltip</name>
<id>137</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>Vertical</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыЗаполнены</name>
<id>41</id>
<items xsi:type="form:Decoration">
<name>ДекорацияКонтактыЗаполнены</name>
<id>42</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияКонтактыЗаполненыExtendedTooltip</name>
<id>140</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияКонтактыЗаполненыКонтекстноеМеню</name>
<id>43</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<textColor xsi:type="core:ColorRef">
<color>Style.ПоясняющийТекст</color>
</textColor>
<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>СтраницаКонтактыЗаполненыExtendedTooltip</name>
<id>139</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>Vertical</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Страницы указаны контакты</value>
</title>
<extendedTooltip>
<name>СтраницыУказаныКонтактыExtendedTooltip</name>
<id>136</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>
<items xsi:type="form:FormGroup"> <items xsi:type="form:FormGroup">
<name>ГруппаСтатусДатаАвтор</name> <name>ГруппаСтатусДатаАвтор</name>
<id>197</id> <id>197</id>
SSL/src/Documents/СообщениеSMS/Forms/ФормаДокумента/Module.bsl
+85 -21
View File
@@ -357,35 +357,75 @@
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
Процедура КонтактНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) Процедура ПредставлениеКонтактаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь; СтандартнаяОбработка = Ложь;
текДанные = Элементы.Адресаты.ТекущиеДанные; ТекущиеДанные = Элементы.Адресаты.ТекущиеДанные;
ПараметрыОткрытия = ВзаимодействияКлиент.ПараметрыВыбораКонтакта(УникальныйИдентификатор);
ПараметрыОткрытия.ТолькоТелефон = Истина;
ВзаимодействияКлиент.ВыбратьКонтакт(Предмет, ТекущиеДанные.КакСвязаться,
ТекущиеДанные.ПредставлениеКонтакта, ТекущиеДанные.Контакт, ПараметрыОткрытия);
ПараметрыОткрытия = Новый Структура; КонецПроцедуры
ПараметрыОткрытия.Вставить("ТолькоEmail", Ложь);
ПараметрыОткрытия.Вставить("ТолькоТелефон", Истина);
ПараметрыОткрытия.Вставить("ЗаменятьПустыеАдресИПредставление", Истина);
ПараметрыОткрытия.Вставить("ДляФормыУточненияКонтактов", Ложь);
ПараметрыОткрытия.Вставить("ИдентификаторФормы", УникальныйИдентификатор);
ВзаимодействияКлиент.ВыбратьКонтакт(Предмет, текДанные.КакСвязаться, текДанные.ПредставлениеКонтакта, &НаКлиенте
текДанные.Контакт, ПараметрыОткрытия); Процедура ПредставлениеКонтактаАвтоПодбор(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка)
Если Ожидание = 0 Тогда
Возврат;
КонецЕсли;
Если ПустаяСтрока(Текст) Тогда
Возврат;
КонецЕсли;
ДанныеВыбора = АвтоПодборКонтактов(Текст);
Если ДанныеВыбора.Количество() > 0 Тогда
СтандартнаяОбработка = Ложь;
Иначе
ДанныеВыбора = Неопределено;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПредставлениеКонтактаОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Если ТипЗнч(ВыбранноеЗначение) = Тип("Структура") Тогда
ТекущиеДанные = Элементы.Адресаты.ТекущиеДанные;
ТекущиеДанные.ПредставлениеКонтакта = ВыбранноеЗначение.ПредставлениеКонтакта;
ТекущиеДанные.Контакт = ВыбранноеЗначение.Контакт;
ПредставлениеКонтактаПриИзменении(Элемент);
КонецЕсли;
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
Процедура ПредставлениеКонтактаПриИзменении(Элемент) Процедура ПредставлениеКонтактаПриИзменении(Элемент)
ТекущиеДанные = Элементы.Адресаты.ТекущиеДанные;
Если ТекущиеДанные <> Неопределено И ЗначениеЗаполнено(ТекущиеДанные.Контакт) Тогда
ВзаимодействияВызовСервера.ПредставлениеИВсяКонтактнаяИнформациюКонтакта(ТекущиеДанные.Контакт,
ТекущиеДанные.ПредставлениеКонтакта, ТекущиеДанные.КакСвязаться,
ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.Телефон"));
КонецЕсли;
ПроверитьДоступностьСозданияКонтакта(); ПроверитьДоступностьСозданияКонтакта();
ВзаимодействияКлиентСервер.ПроверитьЗаполнениеКонтактов(Объект, ЭтотОбъект, "СообщениеSMS");
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
Процедура КонтактПриИзменении(Элемент) Процедура ПредставлениеКонтактаОткрытие(Элемент, СтандартнаяОбработка)
ПроверитьДоступностьСозданияКонтакта(); ТекущиеДанные = Элементы.Адресаты.ТекущиеДанные;
ВзаимодействияКлиентСервер.ПроверитьЗаполнениеКонтактов(Объект, ЭтотОбъект, "СообщениеSMS"); Если ТекущиеДанные = Неопределено Тогда
Возврат;
КонецЕсли;
СтандартнаяОбработка = Ложь;
ПоказатьЗначение(, ТекущиеДанные.Контакт);
КонецПроцедуры КонецПроцедуры
@@ -410,12 +450,19 @@
&НаКлиенте &НаКлиенте
Процедура СоздатьКонтактВыполнить() Процедура СоздатьКонтактВыполнить()
текДанные = Элементы.Адресаты.ТекущиеДанные; ТекущиеДанные = Элементы.Адресаты.ТекущиеДанные;
Если текДанные <> Неопределено Тогда Если ТекущиеДанные = Неопределено Тогда
ВзаимодействияКлиент.СоздатьКонтакт( Возврат;
текДанные.ПредставлениеКонтакта, текДанные.КакСвязаться, Объект.Ссылка, СписокИнтерактивноСоздаваемыхКонтактов);
КонецЕсли; КонецЕсли;
ОчиститьСообщения();
Если Объект.Ссылка.Пустая() И Не Записать() Тогда
Возврат;
КонецЕсли;
ВзаимодействияКлиент.СоздатьКонтакт(ТекущиеДанные.ПредставлениеКонтакта, ТекущиеДанные.КакСвязаться,
Объект.Ссылка, СписокИнтерактивноСоздаваемыхКонтактов);
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
@@ -488,6 +535,17 @@
УсловноеОформление.Элементы.Очистить(); УсловноеОформление.Элементы.Очистить();
Элемент = УсловноеОформление.Элементы.Добавить();
ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ПредставлениеКонтакта.Имя);
ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.Адресаты.Контакт");
ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.НеЗаполнено;
Элемент.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветаСтиля.ЦветФонаВыделенияПоля);
КонецПроцедуры КонецПроцедуры
// СтандартныеПодсистемы.Свойства // СтандартныеПодсистемы.Свойства
@@ -541,13 +599,19 @@
&НаКлиенте &НаКлиенте
Процедура ПроверитьДоступностьСозданияКонтакта() Процедура ПроверитьДоступностьСозданияКонтакта()
ТекДанные = Элементы.Адресаты.ТекущиеДанные; ТекущиеДанные = Элементы.Адресаты.ТекущиеДанные;
Элементы.СоздатьКонтакт.Доступность = (Не Объект.Ссылка.Пустая()) Элементы.СоздатьКонтакт.Доступность = (ТекущиеДанные <> Неопределено)
И ((ТекДанные <> Неопределено) И (НЕ ЗначениеЗаполнено(ТекущиеДанные.Контакт));
И (НЕ ЗначениеЗаполнено(ТекДанные.Контакт)));
КонецПроцедуры КонецПроцедуры
&НаСервереБезКонтекста
Функция АвтоПодборКонтактов(Знач СтрокаПоиска)
Возврат Взаимодействия.АвтоПодборКонтактов(СтрокаПоиска);
КонецФункции
&НаСервере &НаСервере
Процедура ПриСозданииЧтенииНаСервере() Процедура ПриСозданииЧтенииНаСервере()
SSL/src/Reports/ДвиженияДокумента/ObjectModule.bsl
+2
View File
@@ -143,6 +143,8 @@
ПодготовитьВертикальныйВариант(ПараметрыОтчета.ДокументВладелец, Настройки); ПодготовитьВертикальныйВариант(ПараметрыОтчета.ДокументВладелец, Настройки);
КонецЕсли; КонецЕсли;
Настройки.ДополнительныеСвойства.Вставить("ИдентификаторыСвойствНастроек", Новый Массив);
ОтчетыСервер.ПодключитьСхему(ЭтотОбъект, Контекст, СхемаКомпоновкиДанных, КлючСхемы); ОтчетыСервер.ПодключитьСхему(ЭтотОбъект, Контекст, СхемаКомпоновкиДанных, КлючСхемы);
УстановитьУсловноеОформление(Настройки); УстановитьУсловноеОформление(Настройки);
SSL/src/Reports/ПроверкаЦелостностиТома/ObjectModule.bsl
+2 -2
View File
@@ -25,7 +25,8 @@
ТаблицаФайловНаДиске.Колонки.Добавить("Отредактировал"); ТаблицаФайловНаДиске.Колонки.Добавить("Отредактировал");
ТаблицаФайловНаДиске.Колонки.Добавить("ДатаРедактирования"); ТаблицаФайловНаДиске.Колонки.Добавить("ДатаРедактирования");
ПараметрТом = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти("Том"); Настройки = КомпоновщикНастроек.ПолучитьНастройки();
ПараметрТом = Настройки.ПараметрыДанных.Элементы.Найти("Том");
Если ПараметрТом <> Неопределено Тогда Если ПараметрТом <> Неопределено Тогда
ПутьКТому = РаботаСФайламиВТомахСлужебный.ПолныйПутьТома(ПараметрТом.Значение); ПутьКТому = РаботаСФайламиВТомахСлужебный.ПолныйПутьТома(ПараметрТом.Значение);
@@ -54,7 +55,6 @@
ДокументРезультат.Очистить(); ДокументРезультат.Очистить();
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
Настройки = КомпоновщикНастроек.ПолучитьНастройки();
ВнешниеНаборыДанных = Новый Структура; ВнешниеНаборыДанных = Новый Структура;
ВнешниеНаборыДанных.Вставить("ТаблицаПроверкиТома", ТаблицаФайловНаДиске); ВнешниеНаборыДанных.Вставить("ТаблицаПроверкиТома", ТаблицаФайловНаДиске);
SSL/src/Reports/ПроверкаЦелостностиТома/Templates/ОсновнаяСхемаКомпоновкиДанных/Template.dcs
+14 -1
View File
@@ -116,6 +116,17 @@
<dataSource>ИсточникДанных1</dataSource> <dataSource>ИсточникДанных1</dataSource>
<objectName>ТаблицаПроверкиТома</objectName> <objectName>ТаблицаПроверкиТома</objectName>
</dataSet> </dataSet>
<calculatedField>
<dataPath>СсылкаНаФайл</dataPath>
<expression>Файл</expression>
<title xsi:type="v8:LocalStringType">
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Наименование</v8:content>
</v8:item>
</title>
<presentationExpression>Имя</presentationExpression>
</calculatedField>
<totalField> <totalField>
<dataPath>Файл</dataPath> <dataPath>Файл</dataPath>
<expression>Количество(Файл)</expression> <expression>Количество(Файл)</expression>
@@ -134,6 +145,7 @@
<value xsi:nil="true"/> <value xsi:nil="true"/>
<useRestriction>false</useRestriction> <useRestriction>false</useRestriction>
<denyIncompleteValues>true</denyIncompleteValues> <denyIncompleteValues>true</denyIncompleteValues>
<use>Always</use>
</parameter> </parameter>
<settingsVariant> <settingsVariant>
<dcsset:name>Основной</dcsset:name> <dcsset:name>Основной</dcsset:name>
@@ -166,6 +178,7 @@
<dcscor:item xsi:type="dcsset:SettingsParameterValue"> <dcscor:item xsi:type="dcsset:SettingsParameterValue">
<dcscor:parameter>Том</dcscor:parameter> <dcscor:parameter>Том</dcscor:parameter>
<dcscor:value xsi:nil="true"/> <dcscor:value xsi:nil="true"/>
<dcsset:userSettingID>e7a1e7e5-697e-49c8-96b8-9a640b5b1ff2</dcsset:userSettingID>
</dcscor:item> </dcscor:item>
</dcsset:dataParameters> </dcsset:dataParameters>
<dcsset:outputParameters> <dcsset:outputParameters>
@@ -288,7 +301,7 @@
</dcsset:order> </dcsset:order>
<dcsset:selection> <dcsset:selection>
<dcsset:item xsi:type="dcsset:SelectedItemField"> <dcsset:item xsi:type="dcsset:SelectedItemField">
<dcsset:field>Имя</dcsset:field> <dcsset:field>СсылкаНаФайл</dcsset:field>
<dcsset:lwsTitle> <dcsset:lwsTitle>
<v8:item> <v8:item>
<v8:lang>ru</v8:lang> <v8:lang>ru</v8:lang>
SSL/src/Roles/АдминистраторСистемы/Rights.rights
+87 -87
View File
@@ -516,6 +516,93 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </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> <object>
<name>Constant.НастройкаПроксиСервера</name> <name>Constant.НастройкаПроксиСервера</name>
<right> <right>
@@ -2187,93 +2274,6 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </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> <object>
<name>DataProcessor.ОценкаПроизводительности.Command.ИмпортЗамеровПроизводительности</name> <name>DataProcessor.ОценкаПроизводительности.Command.ИмпортЗамеровПроизводительности</name>
<right> <right>
SSL/src/Roles/ДобавлениеИзменениеРассылокОтчетов/Rights.rights
+7 -7
View File
@@ -14,13 +14,6 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </object>
<object>
<name>Catalog.РассылкиОтчетов.Command.СобытияРассылки</name>
<right>
<name>View</name>
<value>true</value>
</right>
</object>
<object> <object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name> <name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right> <right>
@@ -52,6 +45,13 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </object>
<object>
<name>Catalog.РассылкиОтчетов.Command.СобытияРассылки</name>
<right>
<name>View</name>
<value>true</value>
</right>
</object>
<object> <object>
<name>Catalog.РассылкиОтчетов.Command.ВыполнитьСейчас</name> <name>Catalog.РассылкиОтчетов.Command.ВыполнитьСейчас</name>
<right> <right>
SSL/src/Roles/ПолныеПрава/Rights.rights
+39 -39
View File
@@ -752,6 +752,45 @@
<value>false</value> <value>false</value>
</right> </right>
</object> </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> <object>
<name>Constant.НастройкаПроксиСервера</name> <name>Constant.НастройкаПроксиСервера</name>
<right> <right>
@@ -3078,45 +3117,6 @@
<value>false</value> <value>false</value>
</right> </right>
</object> </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> <object>
<name>DataProcessor.ОценкаПроизводительности.Command.ИмпортЗамеровПроизводительности</name> <name>DataProcessor.ОценкаПроизводительности.Command.ИмпортЗамеровПроизводительности</name>
<right> <right>