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

2_4_3_162

Browse Source
This commit is contained in:
Компания 1С committed 2017-11-23 00:54:00 +03:00
1 parent ea835989f1
commit 234fd4687a
641 files changed
+51262 -16249
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

SSL/src/BusinessProcesses/Задание/ObjectModule.bsl
+1 -1
View File
@@ -72,7 +72,7 @@
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, ТекстЗаполнения, СтандартнаяОбработка)
Если ЭтоНовый() Тогда
Автор = Пользователи.АвторизованныйПользователь();
SSL/src/Catalogs/ВариантыОтчетов/Forms/ФормаСписка/Module.bsl
+2 -1
View File
@@ -460,6 +460,7 @@
ВсеПодсистемы = Не ЗначениеЗаполнено(СтрокаДерева.ПолноеИмя);
ПараметрыПоиска = Новый Структура;
ПараметрыПоиска.Вставить("ПометкаУдаления", Ложь);
Если ЗначениеЗаполнено(СтрокаПоиска) Тогда
ПараметрыПоиска.Вставить("СтрокаПоиска", СтрокаПоиска);
Элементы.Список.НачальноеОтображениеДерева = НачальноеОтображениеДерева.РаскрыватьВсеУровни;
@@ -528,9 +529,9 @@
КонецЕсли;
Размещено = 0;
НачатьТранзакцию();
УжеРазмещены = "";
НеМогутРазмещаться = "";
НачатьТранзакцию();
Попытка
Для Каждого ВариантСсылка Из ПараметрыРазмещения.Варианты.Массив Цикл
Если ВариантСсылка.ТипОтчета = Перечисления.ТипыОтчетов.Внешний Тогда
SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Form.form
+4
View File
@@ -535,6 +535,10 @@
<event>BeforeDeleteRow</event>
<name>СписокПередУдалением</name>
</handlers>
<handlers>
<event>BeforeRowChange</event>
<name>СписокПередНачаломИзменения</name>
</handlers>
<searchStringAddition>
<name>СписокСтрокаПоиска</name>
<id>55</id>
SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Module.bsl
+22
View File
@@ -67,13 +67,35 @@
КонецПроцедуры
&НаКлиенте
Процедура СписокПередНачаломИзменения(Элемент, Отказ)
Отказ = Истина;
ОткрытьКарточкуФайла();
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаКлиенте
Процедура ОткрытьКарточкуФайла()
ТекущиеДанные = Элементы.Список.ТекущиеДанные;
Если ТекущиеДанные <> Неопределено Тогда
Версия = ТекущиеДанные.Ссылка;
ПараметрыОткрытияФормы = Новый Структура("Ключ", Версия);
ОткрытьФорму("Обработка.РаботаСФайлами.Форма.ВерсияПрисоединенногоФайла", ПараметрыОткрытияФормы);
КонецЕсли;
КонецПроцедуры
&НаСервереБезКонтекста
Функция ВладелецФайла(ВыбраннаяСтрока)
Возврат ВыбраннаяСтрока.Владелец;
КонецФункции
#КонецОбласти
SSL/src/Catalogs/ВерсииФайлов/ManagerModule.bsl
+11
View File
@@ -27,3 +27,14 @@
#КонецОбласти
#КонецЕсли
#Область ОбработчикиСобытий
Процедура ОбработкаПолученияФормы(ВидФормы, Параметры, ВыбраннаяФорма, ДополнительнаяИнформация, СтандартнаяОбработка)
Если ВидФормы = "ФормаОбъекта" Тогда
СтандартнаяОбработка = Ложь;
ВыбраннаяФорма = "Обработка.РаботаСФайлами.Форма.ВерсияПрисоединенногоФайла";
КонецЕсли;
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/ВерсииФайлов/ObjectModule.bsl
+1 -3
View File
@@ -67,7 +67,6 @@
БлокировкаДанных = Новый БлокировкаДанных;
ЭлементБлокировкиДанных = БлокировкаДанных.Добавить(Метаданные.НайтиПоТипу(ТипЗнч(Выборка.Ссылка)).ПолноеИмя());
ЭлементБлокировкиДанных.УстановитьЗначение("Ссылка", Выборка.Ссылка);
ЭлементБлокировкиДанных.Режим = РежимБлокировкиДанных.Исключительный;
БлокировкаДанных.Заблокировать();
Объект = Выборка.Ссылка.ПолучитьОбъект();
@@ -78,9 +77,8 @@
КонецЕсли;
ЗафиксироватьТранзакцию();
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
ОтменитьТранзакцию();
ВызватьИсключение ПодробноеПредставлениеОшибки(ИнформацияОбОшибке);
ВызватьИсключение;
КонецПопытки;
КонецЕсли;
SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Module.bsl
-8
View File
@@ -22,7 +22,6 @@
Иначе
Элементы.Родитель.ТолькоПросмотр = Истина;
Элементы.Тип.ТолькоПросмотр = Истина;
КонецЕсли;
КонецЕсли;
@@ -62,13 +61,6 @@
КонецЕсли;
КонецЕсли;
Если Метаданные.Обработки.Найти("РасширенныйВводКонтактнойИнформации") <> Неопределено
И Метаданные.Обработки["РасширенныйВводКонтактнойИнформации"].Формы.Найти("НастройкиАдреса") <> Неопределено Тогда
Элементы.ДополнительныеНастройкиАдреса.Видимость = Истина;
Иначе
Элементы.ДополнительныеНастройкиАдреса.Видимость = Ложь;
КонецЕсли;
ДоступныДополнительныеНастройкиАдреса = (Метаданные.Обработки.Найти("РасширенныйВводКонтактнойИнформации") <> Неопределено
И Метаданные.Обработки["РасширенныйВводКонтактнойИнформации"].Формы.Найти("НастройкиАдреса") <> Неопределено);
SSL/src/Catalogs/ВидыПроверок/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss
+17
View File
@@ -0,0 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?>
<Settings xmlns="http://v8.1c.ru/8.1/data-composition-system/settings" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:pal="http://v8.1c.ru/8.1/data/ui/colors/palette" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core">
<filter>
<viewMode>Normal</viewMode>
<userSettingID>dfcece9d-5077-440b-b6b3-45a5cb4538eb</userSettingID>
</filter>
<order>
<viewMode>Normal</viewMode>
<userSettingID>88619765-ccb3-46c6-ac52-38e9c992ebd4</userSettingID>
</order>
<conditionalAppearance>
<viewMode>Normal</viewMode>
<userSettingID>b75fecce-942b-4aed-abc9-e6a02e460fb3</userSettingID>
</conditionalAppearance>
<itemsViewMode>Normal</itemsViewMode>
<itemsUserSettingID>911b6018-f537-43e8-a417-da56b22f9aec</itemsUserSettingID>
</Settings>
SSL/src/Catalogs/ВидыПроверок/Forms/ФормаСписка/Form.form
+295
View File
@@ -0,0 +1,295 @@
<?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>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Группа пользовательских настроек</value>
</title>
<verticalStretch>false</verticalStretch>
<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>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</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:Table">
<name>Список</name>
<id>3</id>
<title>
<key>ru</key>
<value>Список</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список</segments>
</dataPath>
<defaultItem>true</defaultItem>
<titleLocation>None</titleLocation>
<items xsi:type="form:FormField">
<name>ПредставлениеСсылки</name>
<id>40</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.ПредставлениеСсылки</segments>
</dataPath>
<extendedTooltip>
<name>ПредставлениеСсылкиРасширеннаяПодсказка</name>
<id>42</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ПредставлениеСсылкиКонтекстноеМеню</name>
<id>41</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Ссылка</name>
<id>43</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible/>
<dataPath xsi:type="form:DataPath">
<segments>Список.Ref</segments>
</dataPath>
<extendedTooltip>
<name>СсылкаРасширеннаяПодсказка</name>
<id>45</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СсылкаКонтекстноеМеню</name>
<id>44</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<commandBarLocation>None</commandBarLocation>
<autoCommandBar>
<name>СписокКоманднаяПанель</name>
<id>5</id>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<searchStringAddition>
<name>СписокСтрокаПоиска</name>
<id>7</id>
<extendedTooltip>
<name>СписокСтрокаПоискаРасширеннаяПодсказка</name>
<id>9</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СписокСтрокаПоискаКонтекстноеМеню</name>
<id>8</id>
<autoFill>true</autoFill>
</contextMenu>
<source>Список</source>
<extInfo xsi:type="form:SearchStringAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchStringAddition>
<viewStatusAddition>
<name>СписокСостояниеПросмотра</name>
<id>10</id>
<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>
<contextMenu>
<name>СписокСостояниеПросмотраКонтекстноеМеню</name>
<id>11</id>
<autoFill>true</autoFill>
</contextMenu>
<type>ViewStatusAddition</type>
<source>Список</source>
<extInfo xsi:type="form:ViewStatusAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</viewStatusAddition>
<searchControlAddition>
<name>СписокУправлениеПоиском</name>
<id>13</id>
<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>
<type>SearchControlAddition</type>
<source>Список</source>
<extInfo xsi:type="form:SearchControlAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchControlAddition>
<extendedTooltip>
<name>СписокРасширеннаяПодсказка</name>
<id>6</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СписокКонтекстноеМеню</name>
<id>4</id>
<autoFill>true</autoFill>
</contextMenu>
<representation>HierarchicalList</representation>
<changeRowSet>true</changeRowSet>
<changeRowOrder>true</changeRowOrder>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<autoMaxRowsCount>true</autoMaxRowsCount>
<selectionMode>MultiRow</selectionMode>
<header>true</header>
<headerHeight>1</headerHeight>
<footerHeight>1</footerHeight>
<horizontalScrollBar>AutoUse</horizontalScrollBar>
<verticalScrollBar>AutoUse</verticalScrollBar>
<horizontalLines>true</horizontalLines>
<verticalLines>true</verticalLines>
<searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView>
<initialTreeView>ExpandTopLevel</initialTreeView>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<enableStartDrag>true</enableStartDrag>
<enableDrag>true</enableDrag>
<rowPictureDataPath xsi:type="form:DataPath">
<segments>Список.DefaultPicture</segments>
</rowPictureDataPath>
<autoMaxCardHeight>true</autoMaxCardHeight>
<extInfo xsi:type="form:DynamicListTableExtInfo">
<autoRefreshPeriod>60</autoRefreshPeriod>
<period>
<startDate>0001-01-01T00:00:00</startDate>
<endDate>0001-01-01T00:00:00</endDate>
</period>
<topLevelParent xsi:type="core:UndefinedValue"/>
<showRoot>true</showRoot>
<allowGettingCurrentRowURL>true</allowGettingCurrentRowURL>
<userSettingsGroup>СписокКомпоновщикНастроекПользовательскиеНастройки</userSettingsGroup>
</extInfo>
</items>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<windowOpeningMode>DontBlock</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>
<id>1</id>
<valueType>
<types>DynamicList</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<main>true</main>
<extInfo xsi:type="form:DynamicListExtInfo">
<mainTable>Catalog.ВидыПроверок</mainTable>
<dynamicDataRead>true</dynamicDataRead>
<autoFillAvailableFields>true</autoFillAvailableFields>
<autoSaveUserSettings>true</autoSaveUserSettings>
<getInvisibleFieldPresentations>true</getInvisibleFieldPresentations>
</extInfo>
</attributes>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
<extInfo xsi:type="form:DynamicListFormExtInfo"/>
</form:Form>
SSL/src/Catalogs/ВидыПроверок/Forms/ФормаЭлемента/Form.form
+760
View File
@@ -0,0 +1,760 @@
<?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>50</id>
<items xsi:type="form:FormField">
<name>Код</name>
<id>1</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.Code</segments>
</dataPath>
<extendedTooltip>
<name>КодРасширеннаяПодсказка</name>
<id>3</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КодКонтекстноеМеню</name>
<id>2</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">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Наименование</name>
<id>4</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.Description</segments>
</dataPath>
<extendedTooltip>
<name>НаименованиеРасширеннаяПодсказка</name>
<id>6</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>НаименованиеКонтекстноеМеню</name>
<id>5</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">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</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>51</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">
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Владелец</name>
<id>52</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ВладелецРасширеннаяПодсказка</name>
<id>54</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ВладелецКонтекстноеМеню</name>
<id>53</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">
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаОсновнаяПанель</name>
<id>44</id>
<items xsi:type="form:FormGroup">
<name>СтраницаГлавное</name>
<id>46</id>
<items xsi:type="form:FormField">
<name>Свойство1</name>
<id>29</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.Свойство1</segments>
</dataPath>
<extendedTooltip>
<name>Свойство1РасширеннаяПодсказка</name>
<id>31</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>Свойство1КонтекстноеМеню</name>
<id>30</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">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<dropListButton>false</dropListButton>
<choiceButton>true</choiceButton>
<choiceButtonRepresentation>ShowInInputField</choiceButtonRepresentation>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Свойство2</name>
<id>32</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.Свойство2</segments>
</dataPath>
<extendedTooltip>
<name>Свойство2РасширеннаяПодсказка</name>
<id>34</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>Свойство2КонтекстноеМеню</name>
<id>33</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">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<dropListButton>false</dropListButton>
<choiceButton>true</choiceButton>
<choiceButtonRepresentation>ShowInInputField</choiceButtonRepresentation>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Свойство3</name>
<id>35</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.Свойство3</segments>
</dataPath>
<extendedTooltip>
<name>Свойство3РасширеннаяПодсказка</name>
<id>37</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>Свойство3КонтекстноеМеню</name>
<id>36</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">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<dropListButton>false</dropListButton>
<choiceButton>true</choiceButton>
<choiceButtonRepresentation>ShowInInputField</choiceButtonRepresentation>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Свойство4</name>
<id>38</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.Свойство4</segments>
</dataPath>
<extendedTooltip>
<name>Свойство4РасширеннаяПодсказка</name>
<id>40</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>Свойство4КонтекстноеМеню</name>
<id>39</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">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<dropListButton>false</dropListButton>
<choiceButton>true</choiceButton>
<choiceButtonRepresentation>ShowInInputField</choiceButtonRepresentation>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Свойство5</name>
<id>41</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.Свойство5</segments>
</dataPath>
<extendedTooltip>
<name>Свойство5РасширеннаяПодсказка</name>
<id>43</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>Свойство5КонтекстноеМеню</name>
<id>42</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">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<dropListButton>false</dropListButton>
<choiceButton>true</choiceButton>
<choiceButtonRepresentation>ShowInInputField</choiceButtonRepresentation>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Главное</value>
</title>
<extendedTooltip>
<name>СтраницаГлавноеРасширеннаяПодсказка</name>
<id>47</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>48</id>
<items xsi:type="form:Table">
<name>СвойстваОбъекта</name>
<id>7</id>
<title>
<key>ru</key>
<value>Свойства объекта</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.СвойстваОбъекта</segments>
</dataPath>
<titleLocation>None</titleLocation>
<items xsi:type="form:FormField">
<name>СвойстваОбъектаНомерСтроки</name>
<id>20</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.СвойстваОбъекта.LineNumber</segments>
</dataPath>
<extendedTooltip>
<name>СвойстваОбъектаНомерСтрокиРасширеннаяПодсказка</name>
<id>22</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СвойстваОбъектаНомерСтрокиКонтекстноеМеню</name>
<id>21</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Auto</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>СвойстваОбъектаИмяСвойства</name>
<id>23</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.СвойстваОбъекта.ИмяСвойства</segments>
</dataPath>
<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>
<contextMenu>
<name>СвойстваОбъектаИмяСвойстваКонтекстноеМеню</name>
<id>24</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">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>СвойстваОбъектаЗначениеСвойства</name>
<id>26</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.СвойстваОбъекта.ЗначениеСвойства</segments>
</dataPath>
<extendedTooltip>
<name>СвойстваОбъектаЗначениеСвойстваРасширеннаяПодсказка</name>
<id>28</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СвойстваОбъектаЗначениеСвойстваКонтекстноеМеню</name>
<id>27</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">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<dropListButton>false</dropListButton>
<choiceButton>true</choiceButton>
<choiceButtonRepresentation>ShowInInputField</choiceButtonRepresentation>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<autoCommandBar>
<name>СвойстваОбъектаКоманднаяПанель</name>
<id>9</id>
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<handlers>
<event>OnChange</event>
<name>СвойстваОбъектаПриИзменении</name>
</handlers>
<searchStringAddition>
<name>СвойстваОбъектаСтрокаПоиска</name>
<id>11</id>
<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>
<contextMenu>
<name>СвойстваОбъектаСтрокаПоискаКонтекстноеМеню</name>
<id>12</id>
<autoFill>true</autoFill>
</contextMenu>
<source>СвойстваОбъекта</source>
<extInfo xsi:type="form:SearchStringAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchStringAddition>
<viewStatusAddition>
<name>СвойстваОбъектаСостояниеПросмотра</name>
<id>14</id>
<extendedTooltip>
<name>СвойстваОбъектаСостояниеПросмотраРасширеннаяПодсказка</name>
<id>16</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СвойстваОбъектаСостояниеПросмотраКонтекстноеМеню</name>
<id>15</id>
<autoFill>true</autoFill>
</contextMenu>
<type>ViewStatusAddition</type>
<source>СвойстваОбъекта</source>
<extInfo xsi:type="form:ViewStatusAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</viewStatusAddition>
<searchControlAddition>
<name>СвойстваОбъектаУправлениеПоиском</name>
<id>17</id>
<extendedTooltip>
<name>СвойстваОбъектаУправлениеПоискомРасширеннаяПодсказка</name>
<id>19</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СвойстваОбъектаУправлениеПоискомКонтекстноеМеню</name>
<id>18</id>
<autoFill>true</autoFill>
</contextMenu>
<type>SearchControlAddition</type>
<source>СвойстваОбъекта</source>
<extInfo xsi:type="form:SearchControlAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchControlAddition>
<extendedTooltip>
<name>СвойстваОбъектаРасширеннаяПодсказка</name>
<id>10</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СвойстваОбъектаКонтекстноеМеню</name>
<id>8</id>
<autoFill>true</autoFill>
</contextMenu>
<changeRowSet>true</changeRowSet>
<changeRowOrder>true</changeRowOrder>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<autoMaxRowsCount>true</autoMaxRowsCount>
<selectionMode>MultiRow</selectionMode>
<header>true</header>
<headerHeight>1</headerHeight>
<footerHeight>1</footerHeight>
<horizontalScrollBar>AutoUse</horizontalScrollBar>
<verticalScrollBar>AutoUse</verticalScrollBar>
<horizontalLines>true</horizontalLines>
<verticalLines>true</verticalLines>
<useAlternationRowColorBWA>false</useAlternationRowColorBWA>
<autoInsertNewRow>true</autoInsertNewRow>
<searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<enableStartDrag>true</enableStartDrag>
<enableDrag>true</enableDrag>
<autoMaxCardHeight>true</autoMaxCardHeight>
<rowFilter xsi:type="core:UndefinedValue"/>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Дополнительные свойства</value>
</title>
<extendedTooltip>
<name>СтраницаДополнительныеСвойстваРасширеннаяПодсказка</name>
<id>49</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>ГруппаОсновнаяПанельРасширеннаяПодсказка</name>
<id>45</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">
<pagesRepresentation>TabsOnTop</pagesRepresentation>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<handlers>
<event>OnOpen</event>
<name>ПриОткрытии</name>
</handlers>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<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>
<id>1</id>
<valueType>
<types>CatalogObject.ВидыПроверок</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<main>true</main>
<savedData>true</savedData>
</attributes>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
<extInfo xsi:type="form:CatalogFormExtInfo"/>
</form:Form>
SSL/src/Catalogs/ВидыПроверок/Forms/ФормаЭлемента/Module.bsl
+53
View File
@@ -0,0 +1,53 @@
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("АвтоТест") Тогда // Возврат при получении формы для анализа.
Возврат;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ОбновитьСчетчикиСтрокТаблиц();
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовТаблицыФормыДополнительныеСвойства
&НаКлиенте
Процедура СвойстваОбъектаПриИзменении(Элемент)
ОбновитьСчетчикиСтрокТаблиц();
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаКлиенте
Процедура ОбновитьСчетчикиСтрокТаблиц()
УстановитьЗаголовокСтраницы(Элементы.СтраницаДополнительныеСвойства, Объект.СвойстваОбъекта, НСтр("ru = 'Дополнительные свойства'"));
КонецПроцедуры
&НаКлиенте
Процедура УстановитьЗаголовокСтраницы(ЭлементСтраница, РеквизитТабличнаяЧасть, ЗаголовокПоУмолчанию)
ЗаголовокСтраницы = ЗаголовокПоУмолчанию;
Если РеквизитТабличнаяЧасть.Количество() > 0 Тогда
ЗаголовокСтраницы = ЗаголовокПоУмолчанию + " (" + РеквизитТабличнаяЧасть.Количество() + ")";
КонецЕсли;
ЭлементСтраница.Заголовок = ЗаголовокСтраницы;
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/ВидыПроверок/ManagerModule.bsl
+60
View File
@@ -0,0 +1,60 @@
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ПрограммныйИнтерфейс
#Область ДляВызоваИзДругихПодсистем
// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов
// Возвращает реквизиты объекта, которые не рекомендуется редактировать
// с помощью обработки группового изменения реквизитов.
//
// Возвращаемое значение:
// Массив - список имен реквизитов объекта.
Функция РеквизитыНеРедактируемыеВГрупповойОбработке() Экспорт
НеРедактируемыеРеквизиты = Новый Массив;
Возврат НеРедактируемыеРеквизиты;
КонецФункции
// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов
// СтандартныеПодсистемы.ЗапретРедактированияРеквизитовОбъектов
// См. ЗапретРедактированияРеквизитовОбъектовПереопределяемый.ПриОпределенииОбъектовСЗаблокированнымиРеквизитами.
Функция ПолучитьБлокируемыеРеквизитыОбъекта() Экспорт
БлокируемыеРеквизиты = Новый Массив;
Возврат БлокируемыеРеквизиты;
КонецФункции
// Конец СтандартныеПодсистемы.ЗапретРедактированияРеквизитовОбъектов
#КонецОбласти
#КонецОбласти
#КонецЕсли
#Область ОбработчикиСобытий
Процедура ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Поля.Добавить("ПредставлениеСсылки");
КонецПроцедуры
Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Представление = Данные.ПредставлениеСсылки;
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/ВидыПроверок/ObjectModule.bsl
+1
View File
@@ -0,0 +1 @@
SSL/src/Catalogs/ВидыПроверок/ВидыПроверок.mdo
+411
View File
@@ -0,0 +1,411 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:Catalog xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="36d6b0e1-5e10-408a-8eb1-09839e57690f">
<producedTypes>
<objectType typeId="da9c4b91-6f72-4c8f-8f5e-7c7b6154f790" valueTypeId="60fa556b-29f7-4179-a1c1-0f41ff519d41"/>
<refType typeId="3ffba5ed-96cc-4b8a-b89c-c52671b0e490" valueTypeId="a74e899e-b62c-4248-9579-a64c49b7795a"/>
<selectionType typeId="ed1dc262-efb5-4f7e-bf97-08d00b18477d" valueTypeId="bb220ccc-4eba-4e20-b562-92b11b9bf690"/>
<listType typeId="ff7733d9-c6a6-462b-a542-f88be2978539" valueTypeId="4a0a0a50-dedd-4df8-afa6-f413238fa033"/>
<managerType typeId="4fc5986a-6a4a-4e3d-9059-c0ffdf2f93ae" valueTypeId="67220b61-25c1-4c4c-ae36-459c550d6cb0"/>
</producedTypes>
<name>ВидыПроверок</name>
<synonym>
<key>ru</key>
<value>Виды проверок</value>
</synonym>
<comment>Содержит проверяемые объекты, как конкретные (Ссылка на документ / справочник), так и абстрактные (Операция закрытия месяца).</comment>
<useStandardCommands>true</useStandardCommands>
<inputByString>Catalog.ВидыПроверок.StandardAttribute.Description</inputByString>
<inputByString>Catalog.ВидыПроверок.StandardAttribute.Code</inputByString>
<fullTextSearchOnInputByString>DontUse</fullTextSearchOnInputByString>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>PredefinedDataName</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Predefined</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Ref</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>DeletionMark</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>IsFolder</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Owner</name>
<fillFromFillingValue>true</fillFromFillingValue>
<fillValue xsi:type="core:UndefinedValue"/>
<fillChecking>ShowError</fillChecking>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Parent</name>
<synonym>
<key>ru</key>
<value>Входит в группу</value>
</synonym>
<toolTip>
<key>ru</key>
<value>Группа к которой относится вид проверок.</value>
</toolTip>
<fillFromFillingValue>true</fillFromFillingValue>
<fillValue xsi:type="core:ReferenceValue">
<value>Catalog.ВидыПроверок.EmptyRef</value>
</fillValue>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Description</name>
<synonym>
<key>ru</key>
<value>Наименование</value>
</synonym>
<toolTip>
<key>ru</key>
<value>Наименование вида проверок.</value>
</toolTip>
<fillValue xsi:type="core:UndefinedValue"/>
<fillChecking>ShowError</fillChecking>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Code</name>
<synonym>
<key>ru</key>
<value>Код</value>
</synonym>
<toolTip>
<key>ru</key>
<value>Код вида проверок.</value>
</toolTip>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<createOnInput>Use</createOnInput>
<dataLockFields>Catalog.ВидыПроверок.Attribute.Свойство1</dataLockFields>
<dataLockFields>Catalog.ВидыПроверок.Attribute.Свойство2</dataLockFields>
<dataLockFields>Catalog.ВидыПроверок.Attribute.Свойство3</dataLockFields>
<dataLockFields>Catalog.ВидыПроверок.Attribute.Свойство4</dataLockFields>
<dataLockFields>Catalog.ВидыПроверок.Attribute.Свойство5</dataLockFields>
<dataLockControlMode>Managed</dataLockControlMode>
<fullTextSearch>Use</fullTextSearch>
<objectPresentation>
<key>ru</key>
<value>Вид проверки</value>
</objectPresentation>
<hierarchical>true</hierarchical>
<levelCount>2</levelCount>
<foldersOnTop>true</foldersOnTop>
<codeLength>9</codeLength>
<descriptionLength>128</descriptionLength>
<codeType>String</codeType>
<codeAllowedLength>Variable</codeAllowedLength>
<checkUnique>true</checkUnique>
<autonumbering>true</autonumbering>
<defaultPresentation>AsDescription</defaultPresentation>
<editType>InDialog</editType>
<choiceMode>BothWays</choiceMode>
<defaultObjectForm>Catalog.ВидыПроверок.Form.ФормаЭлемента</defaultObjectForm>
<defaultListForm>Catalog.ВидыПроверок.Form.ФормаСписка</defaultListForm>
<attributes uuid="6423b849-7ca4-4501-8856-445157d7e5df">
<name>Свойство1</name>
<synonym>
<key>ru</key>
<value>Свойство1</value>
</synonym>
<type>
<types>Boolean</types>
<types>String</types>
<types>Date</types>
<types>Number</types>
<types>AnyRef</types>
<numberQualifiers>
<precision>16</precision>
<scale>2</scale>
</numberQualifiers>
<stringQualifiers>
<length>64</length>
</stringQualifiers>
<dateQualifiers/>
</type>
<toolTip>
<key>ru</key>
<value>Свойство №1 вида проблемы.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="0819e2b0-1eb0-41b3-ab89-0974bd926fb6">
<name>Свойство2</name>
<synonym>
<key>ru</key>
<value>Свойство2</value>
</synonym>
<type>
<types>Boolean</types>
<types>String</types>
<types>Date</types>
<types>Number</types>
<types>AnyRef</types>
<numberQualifiers>
<precision>16</precision>
<scale>2</scale>
</numberQualifiers>
<stringQualifiers>
<length>64</length>
</stringQualifiers>
<dateQualifiers/>
</type>
<toolTip>
<key>ru</key>
<value>Свойство №2 вида проблемы.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="e814287f-1c13-4f74-9507-d22a62394fd2">
<name>Свойство3</name>
<synonym>
<key>ru</key>
<value>Свойство3</value>
</synonym>
<type>
<types>Boolean</types>
<types>String</types>
<types>Date</types>
<types>Number</types>
<types>AnyRef</types>
<numberQualifiers>
<precision>16</precision>
<scale>2</scale>
</numberQualifiers>
<stringQualifiers>
<length>64</length>
</stringQualifiers>
<dateQualifiers/>
</type>
<toolTip>
<key>ru</key>
<value>Свойство №3 вида проблемы.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="417ac987-7369-45af-b670-fdffb048f33d">
<name>Свойство4</name>
<synonym>
<key>ru</key>
<value>Свойство4</value>
</synonym>
<type>
<types>Boolean</types>
<types>String</types>
<types>Date</types>
<types>Number</types>
<types>AnyRef</types>
<numberQualifiers>
<precision>16</precision>
<scale>2</scale>
</numberQualifiers>
<stringQualifiers>
<length>64</length>
</stringQualifiers>
<dateQualifiers/>
</type>
<toolTip>
<key>ru</key>
<value>Свойство №4 вида проблемы.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="640a5d72-dbc7-421b-afdb-cc3a4622ae04">
<name>Свойство5</name>
<synonym>
<key>ru</key>
<value>Свойство5</value>
</synonym>
<type>
<types>Boolean</types>
<types>String</types>
<types>Date</types>
<types>Number</types>
<types>AnyRef</types>
<numberQualifiers>
<precision>16</precision>
<scale>2</scale>
</numberQualifiers>
<stringQualifiers>
<length>64</length>
</stringQualifiers>
<dateQualifiers/>
</type>
<toolTip>
<key>ru</key>
<value>Свойство №5 вида проблемы.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="4d94689b-d0f2-4075-9dad-be712878e300">
<name>ПредставлениеСсылки</name>
<synonym>
<key>ru</key>
<value>Представление ссылки</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers/>
</type>
<toolTip>
<key>ru</key>
<value>Поле, хранящее представление ссылки на вид проверки.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:StringValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<tabularSections uuid="79da84c1-5ac2-4472-8eb9-f0484b9582c2">
<producedTypes>
<objectType typeId="0ce834b5-eb99-4dcb-bd5e-dfaa949cbd7f" valueTypeId="cc76a7e0-b1eb-46f9-b863-73611337868c"/>
<rowType typeId="d4f20b2f-e41e-4dbd-a3fb-b2a12e91567d" valueTypeId="76c5aaef-b931-4000-93a2-a00b234c514d"/>
</producedTypes>
<name>СвойстваОбъекта</name>
<synonym>
<key>ru</key>
<value>Свойства объекта</value>
</synonym>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>LineNumber</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<attributes uuid="2d0b161b-7d69-4ec4-a483-79bd458cb62c">
<name>ИмяСвойства</name>
<synonym>
<key>ru</key>
<value>Имя свойства</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers>
<length>128</length>
</stringQualifiers>
</type>
<toolTip>
<key>ru</key>
<value>Имя свойства.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
<fullTextSearch>Use</fullTextSearch>
</attributes>
<attributes uuid="f178bc1b-ebea-4fa9-8861-fe0d91f103e4">
<name>ЗначениеСвойства</name>
<synonym>
<key>ru</key>
<value>Значение свойства</value>
</synonym>
<type>
<types>Boolean</types>
<types>String</types>
<types>Date</types>
<types>Number</types>
<types>AnyRef</types>
<numberQualifiers>
<precision>16</precision>
<scale>2</scale>
</numberQualifiers>
<stringQualifiers>
<length>64</length>
</stringQualifiers>
<dateQualifiers/>
</type>
<toolTip>
<key>ru</key>
<value>Значение свойства.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
<fullTextSearch>Use</fullTextSearch>
</attributes>
</tabularSections>
<forms uuid="e33a9c94-7e98-4b38-ba20-4546a90b2937">
<name>ФормаЭлемента</name>
<synonym>
<key>ru</key>
<value>Форма элемента</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="5011e9cb-bfde-46bf-be3f-8f6ccfbee406">
<name>ФормаСписка</name>
<synonym>
<key>ru</key>
<value>Форма списка</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
</mdclass:Catalog>
SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ОшибкаЗагрузкиКомпоненты/Form.form
-213
View File
@@ -1,213 +0,0 @@
<?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>9</id>
<items xsi:type="form:Decoration">
<name>Предупреждение32</name>
<id>6</id>
<title>
<key>ru</key>
<value>Предупреждение32</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>Предупреждение32РасширеннаяПодсказка</name>
<id>8</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>Предупреждение32КонтекстноеМеню</name>
<id>7</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:Decoration">
<name>ОписаниеОшибки</name>
<id>17</id>
<title>
<key>ru</key>
<value>В файле отсутствует информация о компоненте.</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ОписаниеОшибкиРасширеннаяПодсказка</name>
<id>19</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ОписаниеОшибкиКонтекстноеМеню</name>
<id>18</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<maxHeight>2</maxHeight>
<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>10</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">
<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>11</id>
<title>
<key>ru</key>
<value>Необходимо указать zip-архив с внешней компонентой.
Подробнее:
&lt;link http://its.1c.ru/db/metodtorg/content/3221/hdoc>http://its.1c.ru/db/metodtorg/content/3221/hdoc&lt;/>.</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<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>
<contextMenu>
<name>ОбщееОписаниеКонтекстноеМеню</name>
<id>12</id>
<autoFill>true</autoFill>
</contextMenu>
<formatted>true</formatted>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</items>
<commandBarLocation>Bottom</commandBarLocation>
<showCommandBar>true</showCommandBar>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<items xsi:type="form:Button">
<name>ФормаОК</name>
<id>1</id>
<title>
<key>ru</key>
<value> ОК </value>
</title>
<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>
<commandName>Form.StandardCommand.OK</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<horizontalAlign>Center</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<excludedCommands>Abort</excludedCommands>
<excludedCommands>Cancel</excludedCommands>
<excludedCommands>Close</excludedCommands>
<excludedCommands>Help</excludedCommands>
<excludedCommands>Ignore</excludedCommands>
<excludedCommands>No</excludedCommands>
<excludedCommands>RestoreValues</excludedCommands>
<excludedCommands>Retry</excludedCommands>
<excludedCommands>SaveValues</excludedCommands>
<excludedCommands>Yes</excludedCommands>
<width>35</width>
<windowOpeningMode>LockOwner</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoTitle>true</autoTitle>
<autoUrl>true</autoUrl>
<group>Vertical</group>
<autoFillCheck>true</autoFillCheck>
<enabled>true</enabled>
<showTitle>auto</showTitle>
<showCloseButton>true</showCloseButton>
<parameters>
<name>ОписаниеОшибки</name>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
</parameters>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
</form:Form>
SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ОшибкаЗагрузкиКомпоненты/Module.bsl
-15
View File
@@ -1,15 +0,0 @@
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
Элементы.ОписаниеОшибки.Заголовок = Параметры.ОписаниеОшибки;
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ФормаЭлемента/Module.bsl
+7 -4
View File
@@ -188,9 +188,12 @@
Оповещение = Новый ОписаниеОповещения("ЗагрузитьКомпонентуПослеОтображенияОшибки", ЭтотОбъект, Контекст);
ПараметрыФормы = Новый Структура("ОписаниеОшибки", Результат.ОписаниеОшибки);
ОткрытьФорму("Справочник.ВнешниеКомпоненты.Форма.ОшибкаЗагрузкиКомпоненты", ПараметрыФормы, ЭтотОбъект,
УникальныйИдентификатор,,, Оповещение);
СтрокаСПредупреждением = Новый ФорматированнаяСтрока(
Результат.ОписаниеОшибки, Символы.ПС,
НСтр("ru = 'Необходимо указать zip-архив с внешней компонентой.
|Подробнее:'"),
Новый ФорматированнаяСтрока("http://its.1c.ru/db/metodtorg/content/3221/hdoc",,,, "http://its.1c.ru/db/metodtorg/content/3221/hdoc"), ".");
ПоказатьПредупреждение(Оповещение, СтрокаСПредупреждением);
Иначе
@@ -206,7 +209,7 @@
// Продолжение процедуры ЗагрузитьКомпонентуИзФайла.
&НаКлиенте
Процедура ЗагрузитьКомпонентуПослеОтображенияОшибки(РезультатЗакрытия, Контекст) Экспорт
Процедура ЗагрузитьКомпонентуПослеОтображенияОшибки(Контекст) Экспорт
ЗагрузитьКомпонентуЗавершение(Контекст);
SSL/src/Catalogs/ВнешниеКомпоненты/ВнешниеКомпоненты.mdo
-9
View File
@@ -498,13 +498,4 @@
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="eb0479db-2eaf-4269-9154-2fae4981e84f">
<name>ОшибкаЗагрузкиКомпоненты</name>
<synonym>
<key>ru</key>
<value>Ошибка загрузки компоненты</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
</mdclass:Catalog>
SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Module.bsl
+5 -1
View File
@@ -8,6 +8,10 @@
Возврат;
КонецЕсли;
Если Не ПользователиСлужебный.ВнешниеПользователиВнедрены() Тогда
Элементы.ОбъектАвторизации.Доступность = Ложь;
КонецЕсли;
// Заполнение вспомогательных данных.
ЗапретРедактированияРолей = ПользователиСлужебный.ЗапретРедактированияРолей();
@@ -931,7 +935,7 @@
&НаСервере
Процедура ОбновитьОтображаемыйТипПользователя()
Если Объект.ОбъектАвторизации <> Неопределено Тогда
Если ОбщегоНазначения.ЭтоСсылка(ТипЗнч(Объект.ОбъектАвторизации)) Тогда
Элементы.ОбъектАвторизации.Заголовок = Метаданные.НайтиПоТипу(ТипЗнч(Объект.ОбъектАвторизации)).ПредставлениеОбъекта;
КонецЕсли;
SSL/src/Catalogs/ВнешниеПользователи/ObjectModule.bsl
+2 -2
View File
@@ -100,13 +100,13 @@
ИзмененныеГруппы);
Если СтарыйОбъектАвторизации <> ОбъектАвторизации Тогда
ИнтеграцияСтандартныхПодсистем.ПослеИзмененияОбъектаАвторизацииВнешнегоПользователя(
ИнтеграцияПодсистемБСП.ПослеИзмененияОбъектаАвторизацииВнешнегоПользователя(
Ссылка, СтарыйОбъектАвторизации, ОбъектАвторизации);
КонецЕсли;
ПользователиСлужебный.ВключитьЗаданиеКонтрольАктивностиПользователейПриНеобходимости(Ссылка);
ИнтеграцияСтандартныхПодсистем.ПослеДобавленияИзмененияПользователяИлиГруппы(Ссылка, ЭтоНовый);
ИнтеграцияПодсистемБСП.ПослеДобавленияИзмененияПользователяИлиГруппы(Ссылка, ЭтоНовый);
КонецПроцедуры
SSL/src/Catalogs/ВопросыШаблонаАнкеты/ObjectModule.bsl
+17
View File
@@ -0,0 +1,17 @@
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ОбработчикиСобытий
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ОбновлениеИнформационнойБазы.ПроверитьОбъектОбработан(ЭтотОбъект);
КонецПроцедуры
#КонецОбласти
#КонецЕсли
SSL/src/Catalogs/ГруппыВнешнихПользователей/ObjectModule.bsl
+4 -8
View File
@@ -203,7 +203,7 @@
ПользователиСлужебный.ПослеОбновленияСоставовГруппВнешнихПользователей(
УчастникиИзменений, ИзмененныеГруппы);
ИнтеграцияСтандартныхПодсистем.ПослеДобавленияИзмененияПользователяИлиГруппы(Ссылка, ЭтоНовый);
ИнтеграцияПодсистемБСП.ПослеДобавленияИзмененияПользователяИлиГруппы(Ссылка, ЭтоНовый);
КонецПроцедуры
@@ -215,14 +215,10 @@
Назначение.Очистить();
Для Каждого Тип Из Метаданные.ОпределяемыеТипы.ВнешнийПользователь.Тип.Типы() Цикл
ОписаниеТипаСсылки = Новый ОписаниеТипов(ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Тип));
Значение = ОписаниеТипаСсылки.ПривестиЗначение(Неопределено);
ПустыеСсылки = ПользователиСлужебныйПовтИсп.ПустыеСсылкиТиповОбъектовАвторизации();
Для Каждого ПустаяСсылка Из ПустыеСсылки Цикл
НоваяСтрока = Назначение.Добавить();
НоваяСтрока.ТипПользователей = Значение;
НоваяСтрока.ТипПользователей = ПустаяСсылка;
КонецЦикла;
КонецПроцедуры
SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Form.form
+4
View File
@@ -1348,6 +1348,10 @@
<segments>Объект.Комментарий</segments>
</dataPath>
<titleLocation>None</titleLocation>
<handlers>
<event>OnChange</event>
<name>КомментарийПриИзменении</name>
</handlers>
<extendedTooltip>
<name>КомментарийРасширеннаяПодсказка</name>
<id>402</id>
SSL/src/Catalogs/ГруппыДоступа/Forms/ФормаЭлемента/Module.bsl
+19 -1
View File
@@ -213,6 +213,8 @@
УправлениеДоступомСлужебный.ПослеЗаписиНаСервереФормыРедактированияРазрешенныхЗначений(
ЭтотОбъект, ТекущийОбъект, ПараметрыЗаписи);
ОбновитьКартинкуКомментария(Элементы.СтраницаКомментарий, Объект.Комментарий);
КонецПроцедуры
&НаКлиенте
@@ -475,6 +477,13 @@
КонецПроцедуры
&НаКлиенте
Процедура КомментарийПриИзменении(Элемент)
ОбновитьКартинкуКомментария(Элементы.СтраницаКомментарий, Объект.Комментарий);
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовТаблицыФормыПользователи
@@ -949,7 +958,7 @@
Если ТекущийОбъект.Ссылка = Справочники.ГруппыДоступа.Администраторы Тогда
ЗапретитьИзменениеВсегоКромеСоставаУчастников();
Если Не УправлениеДоступом.ЕстьРоль("ПолныеПрава") Тогда
Если Не Пользователи.ЭтоПолноправныйПользователь() Тогда
ТолькоПросмотр = Истина;
ПользователиСлужебныйКлиентСервер.УстановитьДоступностьКнопкиЗаписатьИЗакрыть(ЭтотОбъект);
КонецЕсли;
@@ -1015,6 +1024,8 @@
КонецЦикла;
ОбновитьПользователейГрупп();
ОбновитьКартинкуКомментария(Элементы.СтраницаКомментарий, Объект.Комментарий);
КонецПроцедуры
&НаСервере
@@ -1537,4 +1548,11 @@
КонецФункции
&НаКлиентеНаСервереБезКонтекста
Процедура ОбновитьКартинкуКомментария(Элемент, Комментарий)
Элемент.Картинка = ОбщегоНазначенияКлиентСервер.КартинкаКомментария(Комментарий);
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/ГруппыПользователей/ObjectModule.bsl
+1 -1
View File
@@ -145,7 +145,7 @@
ПользователиСлужебный.ПослеОбновленияСоставовГруппПользователей(
УчастникиИзменений, ИзмененныеГруппы);
ИнтеграцияСтандартныхПодсистем.ПослеДобавленияИзмененияПользователяИлиГруппы(Ссылка, ЭтоНовый);
ИнтеграцияПодсистемБСП.ПослеДобавленияИзмененияПользователяИлиГруппы(Ссылка, ЭтоНовый);
КонецПроцедуры
SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ПроверкаДополнительныхОтчетовИОбработок/Form.form
+2 -1
View File
@@ -32,7 +32,6 @@
</contextMenu>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<groupVerticalAlign>Center</groupVerticalAlign>
<extInfo xsi:type="form:PictureDecorationExtInfo">
<picture xsi:type="core:PictureRef">
<picture>CommonPicture.Информация32</picture>
@@ -45,6 +44,7 @@
<title>
<key>ru</key>
<value>Рекомендуется проверить совместимость дополнительных отчетов и обработок с текущей версией программы.
Устаревшие дополнительные отчеты и обработки могут работать некорректно, в этом случае их необходимо обновить (или временно отключить). </value>
</title>
<visible>true</visible>
@@ -187,6 +187,7 @@
</items>
<horizontalAlign>Right</horizontalAlign>
</autoCommandBar>
<width>52</width>
<windowOpeningMode>LockOwner</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoTitle>true</autoTitle>
SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ПроверкаДополнительныхОтчетовИОбработок/Module.bsl
+2
View File
@@ -2,6 +2,8 @@
&НаКлиенте
Процедура ПерейтиКСписку(Команда)
Закрыть();
Отборы = Новый Структура;
Отборы.Вставить("Публикация", ПредопределенноеЗначение("Перечисление.ВариантыПубликацииДополнительныхОтчетовИОбработок.Используется"));
Отборы.Вставить("ПометкаУдаления", Ложь);
SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаЭлемента/Module.bsl
+4 -3
View File
@@ -1025,15 +1025,16 @@
&НаКлиентеНаСервереБезКонтекста
Функция ПредставлениеБыстрогоДоступаПользователей(КоличествоПользователей)
Если КоличествоПользователей = 0 Тогда
Возврат НСтр("ru = 'Нет'");
КонецЕсли;
БыстрыйДоступПредставление = СтроковыеФункцииКлиентСервер.ЧислоЦифрамиПредметИсчисленияПрописью(
КоличествоПользователей,
НСтр("ru = 'пользователь'") + "," + НСтр("ru = 'пользователя'") + "," + НСтр("ru = 'пользователей'"));
БыстрыйДоступПредставление = СтроковыеФункцииКлиентСервер.СтрокаСЧисломДляЛюбогоЯзыка(
НСтр("ru = ';%1 пользователь;;%1 пользователя;%1 пользователей;%1 пользователя'"), КоличествоПользователей);
Возврат БыстрыйДоступПредставление;
КонецФункции
////////////////////////////////////////////////////////////////////////////////
SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Form.form
-4
View File
@@ -142,10 +142,6 @@
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>AutoComplete</event>
<name>ФильтрПоПредметуАвтоПодбор</name>
</handlers>
<width>25</width>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Help/ru.html
+1 -1
View File
@@ -1,6 +1,6 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><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.9600.18427"></meta></head><body>
<p>Список предназначен для работы с <a href="Catalog.Заметки.Form.ФормаЭлемента/Help">заметками</a>. В списке находятся все заметки, созданные Вами в программе.</p>
<p>Открывается по команде <strong>Все заметки</strong> в разделе <strong>Органайзер</strong>.</p>
<p>Открывается по команде <strong>Все заметки</strong>.</p>
<p>В программе можно вести заметки - произвольную текстовую информацию, для которой не получается подобрать какого-либо подходящего справочника или документа и которая никому больше не должна быть доступна. Заметки доступны только их автору.</p>
<p>В заметки не следует помещать информацию, для хранения которой в программе предусмотрены соответствующие списки или документы. </p>
<p>Заметки можно отмечать цветом, помещать на рабочий стол, объединять в <a href="Catalog.Заметки.Form.ФормаГруппы/Help">группы</a>. Заметки, которые видны на рабочем столе, в списках отмечены жирным шрифтом.</p>
SSL/src/Catalogs/Заметки/Forms/ВсеЗаметки/Module.bsl
-5
View File
@@ -41,11 +41,6 @@
Список.Параметры.УстановитьЗначениеПараметра("Предмет", "%" + ВыбранныйПредмет + "%");
КонецПроцедуры
&НаКлиенте
Процедура ФильтрПоПредметуАвтоПодбор(Элемент, Текст, ДанныеВыбора, Ожидание, СтандартнаяОбработка)
Список.Параметры.УстановитьЗначениеПараметра("Предмет", "%" + Текст + "%");
КонецПроцедуры
&НаКлиенте
Процедура ФильтрПоЦветуПриИзменении(Элемент)
Список.Параметры.УстановитьЗначениеПараметра("Пометка", ВыбранныйЦвет);
SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Help/ru.html
+1 -1
View File
@@ -3,7 +3,7 @@
<p>Открывается из карточки объекта программы по команде <strong>Мои заметки</strong> панели навигации.</p>
<p>В списках объекты, с которыми связаны заметки, помечены значком <img src="CommonPicture.Заметка"></img>.</p>
<p>Также заметки можно размещать на рабочем столе программы (для этого в окне заметки предусмотрен флажок), вводить на <a href="Catalog.Заметки.Form.МоиЗаметки/Help">рабочем столе</a> программы без связи с каким-либо предметом, использовать их вместо записной книжки или "стикеров на краях монитора". </p>
<p>Для того чтобы просмотреть <a href="Catalog.Заметки.Form.ВсеЗаметки/Help">все заметки</a>, введенные Вами, выполните соответствующую команду<strong> </strong>на панели навигации раздела <strong>Органайзер</strong>.</p>
<p>Можно также просмотреть <a href="Catalog.Заметки.Form.ВсеЗаметки/Help">все заметки</a>, введенные Вами, по соответствующей команде.</p>
<p>Заметки, размещенные на рабочем столе программы, выделены в списке жирным шрифтом.</p>
<p>В списке выводится:</p>
<ul><li>
SSL/src/Catalogs/Заметки/Forms/МоиЗаметки/Help/ru.html
+1 -1
View File
@@ -7,5 +7,5 @@
<p>Часть заметок в списке введены по поводу объектов программы. На панели навигации таких объектов имеется команда <strong>Мои заметки</strong> для просмотра <a href="Catalog.Заметки.Form.ЗаметкиПоПредмету/Help">списка заметок</a>, связанных с ними. В списках эти объекты помечены значком <img src="CommonPicture.Заметка"></img>. В этом случае в заметке поле <strong>Предмет</strong> автоматически заполняется ссылкой на объект программы.</p>
<h3>Ввод заметки</h3>
<ul><li>Нажмите <strong>Создать</strong>. Заполните необходимые <a href="Catalog.Заметки.Form.ФормаЭлемента/Help">поля</a>. Введенная заметка будет существовать самостоятельно, без привязки к предмету. </li></ul><h3>Просмотр всех заметок</h3>
<ul><li>Выполните соответствующую <a href="Catalog.Заметки.Form.ВсеЗаметки/Help">команду</a> на панели навигации  раздела <strong>Органайзер</strong>.</li></ul><h3>См. также:</h3>
<ul><li>Выполните соответствующую <a href="Catalog.Заметки.Form.ВсеЗаметки/Help">команду</a> для просмотра списка <strong>Все заметки</strong>.</li></ul><h3>См. также:</h3>
<ul><li><a href="v8help://frame/form_common">Работа с формами</a>.</li></ul></body></html>
SSL/src/Catalogs/Заметки/Help/ru.html
-1
View File
@@ -2,7 +2,6 @@
<p>Предназначен для управления заметками.</p>
<p>Список <strong>Заметки</strong> относится к внутренним данным для администратора. Полезен для контроля всех заметок в программе, введенными всеми <a href="Catalog.Пользователи/Help">пользователями</a> в программе. </p>
<p>Для работы со своими заметками и ввода заметок используйте списки <a href="Catalog.Заметки.Form.ВсеЗаметки/Help">Все заметки</a> или <a href="Catalog.Заметки.Form.МоиЗаметки/Help">Мои заметки</a> рабочего стола. <a href="Catalog.Заметки.Form.ФормаГруппы/Help">Группы</a>, введенные в списке <strong>Все заметки</strong>,  отражаются также и в этом списке. </p>
<p>Открывается по команде <strong>Органайзер - Заметки пользователя - Внутренние данные - Заметки</strong>.</p>
<p>В программе можно вести заметки - произвольную текстовую информацию, для которой не получается подобрать какого-либо подходящего справочника или документа, и которая никому больше не должна быть доступна. Совместно с напоминаниями заметки хорошо подходят в качестве электронной замены "стикеров на краях монитора". </p>
<p>В <a href="Catalog.Заметки.Form.ФормаЭлемента/Help">заметке</a> можно быстро на короткое время записать какую-либо информацию, а затем перенести в более подходящий справочник (например, можно использовать заметку как временное место для быстрой записи адреса во время телефонного разговора с клиентом, для того чтобы затем не спеша перенести этот адрес в справочник <strong>Контрагенты</strong>). Также можно использовать заметки и для хранения информации, которая актуальна в течение длительного времени (например, как записную книжку, в которой можно сделать запись о дне рождения важного для вас клиента).</p>
<p>Заметки можно отмечать цветом, помещать на рабочий стол, объединять в группы. Заметки доступны только их автору.</p>
SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаГруппы/Module.bsl
+1
View File
@@ -33,6 +33,7 @@
#Область СлужебныеПроцедурыИФункции
&НаСервере
Процедура УстановитьЗаголовок()
ЗначенияРеквизитов = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(
SSL/src/Catalogs/ЗначенияСвойствОбъектов/Forms/ФормаЭлемента/Module.bsl
+1
View File
@@ -72,6 +72,7 @@
#Область СлужебныеПроцедурыИФункции
&НаСервере
Процедура УстановитьЗаголовок()
ЗначенияРеквизитов = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(
SSL/src/Catalogs/ЗначенияСвойствОбъектовИерархия/Forms/ФормаЭлемента/Module.bsl
+1
View File
@@ -72,6 +72,7 @@
#Область СлужебныеПроцедурыИФункции
&НаСервере
Процедура УстановитьЗаголовок()
ЗначенияРеквизитов = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(
SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ManagerModule.bsl
+6 -5
View File
@@ -828,7 +828,7 @@
Итог.Вставить("ПорядокБиблиотек", Новый Соответствие);
ОбщегоНазначенияПереопределяемый.ПриДобавленииПереименованийОбъектовМетаданных(Итог);
ИнтеграцияСтандартныхПодсистем.ПриДобавленииПереименованийОбъектовМетаданных(Итог);
ИнтеграцияПодсистемБСП.ПриДобавленииПереименованийОбъектовМетаданных(Итог);
ТаблицаПереименования.Сортировать(
"ПорядокБиблиотеки ВОЗР,
@@ -1251,7 +1251,9 @@
РежимТранзакцииЗаписиЖурналаРегистрации.Транзакционная);
КонецЕсли;
Если Не ОбъектыРасширений И ПланыОбмена.ГлавныйУзел() = Неопределено Тогда
Если Не ОбъектыРасширений
И Не ОбщегоНазначения.ЭтоПодчиненныйУзелРИБ() Тогда
ПодготовитьСписокНовыхПодсистемВГлавномУзле(Выгрузка);
КонецЕсли;
КонецЕсли;
@@ -2694,9 +2696,8 @@
НомерОшибки = НомерОшибки + 1;
ТекстВсехОшибок = ТекстВсехОшибок + ?(НомерОшибки = 1, "", Разделитель) + ОписаниеОшибки;
Если НомерОшибки = 3 И КоличествоОшибок > 5 Тогда
ПредставлениеКоличества = СтроковыеФункцииКлиентСервер.ЧислоЦифрамиПредметИсчисленияПрописью(
КоличествоОшибок - НомерОшибки,
НСтр("ru = 'ошибка,ошибки,ошибок'"));
ПредставлениеКоличества = СтроковыеФункцииКлиентСервер.СтрокаСЧисломДляЛюбогоЯзыка(
НСтр("ru = ';%1 ошибка;; %1 ошибки; %1 ошибок; %1 ошибки'"), (КоличествоОшибок - НомерОшибки));
ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = '... И еще %1'"),
ПредставлениеКоличества);
SSL/src/Catalogs/Календари/Forms/ФормаСписка/Form.form
+49 -36
View File
@@ -110,7 +110,7 @@
<enabled>true</enabled>
<userVisible/>
<dataPath xsi:type="form:DataPath">
<segments>Список.Ref</segments>
<segments>Список.Ссылка</segments>
</dataPath>
<extendedTooltip>
<name>СсылкаРасширеннаяПодсказка</name>
@@ -146,7 +146,7 @@
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.Description</segments>
<segments>Список.Наименование</segments>
</dataPath>
<defaultItem>true</defaultItem>
<extendedTooltip>
@@ -486,31 +486,58 @@
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.Ref</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.Ссылка</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.ТребуетЗаполнения</segments>
</notDefaultUseAlwaysAttributes>
<main>true</main>
<extInfo xsi:type="form:DynamicListExtInfo">
<queryText>ВЫБРАТЬ
СправочникГрафикиРаботы.Ссылка,
СправочникГрафикиРаботы.ВерсияДанных,
СправочникГрафикиРаботы.ПометкаУдаления,
СправочникГрафикиРаботы.Предопределенный,
СправочникГрафикиРаботы.Родитель,
СправочникГрафикиРаботы.ЭтоГруппа,
СправочникГрафикиРаботы.Наименование,
СправочникГрафикиРаботы.ПроизводственныйКалендарь,
СправочникГрафикиРаботы.СпособЗаполнения,
СправочникГрафикиРаботы.ДатаНачала,
СправочникГрафикиРаботы.ДатаОкончания,
СправочникГрафикиРаботы.ДатаОтсчета,
СправочникГрафикиРаботы.УчитыватьПраздники,
СправочникГрафикиРаботы.Описание,
СправочникГрафикиРаботы.УдалитьВидКалендаря,
СправочникГрафикиРаботы.ГоризонтПланирования,
СправочникГрафикиРаботы.ВладелецГрафика,
КалендарныеГрафики.Календарь КАК ГрафикРаботы,
МАКСИМУМ(КалендарныеГрафики.ДатаГрафика) КАК ДатаЗаполненности
ПОМЕСТИТЬ ВТДатыЗаполненностиГрафиков
ИЗ
РегистрСведений.КалендарныеГрафики КАК КалендарныеГрафики
СГРУППИРОВАТЬ ПО
КалендарныеГрафики.Календарь
;
////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
ДанныеПроизводственныхКалендарей.ПроизводственныйКалендарь КАК ПроизводственныйКалендарь,
МАКСИМУМ(ДанныеПроизводственныхКалендарей.Дата) КАК ДатаЗаполненности
ПОМЕСТИТЬ ВТДатыЗаполненностиКалендарей
ИЗ
РегистрСведений.ДанныеПроизводственногоКалендаря КАК ДанныеПроизводственныхКалендарей
СГРУППИРОВАТЬ ПО
ДанныеПроизводственныхКалендарей.ПроизводственныйКалендарь
;
////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
СправочникГрафикиРаботы.Ссылка КАК Ссылка,
СправочникГрафикиРаботы.ВерсияДанных КАК ВерсияДанных,
СправочникГрафикиРаботы.ПометкаУдаления КАК ПометкаУдаления,
СправочникГрафикиРаботы.Предопределенный КАК Предопределенный,
СправочникГрафикиРаботы.Родитель КАК Родитель,
СправочникГрафикиРаботы.ЭтоГруппа КАК ЭтоГруппа,
СправочникГрафикиРаботы.Наименование КАК Наименование,
СправочникГрафикиРаботы.ПроизводственныйКалендарь КАК ПроизводственныйКалендарь,
СправочникГрафикиРаботы.СпособЗаполнения КАК СпособЗаполнения,
СправочникГрафикиРаботы.ДатаНачала КАК ДатаНачала,
СправочникГрафикиРаботы.ДатаОкончания КАК ДатаОкончания,
СправочникГрафикиРаботы.ДатаОтсчета КАК ДатаОтсчета,
СправочникГрафикиРаботы.УчитыватьПраздники КАК УчитыватьПраздники,
СправочникГрафикиРаботы.Описание КАК Описание,
СправочникГрафикиРаботы.УдалитьВидКалендаря КАК УдалитьВидКалендаря,
СправочникГрафикиРаботы.ГоризонтПланирования КАК ГоризонтПланирования,
СправочникГрафикиРаботы.ВладелецГрафика КАК ВладелецГрафика,
ДОБАВИТЬКДАТЕ(&amp;ТекущаяДата, МЕСЯЦ, СправочникГрафикиРаботы.ГоризонтПланирования) КАК ДатаНеобходимойЗаполненности,
ДанныеГрафиков.ДатаЗаполненности,
ДанныеГрафиков.ДатаЗаполненности КАК ДатаЗаполненности,
ДанныеПроизводственныхКалендарей.ДатаЗаполненности КАК ДатаЗаполненностиПроизводственногоКалендаря,
ВЫБОР
КОГДА ДанныеГрафиков.ДатаЗаполненности &lt; ДОБАВИТЬКДАТЕ(&amp;ТекущаяДата, МЕСЯЦ, СправочникГрафикиРаботы.ГоризонтПланирования)
@@ -542,23 +569,9 @@
КОНЕЦ КАК ВозможнаяПричина
ИЗ
Справочник.Календари КАК СправочникГрафикиРаботы
ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
КалендарныеГрафики.Календарь КАК ГрафикРаботы,
МАКСИМУМ(КалендарныеГрафики.ДатаГрафика) КАК ДатаЗаполненности
ИЗ
РегистрСведений.КалендарныеГрафики КАК КалендарныеГрафики
СГРУППИРОВАТЬ ПО
КалендарныеГрафики.Календарь) КАК ДанныеГрафиков
ЛЕВОЕ СОЕДИНЕНИЕ ВТДатыЗаполненностиГрафиков КАК ДанныеГрафиков
ПО СправочникГрафикиРаботы.Ссылка = ДанныеГрафиков.ГрафикРаботы
ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
ДанныеПроизводственныхКалендарей.ПроизводственныйКалендарь КАК ПроизводственныйКалендарь,
МАКСИМУМ(ДанныеПроизводственныхКалендарей.Дата) КАК ДатаЗаполненности
ИЗ
РегистрСведений.ДанныеПроизводственногоКалендаря КАК ДанныеПроизводственныхКалендарей
СГРУППИРОВАТЬ ПО
ДанныеПроизводственныхКалендарей.ПроизводственныйКалендарь) КАК ДанныеПроизводственныхКалендарей
ЛЕВОЕ СОЕДИНЕНИЕ ВТДатыЗаполненностиКалендарей КАК ДанныеПроизводственныхКалендарей
ПО СправочникГрафикиРаботы.ПроизводственныйКалендарь = ДанныеПроизводственныхКалендарей.ПроизводственныйКалендарь</queryText>
<mainTable>Catalog.Календари</mainTable>
<dynamicDataRead>true</dynamicDataRead>
SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Module.bsl
+10 -8
View File
@@ -37,7 +37,7 @@
СформироватьШаблонЗаполнения(Объект.СпособЗаполнения, Объект.ШаблонЗаполнения, ДлинаЦикла, Объект.ДатаОтсчета);
ЗаполнитьПредставлениеРасписания();
ЗаполнитьПредставлениеРасписания(ЭтотОбъект);
УстановитьДоступностьУчитыватьПраздники(ЭтотОбъект);
@@ -60,7 +60,7 @@
СформироватьШаблонЗаполнения(Объект.СпособЗаполнения, Объект.ШаблонЗаполнения, ДлинаЦикла, Объект.ДатаОтсчета);
ЗаполнитьПредставлениеРасписания();
ЗаполнитьПредставлениеРасписания(ЭтотОбъект);
УстановитьДоступностьУчитыватьПраздники(ЭтотОбъект);
@@ -148,7 +148,7 @@
СформироватьШаблонЗаполнения(Объект.СпособЗаполнения, Объект.ШаблонЗаполнения, ДлинаЦикла, Объект.ДатаОтсчета);
ЗаполнитьПредставлениеРасписания();
ЗаполнитьПредставлениеРасписания(ЭтотОбъект);
УточнитьДатуЗаполненности();
@@ -227,6 +227,7 @@
УточнитьДатуОтсчета();
СформироватьШаблонЗаполнения(Объект.СпособЗаполнения, Объект.ШаблонЗаполнения, ДлинаЦикла, Объект.ДатаОтсчета);
ЗаполнитьПредставлениеРасписания(ЭтотОбъект);
УстановитьСнятьПризнакСоответствияРезультатовШаблону(ЭтотОбъект, Ложь);
УстановитьСнятьМодифицированностьШаблона(ЭтотОбъект, Истина);
@@ -258,6 +259,7 @@
Процедура ДлинаЦиклаПриИзменении(Элемент)
СформироватьШаблонЗаполнения(Объект.СпособЗаполнения, Объект.ШаблонЗаполнения, ДлинаЦикла, Объект.ДатаОтсчета);
ЗаполнитьПредставлениеРасписания(ЭтотОбъект);
УстановитьСнятьПризнакСоответствияРезультатовШаблону(ЭтотОбъект, Ложь);
УстановитьСнятьМодифицированностьШаблона(ЭтотОбъект, Истина);
@@ -558,14 +560,14 @@
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьПредставлениеРасписания()
&НаКлиентеНаСервереБезКонтекста
Процедура ЗаполнитьПредставлениеРасписания(Форма)
Для Каждого СтрокаШаблона Из Объект.ШаблонЗаполнения Цикл
СтрокаШаблона.ПредставлениеРасписания = ПредставлениеРасписанияДня(ЭтотОбъект, СтрокаШаблона.НомерСтроки);
Для Каждого СтрокаШаблона Из Форма.Объект.ШаблонЗаполнения Цикл
СтрокаШаблона.ПредставлениеРасписания = ПредставлениеРасписанияДня(Форма, СтрокаШаблона.НомерСтроки);
КонецЦикла;
РасписаниеПредпраздничногоДня = ПредставлениеРасписанияДня(ЭтотОбъект, 0);
РасписаниеПредпраздничногоДня = ПредставлениеРасписанияДня(Форма, 0);
КонецПроцедуры
SSL/src/Catalogs/Календари/ManagerModule.bsl
+10 -3
View File
@@ -477,10 +477,11 @@
НомерДня = ДеньНедели(?(ЗначениеЗаполнено(ДанныеДня.ДатаПереноса), ДанныеДня.ДатаПереноса, ДанныеДня.Дата));
КонецЕсли;
ПраздничныйДень = УчитыватьПраздники И ДанныеДня.ВидДня = Перечисления.ВидыДнейПроизводственногоКалендаря.Праздник;
НерабочийДень = УчитыватьПраздники И ДанныеДня.ВидДня = Перечисления.ВидыДнейПроизводственногоКалендаря.Нерабочий;
КонецЕсли;
СтрокаДня = ШаблонЗаполнения[НомерДня - 1];
Если СтрокаДня.ДеньВключенВГрафик И Не ПраздничныйДень Тогда
Если СтрокаДня.ДеньВключенВГрафик И Не ПраздничныйДень И Не НерабочийДень Тогда
ДниВключенныеВГрафик.Вставить(ДатаДня, Истина);
КонецЕсли;
@@ -519,8 +520,14 @@
Возврат ДниВключенныеВГрафик;
КонецЕсли;
ДанныеПраздничныхДней = ДанныеПроизводственногоКалендаря.НайтиСтроки(Новый Структура("ВидДня", Перечисления.ВидыДнейПроизводственногоКалендаря.Праздник));
ОтборСтрок = Новый Структура("ВидДня");
ОтборСтрок.ВидДня = Перечисления.ВидыДнейПроизводственногоКалендаря.Праздник;
ДанныеПраздничныхДней = ДанныеПроизводственногоКалендаря.НайтиСтроки(ОтборСтрок);
Для Каждого ДанныеДня Из ДанныеПраздничныхДней Цикл
ДниВключенныеВГрафик.Удалить(ДанныеДня.Дата);
КонецЦикла;
ОтборСтрок.ВидДня = Перечисления.ВидыДнейПроизводственногоКалендаря.Нерабочий;
ДанныеПраздничныхДней = ДанныеПроизводственногоКалендаря.НайтиСтроки(ОтборСтрок);
Для Каждого ДанныеДня Из ДанныеПраздничныхДней Цикл
ДниВключенныеВГрафик.Удалить(ДанныеДня.Дата);
КонецЦикла;
SSL/src/Catalogs/КлючевыеОперации/Forms/ФормаЭлемента/Help/ru.html
+2 -2
View File
@@ -1,11 +1,11 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><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.9600.18427"></meta></head><body>
<p>Описание свойств ключевых операций. </p>
<p>В программе имеются предопределенные <a href="Catalog.КлючевыеОперации/Help">ключевые операции</a>. При необходимости можно добавить новые. В качестве ключевых операций могут выступать различные операции программы, например, проведение документа, формирование отчета и т.п. Для того чтобы оценивать производительность программы, необходимо в начале работы программы заполнить параметры ключевых операций (после установки программы параметры ключевых операций не заполнены). </p>
<p>В программе имеются предопределенные <a href="Catalog.КлючевыеОперации/Help">ключевые операции</a>. При необходимости можно добавить новые. В качестве ключевых операций могут выступать различные операции программы, например, проведение документа, формирование отчета и т.п. Для того чтобы оценивать производительность программы, необходимо в начале работы программы заполнить параметры ключевых операций в <a href="Catalog.ПрофилиКлючевыхОпераций/Help">профиле ключевых операций</a> (после установки программы параметры ключевых операций не заполнены). </p>
<h3>Сведения о ключевых операциях</h3>
<ul><li><strong>Наименование</strong> - для предопределенных операций заполнено по умолчанию, для вновь вводимых операций необходимо ввести. Поле является обязательным;
</li><li><strong>Приоритет</strong> - напишите приоритет каждой операции - целое число, при этом приоритет не должен повторяться. Поле является обязательным;
</li><li><strong>Целевое время</strong> - напишите время в секундах. Поле является обязательным;
</li><li><strong>Минимально допустимый уровень</strong> - выберите из списка, например, <strong>Удовлетворительно</strong>.</li></ul><p>Выбранные параметры ключевых операций будут применены при замерах производительности.</p>
<h3>Контроль замеров времени</h3>
<ul><li>В ходе <a href="DataProcessor.ОценкаПроизводительности/Help">оценки производительности</a> работы программы производятся <a href="InformationRegister.УдалитьЗамерыВремени2/Help">замеры времени</a> по каждой ключевой операции. Для просмотра истории замеров по каждой ключевой операции нажмите <strong>Замеры времени</strong> на панели навигации.</li></ul><h3>См. также:</h3>
<ul><li>В ходе <a href="DataProcessor.ОценкаПроизводительности/Help">оценки производительности</a> работы программы производятся <a href="InformationRegister.ЗамерыВремени/Help">замеры времени</a> по каждой ключевой операции. Для просмотра истории замеров по каждой ключевой операции нажмите <strong>Замеры времени</strong> на панели навигации.</li></ul><h3>См. также:</h3>
<ul><li><a href="v8help://frame/form_common">Работа с формами</a>.</li></ul></body></html>
SSL/src/Catalogs/КлючевыеОперации/Help/ru.html
+2 -2
View File
@@ -1,12 +1,12 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><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.9600.18427"></meta></head><body>
<p>Предназначен для хранения параметров ключевых операций.</p>
<p>Параметры ключевых операций необходимы для <a href="DataProcessor.ОценкаПроизводительности/Help">оценки производительности</a> работы программы. В программе предусмотрены встроенные средства для сбора и анализа данных о производительности работы по APDEX, которая является международным стандартом оценки производительности информационных систем. </p>
<p>Параметры ключевых операций необходимы для <a href="Report.ОценкаПроизводительности/Help">оценки производительности</a> работы программы. В программе предусмотрены встроенные средства для сбора и анализа данных о производительности работы по APDEX, которая является международным стандартом оценки производительности информационных систем. </p>
<p>Список открывается по команде <strong>Ключевые операции</strong> раздела <strong>Сервисные подсистемы</strong>.</p>
<p>Для того чтобы оценивать производительность программы, необходимо в начале работы программы заполнить параметры ключевых операций (после установки программы параметры ключевых операций не заполнены). В программе имеются предопределенные ключевые операции. При необходимости можно добавить операции в список. Перечислены различные операции программы, например, проведение документа, формирование отчета и т.п. В списке выводятся сведения:</p>
<ul><li><strong>Наименование</strong> - полное наименование операции;
</li><li><strong>Приоритет</strong> - целое число, при этом приоритет не должен повторяться;
</li><li><strong>Целевое время</strong> - время, затраченное на операцию в секундах;
</li><li><strong>Минимально допустимый уровень</strong> - для сравнения взяты оценки по apdex в цифровом выражении, например, <strong>Удовлетворительно</strong> (<strong>apdex &gt; = 0.75</strong>).</li></ul><p>Выбранные параметры ключевых операций будут применены при <a href="InformationRegister.УдалитьЗамерыВремени2/Help">замерах</a> производительности.</p>
</li><li><strong>Минимально допустимый уровень</strong> - для сравнения взяты оценки по apdex в цифровом выражении, например, <strong>Удовлетворительно</strong> (<strong>apdex &gt; = 0.75</strong>).</li></ul><p>Выбранные параметры ключевых операций будут применены при <a href="InformationRegister.ЗамерыВремени/Help">замерах</a> производительности.</p>
<h3>Заполнение сведений о ключевых операциях</h3>
<ul><li>Выделите имеющиеся в списке ключевую операцию, нажмите <strong>Еще - Изменить</strong> и заполните необходимые <a href="Catalog.КлючевыеОперации.Form.ФормаЭлемента/Help">поля</a>.
</li><li>Также можно воспользоваться двойным щелчком мыши.</li></ul><h3>Ввод новой ключевой операции</h3>
SSL/src/Catalogs/КлючевыеОперации/КлючевыеОперации.mdo
+19 -1
View File
@@ -187,7 +187,6 @@
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillChecking>ShowError</fillChecking>
<fillValue xsi:type="core:UndefinedValue"/>
<indexing>Index</indexing>
<fullTextSearch>Use</fullTextSearch>
@@ -260,6 +259,25 @@
<indexing>Index</indexing>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="d7fe80d3-7fcf-427e-a991-5384f0c3947e">
<name>Длительная</name>
<synonym>
<key>ru</key>
<value>Длительная</value>
</synonym>
<type>
<types>Boolean</types>
</type>
<toolTip>
<key>ru</key>
<value>Свойство ключевой операции замера. Для длительных ключевых операций рассчитывается удельное время выполнения.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<indexing>Index</indexing>
<dataHistory>Use</dataHistory>
</attributes>
<forms uuid="085a08f3-9d93-429d-9b1b-9065ab8363f7">
<name>ФормаЭлемента</name>
<synonym>
SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Form.form
-49
View File
@@ -461,33 +461,6 @@
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:Button">
<name>ОткрытьСписокПапокИФайлов</name>
<id>30</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ОткрытьСписокПапокИФайловExtendedTooltip</name>
<id>40</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>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
@@ -627,28 +600,6 @@
<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>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>НастроитьСинхронизацию</name>
<title>
SSL/src/Catalogs/ПапкиФайлов/Forms/ФормаЭлемента/Module.bsl
+1 -18
View File
@@ -26,16 +26,7 @@
ОбновитьПолныйПуть();
ОбновитьПояснениеОблачногоСервиса();
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда
МодульУправлениеДоступом = ОбщегоНазначения.ОбщийМодуль("УправлениеДоступом");
Если Не МодульУправлениеДоступом.ЕстьРоль("НастройкаСинхронизацииФайлов") Тогда
Элементы.ФормаНастроитьСинхронизацию.Видимость = Ложь;
КонецЕсли;
КонецЕсли;
Элементы.ФормаНастроитьСинхронизацию.Видимость = ПравоДоступа("Редактирование", Метаданные.Справочники.УчетныеЗаписиСинхронизацииФайлов);
КонецПроцедуры
@@ -164,14 +155,6 @@
#Область ОбработчикиКомандФормы
&НаКлиенте
Процедура ОткрытьСписокПапокИФайлов(Команда)
ПараметрыФормы = Новый Структура("Папка", Объект.Ссылка);
ОткрытьФорму("Справочник.Файлы.Форма.Файлы", ПараметрыФормы, ,Объект.Ссылка);
КонецПроцедуры
&НаКлиенте
Процедура НастроитьСинхронизацию(Команда)
SSL/src/Catalogs/ПапкиФайлов/ObjectModule.bsl
+1 -1
View File
@@ -142,7 +142,7 @@
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, ТекстЗаполнения, СтандартнаяОбработка)
ДатаСоздания = ТекущаяДатаСеанса();
Ответственный = Пользователи.ТекущийПользователь();
КонецПроцедуры
SSL/src/Catalogs/Пользователи/Forms/СменаПочты/Module.bsl
+1 -1
View File
@@ -48,7 +48,7 @@
&НаСервере
Процедура СоздатьЗапросНаСменуПочты()
ИнтеграцияСтандартныхПодсистем.ПриСозданииЗапросаНаСменуПочты(НоваяПочта,
ИнтеграцияПодсистемБСП.ПриСозданииЗапросаНаСменуПочты(НоваяПочта,
Пользователь, ПарольПользователяСервиса);
КонецПроцедуры
SSL/src/Catalogs/Пользователи/ObjectModule.bsl
+1 -1
View File
@@ -113,7 +113,7 @@
ПользователиСлужебный.ВключитьЗаданиеКонтрольАктивностиПользователейПриНеобходимости(Ссылка);
ИнтеграцияСтандартныхПодсистем.ПослеДобавленияИзмененияПользователяИлиГруппы(Ссылка, ЭтоНовый);
ИнтеграцияПодсистемБСП.ПослеДобавленияИзмененияПользователяИлиГруппы(Ссылка, ЭтоНовый);
КонецПроцедуры
SSL/src/Catalogs/ПользовательскиеНастройкиОтчетов/ПользовательскиеНастройкиОтчетов.mdo
-1
View File
@@ -94,7 +94,6 @@
</standardAttributes>
<createOnInput>Use</createOnInput>
<dataLockControlMode>Managed</dataLockControlMode>
<fullTextSearch>Use</fullTextSearch>
<objectPresentation>
<key>ru</key>
<value>Пользовательская настройка отчета</value>
SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/ManagerModule.bsl
+30 -26
View File
@@ -1,5 +1,35 @@
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ПрограммныйИнтерфейс
#Область ДляВызоваИзДругихПодсистем
// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов
// Возвращает реквизиты объекта, которые не рекомендуется редактировать
// с помощью обработки группового изменения реквизитов.
//
// Возвращаемое значение:
// Массив - список имен реквизитов объекта.
Функция РеквизитыНеРедактируемыеВГрупповойОбработке() Экспорт
Результат = Новый Массив;
Результат.Добавить("Код");
Результат.Добавить("Наименование");
Результат.Добавить("КомпоновщикНастроек");
Результат.Добавить("ПомещатьВПапку");
Результат.Добавить("РеквизитДопУпорядочивания");
Результат.Добавить("ПредставлениеОтбора");
Возврат Результат;
КонецФункции
// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов
#КонецОбласти
#КонецОбласти
#Область СлужебныйПрограммныйИнтерфейс
// Применяет правила обработки писем.
@@ -142,32 +172,6 @@
КонецПроцедуры
#Область ДляВызоваИзДругихПодсистем
// СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов
// Возвращает реквизиты объекта, которые не рекомендуется редактировать
// с помощью обработки группового изменения реквизитов.
//
// Возвращаемое значение:
// Массив - список имен реквизитов объекта.
Функция РеквизитыНеРедактируемыеВГрупповойОбработке() Экспорт
Результат = Новый Массив;
Результат.Добавить("Код");
Результат.Добавить("Наименование");
Результат.Добавить("КомпоновщикНастроек");
Результат.Добавить("ПомещатьВПапку");
Результат.Добавить("РеквизитДопУпорядочивания");
Результат.Добавить("ПредставлениеОтбора");
Возврат Результат;
КонецФункции
// Конец СтандартныеПодсистемы.ГрупповоеИзменениеОбъектов
#КонецОбласти
#КонецОбласти
#КонецЕсли
SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss
+21
View File
@@ -0,0 +1,21 @@
<?xml version="1.0" encoding="UTF-8"?>
<Settings xmlns="http://v8.1c.ru/8.1/data-composition-system/settings" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:pal="http://v8.1c.ru/8.1/data/ui/colors/palette" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core">
<filter>
<viewMode>Normal</viewMode>
<userSettingID>dfcece9d-5077-440b-b6b3-45a5cb4538eb</userSettingID>
</filter>
<order>
<item xsi:type="OrderItemField">
<field>Наименование</field>
<orderType>Asc</orderType>
</item>
<viewMode>Normal</viewMode>
<userSettingID>88619765-ccb3-46c6-ac52-38e9c992ebd4</userSettingID>
</order>
<conditionalAppearance>
<viewMode>Normal</viewMode>
<userSettingID>b75fecce-942b-4aed-abc9-e6a02e460fb3</userSettingID>
</conditionalAppearance>
<itemsViewMode>Normal</itemsViewMode>
<itemsUserSettingID>911b6018-f537-43e8-a417-da56b22f9aec</itemsUserSettingID>
</Settings>
SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаСписка/Form.form
+800
View File
@@ -0,0 +1,800 @@
<?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>117</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Группа пользовательских настроек</value>
</title>
<extendedTooltip>
<name>ГруппаПользовательскихНастроекРасширеннаяПодсказка</name>
<id>118</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>
<items xsi:type="form:FormGroup">
<name>КоманднаяПанель</name>
<id>119</id>
<items xsi:type="form:FormGroup">
<name>ФормаГруппаДействий</name>
<id>123</id>
<items xsi:type="form:Button">
<name>ФормаВыполнитьПроверку</name>
<id>125</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ФормаВыполнитьПроверкуРасширеннаяПодсказка</name>
<id>126</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>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Форма группа действий</value>
</title>
<extendedTooltip>
<name>ФормаГруппаДействийРасширеннаяПодсказка</name>
<id>124</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<extInfo xsi:type="form:ButtonGroupExtInfo"/>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Командная панель</value>
</title>
<extendedTooltip>
<name>КоманднаяПанельРасширеннаяПодсказка</name>
<id>120</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>Left</horizontalAlign>
<commandSource>Form</commandSource>
</extInfo>
</items>
<items xsi:type="form:Table">
<name>Список</name>
<id>1</id>
<title>
<key>ru</key>
<value>Список</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список</segments>
</dataPath>
<defaultItem>true</defaultItem>
<titleLocation>None</titleLocation>
<excludedCommands>Choose</excludedCommands>
<excludedCommands>Copy</excludedCommands>
<excludedCommands>Create</excludedCommands>
<excludedCommands>CreateFolder</excludedCommands>
<excludedCommands>LevelDown</excludedCommands>
<excludedCommands>LevelUp</excludedCommands>
<items xsi:type="form:FormField">
<name>Использование</name>
<id>100</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>102</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ИспользованиеКонтекстноеМеню</name>
<id>101</id>
<autoFill>true</autoFill>
</contextMenu>
<type>CheckBoxField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:CheckBoxFieldExtInfo"/>
</items>
<items xsi:type="form:FormField">
<name>Наименование</name>
<id>127</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.Наименование</segments>
</dataPath>
<extendedTooltip>
<name>НаименованиеРасширеннаяПодсказка</name>
<id>129</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>НаименованиеКонтекстноеМеню</name>
<id>128</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>РегламентноеЗаданиеПредставление</name>
<id>8</id>
<title>
<key>ru</key>
<value>Выполняется</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.РегламентноеЗаданиеПредставление</segments>
</dataPath>
<extendedTooltip>
<name>РегламентноеЗаданиеПредставлениеExtendedTooltip</name>
<id>14</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>РегламентноеЗаданиеПредставлениеКонтекстноеМеню</name>
<id>9</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<autoCellHeight>true</autoCellHeight>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Важность</name>
<id>48</id>
<title>
<key>ru</key>
<value>Важность проблемы</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.ВажностьПроблемы</segments>
</dataPath>
<toolTip>
<key>ru</key>
<value>Статус проблем, регистрируемых проверкой</value>
</toolTip>
<extendedTooltip>
<name>ВажностьРасширеннаяПодсказка</name>
<id>50</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ВажностьКонтекстноеМеню</name>
<id>49</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>СпособВыполнения</name>
<id>51</id>
<title>
<key>ru</key>
<value>Запуск</value>
</title>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.СпособВыполнения</segments>
</dataPath>
<toolTip>
<key>ru</key>
<value>Способ выполнения проверки</value>
</toolTip>
<extendedTooltip>
<name>СпособВыполненияРасширеннаяПодсказка</name>
<id>53</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СпособВыполненияКонтекстноеМеню</name>
<id>52</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>ИдентификаторРегламентногоЗадания</name>
<id>142</id>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.ИдентификаторРегламентногоЗадания</segments>
</dataPath>
<extendedTooltip>
<name>ИдентификаторРегламентногоЗаданияРасширеннаяПодсказка</name>
<id>144</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ИдентификаторРегламентногоЗаданияКонтекстноеМеню</name>
<id>143</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>ЭтоГруппа</name>
<id>139</id>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.ЭтоГруппа</segments>
</dataPath>
<extendedTooltip>
<name>ЭтоГруппаРасширеннаяПодсказка</name>
<id>141</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ЭтоГруппаКонтекстноеМеню</name>
<id>140</id>
<autoFill>true</autoFill>
</contextMenu>
<type>CheckBoxField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:CheckBoxFieldExtInfo"/>
</items>
<items xsi:type="form:FormField">
<name>Ссылка</name>
<id>136</id>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.Ссылка</segments>
</dataPath>
<extendedTooltip>
<name>СсылкаРасширеннаяПодсказка</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>137</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<commandBarLocation>None</commandBarLocation>
<autoCommandBar>
<name>СписокКоманднаяПанель</name>
<id>3</id>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<handlers>
<event>BeforeAddRow</event>
<name>СписокПередНачаломДобавления</name>
</handlers>
<handlers>
<event>OnActivateRow</event>
<name>СписокПриАктивизацииСтроки</name>
</handlers>
<searchStringAddition>
<name>СписокСтрокаПоиска</name>
<id>19</id>
<extendedTooltip>
<name>СписокСтрокаПоискаРасширеннаяПодсказка</name>
<id>21</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СписокСтрокаПоискаКонтекстноеМеню</name>
<id>20</id>
<autoFill>true</autoFill>
</contextMenu>
<source>Список</source>
<extInfo xsi:type="form:SearchStringAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchStringAddition>
<viewStatusAddition>
<name>СписокСостояниеПросмотра</name>
<id>22</id>
<extendedTooltip>
<name>СписокСостояниеПросмотраРасширеннаяПодсказка</name>
<id>24</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СписокСостояниеПросмотраКонтекстноеМеню</name>
<id>23</id>
<autoFill>true</autoFill>
</contextMenu>
<type>ViewStatusAddition</type>
<source>Список</source>
<extInfo xsi:type="form:ViewStatusAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</viewStatusAddition>
<searchControlAddition>
<name>СписокУправлениеПоиском</name>
<id>25</id>
<extendedTooltip>
<name>СписокУправлениеПоискомРасширеннаяПодсказка</name>
<id>27</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СписокУправлениеПоискомКонтекстноеМеню</name>
<id>26</id>
<autoFill>true</autoFill>
</contextMenu>
<type>SearchControlAddition</type>
<source>Список</source>
<extInfo xsi:type="form:SearchControlAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchControlAddition>
<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>
<contextMenu>
<name>СписокКонтекстноеМеню</name>
<id>2</id>
<items xsi:type="form:Button">
<name>СписокКонтекстноеМенюВыполнитьПроверку</name>
<id>17</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>СписокКонтекстноеМенюВыполнитьПроверкуРасширеннаяПодсказка</name>
<id>18</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>
<autoFill>true</autoFill>
</contextMenu>
<representation>Tree</representation>
<changeRowSet>true</changeRowSet>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<autoMaxRowsCount>true</autoMaxRowsCount>
<selectionMode>MultiRow</selectionMode>
<header>true</header>
<headerHeight>1</headerHeight>
<footerHeight>1</footerHeight>
<horizontalScrollBar>AutoUse</horizontalScrollBar>
<verticalScrollBar>AutoUse</verticalScrollBar>
<horizontalLines>true</horizontalLines>
<verticalLines>true</verticalLines>
<searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView>
<initialTreeView>ExpandAllLevels</initialTreeView>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<rowPictureDataPath xsi:type="form:DataPath">
<segments>Список.DefaultPicture</segments>
</rowPictureDataPath>
<autoMaxCardHeight>true</autoMaxCardHeight>
<extInfo xsi:type="form:DynamicListTableExtInfo">
<handlers>
<event>OnGetDataAtServer</event>
<name>СписокПриПолученииДанныхНаСервере</name>
</handlers>
<autoRefresh>true</autoRefresh>
<autoRefreshPeriod>60</autoRefreshPeriod>
<period>
<startDate>0001-01-01T00:00:00</startDate>
<endDate>0001-01-01T00:00:00</endDate>
</period>
<restoreCurrentRow>true</restoreCurrentRow>
<topLevelParent xsi:type="core:UndefinedValue"/>
<showRoot>true</showRoot>
<allowGettingCurrentRowURL>true</allowGettingCurrentRowURL>
<userSettingsGroup>ГруппаПользовательскихНастроек</userSettingsGroup>
</extInfo>
</items>
<items xsi:type="form:Decoration">
<name>ПредставлениеОбщегоРасписания</name>
<id>114</id>
<title>
<key>ru</key>
<value>&lt;Представление общего расписания></value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ПредставлениеОбщегоРасписанияРасширеннаяПодсказка</name>
<id>116</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ПредставлениеОбщегоРасписанияКонтекстноеМеню</name>
<id>115</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<handlers>
<event>URLProcessing</event>
<name>ПредставлениеОбщегоРасписанияОбработкаНавигационнойСсылки</name>
</handlers>
<horizontalAlign>Left</horizontalAlign>
<verticalAlign>Center</verticalAlign>
</extInfo>
</items>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<excludedCommands>Copy</excludedCommands>
<excludedCommands>Create</excludedCommands>
<excludedCommands>CreateFolder</excludedCommands>
<excludedCommands>Delete</excludedCommands>
<excludedCommands>LevelDown</excludedCommands>
<excludedCommands>LevelUp</excludedCommands>
<excludedCommands>SetDeletionMark</excludedCommands>
<windowOpeningMode>DontBlock</windowOpeningMode>
<autoSaveDataInSettings>Use</autoSaveDataInSettings>
<saveWindowSettings>true</saveWindowSettings>
<autoTitle>true</autoTitle>
<autoUrl>true</autoUrl>
<group>Vertical</group>
<autoFillCheck>true</autoFillCheck>
<allowFormCustomize>true</allowFormCustomize>
<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>DynamicList</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.Ref</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.ВыполняетсяТолькоВКонтексте</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.Используется</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.КонтекстВыполнения</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.Кор_НастройкаРегламентов_ИдентификаторРегламентногоЗадания</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.ИдентификаторРегламентногоЗадания</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.СпособВыполнения</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.Ссылка</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.ЭтоГруппа</segments>
</notDefaultUseAlwaysAttributes>
<main>true</main>
<extInfo xsi:type="form:DynamicListExtInfo">
<queryText>ВЫБРАТЬ
Проверки.Родитель КАК Родитель,
Проверки.Ссылка КАК Ссылка,
Проверки.ВерсияДанных КАК ВерсияДанных,
Проверки.ПометкаУдаления КАК ПометкаУдаления,
Проверки.Предопределенный КАК Предопределенный,
Проверки.Наименование КАК Наименование,
Проверки.ВажностьПроблемы КАК ВажностьПроблемы,
Проверки.Идентификатор КАК Идентификатор,
Проверки.СпособВыполнения КАК СпособВыполнения,
Проверки.Использование КАК Использование,
ВЫРАЗИТЬ(&quot;&quot; КАК СТРОКА(128)) КАК РегламентноеЗаданиеПредставление,
Проверки.ЭтоГруппа КАК ЭтоГруппа,
Проверки.ИдентификаторРегламентногоЗадания КАК ИдентификаторРегламентногоЗадания
ИЗ
Справочник.ПравилаПроверкиУчета КАК Проверки</queryText>
<mainTable>Catalog.ПравилаПроверкиУчета</mainTable>
<dynamicDataRead>true</dynamicDataRead>
<autoFillAvailableFields>true</autoFillAvailableFields>
<customQuery>true</customQuery>
<autoSaveUserSettings>true</autoSaveUserSettings>
<getInvisibleFieldPresentations>true</getInvisibleFieldPresentations>
</extInfo>
</attributes>
<attributes>
<name>ПредставлениеОбщегоРасписания</name>
<title>
<key>ru</key>
<value>Представление общего расписания</value>
</title>
<id>14</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>15</id>
<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>
<picture xsi:type="core:PictureRef">
<picture>StdPicture.GenerateReport</picture>
</picture>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>ВыполнитьПроверку</name>
</handler>
</action>
<representation>TextPicture</representation>
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
<extInfo xsi:type="form:DynamicListFormExtInfo"/>
</form:Form>
SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаСписка/Module.bsl
+340
View File
@@ -0,0 +1,340 @@
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
МодульПользователи = ОбщегоНазначения.ОбщийМодуль("Пользователи");
Если Не ( (Не ОбщегоНазначения.РазделениеВключено() И МодульПользователи.ЭтоПолноправныйПользователь())
Или (ОбщегоНазначения.РазделениеВключено() И МодульПользователи.ЭтоПолноправныйПользователь(, Истина)) ) Тогда
Элементы.ПредставлениеОбщегоРасписания.Видимость = Ложь;
Элементы.РегламентноеЗаданиеПредставление.Видимость = Ложь;
Иначе
ОбщееРегламентноеЗадание = РегламентныеЗаданияСервер.Задание(Метаданные.РегламентныеЗадания.ПроверкаВеденияУчета);
Если ОбщееРегламентноеЗадание <> Неопределено Тогда
Если Не ОбщегоНазначения.РазделениеВключено() Тогда
ОбщееРасписаниеПредставление = Строка(ОбщееРегламентноеЗадание.Расписание)
Иначе
Если Пользователи.ЭтоПолноправныйПользователь(, Истина) Тогда
ОбщееРасписаниеПредставление = Строка(ОбщееРегламентноеЗадание.Шаблон.Расписание.Получить());
Элементы.РегламентноеЗаданиеПредставление.Видимость = Истина;
Иначе
Элементы.РегламентноеЗаданиеПредставление.Видимость = Ложь;
Элементы.ПредставлениеОбщегоРасписания.Видимость = Ложь;
ОбщееРасписаниеПредставление = "";
КонецЕсли;
КонецЕсли;
Иначе
Если (ОбщегоНазначения.РазделениеВключено() И Пользователи.ЭтоПолноправныйПользователь(, Истина)) Или Не ОбщегоНазначения.РазделениеВключено() Тогда
ОбщееРасписаниеПредставление = НСтр("ru = 'Не найдено общее регламентное задание'");
Иначе
ОбщееРасписаниеПредставление = "";
Элементы.ПредставлениеОбщегоРасписания.Видимость = Ложь;
КонецЕсли;
КонецЕсли;
Список.КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Вставить("ПредставлениеОбщегоРасписания", ОбщееРасписаниеПредставление);
Элементы.ПредставлениеОбщегоРасписания.Заголовок = СформироватьСтрокуСРасписанием();
КонецЕсли;
Элементы.ПредставлениеОбщегоРасписания.Доступность = РасписаниеДоступно();
// СтандартныеПодсистемы.ПодключаемыеКоманды
ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовФормы
&НаКлиенте
Процедура СписокПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр)
Отказ = Истина;
КонецПроцедуры
&НаСервереБезКонтекста
Процедура СписокПриПолученииДанныхНаСервере(ИмяЭлемента, Настройки, Строки)
ДополнительныеСвойстваКомпоновщика = Настройки.ДополнительныеСвойства;
Если Не ДополнительныеСвойстваКомпоновщика.Свойство("ПредставлениеОбщегоРасписания") Тогда
Возврат;
КонецЕсли;
ПредставлениеОбщегоРасписания = ДополнительныеСвойстваКомпоновщика.ПредставлениеОбщегоРасписания;
КлючиСтрок = Строки.ПолучитьКлючи();
Для Каждого КлючСтроки Из КлючиСтрок Цикл
ДанныеСтроки = Строки[КлючСтроки].Данные;
Если ДанныеСтроки.ЭтоГруппа Тогда
Продолжить;
КонецЕсли;
Если ДанныеСтроки.СпособВыполнения = Перечисления.СпособВыполненияПроверки.Вручную Тогда
ДанныеСтроки.РегламентноеЗаданиеПредставление = НСтр("ru = 'Вручную'");
ИначеЕсли ДанныеСтроки.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОбщемуРасписанию Тогда
ДанныеСтроки.РегламентноеЗаданиеПредставление = НСтр("ru = 'По общему расписанию'")
ИначеЕсли ДанныеСтроки.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОтдельномуРасписанию Тогда
ИдентификаторЗадания = ДанныеСтроки.ИдентификаторРегламентногоЗадания;
Если Не ЗначениеЗаполнено(ИдентификаторЗадания) Тогда
ДанныеСтроки.РегламентноеЗаданиеПредставление = НСтр("ru = 'Пустой идентификатор индивидуального задания'");
Иначе
НайденноеРегламентноеЗадание = РегламентныеЗаданияСервер.Задание(Новый УникальныйИдентификатор(ИдентификаторЗадания));
Если НайденноеРегламентноеЗадание <> Неопределено Тогда
РасписаниеСтрокой = Строка(НайденноеРегламентноеЗадание.Расписание);
Иначе
ОбъектПравила = КлючСтроки.ПолучитьОбъект();
Параметры = Новый Структура;
Параметры.Вставить("Использование", Истина);
Параметры.Вставить("Метаданные", Метаданные.РегламентныеЗадания.ПроверкаВеденияУчета);
Параметры.Вставить("Расписание", ОбщегоНазначенияКлиентСервер.СтруктураВРасписание(ОбъектПравила.РасписаниеВыполненияПроверки.Получить()));
ВосстановленноеЗадание = РегламентныеЗаданияСервер.ДобавитьЗадание(Параметры);
ПараметрыЗадания = Новый Структура;
МассивПараметров = Новый Массив;
МассивПараметров.Добавить(Строка(ВосстановленноеЗадание.УникальныйИдентификатор));
ПараметрыЗадания.Вставить("Параметры", МассивПараметров);
РегламентныеЗаданияСервер.ИзменитьЗадание(ВосстановленноеЗадание.УникальныйИдентификатор, ПараметрыЗадания);
ОбъектПравила.ИдентификаторРегламентногоЗадания = Строка(ВосстановленноеЗадание.УникальныйИдентификатор);
ОбновлениеИнформационнойБазы.ЗаписатьДанные(ОбъектПравила);
РасписаниеСтрокой = Строка(ВосстановленноеЗадание.Расписание);
КонецЕсли;
ДанныеСтроки.РегламентноеЗаданиеПредставление = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'По расписанию: ""%1""'"), РасписаниеСтрокой);
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовТаблицыФормыСписок
&НаКлиенте
Процедура СписокПриАктивизацииСтроки(Элемент)
// СтандартныеПодсистемы.ПодключаемыеКоманды
ПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
&НаКлиенте
Процедура ВыполнитьПроверку(Команда)
ВыделенныеСтроки = Элементы.Список.ВыделенныеСтроки;
Если ВыделенныеСтроки.Количество() = 0 Тогда
ВызватьИсключение НСтр("ru = 'Не выделено ни одной проверки в списке. Выполнение невозможно.'");
КонецЕсли;
МассивПроверок = ПодготовкаМассиваПроверок(ВыделенныеСтроки);
Если МассивПроверок.Количество() = 0 Тогда
ВызватьИсключение НСтр("ru = 'В списке выделены одни группы. Выполнение невозможно.'");
КонецЕсли;
ДлительнаяОперация = ВыполнитьПроверкиНаСервере(МассивПроверок);
Если ДлительнаяОперация <> Неопределено Тогда
ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект);
ПараметрыОжидания.ВыводитьОкноОжидания = Истина;
ПараметрыОжидания.ТекстСообщения = НСтр("ru = 'Идет выполнение выбранных проверок. Это может занять некоторое время'");
ПараметрыОжидания.Интервал = 2;
ДлительныеОперацииКлиент.ОжидатьЗавершение(ДлительнаяОперация, , ПараметрыОжидания);
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция ПодготовкаМассиваПроверок(МассивПроверок)
ОтфильтрованныйМассив = Новый Массив;
Для Каждого Проверка Из МассивПроверок Цикл
Если Не Проверка.ЭтоГруппа Тогда
ОтфильтрованныйМассив.Добавить(Проверка);
КонецЕсли;
КонецЦикла;
Возврат ОтфильтрованныйМассив;
КонецФункции
&НаСервере
Функция ВыполнитьПроверкиНаСервере(МассивПроверок)
Если МонопольныйРежим() Тогда
Возврат Неопределено;
КонецЕсли;
Если ДлительнаяОперация <> Неопределено Тогда
ДлительныеОперации.ОтменитьВыполнениеЗадания(ДлительнаяОперация.ИдентификаторЗадания);
КонецЕсли;
ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияВФоне(УникальныйИдентификатор);
ПараметрыВыполнения.ОжидатьЗавершение = 0;
ПараметрыВыполнения.НаименованиеФоновогоЗадания = НСтр("ru = 'Выполнение списка проверок'");
ПараметрыВыполнения.ЗапуститьВФоне = Истина;
МассивПараметров = Новый Массив;
Для Каждого Проверка Из МассивПроверок Цикл
РеквизитыПроверки = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Проверка,
"Идентификатор, Наименование, ИдентификаторРегламентногоЗадания,
|ДатаНачалаПроверки, ЛимитПроблем, СпособВыполнения");
ПараметрыПроверки = Новый Структура;
ПараметрыПроверки.Вставить("Идентификатор", РеквизитыПроверки.Идентификатор);
ПараметрыПроверки.Вставить("Наименование", РеквизитыПроверки.Наименование);
ПараметрыПроверки.Вставить("ИдентификаторРегламентногоЗадания", РеквизитыПроверки.ИдентификаторРегламентногоЗадания);
ПараметрыПроверки.Вставить("ДатаНачалаПроверки", РеквизитыПроверки.ДатаНачалаПроверки);
ПараметрыПроверки.Вставить("ЛимитПроблем", РеквизитыПроверки.ЛимитПроблем);
ПараметрыПроверки.Вставить("СпособВыполнения", РеквизитыПроверки.СпособВыполнения);
ПараметрыПроверки.Вставить("ПроверкаБылаОстановлена", Ложь);
ПараметрыПроверки.Вставить("РучнойЗапуск", Истина);
МассивПараметров.Добавить(ПараметрыПроверки);
КонецЦикла;
Результат = ДлительныеОперации.ВыполнитьВФоне("КонтрольВеденияУчетаСлужебный.ВыполнитьПроверкиВФоновомЗадании", Новый Структура("МассивПараметров", МассивПараметров), ПараметрыВыполнения);
Возврат Результат;
КонецФункции
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаСервере
Функция СформироватьСтрокуСРасписанием()
ОбщееРегламентноеЗадание = РегламентныеЗаданияСервер.Задание(Метаданные.РегламентныеЗадания.ПроверкаВеденияУчета);
Если ОбщееРегламентноеЗадание <> Неопределено Тогда
Если Не ОбщегоНазначения.РазделениеВключено() Тогда
ОбщееРасписание = ОбщееРегламентноеЗадание.Расписание;
ОбщееРасписаниеПредставление = Строка(ОбщееРегламентноеЗадание.Расписание);
Иначе
Если Пользователи.ЭтоПолноправныйПользователь(, Истина) Тогда
ОбщееРасписание = ОбщееРегламентноеЗадание.Шаблон.Расписание.Получить();
ОбщееРасписаниеПредставление = Строка(ОбщееРасписание);
Иначе
ОбщееРасписание = Неопределено;
ОбщееРасписаниеПредставление = НСтр("ru = 'Просмотр расписания недоступен'");
КонецЕсли;
КонецЕсли;
Иначе
ОбщееРасписание = Неопределено;
ОбщееРасписаниеПредставление = НСтр("ru = 'Не найдено общее регламентное задание'");
КонецЕсли;
Если Не ОбщегоНазначения.РазделениеВключено() Тогда
ТекстоваяСсылка = ПоместитьВоВременноеХранилище(ОбщееРасписание, УникальныйИдентификатор);
Возврат Новый ФорматированнаяСтрока(НСтр("ru='Общее расписание выполнения проверок:'") + " ",
Новый ФорматированнаяСтрока(ОбщееРасписаниеПредставление, , , , ТекстоваяСсылка));
Иначе
Возврат Новый ФорматированнаяСтрока(НСтр("ru='Общее расписание выполнения проверок:'") + " ",
Новый ФорматированнаяСтрока(ОбщееРасписаниеПредставление, , ЦветаСтиля.ГиперссылкаЦвет));
КонецЕсли;
КонецФункции
&НаКлиенте
Процедура ПредставлениеОбщегоРасписанияОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогРасписанияРегламентногоЗадания(ПолучитьИзВременногоХранилища(НавигационнаяСсылкаФорматированнойСтроки));
Оповещение = Новый ОписаниеОповещения("ПредставлениеОбщегоРасписанияНажатиеНаКлиентеЗавершение", ЭтотОбъект);
Диалог.Показать(Оповещение);
КонецПроцедуры
&НаКлиенте
Процедура ПредставлениеОбщегоРасписанияНажатиеНаКлиентеЗавершение(Расписание, ДополнительныеПараметры) Экспорт
ПредставлениеОбщегоРасписанияНажатиеНаСервереЗавершение(Расписание, ДополнительныеПараметры);
КонецПроцедуры
&НаСервере
Процедура ПредставлениеОбщегоРасписанияНажатиеНаСервереЗавершение(Расписание, ДополнительныеПараметры)
Если Расписание = Неопределено Тогда
Возврат;
КонецЕсли;
ИдентификаторОбщегоЗадания = РегламентныеЗаданияСервер.УникальныйИдентификатор(Метаданные.РегламентныеЗадания.ПроверкаВеденияУчета);
РегламентныеЗаданияСервер.ИзменитьЗадание(ИдентификаторОбщегоЗадания, Новый Структура("Расписание", Расписание));
Элементы.ПредставлениеОбщегоРасписания.Заголовок = СформироватьСтрокуСРасписанием();
Список.КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Вставить("ПредставлениеОбщегоРасписания", Строка(Расписание));
Элементы.Список.Обновить();
КонецПроцедуры
&НаСервере
Функция РасписаниеДоступно()
Запрос = Новый Запрос(
"ВЫБРАТЬ
| ПравилаПроверкиУчета.Ссылка КАК ПравилоПроверки
|ИЗ
| Справочник.ПравилаПроверкиУчета КАК ПравилаПроверкиУчета");
Результат = Запрос.Выполнить().Выбрать();
Пока Результат.Следующий() Цикл
Если Не ОбновлениеИнформационнойБазы.ОбъектОбработан(Результат.ПравилоПроверки).Обработан Тогда
Возврат Ложь;
КонецЕсли;
КонецЦикла;
Возврат Истина;
КонецФункции
// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)
ПодключаемыеКомандыКлиент.ВыполнитьКоманду(ЭтотОбъект, Команда, Элементы.Список);
КонецПроцедуры
&НаСервере
Процедура Подключаемый_ВыполнитьКомандуНаСервере(Контекст, Результат)
ПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, Контекст, Элементы.Список, Результат);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()
ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Элементы.Список);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
#КонецОбласти
SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаЭлемента/Form.form
+1173
View File
File diff suppressed because it is too large. Load diff
SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаЭлемента/Help/ru.html
+31
View File
@@ -0,0 +1,31 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><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.9600.18427"></meta></head><body>
<p>Предназначена для настройки проверки ведения учета.</p>
<p>Открыть проверку можно из списка <a href="Catalog.ПравилаПроверкиУчета/Help">Проверки ведения учета</a>.</p>
<p>По умолчанию все проверки, предусмотренные в программе, уже включены, а часть из них выполняется автоматически в фоне. </p>
<p>В редких случаях может возникнуть необходимость что-либо перенастроить. В этом случае можно изменить настройки проверки.</p>
<p>В поле <strong>Комментарий</strong> можно написать дополнительную информацию о проверке.</p>
<h3>Использование</h3>
<ul><li>Если проверку в данный момент не нужно проводить, ее можно отключить с помощью флажка <strong>Использование</strong>.</li></ul><h3>Важность проблемы</h3>
<ul><li>В соответствующем поле можно указать <strong>Важность проблемы</strong>:
<ul><li><strong>Информация</strong>;
</li><li><strong>Предупреждение</strong>;
</li><li><strong>Ошибка</strong> (по умолчанию)
</li><li><strong>Полезный совет</strong>.</li></ul></li></ul><h3>Автоматическое выполнение</h3>
<ul><li>
<div>Для того чтобы проверка проходила в автоматическом режиме, включите флажок <strong>Выполняется в фоне по расписанию</strong>.</div>
</li><li>
<div>С помощью переключателя можно указать <a href="v8help://mngbase/jobschedule.lf">параметры проведения автоматической проверки</a>:</div>
<ul><li>
<div><strong>По общему расписанию</strong> (по умолчанию);</div>
</li><li>
<div><strong>По индивидуальному расписанию</strong>. После выбора становится доступной ссылка <strong>Настроить индивидуальное расписание</strong>.</div></li></ul></li></ul><h3>Выполнение проверки вручную</h3>
<ul><li>При необходимости можно произвести в любой момент вручную с помощью кнопки <strong>Выполнить проверку</strong>.</li></ul><h3>Дополнительные настройки</h3>
<ul><li>
<div>На вкладке <strong>Дополнительно</strong> можно указать следующие параметры проверки:</div>
<ul><li>
<div><strong>Дата начала проверки</strong> - для документов и других объектов программы, привязанных к временной оси, имеется возможность задания пороговой даты. Например, это полезно для того, чтобы не выполнять проверки в уже закрытых или архивных периодах. По умолчанию эта дата не заполнена, т.е. проверяется все.</div>
</li><li>
<div><strong>Лимит проблем</strong> - предусмотрена возможность наложить ограничения на количество проблем, выявляемых конкретной проверкой. Например, проверка заполнения обязательных реквизитов в списке с большим количеством элементов может быть ограничена определенным лимитом выводимых проблем.</div></li></ul></li></ul><h3>Возврат к стандартным настройкам</h3>
<ul><li>
<div>С помощью команды <strong>Еще - Установить стандартные настройки</strong> можно вернуть стандартные настройки проверки.</div></li></ul><h3>См. также:</h3>
<ul><li><a href="v8help://frame/form_common">Работа с формами</a>.</li></ul></body></html>
SSL/src/Catalogs/ПравилаПроверкиУчета/Forms/ФормаЭлемента/Module.bsl
+490
View File
@@ -0,0 +1,490 @@
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
ОбновлениеИнформационнойБазы.ПроверитьОбъектОбработан(Объект, ЭтотОбъект);
Если НЕ ЗначениеЗаполнено(Объект.Ссылка) Тогда
Отказ = Истина;
ВызватьИсключение НСтр("ru='Интерактивное создание запрещено.'");
КонецЕсли;
МетаданныеТекущейПроверки = МетаданныеТекущейПроверки(Объект.Идентификатор);
УстановитьДоступностьПоляВажности(ЭтотОбъект, МетаданныеТекущейПроверки);
УстановитьПутьДоПроцедурыОбработчика(ЭтотОбъект, МетаданныеТекущейПроверки);
Если Не ОбновлениеИнформационнойБазы.ОбъектОбработан(Объект).Обработан Тогда
Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь;
Элементы.ПредставлениеОбщегоРасписания.Доступность = Ложь;
Иначе
УстановитьНачальныеНастройкиРасписания();
Если Не ОбщегоНазначения.РазделениеВключено() Тогда
СформироватьРасписания();
Иначе
МодульПользователи = ОбщегоНазначения.ОбщийМодуль("Пользователи");
Если МодульПользователи.ЭтоПолноправныйПользователь(, Истина) Тогда
СформироватьРасписания();
Элементы.ГруппаРасписание.ТолькоПросмотр = Истина;
Иначе
Элементы.ГруппаРасписание.Видимость = Ложь;
КонецЕсли;
КонецЕсли;
КонецЕсли;
// СтандартныеПодсистемы.ПодключаемыеКоманды
ПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
// СтандартныеПодсистемы.ПодключаемыеКоманды
ПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаСервере
Процедура ПриЧтенииНаСервере(ТекущийОбъект)
// СтандартныеПодсистемы.ПодключаемыеКоманды
ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
Если Не ЗначениеЗаполнено(ТекущийОбъект.Код) Тогда
ТекущийОбъект.УстановитьНовыйКод();
КонецЕсли;
Если ЗначениеЗаполнено(АдресИндивидуальногоРасписания) Тогда
ТекущийОбъект.РасписаниеВыполненияПроверки = ПолучитьИзВременногоХранилища(АдресИндивидуальногоРасписания);
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовФормы
&НаКлиенте
Процедура ПредставлениеИндивидуальногоРасписанияОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ДанныеХранилища = ПолучитьИзВременногоХранилища(НавигационнаяСсылкаФорматированнойСтроки);
Если ДанныеХранилища = "ДобавитьЗадание" Тогда
ДиалогРасписания = Новый ДиалогРасписанияРегламентногоЗадания(Новый РасписаниеРегламентногоЗадания);
ОповещениеИзменения = Новый ОписаниеОповещения("ДобавитьЗаданиеНаКлиентеЗавершение", ЭтотОбъект);
ДиалогРасписания.Показать(ОповещениеИзменения);
Иначе
ДиалогРасписания = Новый ДиалогРасписанияРегламентногоЗадания(ДанныеХранилища);
ОповещениеИзменения = Новый ОписаниеОповещения("ИзменитьЗаданиеНаКлиентеЗавершение", ЭтотОбъект);
ДиалогРасписания.Показать(ОповещениеИзменения);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВыполняетсяВФонеПоРасписаниюПриИзменении(Элемент)
Если ВыполняетсяВФонеПоРасписанию Тогда
УстановитьНастройкиРасписанияНаСервере();
Иначе
СкрытьНастройкиРасписанияНаСервере();
КонецЕсли;
Модифицированность = Истина;
КонецПроцедуры
&НаКлиенте
Процедура СелекторРасписанияПриИзменении(Элемент)
УстановитьНастройкиРасписанияНаСервере();
Модифицированность = Истина;
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
&НаКлиенте
Процедура ВыполнитьПроверку(Команда)
ДлительнаяОперация = ВыполнитьПроверкуНаСервере();
Если ДлительнаяОперация <> Неопределено Тогда
ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект);
ПараметрыОжидания.ВыводитьОкноОжидания = Истина;
ПараметрыОжидания.ТекстСообщения = НСтр("ru = 'Идет выполнение проверки. Это может занять некоторое время'");
ПараметрыОжидания.Интервал = 2;
ДлительныеОперацииКлиент.ОжидатьЗавершение(ДлительнаяОперация, , ПараметрыОжидания);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УстановитьСтандартныеНастройки(Команда)
ТекстВопроса = НСтр("ru = 'Установить стандартные настройки?'");
Обработчик = Новый ОписаниеОповещения("УстановитьСтандартныеНастройкиНаКлиенте", ЭтотОбъект);
ПоказатьВопрос(Обработчик, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаСервере
Функция ВыполнитьПроверкуНаСервере()
Если МонопольныйРежим() Тогда
Возврат Неопределено;
КонецЕсли;
Если ДлительнаяОперация <> Неопределено Тогда
ДлительныеОперации.ОтменитьВыполнениеЗадания(ДлительнаяОперация.ИдентификаторЗадания);
КонецЕсли;
ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияВФоне(УникальныйИдентификатор);
ПараметрыВыполнения.ОжидатьЗавершение = 0;
ПараметрыВыполнения.НаименованиеФоновогоЗадания = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Выполнение проверки ""%1""'"), Объект.Наименование);
ПараметрыВыполнения.ЗапуститьВФоне = Истина;
МассивПараметров = Новый Массив;
ПараметрыЗадания = Новый Структура;
ПараметрыЗадания.Вставить("Идентификатор", Объект.Идентификатор);
ПараметрыЗадания.Вставить("Наименование", Объект.Наименование);
ПараметрыЗадания.Вставить("ИдентификаторРегламентногоЗадания", Объект.ИдентификаторРегламентногоЗадания);
ПараметрыЗадания.Вставить("ДатаНачалаПроверки", Объект.ДатаНачалаПроверки);
ПараметрыЗадания.Вставить("ЛимитПроблем", Объект.ЛимитПроблем);
ПараметрыЗадания.Вставить("СпособВыполнения", Объект.СпособВыполнения);
ПараметрыЗадания.Вставить("ПроверкаБылаОстановлена", Ложь);
ПараметрыЗадания.Вставить("РучнойЗапуск", Истина);
МассивПараметров.Добавить(ПараметрыЗадания);
Результат = ДлительныеОперации.ВыполнитьВФоне("КонтрольВеденияУчетаСлужебный.ВыполнитьПроверкиВФоновомЗадании", Новый Структура("МассивПараметров", МассивПараметров), ПараметрыВыполнения);
Возврат Результат;
КонецФункции
&НаСервере
Процедура СформироватьРасписания()
СформироватьСтрокуСОбщимРасписанием();
СформироватьСтрокуСИндивидуальнымРасписанием();
КонецПроцедуры
&НаСервере
Процедура СформироватьСтрокуСИндивидуальнымРасписанием()
ИдентификаторРегламентногоЗадания = Объект.ИдентификаторРегламентногоЗадания;
ОтдельноеРегламентноеЗадание = Неопределено;
ОтдельноеРасписаниеПредставление = "";
Если ЗначениеЗаполнено(ИдентификаторРегламентногоЗадания) Тогда
ОтдельноеРегламентноеЗадание = РегламентныеЗаданияСервер.Задание(ИдентификаторРегламентногоЗадания);
Если ОтдельноеРегламентноеЗадание <> Неопределено Тогда
ОтдельноеРасписаниеПредставление = Строка(ОтдельноеРегламентноеЗадание.Расписание) + ". ";
КонецЕсли;
КонецЕсли;
Если Не ОбщегоНазначения.РазделениеВключено() Тогда
Если ОтдельноеРегламентноеЗадание = Неопределено Тогда
Элементы.ПредставлениеИндивидуальногоРасписания.Заголовок =
Новый ФорматированнаяСтрока(НСтр("ru='Настроить индивидуальное расписание?'"), , , , ПоместитьВоВременноеХранилище("ДобавитьЗадание", УникальныйИдентификатор));
Иначе
Элементы.ПредставлениеИндивидуальногоРасписания.Заголовок =
Новый ФорматированнаяСтрока(ОтдельноеРасписаниеПредставление, , , , ПоместитьВоВременноеХранилище(ОтдельноеРегламентноеЗадание.Расписание, УникальныйИдентификатор));
КонецЕсли;
Иначе
Если ОтдельноеРегламентноеЗадание = Неопределено Тогда
Элементы.ПредставлениеИндивидуальногоРасписания.Заголовок =
Новый ФорматированнаяСтрока(ОтдельноеРасписаниеПредставление + ". ", , ЦветаСтиля.ГиперссылкаЦвет);
Иначе
Элементы.ПредставлениеИндивидуальногоРасписания.Заголовок =
Новый ФорматированнаяСтрока(ОтдельноеРасписаниеПредставление, , ЦветаСтиля.ГиперссылкаЦвет);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура СформироватьСтрокуСОбщимРасписанием()
ОбщееРегламентноеЗадание = РегламентныеЗаданияСервер.Задание(Метаданные.РегламентныеЗадания.ПроверкаВеденияУчета);
Если ОбщееРегламентноеЗадание <> Неопределено Тогда
Если Не ОбщегоНазначения.РазделениеВключено() Тогда
ОбщееРасписаниеПредставление = Строка(ОбщееРегламентноеЗадание.Расписание);
Иначе
Если Пользователи.ЭтоПолноправныйПользователь(, Истина) Тогда
ОбщееРасписаниеПредставление = Строка(ОбщееРегламентноеЗадание.Шаблон.Расписание.Получить());
КонецЕсли;
КонецЕсли;
Иначе
ОбщееРасписаниеПредставление = НСтр("ru = 'Не найдено общее регламентное задание'");
КонецЕсли;
Элементы.ПредставлениеОбщегоРасписания.Заголовок =
Новый ФорматированнаяСтрока(ОбщееРасписаниеПредставление, , ЦветаСтиля.ГиперссылкаЦвет);
КонецПроцедуры
&НаКлиенте
Процедура ИзменитьЗаданиеНаКлиентеЗавершение(Расписание, ДополнительныеПараметры) Экспорт
ИзменитьЗаданиеНаСервереЗавершение(Расписание, ДополнительныеПараметры);
КонецПроцедуры
&НаСервере
Процедура ИзменитьЗаданиеНаСервереЗавершение(Расписание, ДополнительныеПараметры)
Если Расписание = Неопределено Тогда
Возврат;
КонецЕсли;
РегламентноеЗадание = РегламентныеЗаданияСервер.Задание(Объект.ИдентификаторРегламентногоЗадания);
Если РегламентноеЗадание = Неопределено Тогда
ДобавитьЗаданиеНаСервереЗавершение(Расписание, ДополнительныеПараметры);
Иначе
РегламентныеЗаданияСервер.ИзменитьЗадание(Объект.ИдентификаторРегламентногоЗадания, Новый Структура("Расписание", Расписание));
Элементы.ПредставлениеИндивидуальногоРасписания.Заголовок =
Новый ФорматированнаяСтрока(Строка(Расписание), , , , ПоместитьВоВременноеХранилище(Расписание, УникальныйИдентификатор));
АдресИндивидуальногоРасписания = ПоместитьВоВременноеХранилище(Новый ХранилищеЗначения(ОбщегоНазначенияКлиентСервер.РасписаниеВСтруктуру(Расписание)), УникальныйИдентификатор);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ДобавитьЗаданиеНаКлиентеЗавершение(Расписание, ДополнительныеПараметры) Экспорт
ДобавитьЗаданиеНаСервереЗавершение(Расписание, ДополнительныеПараметры);
КонецПроцедуры
&НаСервере
Процедура ДобавитьЗаданиеНаСервереЗавершение(Расписание, ДополнительныеПараметры)
Если Расписание = Неопределено Тогда
Возврат;
КонецЕсли;
КлючЗадания = Строка(Новый УникальныйИдентификатор);
ПараметрыЗадания = Новый Структура;
ПараметрыЗадания.Вставить("Расписание", Расписание);
ПараметрыЗадания.Вставить("Использование", Истина);
ПараметрыЗадания.Вставить("Метаданные", Метаданные.РегламентныеЗадания.ПроверкаВеденияУчета);
РегламентноеЗадание = РегламентныеЗаданияСервер.ДобавитьЗадание(ПараметрыЗадания);
Объект.ИдентификаторРегламентногоЗадания = Строка(РегламентноеЗадание.УникальныйИдентификатор);
ПараметрыЗадания = Новый Структура;
МассивПараметров = Новый Массив;
МассивПараметров.Добавить(Строка(РегламентноеЗадание.УникальныйИдентификатор));
ПараметрыЗадания.Вставить("Параметры", МассивПараметров);
РегламентныеЗаданияСервер.ИзменитьЗадание(РегламентноеЗадание.УникальныйИдентификатор, ПараметрыЗадания);
Элементы.ПредставлениеИндивидуальногоРасписания.Заголовок =
Новый ФорматированнаяСтрока(Строка(Расписание), , , , ПоместитьВоВременноеХранилище(Расписание, УникальныйИдентификатор));
АдресИндивидуальногоРасписания = ПоместитьВоВременноеХранилище(Новый ХранилищеЗначения(ОбщегоНазначенияКлиентСервер.РасписаниеВСтруктуру(Расписание)), УникальныйИдентификатор);
КонецПроцедуры
&НаСервереБезКонтекста
Функция МетаданныеТекущейПроверки(Идентификатор)
СтруктураПроверки = Новый Структура;
Проверки = КонтрольВеденияУчетаПовтИсп.ПроверкиВеденияУчета().Проверки;
СтрокаПроверки = Проверки.Найти(Идентификатор, "Идентификатор");
Если СтрокаПроверки = Неопределено Тогда
Возврат Неопределено;
Иначе
КолонкиПроверок = Проверки.Колонки;
Для Каждого ТекущаяКолонка Из КолонкиПроверок Цикл
СтруктураПроверки.Вставить(ТекущаяКолонка.Имя, СтрокаПроверки[ТекущаяКолонка.Имя]);
КонецЦикла;
КонецЕсли;
Возврат СтруктураПроверки;
КонецФункции
&НаСервереБезКонтекста
Процедура УстановитьДоступностьПоляВажности(Форма, МетаданныеТекущейПроверки)
Форма.Элементы.ВажностьПроблемы.Доступность = Не (МетаданныеТекущейПроверки <> Неопределено И МетаданныеТекущейПроверки.ЗапрещеноИзменениеВажности);
КонецПроцедуры
&НаСервереБезКонтекста
Процедура УстановитьПутьДоПроцедурыОбработчика(Форма, МетаданныеТекущейПроверки)
Форма.ПутьДоПроцедурыОбработчика = ?(МетаданныеТекущейПроверки = Неопределено, НСтр("ru = 'Не задан обработчик'"), МетаданныеТекущейПроверки.ОбработчикПроверки);
КонецПроцедуры
&НаКлиенте
Процедура УстановитьСтандартныеНастройкиНаКлиенте(Ответ, ПараметрыВыполнения) Экспорт
Если Ответ = КодВозвратаДиалога.Нет Тогда
Возврат;
КонецЕсли;
УстановитьСтандартныеНастройкиНаСервере();
Модифицированность = Истина;
КонецПроцедуры
&НаСервере
Процедура УстановитьСтандартныеНастройкиНаСервере()
МетаданныеТекущейПроверки = МетаданныеТекущейПроверки(Объект.Идентификатор);
Если МетаданныеТекущейПроверки = Неопределено Тогда
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Рассинхронизация проверок учета. Проверка с идентификатором ""%1"" не найдена в метаданных.'"), Объект.Идентификатор);
КонецЕсли;
ЗаполнитьЗначенияСвойств(Объект, МетаданныеТекущейПроверки, , "Идентификатор");
Объект.ПроверкаВеденияУчетаИзменена = Ложь;
КонецПроцедуры
&НаСервере
Процедура УстановитьНастройкиРасписанияНаСервере()
Если СелекторРасписания = 0 Тогда
Если Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОбщемуРасписанию Тогда
СелекторРасписания = 1;
Элементы.СелекторРасписания.Доступность = Истина;
Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь;
Элементы.ПредставлениеОбщегоРасписания.Доступность = Истина;
ИначеЕсли Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОтдельномуРасписанию Тогда
СелекторРасписания = 2;
Элементы.СелекторРасписания.Доступность = Истина;
Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Истина;
Элементы.ПредставлениеОбщегоРасписания.Доступность = Ложь;
КонецЕсли;
ИначеЕсли СелекторРасписания = 1 Тогда
Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОбщемуРасписанию;
Элементы.СелекторРасписания.Доступность = Истина;
Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь;
Элементы.ПредставлениеОбщегоРасписания.Доступность = Истина;
ИначеЕсли СелекторРасписания = 2 Тогда
Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОтдельномуРасписанию;
Элементы.СелекторРасписания.Доступность = Истина;
Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Истина;
Элементы.ПредставлениеОбщегоРасписания.Доступность = Ложь;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура СкрытьНастройкиРасписанияНаСервере()
Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.Вручную;
Элементы.СелекторРасписания.Доступность = Ложь;
Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь;
Элементы.ПредставлениеОбщегоРасписания.Доступность = Ложь;
КонецПроцедуры
&НаСервере
Процедура УстановитьНачальныеНастройкиРасписания()
Если Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОбщемуРасписанию Тогда
ВыполняетсяВФонеПоРасписанию = Истина;
СелекторРасписания = 1;
Элементы.СелекторРасписания.Доступность = Истина;
Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь;
Элементы.ПредставлениеОбщегоРасписания.Доступность = Истина;
ИначеЕсли Объект.СпособВыполнения = Перечисления.СпособВыполненияПроверки.ПоОтдельномуРасписанию Тогда
ВыполняетсяВФонеПоРасписанию = Истина;
СелекторРасписания = 2;
Элементы.СелекторРасписания.Доступность = Истина;
Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Истина;
Элементы.ПредставлениеОбщегоРасписания.Доступность = Ложь;
Иначе
ВыполняетсяВФонеПоРасписанию = Ложь;
СелекторРасписания = 1;
Элементы.СелекторРасписания.Доступность = Ложь;
Элементы.ПредставлениеИндивидуальногоРасписания.Доступность = Ложь;
Элементы.ПредставлениеОбщегоРасписания.Доступность = Ложь
КонецЕсли;
КонецПроцедуры
// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)
ПодключаемыеКомандыКлиент.ВыполнитьКоманду(ЭтотОбъект, Команда, Объект);
КонецПроцедуры
&НаСервере
Процедура Подключаемый_ВыполнитьКомандуНаСервере(Контекст, Результат)
ПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, Контекст, Объект, Результат);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()
ПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
#КонецОбласти
SSL/src/Catalogs/ПравилаПроверкиУчета/Help/ru.html
+23
View File
@@ -0,0 +1,23 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><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.9600.18427"></meta></head><body>
<p>Предназначен для хранения правил проверки учета.</p>
<p>Открывается с помощью ссылки <strong>Правила проверки учета</strong> в разделе <strong>Администрирование - Обслуживание - Корректировка данных</strong>.</p>
<p>В списке выводится:</p>
<ul><li>Использование проверки (в графе проставлен флажок, если проверка используется);
</li><li>Наименование;
</li><li>Расписание проверки;
</li><li>Важность проблемы.</li></ul><h3>Способы проведения проверок</h3>
<ul><li>Вручную - с помощью кнопки <strong>Выполнить</strong>.
</li><li>По общему расписанию - для корректировки расписания перейдите по ссылке в нижней части окна. Если расписание заполнено, ссылка показывает расписание.
</li><li>По индивидуальному расписанию - для этого откройте проверку двойным щелчком мыши, измените необходимые <a href="Catalog.ПравилаПроверкиУчета.Form.ФормаЭлемента/Help">поля</a>.</li></ul><h3>Просмотр выявленных проблем</h3>
<ul><li>
<div>Результаты проверки выводятся в отчете <a href="Report.РезультатыПроверкиУчета/Help">Контроль ведения учета</a>. </div>
</li><li>
<div>Отчет можно открыть:</div>
<ul><li>
<div>с помощью кнопки <strong>Отчеты - Результаты проверки учета</strong>;</div>
</li><li>
<div> из проблемного объекта; </div>
</li><li>
<div>из списка <strong>Текущие дела</strong> на <strong>Начальной странице</strong>.</div></li></ul></li></ul><h3>См. также:</h3>
<ul><li>
<div><a href="v8help://frame/form_common">Работа с формами</a>.</div></li></ul></body></html>
SSL/src/Catalogs/ПравилаПроверкиУчета/ManagerModule.bsl
View File
Whitespace-only changes.
SSL/src/Catalogs/ПравилаПроверкиУчета/ObjectModule.bsl
+71
View File
@@ -0,0 +1,71 @@
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ОбработчикиСобытий
Процедура ПередЗаписью(Отказ)
Если Не ЭтоГруппа И Использование = Ссылка.Использование Тогда
Использование = Не ПометкаУдаления;
КонецЕсли;
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ОбновлениеИнформационнойБазы.ПроверитьОбъектОбработан(ЭтотОбъект);
ПроверкаВеденияУчетаИзменена = ОбъектБылИзменен();
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
Функция ОбъектБылИзменен()
Если ЭтоНовый() Тогда
Возврат Ложь;
КонецЕсли;
Если ПроверкаВеденияУчетаИзменена Тогда
Возврат Истина;
КонецЕсли;
Если ДополнительныеСвойства.Свойство("ПроверятьИзмененность") И Не ДополнительныеСвойства.ПроверятьИзмененность Тогда
Возврат Ложь;
КонецЕсли;
ПроверяемыеРеквизиты = Новый Массив;
ПроверяемыеРеквизиты.Добавить("Наименование");
Если Не ЭтоГруппа Тогда
Реквизиты = Метаданные().Реквизиты;
Для Каждого Реквизит Из Реквизиты Цикл
Если Реквизит.Имя = "ДополнительныеПараметры"
Или Реквизит.Имя = "РасписаниеВыполненияПроверки"
Или Реквизит.Имя = "ПроверкаВеденияУчетаИзменена" Тогда
Продолжить;
КонецЕсли;
ПроверяемыеРеквизиты.Добавить(Реквизит.Имя);
КонецЦикла;
КонецЕсли;
Для Каждого ПроверяемыйРеквизит Из ПроверяемыеРеквизиты Цикл
Если Ссылка[ПроверяемыйРеквизит] <> ЭтотОбъект[ПроверяемыйРеквизит] Тогда
Возврат Истина;
КонецЕсли;
КонецЦикла;
КонецФункции;
#КонецОбласти
#КонецЕсли
SSL/src/Catalogs/ПравилаПроверкиУчета/ПравилаПроверкиУчета.mdo
+472
View File
@@ -0,0 +1,472 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:Catalog xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="55bce105-51c0-452e-9eec-b960fe740db2">
<producedTypes>
<objectType typeId="803144d2-c262-4dea-bb40-0cb6c9b41aac" valueTypeId="9e6a11b7-895c-4f6d-a56a-55a7034795b9"/>
<refType typeId="979d82bf-a1da-4eb4-9ea6-0f5d084c1fdf" valueTypeId="dc4d7d7d-d65c-4d93-bffb-41f111650f6a"/>
<selectionType typeId="7f3958e4-a354-4412-8d9c-224004945700" valueTypeId="bdc54836-0f6f-4563-8d6e-d775ad1cbfbf"/>
<listType typeId="73c6d7c8-354e-4f28-a28b-92349a94b79c" valueTypeId="519c8110-7e47-45e8-aa9f-650c46f818ca"/>
<managerType typeId="f3970a37-59fe-4fc4-860d-2945a002e718" valueTypeId="a7fb0c85-d066-4ac8-b63c-ea88a36979f1"/>
</producedTypes>
<name>ПравилаПроверкиУчета</name>
<synonym>
<key>ru</key>
<value>Правила проверки учета</value>
</synonym>
<useStandardCommands>true</useStandardCommands>
<inputByString>Catalog.ПравилаПроверкиУчета.StandardAttribute.Description</inputByString>
<fullTextSearchOnInputByString>DontUse</fullTextSearchOnInputByString>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>PredefinedDataName</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Predefined</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Ref</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>DeletionMark</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>IsFolder</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Owner</name>
<fillFromFillingValue>true</fillFromFillingValue>
<fillValue xsi:type="core:UndefinedValue"/>
<fillChecking>ShowError</fillChecking>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Parent</name>
<synonym>
<key>ru</key>
<value>Входит в группу</value>
</synonym>
<toolTip>
<key>ru</key>
<value>Группа к которой относится правило проверки</value>
</toolTip>
<fillFromFillingValue>true</fillFromFillingValue>
<fillValue xsi:type="core:ReferenceValue">
<value>Catalog.ПравилаПроверкиУчета.EmptyRef</value>
</fillValue>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Description</name>
<synonym>
<key>ru</key>
<value>Наименование</value>
</synonym>
<toolTip>
<key>ru</key>
<value>Название проверки</value>
</toolTip>
<fillValue xsi:type="core:UndefinedValue"/>
<fillChecking>ShowError</fillChecking>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Code</name>
<synonym>
<key>ru</key>
<value>Код</value>
</synonym>
<toolTip>
<key>ru</key>
<value>Код правила проверки (не используется).</value>
</toolTip>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<createOnInput>Use</createOnInput>
<help>
<pages>
<lang>ru</lang>
</pages>
</help>
<dataLockControlMode>Managed</dataLockControlMode>
<fullTextSearch>Use</fullTextSearch>
<objectPresentation>
<key>ru</key>
<value>Правило проверки учета</value>
</objectPresentation>
<hierarchical>true</hierarchical>
<limitLevelCount>true</limitLevelCount>
<levelCount>2</levelCount>
<foldersOnTop>true</foldersOnTop>
<descriptionLength>150</descriptionLength>
<codeType>String</codeType>
<codeAllowedLength>Variable</codeAllowedLength>
<defaultPresentation>AsDescription</defaultPresentation>
<editType>InDialog</editType>
<choiceMode>BothWays</choiceMode>
<defaultObjectForm>Catalog.ПравилаПроверкиУчета.Form.ФормаЭлемента</defaultObjectForm>
<defaultListForm>Catalog.ПравилаПроверкиУчета.Form.ФормаСписка</defaultListForm>
<attributes uuid="776c171d-5dd5-4965-94dc-c2fe6792d5f2">
<name>ВажностьПроблемы</name>
<synonym>
<key>ru</key>
<value>Важность проблемы</value>
</synonym>
<type>
<types>EnumRef.ВажностьПроблемыУчета</types>
</type>
<toolTip>
<key>ru</key>
<value>Важность проблемы.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillChecking>ShowError</fillChecking>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="86bb1105-702a-47be-906a-1821a69b1b6c">
<name>Идентификатор</name>
<synonym>
<key>ru</key>
<value>Идентификатор</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers>
<length>255</length>
</stringQualifiers>
</type>
<toolTip>
<key>ru</key>
<value>Строковый идентификатор проверки.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<indexing>Index</indexing>
<fullTextSearch>Use</fullTextSearch>
<use>ForFolderAndItem</use>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="40653767-9542-44e9-a84b-ffee75584638">
<name>Использование</name>
<synonym>
<key>ru</key>
<value>Использование</value>
</synonym>
<type>
<types>Boolean</types>
</type>
<toolTip>
<key>ru</key>
<value>Флаг использования проверки.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:BooleanValue">
<value>true</value>
</fillValue>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="e16865c3-75d0-4b66-b52a-ca7991274d87">
<name>Причины</name>
<synonym>
<key>ru</key>
<value>Причины</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers/>
</type>
<toolTip>
<key>ru</key>
<value>Предполагаемая причина проблемы.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="ca0a362a-edd9-4f33-9285-db7e7d3de7e9">
<name>Рекомендация</name>
<synonym>
<key>ru</key>
<value>Рекомендация</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers/>
</type>
<toolTip>
<key>ru</key>
<value>Рекомендация по решению проблемы.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="69e13959-51ad-4ac2-9cfc-17ac28b78c78">
<name>СпособВыполнения</name>
<synonym>
<key>ru</key>
<value>Способ выполнения</value>
</synonym>
<type>
<types>EnumRef.СпособВыполненияПроверки</types>
</type>
<toolTip>
<key>ru</key>
<value>Способ выполнения проверки.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="f890ca1b-f2c2-4630-9002-301b759ca6d9">
<name>ИдентификаторРегламентногоЗадания</name>
<synonym>
<key>ru</key>
<value>Идентификатор регламентного задания</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers>
<length>128</length>
</stringQualifiers>
</type>
<toolTip>
<key>ru</key>
<value>Строковый идентификатор связанного регламентного задания.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="f1e1edf0-94f0-4dc1-8b4d-6f44866e98a4">
<name>ДополнительныеПараметры</name>
<synonym>
<key>ru</key>
<value>Дополнительные параметры</value>
</synonym>
<type>
<types>ValueStorage</types>
</type>
<toolTip>
<key>ru</key>
<value>Произвольный набор дополнительных сведений, связанных с проверкой.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="22093cbc-357a-4458-8c54-ce7f51cbf61e">
<name>ДатаНачалаПроверки</name>
<synonym>
<key>ru</key>
<value>Дата начала проверки</value>
</synonym>
<type>
<types>Date</types>
<dateQualifiers/>
</type>
<toolTip>
<key>ru</key>
<value>Дата начала проверки.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="e614c04d-d877-42fa-b836-91b298e3d3d6">
<name>ЛимитПроблем</name>
<synonym>
<key>ru</key>
<value>Лимит проблем</value>
</synonym>
<type>
<types>Number</types>
<numberQualifiers>
<precision>8</precision>
</numberQualifiers>
</type>
<toolTip>
<key>ru</key>
<value>Лимит количества проблем.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:NumberValue">
<value>0</value>
</fillValue>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="72a16a43-433c-4bb0-919d-cf2bc43d016a">
<name>РасписаниеВыполненияПроверки</name>
<synonym>
<key>ru</key>
<value>Расписание выполнения проверки</value>
</synonym>
<type>
<types>ValueStorage</types>
</type>
<toolTip>
<key>ru</key>
<value>Для хранения расписания регламентного задания, на случай интерактивного удаления.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="935cca1c-5ac6-4a7d-9c8e-e733e99cbd40">
<name>Комментарий</name>
<synonym>
<key>ru</key>
<value>Комментарий</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers/>
</type>
<toolTip>
<key>ru</key>
<value>Произвольная строка</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="f295c68d-7e29-48b8-a95a-56e96d9843c1">
<name>КонтекстПроверокВеденияУчета</name>
<synonym>
<key>ru</key>
<value>Контекст проверок ведения учета</value>
</synonym>
<type>
<types>DefinedType.КонтекстПроверокВеденияУчета</types>
</type>
<toolTip>
<key>ru</key>
<value>Определяет контекст проверок учета.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="7ebe16ee-8e5d-4b05-89b5-9539f73be90c">
<name>УточнениеКонтекстаПроверкиСостоянияСистемы</name>
<synonym>
<key>ru</key>
<value>Уточнение контекста проверки состояния системы</value>
</synonym>
<type>
<types>DefinedType.УточнениеКонтекстаПроверкиСостоянияСистемы</types>
</type>
<toolTip>
<key>ru</key>
<value>Уточнение контекста выполнения проверки. Например может отвечать на вопрос: когда выполнять? До? После? Во время? </value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="38556870-93c1-4d45-8bbd-2bb663a7068d">
<name>ПроверкаВеденияУчетаИзменена</name>
<synonym>
<key>ru</key>
<value>Проверка ведения учета изменена</value>
</synonym>
<type>
<types>Boolean</types>
</type>
<toolTip>
<key>ru</key>
<value>Флаг определяющий находится ли данное правило на поддержке.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<use>ForFolderAndItem</use>
<dataHistory>Use</dataHistory>
</attributes>
<forms uuid="0b195c56-ac0f-4120-a097-3f4f9743c4f2">
<name>ФормаЭлемента</name>
<synonym>
<key>ru</key>
<value>Форма элемента</value>
</synonym>
<help>
<pages>
<lang>ru</lang>
</pages>
</help>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="a3337da8-d35d-4cd2-b1de-ffed887a5f73">
<name>ФормаСписка</name>
<synonym>
<key>ru</key>
<value>Форма списка</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
</mdclass:Catalog>
SSL/src/Catalogs/ПредопределенныеВариантыОтчетов/ПредопределенныеВариантыОтчетов.mdo
-1
View File
@@ -108,7 +108,6 @@
</standardAttributes>
<createOnInput>Use</createOnInput>
<dataLockControlMode>Managed</dataLockControlMode>
<fullTextSearch>Use</fullTextSearch>
<objectPresentation>
<key>ru</key>
<value>Предопределенный вариант отчета</value>
SSL/src/Catalogs/ПредопределенныеВариантыОтчетовРасширений/ПредопределенныеВариантыОтчетовРасширений.mdo
-1
View File
@@ -108,7 +108,6 @@
</standardAttributes>
<createOnInput>Use</createOnInput>
<dataLockControlMode>Managed</dataLockControlMode>
<fullTextSearch>Use</fullTextSearch>
<objectPresentation>
<key>ru</key>
<value>Предопределенный вариант отчета</value>
SSL/src/Catalogs/ПрограммыЭлектроннойПодписиИШифрования/ObjectModule.bsl
+16
View File
@@ -0,0 +1,16 @@
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ОбработчикиСобытий
Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
Если ЭтоПрограммаОблачногоСервиса Тогда
ПроверяемыеРеквизиты.Очистить();
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#КонецЕсли
SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss
+25
View File
@@ -0,0 +1,25 @@
<?xml version="1.0" encoding="UTF-8"?>
<Settings xmlns="http://v8.1c.ru/8.1/data-composition-system/settings" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:pal="http://v8.1c.ru/8.1/data/ui/colors/palette" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core">
<filter>
<viewMode>Normal</viewMode>
<userSettingID>dfcece9d-5077-440b-b6b3-45a5cb4538eb</userSettingID>
</filter>
<order>
<item xsi:type="OrderItemField">
<field>БазовыйКалендарь</field>
<orderType>Asc</orderType>
</item>
<item xsi:type="OrderItemField">
<field>Код</field>
<orderType>Asc</orderType>
</item>
<viewMode>Normal</viewMode>
<userSettingID>88619765-ccb3-46c6-ac52-38e9c992ebd4</userSettingID>
</order>
<conditionalAppearance>
<viewMode>Normal</viewMode>
<userSettingID>b75fecce-942b-4aed-abc9-e6a02e460fb3</userSettingID>
</conditionalAppearance>
<itemsViewMode>Normal</itemsViewMode>
<itemsUserSettingID>911b6018-f537-43e8-a417-da56b22f9aec</itemsUserSettingID>
</Settings>
SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаСписка/Form.form
+488
View File
@@ -0,0 +1,488 @@
<?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>22</id>
<items xsi:type="form:FormGroup">
<name>Создать</name>
<id>24</id>
<items xsi:type="form:Button">
<name>ФормаПодборИзКлассификатора</name>
<id>26</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ФормаПодборИзКлассификатораРасширеннаяПодсказка</name>
<id>27</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.ПодборИзКлассификатора</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>СоздатьКалендарь</name>
<id>28</id>
<title>
<key>ru</key>
<value>Новый</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>СоздатьКалендарьРасширеннаяПодсказка</name>
<id>29</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.StandardCommand.Create</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<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>Popup</type>
<extInfo xsi:type="form:PopupGroupExtInfo">
<representation>Auto</representation>
<importance>Normal</importance>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>КомандыФормы</name>
<id>30</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Команды формы</value>
</title>
<extendedTooltip>
<name>КомандыФормыРасширеннаяПодсказка</name>
<id>31</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<extInfo xsi:type="form:ButtonGroupExtInfo">
<commandSource>Form</commandSource>
</extInfo>
</items>
<items xsi:type="form:Button">
<name>Справка</name>
<id>34</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>СправкаРасширеннаяПодсказка</name>
<id>35</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.StandardCommand.Help</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Командная панель</value>
</title>
<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>
<type>CommandBar</type>
<extInfo xsi:type="form:CommandBarExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>СписокКомпоновщикНастроекПользовательскиеНастройки</name>
<id>1</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Группа пользовательских настроек</value>
</title>
<verticalStretch>false</verticalStretch>
<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>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</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:Table">
<name>Список</name>
<id>3</id>
<title>
<key>ru</key>
<value>Список</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список</segments>
</dataPath>
<defaultItem>true</defaultItem>
<titleLocation>None</titleLocation>
<items xsi:type="form:FormField">
<name>Наименование</name>
<id>16</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.Description</segments>
</dataPath>
<defaultItem>true</defaultItem>
<extendedTooltip>
<name>НаименованиеРасширеннаяПодсказка</name>
<id>18</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>НаименованиеКонтекстноеМеню</name>
<id>17</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Код</name>
<id>19</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.Code</segments>
</dataPath>
<extendedTooltip>
<name>КодРасширеннаяПодсказка</name>
<id>21</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КодКонтекстноеМеню</name>
<id>20</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<commandBarLocation>None</commandBarLocation>
<autoCommandBar>
<name>СписокКоманднаяПанель</name>
<id>5</id>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<searchStringAddition>
<name>СписокСтрокаПоиска</name>
<id>7</id>
<extendedTooltip>
<name>СписокСтрокаПоискаРасширеннаяПодсказка</name>
<id>9</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СписокСтрокаПоискаКонтекстноеМеню</name>
<id>8</id>
<autoFill>true</autoFill>
</contextMenu>
<source>Список</source>
<extInfo xsi:type="form:SearchStringAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchStringAddition>
<viewStatusAddition>
<name>СписокСостояниеПросмотра</name>
<id>10</id>
<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>
<contextMenu>
<name>СписокСостояниеПросмотраКонтекстноеМеню</name>
<id>11</id>
<autoFill>true</autoFill>
</contextMenu>
<type>ViewStatusAddition</type>
<source>Список</source>
<extInfo xsi:type="form:ViewStatusAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</viewStatusAddition>
<searchControlAddition>
<name>СписокУправлениеПоиском</name>
<id>13</id>
<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>
<type>SearchControlAddition</type>
<source>Список</source>
<extInfo xsi:type="form:SearchControlAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchControlAddition>
<extendedTooltip>
<name>СписокРасширеннаяПодсказка</name>
<id>6</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СписокКонтекстноеМеню</name>
<id>4</id>
<autoFill>true</autoFill>
</contextMenu>
<changeRowSet>true</changeRowSet>
<changeRowOrder>true</changeRowOrder>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<autoMaxRowsCount>true</autoMaxRowsCount>
<selectionMode>MultiRow</selectionMode>
<header>true</header>
<headerHeight>1</headerHeight>
<footerHeight>1</footerHeight>
<horizontalScrollBar>AutoUse</horizontalScrollBar>
<verticalScrollBar>AutoUse</verticalScrollBar>
<horizontalLines>true</horizontalLines>
<verticalLines>true</verticalLines>
<searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView>
<initialTreeView>ExpandTopLevel</initialTreeView>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<enableStartDrag>true</enableStartDrag>
<rowPictureDataPath xsi:type="form:DataPath">
<segments>Список.DefaultPicture</segments>
</rowPictureDataPath>
<autoMaxCardHeight>true</autoMaxCardHeight>
<extInfo xsi:type="form:DynamicListTableExtInfo">
<autoRefreshPeriod>60</autoRefreshPeriod>
<period>
<startDate>0001-01-01T00:00:00</startDate>
<endDate>0001-01-01T00:00:00</endDate>
</period>
<topLevelParent xsi:type="core:UndefinedValue"/>
<showRoot>true</showRoot>
<allowGettingCurrentRowURL>true</allowGettingCurrentRowURL>
<userSettingsGroup>СписокКомпоновщикНастроекПользовательскиеНастройки</userSettingsGroup>
</extInfo>
</items>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<handlers>
<event>ChoiceProcessing</event>
<name>ОбработкаВыбора</name>
</handlers>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<windowOpeningMode>DontBlock</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>
<id>1</id>
<valueType>
<types>DynamicList</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<main>true</main>
<extInfo xsi:type="form:DynamicListExtInfo">
<mainTable>Catalog.ПроизводственныеКалендари</mainTable>
<dynamicDataRead>true</dynamicDataRead>
<autoFillAvailableFields>true</autoFillAvailableFields>
<autoSaveUserSettings>true</autoSaveUserSettings>
<getInvisibleFieldPresentations>true</getInvisibleFieldPresentations>
</extInfo>
</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>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
<extInfo xsi:type="form:DynamicListFormExtInfo"/>
</form:Form>
SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаСписка/Module.bsl
+48
View File
@@ -0,0 +1,48 @@
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("АвтоТест") Тогда // Возврат при получении формы для анализа.
Возврат;
КонецЕсли;
ДоступноДобавлениеИзКлассификатора = Истина;
Если Не ПравоДоступа("Добавление", Метаданные.Справочники.ПроизводственныеКалендари) Тогда
ДоступноДобавлениеИзКлассификатора = Ложь;
Иначе
Если Метаданные.Обработки.Найти("ЗаполнениеКалендарныхГрафиков") = Неопределено Тогда
ДоступноДобавлениеИзКлассификатора = Ложь;
КонецЕсли;
КонецЕсли;
Элементы.ФормаПодборИзКлассификатора.Видимость = ДоступноДобавлениеИзКлассификатора;
Если Не ДоступноДобавлениеИзКлассификатора Тогда
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "СоздатьКалендарь", "Заголовок", НСтр("ru = 'Создать'"));
Элементы.Создать.Вид = ВидГруппыФормы.ГруппаКнопок;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаВыбора(РезультатВыбора, ИсточникВыбора)
Элементы.Список.Обновить();
Элементы.Список.ТекущаяСтрока = РезультатВыбора;
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
&НаКлиенте
Процедура ПодборИзКлассификатора(Команда)
ИмяФормыПодбора = "Обработка.ЗаполнениеКалендарныхГрафиков.Форма.ПодборКалендарейИзКлассификатора";
ОткрытьФорму(ИмяФормыПодбора, , ЭтотОбъект);
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Form.form
+136
View File
@@ -166,6 +166,121 @@
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>БазовыйКалендарьГруппа</name>
<id>50</id>
<items xsi:type="form:FormField">
<name>ЕстьБазовыйКалендарь</name>
<id>52</id>
<title>
<key>ru</key>
<value>Является региональным календарем, федеральный календарь</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ЕстьБазовыйКалендарь</segments>
</dataPath>
<titleLocation>Right</titleLocation>
<handlers>
<event>OnChange</event>
<name>ЕстьБазовыйКалендарьПриИзменении</name>
</handlers>
<extendedTooltip>
<name>ЕстьБазовыйКалендарьРасширеннаяПодсказка</name>
<id>54</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ЕстьБазовыйКалендарьКонтекстноеМеню</name>
<id>53</id>
<autoFill>true</autoFill>
</contextMenu>
<type>CheckBoxField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:CheckBoxFieldExtInfo"/>
</items>
<items xsi:type="form:FormField">
<name>БазовыйКалендарь</name>
<id>55</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>57</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>БазовыйКалендарьКонтекстноеМеню</name>
<id>56</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">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Базовый календарь</value>
</title>
<extendedTooltip>
<name>БазовыйКалендарьГруппаРасширеннаяПодсказка</name>
<id>51</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">
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>КалендарьГруппа</name>
<id>17</id>
@@ -628,6 +743,10 @@
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<handlers>
<event>FillCheckProcessingAtServer</event>
<name>ОбработкаПроверкиЗаполненияНаСервере</name>
</handlers>
<windowOpeningMode>DontBlock</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoTitle>true</autoTitle>
@@ -819,6 +938,23 @@
<itemValueType/>
</extInfo>
</attributes>
<attributes>
<name>ЕстьБазовыйКалендарь</name>
<title>
<key>ru</key>
<value>Есть базовый календарь</value>
</title>
<id>11</id>
<valueType>
<types>Boolean</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>ИзменитьДень</name>
<title>
SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Help/ru.html
+9 -4
View File
@@ -12,20 +12,25 @@
</li><li>
<div><strong>Код</strong> - не более 3 знаков;</div>
</li><li>
<div><strong>Год</strong> - по умолчанию проставляется текущий.</div></li></ul></li><li>Нажмите <strong>Изменить день</strong>, расставьте дни календаря.
<div><strong>Год</strong> - по умолчанию проставляется текущий.</div></li></ul></li></ul><h3>Региональный календарь</h3>
<ul><li>
<div>Если необходимо ввести новый календарь, зависимый от федерального, включите флажок <strong>Является региональным календарем</strong>, выберите федеральный календарь из выпадающего списка.</div></li></ul><h3>Изменение дней календаря</h3>
<ul><li>По умолчанию новый производственный календарь заполнен выходными днями.
</li><li>Нажмите <strong>Изменить день</strong>, расставьте дни календаря.
<ul><li>Виды дней производственного календаря обозначаются разными цветами:
<ul><li>черным – рабочий день,
</li><li><font color="#8b0000">темно-красным</font> – суббота,
</li><li><font color="#ff0000">красным</font> – воскресенье,
</li><li><font color="#00008b">темно-синим</font> – предпраздничный,
</li><li><font color="#ee82ee">фиолетовым</font> – праздник.</li></ul></li><li>По умолчанию новый производственный календарь заполнен выходными днями. </li></ul></li></ul><h3 style="MARGIN-RIGHT: 0px" dir="ltr">Перенос праздничного дня на другой день</h3>
</li><li><font color="#ee82ee">фиолетовым</font> – праздник.</li></ul></li></ul></li></ul><h3 style="MARGIN-RIGHT: 0px" dir="ltr">Перенос праздничного дня на другой день</h3>
<p>Пользоваться этой возможностью имеет смысл в том случае, если данные календаря нужны, но официально он еще не принят и в программе его еще нет, т.к. не все переносы правительство утвердило. Можно заполнить переносы раньше, а потом, когда данные общегосударственного календаря будут утверждены и войдут в поставку программы, переносы автоматически корректируются.</p>
<ul><li>Выделите в производственном календаре праздничный день, который необходимо перенести.
</li><li>Нажмите <strong>Перенести день</strong>.
</li><li>Выберите в <a href="CommonForm.ВыборДаты/Help">календаре</a> дату переноса, нажмите <strong>ОК</strong>.
</li><li>Сведения о переносах дней отображаются в правой части производственного календаря в списке <strong>Переносы дней</strong>.</li></ul><h3>Заполнение по умолчанию</h3>
<ul><li>С помощью команды <strong>Заполнить по умолчанию</strong> можно заполнить календарь на основании общегосударственного производственного календаря, входящего в поставку программы.
</li><li>На текущий год автоматическое формирование производственного календаря производится на основании уже утвержденных сведений о рабочих днях, праздниках и переносах праздничных дней, на будущие годы - согласно ТК РФ (для российского производственного календаря).</li></ul><h3>Печать производственного календаря</h3>
<ul><li>С помощью команды <strong>Заполнить по умолчанию</strong> можно заполнить календарь:
<ul><li>Если флажок <strong>Является региональным календарем</strong> включен - на основании общегосударственного производственного календаря, входящего в поставку программы.
<ul><li>На текущий год автоматическое формирование производственного календаря производится на основании уже утвержденных сведений о рабочих днях, праздниках и переносах праздничных дней, на будущие годы - согласно ТК РФ (для российского производственного календаря).</li></ul></li><li>Если флажок <strong>Является региональным календарем</strong> выключен - согласно ТК РФ.</li></ul></li></ul><h3>Печать производственного календаря</h3>
<ul><li>Нажмите <strong>Печать</strong>, для того чтобы вывести сводные сведения о производственном календаре на указанный год.
<ul><li>Предусмотрен вывод сведений о годовом балансе рабочего времени, а также по месяцам, за квартал, полугодие.
</li><li>Выводится статистика по количеству календарных дней, рабочих, выходных и праздничных дней, а также рабочее время в часах при 40-часовой, 36-часовой и 24-часовой рабочей неделе.</li></ul></li></ul><h3>См. также:</h3>
SSL/src/Catalogs/ПроизводственныеКалендари/Forms/ФормаЭлемента/Module.bsl
+111 -3
View File
@@ -10,6 +10,7 @@
Если Объект.Ссылка.Пустая() Тогда
ЗаполнитьДаннымиТекущегоГода(Параметры.ЗначениеКопирования);
УстановитьСвойстваПоляБазовогоКалендаря(ЭтотОбъект);
КонецЕсли;
ЦветаВидовДней = Новый ФиксированноеСоответствие(Справочники.ПроизводственныеКалендари.ЦветаОформленияВидовДнейПроизводственногоКалендаря());
@@ -28,6 +29,11 @@
ЗаполнитьДаннымиТекущегоГода();
УстановитьВидимостьБазовогоКалендаря();
ЕстьБазовыйКалендарь = ЗначениеЗаполнено(Объект.БазовыйКалендарь);
УстановитьСвойстваПоляБазовогоКалендаря(ЭтотОбъект);
КонецПроцедуры
&НаКлиенте
@@ -46,6 +52,16 @@
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ОбработкаПроверкиЗаполненияНаСервере(Отказ, ПроверяемыеРеквизиты)
Если ЕстьБазовыйКалендарь И Не ЗначениеЗаполнено(Объект.БазовыйКалендарь) Тогда
ТекстСообщения = НСтр("ru = 'Федеральный календарь не заполнен.'");
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , , "Объект.БазовыйКалендарь", Отказ);
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
@@ -95,6 +111,17 @@
КонецПроцедуры
&НаКлиенте
Процедура ЕстьБазовыйКалендарьПриИзменении(Элемент)
УстановитьСвойстваПоляБазовогоКалендаря(ЭтотОбъект);
Если Не ЕстьБазовыйКалендарь Тогда
Объект.БазовыйКалендарь = Неопределено;
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
@@ -209,8 +236,15 @@
// Заполняет форму данными производственного календаря,
// составленными на основе сведений о праздничных днях и переносах.
ПреобразоватьДанныеПроизводственногоКалендаря(
Справочники.ПроизводственныеКалендари.РезультатЗаполненияПроизводственногоКалендаряПоУмолчанию(Объект.Код, НомерТекущегоГода));
КодБазовогоКалендаря = Неопределено;
Если ЗначениеЗаполнено(Объект.БазовыйКалендарь) Тогда
КодБазовогоКалендаря = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Объект.БазовыйКалендарь, "Код");
КонецЕсли;
ДанныеПоУмолчанию = Справочники.ПроизводственныеКалендари.РезультатЗаполненияПроизводственногоКалендаряПоУмолчанию(
Объект.Код, НомерТекущегоГода, КодБазовогоКалендаря);
ПреобразоватьДанныеПроизводственногоКалендаря(ДанныеПоУмолчанию);
Модифицированность = Истина;
@@ -377,7 +411,7 @@
КонецЕсли;
ВидДняИсточник = ПредставлениеВидаДняПереноса(Форма.ВидыДней.Получить(ДатаПриемник), ДатаИсточник);
ВидДняПриемник = ПредставлениеВидаДняПереноса(Форма.ВидыДней.Получить(ДатаИсточник), ДатаПриемник);
Форма.СписокПереносов.Добавить(ДатаИсточник, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = '%1 (%3) перенесен на %2 (%4)'"), Формат(ДатаИсточник, "ДФ='д ММММ'"), Формат(ДатаПриемник, "ДФ='д ММММ'"), ВидДняИсточник, ВидДняПриемник));
Форма.СписокПереносов.Добавить(ДатаИсточник, ПредставлениеПереноса(ДатаИсточник, ДатаПриемник, ВидДняИсточник, ВидДняПриемник));
КонецЦикла;
Форма.СписокПереносов.СортироватьПоЗначению();
@@ -385,6 +419,47 @@
КонецПроцедуры
&НаКлиентеНаСервереБезКонтекста
Функция ПредставлениеПереноса(ДатаИсточник, ДатаПриемник, ВидДняИсточник, ВидДняПриемник)
Представление = "";
ШаблонМР = НСтр("ru = '%1 %3 перенесен на %2 %4'");
ШаблонСР = НСтр("ru = '%1 %3 перенесено на %2 %4'");
ШаблонЖР = НСтр("ru = '%1 %3 перенесена на %2 %4'");
ДниЖР = Новый Соответствие;
ДниЖР.Вставить(НСтр("ru = 'среда'"), НСтр("ru = 'среду'"));
ДниЖР.Вставить(НСтр("ru = 'пятница'"), НСтр("ru = 'пятницу'"));
ДниЖР.Вставить(НСтр("ru = 'суббота'"), НСтр("ru = 'субботу'"));
ДниСР = Новый Соответствие;
ДниСР.Вставить(НСтр("ru = 'воскресенье'"), Истина);
Шаблон = ШаблонМР;
Если ДниЖР[ВидДняИсточник] <> Неопределено Тогда
Шаблон = ШаблонЖР;
КонецЕсли;
Если ДниСР[ВидДняИсточник] <> Неопределено Тогда
Шаблон = ШаблонСР;
КонецЕсли;
ПредставлениеДняПриемника = ВидДняПриемник;
Если ДниЖР[ВидДняПриемник] <> Неопределено Тогда
ПредставлениеДняПриемника = ДниЖР[ВидДняПриемник];
КонецЕсли;
Представление = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
Шаблон,
Формат(ДатаИсточник, "ДФ='д ММММ'"),
Формат(ДатаПриемник, "ДФ='д ММММ'"),
ВидДняИсточник,
ПредставлениеДняПриемника);
Возврат Представление;
КонецФункции
&НаКлиентеНаСервереБезКонтекста
Процедура УстановитьВидимостьСпискаПереносов(Форма)
@@ -467,4 +542,37 @@
КонецПроцедуры
&НаКлиентеНаСервереБезКонтекста
Процедура УстановитьСвойстваПоляБазовогоКалендаря(Форма)
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
Форма.Элементы,
"БазовыйКалендарь",
"Доступность",
Форма.ЕстьБазовыйКалендарь);
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
Форма.Элементы,
"БазовыйКалендарь",
"АвтоОтметкаНеЗаполненного",
Форма.ЕстьБазовыйКалендарь);
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
Форма.Элементы,
"БазовыйКалендарь",
"ОтметкаНеЗаполненного",
Не ЗначениеЗаполнено(Форма.Объект.БазовыйКалендарь));
КонецПроцедуры
&НаСервере
Процедура УстановитьВидимостьБазовогоКалендаря()
ТаблицаКалендарей = КалендарныеГрафики.ТаблицаПроизводственныхКалендарей();
Если ТаблицаКалендарей.Найти(СокрЛП(Объект.Код), "Code") <> Неопределено Тогда
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "БазовыйКалендарьГруппа", "Видимость", Ложь);
КонецЕсли;
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/ПроизводственныеКалендари/Help/ru.html
+5 -3
View File
@@ -2,8 +2,10 @@
<p>Предназначен для формирования и хранения производственных календарей.</p>
<p>Открывается по соответствующей команде в разделе <strong>Справочники</strong>.</p>
<p>Производственный календарь - это своеобразный классификатор, постоянные сведения, которые не меняются в течение года. Их может быть несколько, т.к. в разных регионах предусмотрен разный состав праздничных дней и соответственно переносов. </p>
<p>Производственный календарь РФ (который является общегосударственным) входит в поставляемые данные программы и обновляется по мере утверждения календаря и переносов праздников в РФ. При необходимости можно ввести несколько производственных календарей. Рекомендуется ввести производственный календарь в начале года на основании общегосударственного календаря на весь год сразу. Это поможет избежать ошибок в расчетах в течение года.</p>
<p>Производственные календари сами по себе не используются в учете. На основании производственного календаря формируются <a href="Catalog.Календари/Help">графики работы</a> подразделений, а также графики работы сотрудников.  </p>
<p><strong>Производственный календарь РФ</strong> (который является общегосударственным) входит в поставляемые данные программы и обновляется по мере утверждения календаря и переносов праздников в РФ. При необходимости можно ввести несколько производственных календарей. Рекомендуется ввести производственный календарь в начале года на основании общегосударственного календаря на весь год сразу. Это поможет избежать ошибок в расчетах в течение года.</p><a name="СтандартныеПодсистемы.ГрафикиРаботы">
<p>Производственные календари сами по себе не используются в учете. На основании производственного календаря формируются <a href="Catalog.Календари/Help">графики работы</a> подразделений, а также графики работы сотрудников.  </p></a>
<h3>Ввод производственного календаря</h3>
<ul><li>Нажмите <strong>Создать</strong>, заполните необходимые <a href="Catalog.ПроизводственныеКалендари.Form.ФормаЭлемента/Help">поля</a>.</li></ul><h3>См. также:</h3>
<ul><li>Нажмите <strong>Создать</strong>, выберите способ создания производственного календаря:
<ul><li><strong>По классификатору</strong> - добавить из классификатора, рекомендуется. Программа поставляется с <a href="DataProcessor.ЗаполнениеКалендарныхГрафиков.Form.ПодборКалендарейИзКлассификатора/Help">классификатором производственных календарей</a>.
</li><li><strong>Новый </strong>(ввести вручную (если в классификаторе нет соответствующего производственного календаря.</li></ul></li><li>Заполните необходимые <a href="Catalog.ПроизводственныеКалендари.Form.ФормаЭлемента/Help">поля</a>.</li></ul><h3>См. также:</h3>
<ul><li><a href="v8help://frame/form_common">Работа с формами</a>.</li></ul></body></html>
SSL/src/Catalogs/ПроизводственныеКалендари/ManagerModule.bsl
+340 -107
View File
@@ -1,3 +1,4 @@
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Область ПрограммныйИнтерфейс
@@ -97,89 +98,73 @@
// в противном случае данные производственного календаря формируются на основе
// сведений о праздниках, а также с учетом действующих правил переноса выходных дней.
//
Функция РезультатЗаполненияПроизводственногоКалендаряПоУмолчанию(КодПроизводственногоКалендаря, НомерГода) Экспорт
Функция РезультатЗаполненияПроизводственногоКалендаряПоУмолчанию(КодКалендаря, НомерГода, Знач КодБазовогоКалендаря = Неопределено) Экспорт
ДлинаСуток = 24 * 3600;
ВидыДней = Новый Соответствие;
ПереносыДней = Новый Соответствие;
// Если есть данные в макете - используем их.
// Сразу получаем данные еще и по базовому календарю, если он задан.
КодыКалендарей = Новый Массив;
КодыКалендарей.Добавить(КодКалендаря);
ЕстьБазовыйКалендарь = Ложь;
Если КодБазовогоКалендаря <> Неопределено Тогда
КодыКалендарей.Добавить(КодБазовогоКалендаря);
ЕстьБазовыйКалендарь = Истина;
КонецЕсли;
// Отбираем данные из макета по обоим календарям.
// Получаем не полный набор, а только праздничные дни и переносы.
ДанныеИзМакета = ДанныеПроизводственныхКалендарейИзМакета(КодыКалендарей, Ложь);
ОтборСтрок = Новый Структура("КодПроизводственногоКалендаря,Год");
ОтборСтрок.Год = НомерГода;
ЕстьДанныеКалендаря = Ложь;
ОтборСтрок.КодПроизводственногоКалендаря = КодКалендаря;
ДанныеКалендаря = ДанныеИзМакета.НайтиСтроки(ОтборСтрок);
Если ДанныеКалендаря.Количество() > 0 Тогда
ЕстьДанныеКалендаря = Истина;
ЗаполнитьВидыДнейДаннымиКалендаря(ДанныеКалендаря, ВидыДней, ПереносыДней);
КонецЕсли;
// Проверяем, есть ли в макете данные базового календаря.
ЕстьДанныеБазовогоКалендаря = Ложь;
Если ЕстьБазовыйКалендарь Тогда
ОтборСтрок.КодПроизводственногоКалендаря = КодБазовогоКалендаря;
ДанныеКалендаря = ДанныеИзМакета.НайтиСтроки(ОтборСтрок);
Если ДанныеКалендаря.Количество() > 0 Тогда
ЕстьДанныеБазовогоКалендаря = Истина;
Если Не ЕстьДанныеКалендаря Тогда
ЗаполнитьВидыДнейДаннымиКалендаря(ДанныеКалендаря, ВидыДней, ПереносыДней);
КонецЕсли;
КонецЕсли;
КонецЕсли;
// Дополняем данными по умолчанию на остальные дни.
ДатаДня = Дата(НомерГода, 1, 1);
Пока ДатаДня <= Дата(НомерГода, 12, 31) Цикл
Если ВидыДней[ДатаДня] = Неопределено Тогда
ВидыДней.Вставить(ДатаДня, ВидДняПоДате(ДатаДня));
КонецЕсли;
ДатаДня = ДатаДня + ДлинаСуток();
КонецЦикла;
// Если данных в макете не было, то обращаемся к заполнению постоянных праздников.
Если Не ЕстьДанныеКалендаря Тогда
Если ЕстьБазовыйКалендарь И ЕстьДанныеБазовогоКалендаря Тогда
// Постоянные праздники базового календаря запрашиваем только если их не было в макете.
КодБазовогоКалендаря = Неопределено;
КонецЕсли;
ЗаполнитьПостоянныеПраздничныеДни(ВидыДней, ПереносыДней, НомерГода, КодКалендаря, КодБазовогоКалендаря);
КонецЕсли;
// Преобразовываем в таблицу.
ДанныеПроизводственногоКалендаря = Новый ТаблицаЗначений;
ДанныеПроизводственногоКалендаря.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата"));
ДанныеПроизводственногоКалендаря.Колонки.Добавить("ВидДня", Новый ОписаниеТипов("ПеречислениеСсылка.ВидыДнейПроизводственногоКалендаря"));
ДанныеПроизводственногоКалендаря.Колонки.Добавить("ДатаПереноса", Новый ОписаниеТипов("Дата"));
// Если есть данные в макете - используем их.
ПредопределенныеДанные = ДанныеПроизводственныхКалендарейИзМакета().НайтиСтроки(
Новый Структура("КодПроизводственногоКалендаря, Год", КодПроизводственногоКалендаря, НомерГода));
Если ПредопределенныеДанные.Количество() > 0 Тогда
ОбщегоНазначенияКлиентСервер.ДополнитьТаблицу(ПредопределенныеДанные, ДанныеПроизводственногоКалендаря);
Возврат ДанныеПроизводственногоКалендаря;
КонецЕсли;
// Если нет - заполняем праздники и переносы.
ПраздничныеДни = ПраздничныеДниПроизводственногоКалендаря(КодПроизводственногоКалендаря, НомерГода);
// Дополним таблицу также праздниками следующего года,
// т.к. они влияют на заполнение текущего года (31 декабря - предпраздничный, например).
ПраздничныеДниСледующегоГода = ПраздничныеДниПроизводственногоКалендаря(КодПроизводственногоКалендаря, НомерГода + 1);
ОбщегоНазначенияКлиентСервер.ДополнитьТаблицу(ПраздничныеДниСледующегоГода, ПраздничныеДни);
ВидыДней = Новый Соответствие;
ДатаДня = Дата(НомерГода, 1, 1);
Пока ДатаДня <= Дата(НомерГода, 12, 31) Цикл
// "Непраздничный" день - определяем в соответствии с днем недели.
НомерДняНедели = ДеньНедели(ДатаДня);
Если НомерДняНедели <= 5 Тогда
ВидыДней.Вставить(ДатаДня, Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий);
ИначеЕсли НомерДняНедели = 6 Тогда
ВидыДней.Вставить(ДатаДня, Перечисления.ВидыДнейПроизводственногоКалендаря.Суббота);
ИначеЕсли НомерДняНедели = 7 Тогда
ВидыДней.Вставить(ДатаДня, Перечисления.ВидыДнейПроизводственногоКалендаря.Воскресенье);
КонецЕсли;
ДатаДня = ДатаДня + ДлинаСуток;
КонецЦикла;
// При совпадении выходного и нерабочего праздничного дней
// выходной день переносится на следующий после праздничного рабочий день
// за исключением выходных дней, совпадающих с нерабочими праздничными днями
// в период Новогодних каникул и Рождества Христова.
ПереносыДней = Новый Соответствие;
Для Каждого СтрокаТаблицы Из ПраздничныеДни Цикл
ПраздничныйДень = СтрокаТаблицы.Дата;
// Отметим как предпраздничный день,
// рабочий день непосредственно предшествующий праздничному дню.
ДатаПредпраздничногоДня = ПраздничныйДень - ДлинаСуток;
Если Год(ДатаПредпраздничногоДня) <> НомерГода Тогда
// Предпраздничные дни другого года пропускаем.
Продолжить;
КонецЕсли;
Если ВидыДней[ДатаПредпраздничногоДня] = Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий
И ПраздничныеДни.Найти(ДатаПредпраздничногоДня, "Дата") = Неопределено Тогда
ВидыДней.Вставить(ДатаПредпраздничногоДня, Перечисления.ВидыДнейПроизводственногоКалендаря.Предпраздничный);
КонецЕсли;
Если Год(ПраздничныйДень) <> НомерГода Тогда
// Праздничные дни другого года далее также пропускаем.
Продолжить;
КонецЕсли;
Если ВидыДней[ПраздничныйДень] <> Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий
И СтрокаТаблицы.ПереноситьВыходной Тогда
// Если праздничный день выпадает на выходной,
// и выходной, на который выпадает этот праздник, переносится -
// переносим выходной на ближайший рабочий день.
ДатаДня = ПраздничныйДень;
Пока Истина Цикл
ДатаДня = ДатаДня + ДлинаСуток;
Если ВидыДней[ДатаДня] = Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий
И ПраздничныеДни.Найти(ДатаДня, "Дата") = Неопределено Тогда
ВидыДней.Вставить(ДатаДня, ВидыДней[ПраздничныйДень]);
ПереносыДней.Вставить(ДатаДня, ПраздничныйДень);
ПереносыДней.Вставить(ПраздничныйДень, ДатаДня);
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
ВидыДней.Вставить(ПраздничныйДень, Перечисления.ВидыДнейПроизводственногоКалендаря.Праздник);
КонецЦикла;
Для Каждого КлючИЗначение Из ВидыДней Цикл
НоваяСтрока = ДанныеПроизводственногоКалендаря.Добавить();
НоваяСтрока.Дата = КлючИЗначение.Ключ;
@@ -196,12 +181,62 @@
КонецФункции
Функция РезультатЗаполненияПроизводственныхКалендарейПоУмолчанию(КодыКалендарей) Экспорт
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("КодыКалендарей", КодыКалендарей);
Запрос.Текст =
"ВЫБРАТЬ
| ПроизводственныеКалендари.Ссылка КАК Ссылка,
| ПроизводственныеКалендари.Код КАК КодКалендаря,
| ПроизводственныеКалендари.БазовыйКалендарь КАК БазовыйКалендарь,
| ПроизводственныеКалендари.БазовыйКалендарь.Код КАК КодБазовогоКалендаря
|ИЗ
| Справочник.ПроизводственныеКалендари КАК ПроизводственныеКалендари
|ГДЕ
| ПроизводственныеКалендари.Код В(&КодыКалендарей)";
РезультатЗапроса = Запрос.Выполнить();
// Запрашиваем данные всех календарей из макета для определения годов заполнения.
КодыДанныхМакета = РезультатЗапроса.Выгрузить().ВыгрузитьКолонку("КодКалендаря");
ДанныеИзМакета = ДанныеПроизводственныхКалендарейИзМакета(КодыДанныхМакета, Ложь);
ТаблицаДанных = НовыеДанныеПроизводственныхКалендарей();
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
ОтборСтрок = Новый Структура("КодПроизводственногоКалендаря");
ОтборСтрок.КодПроизводственногоКалендаря = Выборка.КодКалендаря;
ДанныеКалендаряИзМакета = ДанныеИзМакета.НайтиСтроки(ОтборСтрок);
НомераГодов = ОбщегоНазначения.ВыгрузитьКолонку(ДанныеКалендаряИзМакета, "Год", Истина);
Если НомераГодов.Количество() = 0 Тогда
// Заполняем по умолчанию на текущий год.
НомераГодов.Добавить(Год(ТекущаяДатаСеанса()));
КонецЕсли;
Для Каждого НомерГода Из НомераГодов Цикл
ДанныеКалендаря = РезультатЗаполненияПроизводственногоКалендаряПоУмолчанию(Выборка.КодКалендаря, НомерГода, Выборка.КодБазовогоКалендаря);
Для Каждого СтрокаДанных Из ДанныеКалендаря Цикл
НоваяСтрока = ТаблицаДанных.Добавить();
ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаДанных);
НоваяСтрока.КодПроизводственногоКалендаря = Выборка.КодКалендаря;
НоваяСтрока.Год = НомерГода;
КонецЦикла;
КонецЦикла;
КонецЦикла;
Возврат ТаблицаДанных;
КонецФункции
// Преобразовывает данные производственных календарей, поставляемые в виде макета в конфигурации.
//
// Параметры:
// КодыКалендарей - необязательный, массив, если не задан, то будут получены все имеющиеся данные из макета.
// ФормироватьПолныйНабор - необязательный, булево, если ложь, то будут сформированы только данные по отклонениям от календаря по умолчанию.
//
// Возвращаемое значение:
// ТаблицаЗначений - см. ДанныеПроизводственныхКалендарейИзXML.
//
Функция ДанныеПроизводственныхКалендарейИзМакета() Экспорт
Функция ДанныеПроизводственныхКалендарейИзМакета(КодыКалендарей = Неопределено, ФормироватьПолныйНабор = Истина) Экспорт
Если Метаданные.Обработки.Найти("ЗаполнениеКалендарныхГрафиков") = Неопределено Тогда
Возврат НовыеДанныеПроизводственныхКалендарей();
@@ -210,14 +245,16 @@
МодульКалендарныеГрафики = ОбщегоНазначения.ОбщийМодуль("Обработки.ЗаполнениеКалендарныхГрафиков");
ТекстовыйДокумент = МодульКалендарныеГрафики.ПолучитьМакет("ДанныеПроизводственныхКалендарей");
Возврат ДанныеПроизводственныхКалендарейИзXML(ТекстовыйДокумент.ПолучитьТекст());
Возврат ДанныеПроизводственныхКалендарейИзXML(ТекстовыйДокумент.ПолучитьТекст(), КодыКалендарей, ФормироватьПолныйНабор);
КонецФункции
// Преобразовывает данные производственных календарей, представленные в виде XML.
//
// Параметры:
// XML - документ с данными
// XML - документ с данными.
// КодыКалендарей - необязательный, массив, если не задан, то отбор не будет установлен.
// ФормироватьПолныйНабор - необязательный, булево, если ложь, то будут сформированы только данные по отклонениям от календаря по умолчанию.
//
// Возвращаемое значение:
// ТаблицаЗначений - таблица с колонками:
@@ -227,39 +264,62 @@
// * Дата
// * ДатаПереноса.
//
Функция ДанныеПроизводственныхКалендарейИзXML(Знач XML) Экспорт
Функция ДанныеПроизводственныхКалендарейИзXML(Знач XML, КодыКалендарей = Неопределено, ФормироватьПолныйНабор = Истина) Экспорт
ТаблицаДанных = НовыеДанныеПроизводственныхКалендарей();
ТаблицаКалендарей = КалендарныеГрафики.ТаблицаПроизводственныхКалендарей();
КлассификаторТаблица = ОбщегоНазначения.ПрочитатьXMLВТаблицу(XML).Данные;
Для Каждого СтрокаКлассификатора Из КлассификаторТаблица Цикл
НоваяСтрока = ТаблицаДанных.Добавить();
НоваяСтрока.КодПроизводственногоКалендаря = СтрокаКлассификатора.Calendar;
НоваяСтрока.ВидДня = Перечисления.ВидыДнейПроизводственногоКалендаря[СтрокаКлассификатора.DayType];
НоваяСтрока.Год = Число(СтрокаКлассификатора.Year);
НоваяСтрока.Дата = Дата(СтрокаКлассификатора.Date);
Если ЗначениеЗаполнено(СтрокаКлассификатора.SwapDate) Тогда
НоваяСтрока.ДатаПереноса = Дата(СтрокаКлассификатора.SwapDate);
ГодыКалендарей = КлассификаторТаблица.Скопировать(, "Calendar,Year");
ГодыКалендарей.Свернуть("Calendar,Year");
ОтборСтрок = Новый Структура("Calendar,Year");
Для Каждого Сочетание Из ГодыКалендарей Цикл
Если КодыКалендарей <> Неопределено И КодыКалендарей.Найти(Сочетание.Calendar) = Неопределено Тогда
Продолжить;
КонецЕсли;
ДатыГода = Новый Соответствие;
ЗаполнитьЗначенияСвойств(ОтборСтрок, Сочетание);
СтрокиДанныхКалендаря = КлассификаторТаблица.НайтиСтроки(ОтборСтрок);
Для Каждого СтрокаКлассификатора Из СтрокиДанныхКалендаря Цикл
НоваяСтрока = НоваяСтрокаДанныхКалендаряИзКлассификатора(ТаблицаДанных, СтрокаКлассификатора);
ДатыГода.Вставить(НоваяСтрока.Дата, Истина);
КонецЦикла;
КодБазовогоКалендаря = КодБазовогоКалендаря(Сочетание.Calendar, ТаблицаКалендарей);
Если КодБазовогоКалендаря <> Неопределено Тогда
ОтборСтрок.Calendar = КодБазовогоКалендаря;
СтрокиДанныхКалендаря = КлассификаторТаблица.НайтиСтроки(ОтборСтрок);
Для Каждого СтрокаКлассификатора Из СтрокиДанныхКалендаря Цикл
СтрокаКлассификатора.Calendar = Сочетание.Calendar;
НоваяСтрока = НоваяСтрокаДанныхКалендаряИзКлассификатора(ТаблицаДанных, СтрокаКлассификатора, Истина, Ложь);
СтрокаКлассификатора.Calendar = КодБазовогоКалендаря;
Если НоваяСтрока <> Неопределено Тогда
ДатыГода.Вставить(НоваяСтрока.Дата, Истина);
КонецЕсли;
КонецЦикла;
КонецЕсли;
Если Не ФормироватьПолныйНабор Тогда
Продолжить;
КонецЕсли;
НомерГода = Число(Сочетание.Year);
ДатаДня = Дата(НомерГода, 1, 1);
Пока ДатаДня <= Дата(НомерГода, 12, 31) Цикл
Если ДатыГода[ДатаДня] = Неопределено Тогда
НоваяСтрока = ТаблицаДанных.Добавить();
НоваяСтрока.КодПроизводственногоКалендаря = Сочетание.Calendar;
НоваяСтрока.Год = НомерГода;
НоваяСтрока.Дата = ДатаДня;
НоваяСтрока.ВидДня = ВидДняПоДате(ДатаДня);
КонецЕсли;
ДатаДня = ДатаДня + ДлинаСуток();
КонецЦикла;
КонецЦикла;
Возврат ТаблицаДанных;
КонецФункции
Функция НовыеДанныеПроизводственныхКалендарей()
ТаблицаДанных = Новый ТаблицаЗначений;
ТаблицаДанных.Колонки.Добавить("КодПроизводственногоКалендаря", Новый ОписаниеТипов("Строка", , Новый КвалификаторыСтроки(2)));
ТаблицаДанных.Колонки.Добавить("ВидДня", Новый ОписаниеТипов("ПеречислениеСсылка.ВидыДнейПроизводственногоКалендаря"));
ТаблицаДанных.Колонки.Добавить("Год", Новый ОписаниеТипов("Число"));
ТаблицаДанных.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата"));
ТаблицаДанных.Колонки.Добавить("ДатаПереноса", Новый ОписаниеТипов("Дата"));
Возврат ТаблицаДанных;
КонецФункции
// Обновляет справочник Производственные календари из XML файла.
//
// Параметры:
@@ -271,6 +331,7 @@
Запрос.Текст =
"ВЫБРАТЬ
| ВЫРАЗИТЬ(КлассификаторТаблица.Code КАК СТРОКА(2)) КАК Код,
| ВЫРАЗИТЬ(КлассификаторТаблица.Base КАК СТРОКА(2)) КАК КодБазового,
| ВЫРАЗИТЬ(КлассификаторТаблица.Description КАК СТРОКА(100)) КАК Наименование
|ПОМЕСТИТЬ КлассификаторТаблица
|ИЗ
@@ -279,30 +340,41 @@
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| КлассификаторТаблица.Код,
| КлассификаторТаблица.Наименование,
| КлассификаторТаблица.Код КАК Код,
| КлассификаторТаблица.КодБазового КАК КодБазового,
| КлассификаторТаблица.Наименование КАК Наименование,
| ПроизводственныеКалендари.Ссылка КАК Ссылка,
| ЕСТЬNULL(ПроизводственныеКалендари.Код, """") КАК ПроизводственныйКалендарьКод,
| ЕСТЬNULL(ПроизводственныеКалендари.Наименование, """") КАК ПроизводственныйКалендарьНаименование
|ИЗ
| КлассификаторТаблица КАК КлассификаторТаблица
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПроизводственныеКалендари КАК ПроизводственныеКалендари
| ПО КлассификаторТаблица.Код = ПроизводственныеКалендари.Код";
| ПО КлассификаторТаблица.Код = ПроизводственныеКалендари.Код
|
|УПОРЯДОЧИТЬ ПО
| КодБазового";
Запрос.УстановитьПараметр("КлассификаторТаблица", ТаблицаКалендарей);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Если СокрЛП(Выборка.Код) = СокрЛП(Выборка.ПроизводственныйКалендарьКод)
И Выборка.Наименование = Выборка.ПроизводственныйКалендарьНаименование Тогда
И СокрЛП(Выборка.Наименование) = СокрЛП(Выборка.ПроизводственныйКалендарьНаименование) Тогда
Продолжить;
КонецЕсли;
Если ЗначениеЗаполнено(Выборка.Ссылка) Тогда
СправочникОбъект = Выборка.Ссылка.ПолучитьОбъект();
Иначе
Если ЗначениеЗаполнено(Выборка.КодБазового) Тогда
// Зависимые календари не создаем автоматически при обновлении.
Продолжить;
КонецЕсли;
СправочникОбъект = СоздатьЭлемент();
КонецЕсли;
СправочникОбъект.Код = СокрЛП(Выборка.Код);
СправочникОбъект.Наименование = СокрЛП(Выборка.Наименование);
Если ЗначениеЗаполнено(Выборка.КодБазового) Тогда
СправочникОбъект.БазовыйКалендарь = НайтиПоКоду(Выборка.КодБазового);
КонецЕсли;
СправочникОбъект.Записать();
КонецЦикла;
@@ -523,6 +595,8 @@
ПраздничныеДни = Новый ТаблицаЗначений;
ПраздничныеДни.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата"));
ПраздничныеДни.Колонки.Добавить("ПереноситьВыходной", Новый ОписаниеТипов("Булево"));
ПраздничныеДни.Колонки.Добавить("ДобавлятьПредпраздничный", Новый ОписаниеТипов("Булево"));
ПраздничныеДни.Колонки.Добавить("ТолькоНерабочий", Новый ОписаниеТипов("Булево"));
Если Метаданные.Обработки.Найти("ЗаполнениеКалендарныхГрафиков") <> Неопределено Тогда
МодульКалендарныеГрафики = ОбщегоНазначения.ОбщийМодуль("Обработки.ЗаполнениеКалендарныхГрафиков");
@@ -545,6 +619,166 @@
КонецФункции
Функция ДлинаСуток()
Возврат 24 * 3600;
КонецФункции
Функция НовыеДанныеПроизводственныхКалендарей()
ТаблицаДанных = Новый ТаблицаЗначений;
ТаблицаДанных.Колонки.Добавить("КодПроизводственногоКалендаря", Новый ОписаниеТипов("Строка", , Новый КвалификаторыСтроки(2)));
ТаблицаДанных.Колонки.Добавить("ВидДня", Новый ОписаниеТипов("ПеречислениеСсылка.ВидыДнейПроизводственногоКалендаря"));
ТаблицаДанных.Колонки.Добавить("Год", Новый ОписаниеТипов("Число"));
ТаблицаДанных.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата"));
ТаблицаДанных.Колонки.Добавить("ДатаПереноса", Новый ОписаниеТипов("Дата"));
Возврат ТаблицаДанных;
КонецФункции
Процедура ЗаполнитьПостоянныеПраздничныеДни(ВидыДней, ПереносыДней, НомерГода, КодКалендаря, КодБазовогоКалендаря = Неопределено)
// Если нет - заполняем праздники и переносы.
ПраздничныеДни = ПраздничныеДниПроизводственногоКалендаря(КодКалендаря, НомерГода);
// Дополним таблицу также праздниками следующего года,
// т.к. они влияют на заполнение текущего года (31 декабря - предпраздничный, например).
ПраздничныеДниСледующегоГода = ПраздничныеДниПроизводственногоКалендаря(КодКалендаря, НомерГода + 1);
ОбщегоНазначенияКлиентСервер.ДополнитьТаблицу(ПраздничныеДниСледующегоГода, ПраздничныеДни);
Если КодБазовогоКалендаря <> Неопределено Тогда
// Дополним таблицу также праздниками базового календаря.
ПраздничныеБазовогоКалендаря = ПраздничныеДниПроизводственногоКалендаря(КодБазовогоКалендаря, НомерГода);
ОбщегоНазначенияКлиентСервер.ДополнитьТаблицу(ПраздничныеБазовогоКалендаря, ПраздничныеДни);
ПраздничныеДниСледующегоГода = ПраздничныеДниПроизводственногоКалендаря(КодБазовогоКалендаря, НомерГода + 1);
ОбщегоНазначенияКлиентСервер.ДополнитьТаблицу(ПраздничныеДниСледующегоГода, ПраздничныеДни);
КонецЕсли;
// При совпадении выходного и нерабочего праздничного дней
// выходной день переносится на следующий после праздничного рабочий день
// за исключением выходных дней, совпадающих с нерабочими праздничными днями
// в период Новогодних каникул и Рождества Христова.
Для Каждого СтрокаТаблицы Из ПраздничныеДни Цикл
ПраздничныйДень = СтрокаТаблицы.Дата;
// Отметим как предпраздничный день,
// рабочий день непосредственно предшествующий праздничному дню.
Если СтрокаТаблицы.ДобавлятьПредпраздничный Тогда
ДатаПредпраздничногоДня = ПраздничныйДень - ДлинаСуток();
Если Год(ДатаПредпраздничногоДня) = НомерГода Тогда
// Предпраздничные дни другого года пропускаем.
Если ВидыДней[ДатаПредпраздничногоДня] = Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий
И ПраздничныеДни.Найти(ДатаПредпраздничногоДня, "Дата") = Неопределено Тогда
ВидыДней.Вставить(ДатаПредпраздничногоДня, Перечисления.ВидыДнейПроизводственногоКалендаря.Предпраздничный);
КонецЕсли;
КонецЕсли;
КонецЕсли;
Если Год(ПраздничныйДень) <> НомерГода Тогда
// Праздничные дни другого года далее также пропускаем.
Продолжить;
КонецЕсли;
Если ВидыДней[ПраздничныйДень] <> Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий
И СтрокаТаблицы.ПереноситьВыходной Тогда
// Если праздничный день выпадает на выходной,
// и выходной, на который выпадает этот праздник, переносится -
// переносим выходной на ближайший рабочий день.
ДатаДня = ПраздничныйДень;
Пока Истина Цикл
ДатаДня = ДатаДня + ДлинаСуток();
Если ВидыДней[ДатаДня] = Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий
И ПраздничныеДни.Найти(ДатаДня, "Дата") = Неопределено Тогда
ВидыДней.Вставить(ДатаДня, ВидыДней[ПраздничныйДень]);
ПереносыДней.Вставить(ДатаДня, ПраздничныйДень);
ПереносыДней.Вставить(ПраздничныйДень, ДатаДня);
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Если СтрокаТаблицы.ТолькоНерабочий Тогда
ВидыДней.Вставить(ПраздничныйДень, Перечисления.ВидыДнейПроизводственногоКалендаря.Нерабочий);
Иначе
ВидыДней.Вставить(ПраздничныйДень, Перечисления.ВидыДнейПроизводственногоКалендаря.Праздник);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура ЗаполнитьВидыДнейДаннымиКалендаря(ДанныеКалендаря, ВидыДней, ПереносыДней)
Для Каждого СтрокаДанных Из ДанныеКалендаря Цикл
ВидыДней.Вставить(СтрокаДанных.Дата, СтрокаДанных.ВидДня);
Если ЗначениеЗаполнено(СтрокаДанных.ДатаПереноса) Тогда
ПереносыДней.Вставить(СтрокаДанных.Дата, СтрокаДанных.ДатаПереноса);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Функция ВидДняПоДате(Дата)
НомерДняНедели = ДеньНедели(Дата);
Если НомерДняНедели <= 5 Тогда
Возврат Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий;
КонецЕсли;
Если НомерДняНедели = 6 Тогда
Возврат Перечисления.ВидыДнейПроизводственногоКалендаря.Суббота;
КонецЕсли;
Если НомерДняНедели = 7 Тогда
Возврат Перечисления.ВидыДнейПроизводственногоКалендаря.Воскресенье;
КонецЕсли;
КонецФункции
Функция КодБазовогоКалендаря(КодКалендаря, КлассификаторКалендарей = Неопределено)
Если КлассификаторКалендарей = Неопределено Тогда
КлассификаторКалендарей = КалендарныеГрафики.ТаблицаПроизводственныхКалендарей();
КонецЕсли;
СтрокаКалендаря = КлассификаторКалендарей.Найти(КодКалендаря, "Code");
Если СтрокаКалендаря = Неопределено Тогда
Возврат Неопределено;
КонецЕсли;
Если Не ЗначениеЗаполнено(СтрокаКалендаря["Base"]) Тогда
Возврат Неопределено;
КонецЕсли;
Возврат СтрокаКалендаря["Base"];
КонецФункции
Функция НоваяСтрокаДанныхКалендаряИзКлассификатора(ДанныеКалендаря, СтрокаКлассификатора, Проверять = Ложь, Замещать = Ложь)
Если Проверять Тогда
ОтборСтрок = Новый Структура("КодПроизводственногоКалендаря,Дата");
ЗаполнитьЗначенияСвойств(ОтборСтрок, СтрокаКлассификатора);
НайденныеСтроки = ДанныеКалендаря.НайтиСтроки(ОтборСтрок);
Если НайденныеСтроки.Количество() > 0 Тогда
Если Не Замещать Тогда
Возврат Неопределено;
КонецЕсли;
Для Каждого НайденнаяСтрока Из НайденныеСтроки Цикл
ДанныеКалендаря.Удалить(НайденнаяСтрока);
КонецЦикла;
КонецЕсли;
КонецЕсли;
НоваяСтрока = ДанныеКалендаря.Добавить();
НоваяСтрока.КодПроизводственногоКалендаря = СтрокаКлассификатора.Calendar;
НоваяСтрока.ВидДня = Перечисления.ВидыДнейПроизводственногоКалендаря[СтрокаКлассификатора.DayType];
НоваяСтрока.Год = Число(СтрокаКлассификатора.Year);
НоваяСтрока.Дата = Дата(СтрокаКлассификатора.Date);
Если ЗначениеЗаполнено(СтрокаКлассификатора.SwapDate) Тогда
НоваяСтрока.ДатаПереноса = Дата(СтрокаКлассификатора.SwapDate);
КонецЕсли;
Возврат НоваяСтрока;
КонецФункции
////////////////////////////////////////////////////////////////////////////////
// Печатная форма производственного календаря.
@@ -599,6 +833,7 @@
ВидыНерабочихДней.Добавить(Перечисления.ВидыДнейПроизводственногоКалендаря.Суббота);
ВидыНерабочихДней.Добавить(Перечисления.ВидыДнейПроизводственногоКалендаря.Воскресенье);
ВидыНерабочихДней.Добавить(Перечисления.ВидыДнейПроизводственногоКалендаря.Праздник);
ВидыНерабочихДней.Добавить(Перечисления.ВидыДнейПроизводственногоКалендаря.Нерабочий);
Запрос = Новый Запрос(ТекстЗапроса);
Запрос.УстановитьПараметр("Год", НомерГода);
@@ -655,9 +890,7 @@
ВыборкаПоВидуДня = ВыборкаПоМесяцу.Выбрать(ОбходРезультатаЗапроса.Прямой);
Пока ВыборкаПоВидуДня.Следующий() Цикл
Если ВыборкаПоВидуДня.ВидДня = Перечисления.ВидыДнейПроизводственногоКалендаря.Суббота
Или ВыборкаПоВидуДня.ВидДня = Перечисления.ВидыДнейПроизводственногоКалендаря.Воскресенье
Или ВыборкаПоВидуДня.ВидДня = Перечисления.ВидыДнейПроизводственногоКалендаря.Праздник Тогда
Если ВидыНерабочихДней.Найти(ВыборкаПоВидуДня.ВидДня) <> Неопределено Тогда
ВыходныеДни = ВыходныеДни + ВыборкаПоВидуДня.КалендарныеДни
ИначеЕсли ВыборкаПоВидуДня.ВидДня = Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий Тогда
РабочееВремя40 = РабочееВремя40 + ВыборкаПоВидуДня.КалендарныеДни * 8;
SSL/src/Catalogs/ПроизводственныеКалендари/ObjectModule.bsl
+48
View File
@@ -2,6 +2,10 @@
#Область ОбработчикиСобытий
Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
ПроверитьИспользованиеБазовогоКалендаря(Отказ);
КонецПроцедуры
Процедура ПриЗаписи(Отказ)
Если ОбменДанными.Загрузка Тогда
@@ -14,4 +18,48 @@
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
Процедура ПроверитьИспользованиеБазовогоКалендаря(Отказ)
Если ЭтотОбъект.Ссылка.Пустая() Или Не ЗначениеЗаполнено(ЭтотОбъект.БазовыйКалендарь) Тогда
Возврат;
КонецЕсли;
// Запрещаем ссылку на самого себя.
Если ЭтотОбъект.Ссылка = ЭтотОбъект.БазовыйКалендарь Тогда
ТекстСообщения = НСтр("ru = 'В качестве базового не может быть выбран тот же самый календарь.'");
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, , , "Объект.БазовыйКалендарь", Отказ);
Возврат;
КонецЕсли;
// Если календарь уже является базовым для какого-то другого календаря,
// то запрещаем заполнить базовый, чтобы избежать циклических зависимостей.
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Календарь", ЭтотОбъект.Ссылка);
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| Ссылка
|ИЗ
| Справочник.ПроизводственныеКалендари КАК ПроизводственныеКалендари
|ГДЕ
| ПроизводственныеКалендари.БазовыйКалендарь = &Календарь";
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() Тогда
Возврат;
КонецЕсли;
Выборка = РезультатЗапроса.Выбрать();
Выборка.Следующий();
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Календарь уже является базовым для календаря «%1» и не может зависеть от другого.'"),
Выборка.Ссылка);
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, Выборка.Ссылка, , "Объект.БазовыйКалендарь", Отказ);
КонецПроцедуры
#КонецОбласти
#КонецЕсли
SSL/src/Catalogs/ПроизводственныеКалендари/ПроизводственныеКалендари.mdo
+35
View File
@@ -125,6 +125,32 @@
<quickChoice>true</quickChoice>
<choiceMode>BothWays</choiceMode>
<defaultObjectForm>Catalog.ПроизводственныеКалендари.Form.ФормаЭлемента</defaultObjectForm>
<defaultListForm>Catalog.ПроизводственныеКалендари.Form.ФормаСписка</defaultListForm>
<attributes uuid="1e9e115a-e65b-4346-b0d3-47cf1dbe75f2">
<name>БазовыйКалендарь</name>
<synonym>
<key>ru</key>
<value>Базовый календарь</value>
</synonym>
<type>
<types>CatalogRef.ПроизводственныеКалендари</types>
</type>
<toolTip>
<key>ru</key>
<value>Календарь, заполнение которого берется за основу при заполнении настоящего календаря.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<choiceParameters>
<name>Отбор.БазовыйКалендарь</name>
<value xsi:type="core:ReferenceValue">
<value>Catalog.ПроизводственныеКалендари.EmptyRef</value>
</value>
</choiceParameters>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<forms uuid="9e1be65e-986f-4d21-91f0-15c66db0c947">
<name>ФормаЭлемента</name>
<synonym>
@@ -139,6 +165,15 @@
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="67993b79-6aca-4641-b2e2-0a15f44e47d5">
<name>ФормаСписка</name>
<synonym>
<key>ru</key>
<value>Форма списка</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<templates uuid="d2fe4578-a1f8-4586-b052-fa71d25365c9">
<name>ПФ_MXL_ПроизводственныйКалендарь</name>
<synonym>
SSL/src/Catalogs/ПрофилиГруппДоступа/Forms/ФормаЭлемента/Module.bsl
+36 -7
View File
@@ -433,10 +433,6 @@
&НаКлиенте
Процедура ВосстановитьПоНачальномуЗаполнению(Команда)
Если Модифицированность ИЛИ ОбъектЗаписывался Тогда
РазблокироватьДанныеФормыДляРедактирования();
КонецЕсли;
ПоказатьВопрос(
Новый ОписаниеОповещения("ВосстановитьПоНачальномуЗаполнениюПродолжение", ЭтотОбъект),
НСтр("ru = 'Восстановить профиль по содержимому начального заполнения?'"),
@@ -557,9 +553,14 @@
Возврат;
КонецЕсли;
Если Модифицированность ИЛИ ОбъектЗаписывался Тогда
РазблокироватьДанныеФормыДляРедактирования();
КонецЕсли;
ОбновитьГруппыДоступа = (Ответ = КодВозвратаДиалога.Да);
НачальноеЗаполнениеПрофиляГруппДоступа(ОбновитьГруппыДоступа);
ГруппыДоступаПрофиля = Неопределено;
НачальноеЗаполнениеПрофиляГруппДоступа(ОбновитьГруппыДоступа, ГруппыДоступаПрофиля);
Прочитать();
ПользователиСлужебныйКлиент.РазвернутьПодсистемыРолей(ЭтотОбъект);
@@ -574,7 +575,19 @@
|группы доступа профиля не обновлены.'");
КонецЕсли;
ПоказатьОповещениеПользователя(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Текст, Объект.Наименование));
ПоказатьОповещениеПользователя(НСтр("ru = 'Профиль восстановлен'"),
ПолучитьНавигационнуюСсылку(Объект.Ссылка),
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(Текст, Объект.Наименование));
Оповестить("Запись_ПрофилиГруппДоступа", Новый Структура, Объект.Ссылка);
Если ОбновитьГруппыДоступа Тогда
ОповеститьОбИзменении(Тип("СправочникСсылка.ГруппыДоступа"));
Для каждого ГруппаДоступаПрофиля Из ГруппыДоступаПрофиля Цикл
Оповестить("Запись_ГруппыДоступа", Новый Структура, ГруппаДоступаПрофиля);
КонецЦикла;
КонецЕсли;
КонецПроцедуры
@@ -658,11 +671,27 @@
КонецПроцедуры
&НаСервере
Процедура НачальноеЗаполнениеПрофиляГруппДоступа(Знач ОбновитьГруппыДоступа)
Процедура НачальноеЗаполнениеПрофиляГруппДоступа(Знач ОбновитьГруппыДоступа, ГруппыДоступаПрофиля)
Справочники.ПрофилиГруппДоступа.ЗаполнитьПоставляемыйПрофиль(
Объект.Ссылка, ОбновитьГруппыДоступа);
Если Не ОбновитьГруппыДоступа Тогда
Возврат;
КонецЕсли;
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Профиль", Объект.Ссылка);
Запрос.Текст =
"ВЫБРАТЬ
| ГруппыДоступа.Ссылка КАК Ссылка
|ИЗ
| Справочник.ГруппыДоступа КАК ГруппыДоступа
|ГДЕ
| ГруппыДоступа.Профиль = &Профиль";
ГруппыДоступаПрофиля = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка");
КонецПроцедуры
&НаКлиенте
SSL/src/Catalogs/ПрофилиГруппДоступа/ManagerModule.bsl
+1 -1
View File
@@ -1029,7 +1029,7 @@
ОписанияПрофилей = Новый Массив;
ИнтеграцияСтандартныхПодсистем.ПриЗаполненииПоставляемыхПрофилейГруппДоступа(
ИнтеграцияПодсистемБСП.ПриЗаполненииПоставляемыхПрофилейГруппДоступа(
ОписанияПрофилей, ПараметрыОбновления);
УправлениеДоступомПереопределяемый.ПриЗаполненииПоставляемыхПрофилейГруппДоступа(
SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаВыбора/Attributes/Список/ExtInfo/ListSettings.dcss
+17
View File
@@ -0,0 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?>
<Settings xmlns="http://v8.1c.ru/8.1/data-composition-system/settings" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:pal="http://v8.1c.ru/8.1/data/ui/colors/palette" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core">
<filter>
<viewMode>Normal</viewMode>
<userSettingID>dfcece9d-5077-440b-b6b3-45a5cb4538eb</userSettingID>
</filter>
<order>
<viewMode>Normal</viewMode>
<userSettingID>88619765-ccb3-46c6-ac52-38e9c992ebd4</userSettingID>
</order>
<conditionalAppearance>
<viewMode>Normal</viewMode>
<userSettingID>b75fecce-942b-4aed-abc9-e6a02e460fb3</userSettingID>
</conditionalAppearance>
<itemsViewMode>Normal</itemsViewMode>
<itemsUserSettingID>911b6018-f537-43e8-a417-da56b22f9aec</itemsUserSettingID>
</Settings>
SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаВыбора/Form.form
+301
View File
@@ -0,0 +1,301 @@
<?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>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Группа пользовательских настроек</value>
</title>
<verticalStretch>false</verticalStretch>
<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>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</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:Table">
<name>Список</name>
<id>3</id>
<title>
<key>ru</key>
<value>Список</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список</segments>
</dataPath>
<defaultItem>true</defaultItem>
<titleLocation>None</titleLocation>
<items xsi:type="form:FormField">
<name>Код</name>
<id>19</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.Code</segments>
</dataPath>
<extendedTooltip>
<name>КодРасширеннаяПодсказка</name>
<id>21</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КодКонтекстноеМеню</name>
<id>20</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Наименование</name>
<id>16</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.Description</segments>
</dataPath>
<defaultItem>true</defaultItem>
<extendedTooltip>
<name>НаименованиеРасширеннаяПодсказка</name>
<id>18</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>НаименованиеКонтекстноеМеню</name>
<id>17</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<commandBarLocation>None</commandBarLocation>
<autoCommandBar>
<name>СписокКоманднаяПанель</name>
<id>5</id>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<searchStringAddition>
<name>СписокСтрокаПоиска</name>
<id>7</id>
<extendedTooltip>
<name>СписокСтрокаПоискаРасширеннаяПодсказка</name>
<id>9</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СписокСтрокаПоискаКонтекстноеМеню</name>
<id>8</id>
<autoFill>true</autoFill>
</contextMenu>
<source>Список</source>
<extInfo xsi:type="form:SearchStringAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchStringAddition>
<viewStatusAddition>
<name>СписокСостояниеПросмотра</name>
<id>10</id>
<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>
<contextMenu>
<name>СписокСостояниеПросмотраКонтекстноеМеню</name>
<id>11</id>
<autoFill>true</autoFill>
</contextMenu>
<type>ViewStatusAddition</type>
<source>Список</source>
<extInfo xsi:type="form:ViewStatusAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</viewStatusAddition>
<searchControlAddition>
<name>СписокУправлениеПоиском</name>
<id>13</id>
<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>
<type>SearchControlAddition</type>
<source>Список</source>
<extInfo xsi:type="form:SearchControlAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchControlAddition>
<extendedTooltip>
<name>СписокРасширеннаяПодсказка</name>
<id>6</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СписокКонтекстноеМеню</name>
<id>4</id>
<autoFill>true</autoFill>
</contextMenu>
<changeRowSet>true</changeRowSet>
<changeRowOrder>true</changeRowOrder>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<autoMaxRowsCount>true</autoMaxRowsCount>
<choiceMode>true</choiceMode>
<selectionMode>MultiRow</selectionMode>
<header>true</header>
<headerHeight>1</headerHeight>
<footerHeight>1</footerHeight>
<horizontalScrollBar>AutoUse</horizontalScrollBar>
<verticalScrollBar>AutoUse</verticalScrollBar>
<horizontalLines>true</horizontalLines>
<verticalLines>true</verticalLines>
<searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView>
<initialTreeView>ExpandTopLevel</initialTreeView>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<enableStartDrag>true</enableStartDrag>
<rowPictureDataPath xsi:type="form:DataPath">
<segments>Список.DefaultPicture</segments>
</rowPictureDataPath>
<autoMaxCardHeight>true</autoMaxCardHeight>
<extInfo xsi:type="form:DynamicListTableExtInfo">
<autoRefreshPeriod>60</autoRefreshPeriod>
<period>
<startDate>0001-01-01T00:00:00</startDate>
<endDate>0001-01-01T00:00:00</endDate>
</period>
<topLevelParent xsi:type="core:UndefinedValue"/>
<showRoot>true</showRoot>
<allowGettingCurrentRowURL>true</allowGettingCurrentRowURL>
<userSettingsGroup>СписокКомпоновщикНастроекПользовательскиеНастройки</userSettingsGroup>
</extInfo>
</items>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<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>DynamicList</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<main>true</main>
<extInfo xsi:type="form:DynamicListExtInfo">
<mainTable>Catalog.ПрофилиКлючевыхОпераций</mainTable>
<dynamicDataRead>true</dynamicDataRead>
<autoFillAvailableFields>true</autoFillAvailableFields>
<autoSaveUserSettings>true</autoSaveUserSettings>
<getInvisibleFieldPresentations>true</getInvisibleFieldPresentations>
</extInfo>
</attributes>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
<extInfo xsi:type="form:DynamicListFormExtInfo"/>
</form:Form>
SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаСписка/Attributes/Список/ExtInfo/ListSettings.dcss
+17
View File
@@ -0,0 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?>
<Settings xmlns="http://v8.1c.ru/8.1/data-composition-system/settings" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:pal="http://v8.1c.ru/8.1/data/ui/colors/palette" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core">
<filter>
<viewMode>Normal</viewMode>
<userSettingID>dfcece9d-5077-440b-b6b3-45a5cb4538eb</userSettingID>
</filter>
<order>
<viewMode>Normal</viewMode>
<userSettingID>88619765-ccb3-46c6-ac52-38e9c992ebd4</userSettingID>
</order>
<conditionalAppearance>
<viewMode>Normal</viewMode>
<userSettingID>b75fecce-942b-4aed-abc9-e6a02e460fb3</userSettingID>
</conditionalAppearance>
<itemsViewMode>Normal</itemsViewMode>
<itemsUserSettingID>911b6018-f537-43e8-a417-da56b22f9aec</itemsUserSettingID>
</Settings>
SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаСписка/Form.form
+300
View File
@@ -0,0 +1,300 @@
<?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>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Группа пользовательских настроек</value>
</title>
<verticalStretch>false</verticalStretch>
<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>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</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:Table">
<name>Список</name>
<id>3</id>
<title>
<key>ru</key>
<value>Список</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список</segments>
</dataPath>
<defaultItem>true</defaultItem>
<titleLocation>None</titleLocation>
<items xsi:type="form:FormField">
<name>Код</name>
<id>22</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.Code</segments>
</dataPath>
<extendedTooltip>
<name>КодРасширеннаяПодсказка</name>
<id>24</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КодКонтекстноеМеню</name>
<id>23</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Наименование</name>
<id>16</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Список.Description</segments>
</dataPath>
<defaultItem>true</defaultItem>
<extendedTooltip>
<name>НаименованиеРасширеннаяПодсказка</name>
<id>18</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>НаименованиеКонтекстноеМеню</name>
<id>17</id>
<autoFill>true</autoFill>
</contextMenu>
<type>LabelField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:LabelFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
</extInfo>
</items>
<commandBarLocation>None</commandBarLocation>
<autoCommandBar>
<name>СписокКоманднаяПанель</name>
<id>5</id>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<searchStringAddition>
<name>СписокСтрокаПоиска</name>
<id>7</id>
<extendedTooltip>
<name>СписокСтрокаПоискаРасширеннаяПодсказка</name>
<id>9</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СписокСтрокаПоискаКонтекстноеМеню</name>
<id>8</id>
<autoFill>true</autoFill>
</contextMenu>
<source>Список</source>
<extInfo xsi:type="form:SearchStringAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchStringAddition>
<viewStatusAddition>
<name>СписокСостояниеПросмотра</name>
<id>10</id>
<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>
<contextMenu>
<name>СписокСостояниеПросмотраКонтекстноеМеню</name>
<id>11</id>
<autoFill>true</autoFill>
</contextMenu>
<type>ViewStatusAddition</type>
<source>Список</source>
<extInfo xsi:type="form:ViewStatusAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</viewStatusAddition>
<searchControlAddition>
<name>СписокУправлениеПоиском</name>
<id>13</id>
<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>
<type>SearchControlAddition</type>
<source>Список</source>
<extInfo xsi:type="form:SearchControlAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchControlAddition>
<extendedTooltip>
<name>СписокРасширеннаяПодсказка</name>
<id>6</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>СписокКонтекстноеМеню</name>
<id>4</id>
<autoFill>true</autoFill>
</contextMenu>
<changeRowSet>true</changeRowSet>
<changeRowOrder>true</changeRowOrder>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<autoMaxRowsCount>true</autoMaxRowsCount>
<selectionMode>MultiRow</selectionMode>
<header>true</header>
<headerHeight>1</headerHeight>
<footerHeight>1</footerHeight>
<horizontalScrollBar>AutoUse</horizontalScrollBar>
<verticalScrollBar>AutoUse</verticalScrollBar>
<horizontalLines>true</horizontalLines>
<verticalLines>true</verticalLines>
<searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView>
<initialTreeView>ExpandTopLevel</initialTreeView>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<enableStartDrag>true</enableStartDrag>
<rowPictureDataPath xsi:type="form:DataPath">
<segments>Список.DefaultPicture</segments>
</rowPictureDataPath>
<autoMaxCardHeight>true</autoMaxCardHeight>
<extInfo xsi:type="form:DynamicListTableExtInfo">
<autoRefreshPeriod>60</autoRefreshPeriod>
<period>
<startDate>0001-01-01T00:00:00</startDate>
<endDate>0001-01-01T00:00:00</endDate>
</period>
<topLevelParent xsi:type="core:UndefinedValue"/>
<showRoot>true</showRoot>
<allowGettingCurrentRowURL>true</allowGettingCurrentRowURL>
<userSettingsGroup>СписокКомпоновщикНастроекПользовательскиеНастройки</userSettingsGroup>
</extInfo>
</items>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<windowOpeningMode>DontBlock</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>DynamicList</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<main>true</main>
<extInfo xsi:type="form:DynamicListExtInfo">
<mainTable>Catalog.ПрофилиКлючевыхОпераций</mainTable>
<dynamicDataRead>true</dynamicDataRead>
<autoFillAvailableFields>true</autoFillAvailableFields>
<autoSaveUserSettings>true</autoSaveUserSettings>
<getInvisibleFieldPresentations>true</getInvisibleFieldPresentations>
</extInfo>
</attributes>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
<extInfo xsi:type="form:DynamicListFormExtInfo"/>
</form:Form>
SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаЭлемента/Form.form
+546
View File
@@ -0,0 +1,546 @@
<?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:FormField">
<name>Наименование</name>
<id>1</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.Description</segments>
</dataPath>
<extendedTooltip>
<name>НаименованиеРасширеннаяПодсказка</name>
<id>3</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>НаименованиеКонтекстноеМеню</name>
<id>2</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">
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:Table">
<name>КлючевыеОперацииПрофиля</name>
<id>6</id>
<title>
<key>ru</key>
<value>Ключевые операции профиля</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.КлючевыеОперацииПрофиля</segments>
</dataPath>
<titleLocation>None</titleLocation>
<items xsi:type="form:FormField">
<name>КлючевыеОперацииПрофиляКлючеваяОперация</name>
<id>59</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.КлючевыеОперацииПрофиля.КлючеваяОперация</segments>
</dataPath>
<extendedTooltip>
<name>КлючевыеОперацииПрофиляКлючеваяОперацияРасширеннаяПодсказка</name>
<id>61</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КлючевыеОперацииПрофиляКлючеваяОперацияКонтекстноеМеню</name>
<id>60</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">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<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>
<extendedTooltip>
<name>КлючевыеОперацииПрофиляЦелевоеВремяРасширеннаяПодсказка</name>
<id>30</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>Auto</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>КлючевыеОперацииПрофиляВажность</name>
<id>31</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.КлючевыеОперацииПрофиля.Приоритет</segments>
</dataPath>
<extendedTooltip>
<name>КлючевыеОперацииПрофиляВажностьРасширеннаяПодсказка</name>
<id>33</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КлючевыеОперацииПрофиляВажностьКонтекстноеМеню</name>
<id>32</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">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<autoCommandBar>
<name>КлючевыеОперацииПрофиляКоманднаяПанель</name>
<id>8</id>
<items xsi:type="form:Button">
<name>КлючевыеОперацииПрофиляСортироватьСписокПоВозрастанию</name>
<id>37</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>КлючевыеОперацииПрофиляСортироватьСписокПоВозрастаниюРасширеннаяПодсказка</name>
<id>38</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Item.КлючевыеОперацииПрофиля.StandardCommand.SortListAsc</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
<locationInCommandBar>InCommandBarAndInAdditionalSubmenu</locationInCommandBar>
</items>
<items xsi:type="form:Button">
<name>КлючевыеОперацииПрофиляСортироватьСписокПоУбыванию</name>
<id>39</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>КлючевыеОперацииПрофиляСортироватьСписокПоУбываниюРасширеннаяПодсказка</name>
<id>40</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Item.КлючевыеОперацииПрофиля.StandardCommand.SortListDesc</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
<locationInCommandBar>InCommandBarAndInAdditionalSubmenu</locationInCommandBar>
</items>
<items xsi:type="form:Button">
<name>КлючевыеОперацииПрофиляЗаполнить</name>
<id>62</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>КлючевыеОперацииПрофиляЗаполнитьРасширеннаяПодсказка</name>
<id>63</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>
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<searchStringAddition>
<name>КлючевыеОперацииПрофиляСтрокаПоиска</name>
<id>10</id>
<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>
<contextMenu>
<name>КлючевыеОперацииПрофиляСтрокаПоискаКонтекстноеМеню</name>
<id>11</id>
<autoFill>true</autoFill>
</contextMenu>
<source>КлючевыеОперацииПрофиля</source>
<extInfo xsi:type="form:SearchStringAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchStringAddition>
<viewStatusAddition>
<name>КлючевыеОперацииПрофиляСостояниеПросмотра</name>
<id>13</id>
<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>
<type>ViewStatusAddition</type>
<source>КлючевыеОперацииПрофиля</source>
<extInfo xsi:type="form:ViewStatusAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</viewStatusAddition>
<searchControlAddition>
<name>КлючевыеОперацииПрофиляУправлениеПоиском</name>
<id>16</id>
<extendedTooltip>
<name>КлючевыеОперацииПрофиляУправлениеПоискомРасширеннаяПодсказка</name>
<id>18</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КлючевыеОперацииПрофиляУправлениеПоискомКонтекстноеМеню</name>
<id>17</id>
<autoFill>true</autoFill>
</contextMenu>
<type>SearchControlAddition</type>
<source>КлючевыеОперацииПрофиля</source>
<extInfo xsi:type="form:SearchControlAdditionExtInfo">
<autoMaxWidth>true</autoMaxWidth>
</extInfo>
</searchControlAddition>
<extendedTooltip>
<name>КлючевыеОперацииПрофиляРасширеннаяПодсказка</name>
<id>9</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КлючевыеОперацииПрофиляКонтекстноеМеню</name>
<id>7</id>
<autoFill>true</autoFill>
</contextMenu>
<representation>HierarchicalList</representation>
<changeRowSet>true</changeRowSet>
<changeRowOrder>true</changeRowOrder>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<autoMaxRowsCount>true</autoMaxRowsCount>
<selectionMode>MultiRow</selectionMode>
<header>true</header>
<headerHeight>1</headerHeight>
<footerHeight>1</footerHeight>
<horizontalScrollBar>AutoUse</horizontalScrollBar>
<verticalScrollBar>AutoUse</verticalScrollBar>
<horizontalLines>true</horizontalLines>
<verticalLines>true</verticalLines>
<useAlternationRowColorBWA>false</useAlternationRowColorBWA>
<autoInsertNewRow>true</autoInsertNewRow>
<searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<enableStartDrag>true</enableStartDrag>
<enableDrag>true</enableDrag>
<autoMaxCardHeight>true</autoMaxCardHeight>
<rowFilter xsi:type="core:UndefinedValue"/>
</items>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<items xsi:type="form:Button">
<name>ФормаСохранитьПрофильКлючевыхОпераций</name>
<id>49</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ФормаСохранитьПрофильКлючевыхОперацийРасширеннаяПодсказка</name>
<id>50</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.СохранитьПрофильКлючевыхОпераций</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>ФормаЗагрузитьПрофильКлючевыхОпераций</name>
<id>4</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ФормаЗагрузитьПрофильКлючевыхОперацийРасширеннаяПодсказка</name>
<id>5</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>
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<windowOpeningMode>DontBlock</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>
<id>1</id>
<valueType>
<types>CatalogObject.ПрофилиКлючевыхОпераций</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<main>true</main>
<savedData>true</savedData>
<additionalColumns>
<tablePath xsi:type="form:DataPath">
<segments>Объект.КлючевыеОперацииПрофиля</segments>
</tablePath>
</additionalColumns>
</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>
<picture xsi:type="core:PictureRef">
<picture>StdPicture.LoadReportSettings</picture>
</picture>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>ЗагрузитьПрофильКлючевыхОпераций</name>
</handler>
</action>
<representation>TextPicture</representation>
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>СохранитьПрофильКлючевыхОпераций</name>
<title>
<key>ru</key>
<value>Сохранить профиль</value>
</title>
<id>3</id>
<toolTip>
<key>ru</key>
<value>Сохранить профиль ключевых операций</value>
</toolTip>
<use>
<common>true</common>
</use>
<picture xsi:type="core:PictureRef">
<picture>StdPicture.Write</picture>
</picture>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>СохранитьПрофильКлючевыхОпераций</name>
</handler>
</action>
<representation>TextPicture</representation>
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>Заполнить</name>
<title>
<key>ru</key>
<value>Заполнить</value>
</title>
<id>5</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>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
<extInfo xsi:type="form:CatalogFormExtInfo"/>
</form:Form>
SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаЭлемента/Help/ru.html
+18
View File
@@ -0,0 +1,18 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><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.9600.18427"></meta></head><body>
<p>Для дальнейшей <a href="Report.ОценкаПроизводительности/Help">оценки производительности программы</a> необходимо заполнить профиль ключевых операций.</p>
<h3>Создание нового профиля</h3>
<ul><li>Ввести новый профиль можно с помощью кнопки <strong>Создать</strong> из <a href="Catalog.ПрофилиКлючевыхОпераций/Help">списка профилей</a>.
</li><li>Заполните поле <strong>Наименование</strong>.
</li><li>Заполнить профиль можно несколькими способами:
<ul><li><a href="#1">Загрузка имеющегося профиля</a>;
</li><li><a href="#2">Заполнение профиля</a>;
</li><li><a href="#3">Добавление ключевых операций</a>.</li></ul></li></ul><h3><a name="#1">Загрузка имеющегося профиля</a></h3>
<ul><li>Нажмите кнопку <strong>Загрузить профиль</strong>. С помощью кнопки можно воспользоваться ранее сохраненным профилем или полученным в файле.
</li><li>Укажите путь к профилю на компьютере. После этого указанный профиль будет загружен. Поле <strong>Наименование</strong> будет заполнено из ранее сохраненного профиля.</li></ul><h3><a name="#2">Заполнение профиля</a></h3>
<ul><li>Нажмите кнопку <strong>Заполнить</strong>.
</li><li>После этого все ключевые операции из списка ключевых операций переносятся автоматически.
</li><li>При этом по умолчанию заполняются поля <strong>Целевое время</strong> (значением 1.00) и <strong>Приоритет</strong> (значением 5).</li></ul><h3><a name="#3">Ввод ключевых операций</a></h3>
<ul><li>Нажмите кнопку <strong>Добавить</strong>. Выберите ключевую операцию из списка.
</li><li>Заполните поля <strong>Целевое время</strong> (например, 1.00) и <strong>Приоритет</strong> (например, 5).</li></ul><h3>Сохранение профиля</h3>
<ul><li>Нажмите кнопку <strong>Сохранить профиль</strong>. Укажите путь для сохранения файла на компьютер.</li></ul><h3>См. также:</h3>
<ul><li><a href="v8help://frame/form_common">Работа с формами</a>.</li></ul></body></html>
SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Forms/ФормаЭлемента/Module.bsl
+185
View File
@@ -0,0 +1,185 @@
#Область ОбработчикиКомандФормы
&НаКлиенте
Процедура ЗагрузитьПрофильКлючевыхОпераций(Команда)
ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогВыбора.Заголовок = НСтр("ru = 'Выберите файл профиля ключевых операций'");
ДиалогВыбора.Фильтр = "Файлы профиля ключевых операций (*.xml)|*.xml";
ОписаниеОповещения = Новый ОписаниеОповещения("ДиалогВыбораФайлаЗавершение", ЭтотОбъект, Неопределено);
ДиалогВыбора.Показать(ОписаниеОповещения);
КонецПроцедуры
&НаКлиенте
Процедура СохранитьПрофильКлючевыхОпераций(Команда)
ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
ДиалогВыбора.Заголовок = НСтр("ru = 'Сохранить профиль ключевых операций в файл'");
ДиалогВыбора.Фильтр = "Файлы профиля ключевых операций (*.xml)|*.xml";
ОписаниеОповещения = Новый ОписаниеОповещения("ДиалогСохраненияФайлаЗавершение", ЭтотОбъект, Неопределено);
ДиалогВыбора.Показать(ОписаниеОповещения);
КонецПроцедуры
&НаКлиенте
Процедура Заполнить(Команда)
ЗаполнитьНаСервере();
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаКлиенте
Процедура ДиалогВыбораФайлаЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
Если ВыбранныеФайлы <> Неопределено Тогда
Если НЕ ЗначениеЗаполнено(Объект.Наименование) Тогда
ФайлИмя = Новый Файл(ВыбранныеФайлы[0]);
Объект.Наименование = ФайлИмя.ИмяБезРасширения;
КонецЕсли;
ДвоичныеДанные = Новый ДвоичныеДанные(ВыбранныеФайлы[0]);
АдресХранилища = ПоместитьВоВременноеХранилище(ДвоичныеДанные, ЭтотОбъект.УникальныйИдентификатор);
ЗагрузитьПрофильКлючевыхОперацийНаСервере(АдресХранилища);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ДиалогСохраненияФайлаЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
Если ВыбранныеФайлы <> Неопределено Тогда
АдресХранилища = СохранитьПрофильКлючевыхОперацийНаСервере();
ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилища);
ДвоичныеДанные.Записать(ВыбранныеФайлы[0]);
КонецЕсли;
КонецПроцедуры
&НаСервере
Функция СохранитьПрофильКлючевыхОперацийНаСервере()
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml");
ЗаписьXML = Новый ЗаписьXML;
ЗаписьXML.ОткрытьФайл(ИмяВременногоФайла);
ЗаписьXML.ЗаписатьНачалоЭлемента("Items");
ЗаписьXML.ЗаписатьАтрибут("Description", Объект.Наименование);
ЗаписьXML.ЗаписатьАтрибут("Columns", "Имя,ЦелевоеВремя,Важность");
Для Каждого ТекСтрока Из Объект.КлючевыеОперацииПрофиля Цикл
ЗаписьXML.ЗаписатьНачалоЭлемента("Item");
ЗаписьXML.ЗаписатьАтрибут("Имя", ТекСтрока.КлючеваяОперация.Имя);
ЗаписьXML.ЗаписатьАтрибут("ЦелевоеВремя", Формат(ТекСтрока.ЦелевоеВремя, "ЧГ=0"));
ЗаписьXML.ЗаписатьАтрибут("Важность", Формат(ТекСтрока.Приоритет, "ЧГ=0"));
ЗаписьXML.ЗаписатьКонецЭлемента();
КонецЦикла;
ЗаписьXML.ЗаписатьКонецЭлемента();
ЗаписьXML.Закрыть();
ДвоичныеДанные = Новый ДвоичныеДанные(ИмяВременногоФайла);
АдресХранилища = ПоместитьВоВременноеХранилище(ДвоичныеДанные, ЭтотОбъект.УникальныйИдентификатор);
УдалитьФайлы(ИмяВременногоФайла);
Возврат АдресХранилища;
КонецФункции
&НаСервере
Функция ЗагрузитьПрофильКлючевыхОперацийНаСервере(АдресХранилища)
ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилища);
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml");
ДвоичныеДанные.Записать(ИмяВременногоФайла);
ЧтениеXML = Новый ЧтениеXML;
ЧтениеXML.ОткрытьФайл(ИмяВременногоФайла);
КлючевыеОперации = ФабрикаXDTO.ПрочитатьXML(ЧтениеXML);
Колонки = СтрРазделить(КлючевыеОперации["Columns"], ",",Ложь);
Если ТипЗнч(КлючевыеОперации["Item"]) = Тип("ОбъектXDTO") Тогда
ЗагрузитьОбъектXDTO(КлючевыеОперации["Item"], Колонки);
Иначе
Для Каждого ТекЭлемент Из КлючевыеОперации["Item"] Цикл
ЗагрузитьОбъектXDTO(ТекЭлемент, Колонки);
КонецЦикла;
КонецЕсли;
ЧтениеXML.Закрыть();
УдалитьФайлы(ИмяВременногоФайла);
КонецФункции
&НаСервере
Процедура ЗагрузитьОбъектXDTO(ОбъектXDTO, Колонки)
ТекЭлемент = ОбъектXDTO;
КлючеваяОперация = Справочники.КлючевыеОперации.НайтиПоРеквизиту("Имя", ТекЭлемент.Имя);
Если КлючеваяОперация.Пустая() Тогда
КлючеваяОперация = ОценкаПроизводительности.СоздатьКлючевуюОперацию(ТекЭлемент.Имя);
КонецЕсли;
ПараметрыОтбора = Новый Структура("КлючеваяОперация", КлючеваяОперация);
НайденныеСтроки = Объект.КлючевыеОперацииПрофиля.НайтиСтроки(ПараметрыОтбора);
Если НайденныеСтроки.Количество() = 0 Тогда
НовСтрока = Объект.КлючевыеОперацииПрофиля.Добавить();
НовСтрока.КлючеваяОперация = КлючеваяОперация;
Для Каждого ТекКолонка Из Колонки Цикл
ИмяКолонки = ?(ТекКолонка = "Важность", "Приоритет", ТекКолонка);
Если НовСтрока.Свойство(ИмяКолонки) И ТекЭлемент.Свойства().Получить(ТекКолонка) <> Неопределено Тогда
НовСтрока[ИмяКолонки] = ТекЭлемент[ТекКолонка];
КонецЕсли;
КонецЦикла;
Если НЕ ЗначениеЗаполнено(НовСтрока.Приоритет) Тогда
НовСтрока.Приоритет = 5;
КонецЕсли;
Иначе
Для Каждого НовСтрока Из НайденныеСтроки Цикл
Для Каждого ТекКолонка Из Колонки Цикл
ИмяКолонки = ?(ТекКолонка = "Важность", "Приоритет", ТекКолонка);
Если НовСтрока.Свойство(ИмяКолонки) И ТекЭлемент.Свойства().Получить(ТекКолонка) <> Неопределено Тогда
НовСтрока[ИмяКолонки] = ТекЭлемент[ТекКолонка];
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьНаСервере()
Запрос = Новый Запрос("ВЫБРАТЬ
| КлючевыеОперации.Ссылка КАК КлючеваяОперация,
| КлючевыеОперации.ЦелевоеВремя КАК ЦелевоеВремя,
| ВЫБОР
| КОГДА КлючевыеОперации.Приоритет = 0
| ТОГДА 5
| ИНАЧЕ КлючевыеОперации.Приоритет
| КОНЕЦ КАК Приоритет
|ИЗ
| Справочник.КлючевыеОперации КАК КлючевыеОперации
|ГДЕ
| НЕ КлючевыеОперации.ПометкаУдаления
|
|УПОРЯДОЧИТЬ ПО
| КлючевыеОперации.Наименование");
Объект.КлючевыеОперацииПрофиля.Загрузить(Запрос.Выполнить().Выгрузить());
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/ПрофилиКлючевыхОпераций/Help/ru.html
+6
View File
@@ -0,0 +1,6 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><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.9600.18427"></meta></head><body>
<p>Для <a href="Report.ОценкаПроизводительности/Help">оценки производительности программы</a> необходимо заполнить профиль <a href="Catalog.КлючевыеОперации/Help">ключевых операций</a>.</p>
<p>Список открывается по соответствующей ссылке из раздела <strong>Администрирование - Обслуживание - Оценка производительности</strong>.</p>
<p>Для ввода <a href="Catalog.ПрофилиКлючевыхОпераций.Form.ФормаЭлемента/Help">профиля</a> нажмите кнопку <strong>Создать</strong>.</p>
<h3>См. также:</h3>
<ul><li><a href="v8help://frame/form_common">Работа с формами</a>.</li></ul></body></html>
SSL/src/Catalogs/ПрофилиКлючевыхОпераций/ManagerModule.bsl
View File
Whitespace-only changes.
SSL/src/Catalogs/ПрофилиКлючевыхОпераций/ObjectModule.bsl
+1
View File
@@ -0,0 +1 @@
SSL/src/Catalogs/ПрофилиКлючевыхОпераций/ПрофилиКлючевыхОпераций.mdo
+249
View File
@@ -0,0 +1,249 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:Catalog xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="0d89036c-af6e-4709-847c-0dab74a33d72">
<producedTypes>
<objectType typeId="789be4d3-ebde-4b81-9d02-6e00e3a7cb7f" valueTypeId="603076ec-7587-449a-af3f-dd7dffb3dbf1"/>
<refType typeId="f3bb15db-fe56-46b0-bf5b-1b899eca6a2b" valueTypeId="b3a2d16e-6d45-4a1c-965f-ae21c8f7b18d"/>
<selectionType typeId="1d7ede46-e661-4624-a209-f0ffe91ee6db" valueTypeId="5e27c951-0f7e-42c2-b6ee-5657646c5d0f"/>
<listType typeId="266afda1-a2da-43a1-b22c-e1cfb0990580" valueTypeId="7a334165-45f0-4d50-9c28-1c7aad387461"/>
<managerType typeId="9fe0accf-a197-4b4a-a8f4-539074a5e63d" valueTypeId="a20187b3-5eda-4143-a770-28c1c71247e5"/>
</producedTypes>
<name>ПрофилиКлючевыхОпераций</name>
<synonym>
<key>ru</key>
<value>Профили ключевых операций</value>
</synonym>
<useStandardCommands>true</useStandardCommands>
<inputByString>Catalog.ПрофилиКлючевыхОпераций.StandardAttribute.Description</inputByString>
<inputByString>Catalog.ПрофилиКлючевыхОпераций.StandardAttribute.Code</inputByString>
<fullTextSearchOnInputByString>DontUse</fullTextSearchOnInputByString>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>PredefinedDataName</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Predefined</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Ref</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>DeletionMark</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>IsFolder</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Owner</name>
<fillFromFillingValue>true</fillFromFillingValue>
<fillValue xsi:type="core:UndefinedValue"/>
<fillChecking>ShowError</fillChecking>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Parent</name>
<fillFromFillingValue>true</fillFromFillingValue>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Description</name>
<toolTip>
<key>ru</key>
<value>Наименование профиля ключевых операций</value>
</toolTip>
<fillValue xsi:type="core:UndefinedValue"/>
<fillChecking>ShowError</fillChecking>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>Code</name>
<toolTip>
<key>ru</key>
<value>Код профиля ключевых операций</value>
</toolTip>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<createOnInput>Use</createOnInput>
<help>
<pages>
<lang>ru</lang>
</pages>
</help>
<dataLockControlMode>Managed</dataLockControlMode>
<objectPresentation>
<key>ru</key>
<value>Профиль ключевых операций</value>
</objectPresentation>
<extendedObjectPresentation>
<key>ru</key>
<value>Профиль ключевых операций замера производительности</value>
</extendedObjectPresentation>
<extendedListPresentation>
<key>ru</key>
<value>Профили ключевых операций замера производительности</value>
</extendedListPresentation>
<levelCount>2</levelCount>
<foldersOnTop>true</foldersOnTop>
<codeLength>9</codeLength>
<descriptionLength>100</descriptionLength>
<codeType>String</codeType>
<codeAllowedLength>Variable</codeAllowedLength>
<checkUnique>true</checkUnique>
<autonumbering>true</autonumbering>
<defaultPresentation>AsDescription</defaultPresentation>
<editType>InDialog</editType>
<choiceMode>BothWays</choiceMode>
<defaultObjectForm>Catalog.ПрофилиКлючевыхОпераций.Form.ФормаЭлемента</defaultObjectForm>
<defaultListForm>Catalog.ПрофилиКлючевыхОпераций.Form.ФормаСписка</defaultListForm>
<defaultChoiceForm>Catalog.ПрофилиКлючевыхОпераций.Form.ФормаВыбора</defaultChoiceForm>
<tabularSections uuid="7d223aab-d4f6-41d5-a701-6fe03517cf50">
<producedTypes>
<objectType typeId="621613cc-93ca-4df9-8da3-8cdb846d2691" valueTypeId="deb5148c-5801-4a34-bf13-871c004e388c"/>
<rowType typeId="4689b347-4ff6-485e-b0cd-a8027ab9d8ab" valueTypeId="0ce0587f-ad3d-4dfa-bf99-a6b21c4fadf0"/>
</producedTypes>
<name>КлючевыеОперацииПрофиля</name>
<synonym>
<key>ru</key>
<value>Ключевые операции профиля</value>
</synonym>
<standardAttributes>
<dataHistory>Use</dataHistory>
<name>LineNumber</name>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
</standardAttributes>
<attributes uuid="631cdd15-eb1f-4903-9073-4de3911ba2e6">
<name>КлючеваяОперация</name>
<synonym>
<key>ru</key>
<value>Ключевая операция</value>
</synonym>
<type>
<types>CatalogRef.КлючевыеОперации</types>
</type>
<toolTip>
<key>ru</key>
<value>Ключевая операция профиля</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
<fullTextSearch>Use</fullTextSearch>
</attributes>
<attributes uuid="6b10ab0a-8d4e-4847-9ce7-663fb4770c35">
<name>ЦелевоеВремя</name>
<synonym>
<key>ru</key>
<value>Целевое время</value>
</synonym>
<type>
<types>Number</types>
<numberQualifiers>
<precision>5</precision>
<scale>1</scale>
</numberQualifiers>
</type>
<toolTip>
<key>ru</key>
<value>Целевое время ключевой операции с точки зрения пользователя профиля</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
<fullTextSearch>Use</fullTextSearch>
</attributes>
<attributes uuid="42630eee-ce93-40a8-b96e-3eb759f48976">
<name>Приоритет</name>
<synonym>
<key>ru</key>
<value>Приоритет</value>
</synonym>
<type>
<types>Number</types>
<numberQualifiers>
<precision>5</precision>
<nonNegative>true</nonNegative>
</numberQualifiers>
</type>
<toolTip>
<key>ru</key>
<value>Приоритет ключевой операции с точки зрения пользователя профиля</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<dataHistory>Use</dataHistory>
<fullTextSearch>Use</fullTextSearch>
</attributes>
</tabularSections>
<forms uuid="174e0187-cf34-4949-8dc2-a1f9aece78dc">
<name>ФормаСписка</name>
<synonym>
<key>ru</key>
<value>Форма списка</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="5d9f2db6-704d-45cb-96c3-e59e47ad4fea">
<name>ФормаЭлемента</name>
<synonym>
<key>ru</key>
<value>Форма элемента</value>
</synonym>
<help>
<pages>
<lang>ru</lang>
</pages>
</help>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
<forms uuid="e4dbeb50-292f-452f-a0da-a55e5ea936e4">
<name>ФормаВыбора</name>
<synonym>
<key>ru</key>
<value>Форма выбора</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</forms>
</mdclass:Catalog>
SSL/src/Catalogs/РассылкиОтчетов/Commands/СобытияРассылки/CommandModule.bsl
+5 -31
View File
@@ -3,12 +3,12 @@
&НаКлиенте
Процедура ОбработкаКоманды(Рассылка, Параметры)
ПараметрыФормыЖурналаРегистрации = ПараметрыФормыЖурналаРегистрации(Рассылка);
Если ПараметрыФормыЖурналаРегистрации = Неопределено Тогда
ПараметрыЖурналаРегистрации = ПараметрыЖурналаРегистрации(Рассылка);
Если ПараметрыЖурналаРегистрации = Неопределено Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Рассылка еще не выполнялась.'"));
Возврат;
КонецЕсли;
ОткрытьФорму("Обработка.ЖурналРегистрации.Форма", ПараметрыФормыЖурналаРегистрации, ЭтотОбъект);
ОткрытьФорму("Обработка.ЖурналРегистрации.Форма", ПараметрыЖурналаРегистрации, ЭтотОбъект);
КонецПроцедуры
#КонецОбласти
@@ -16,34 +16,8 @@
#Область СлужебныеПроцедурыИФункции
&НаСервере
Функция ПараметрыФормыЖурналаРегистрации(Рассылка)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Состояния.ПоследнийЗапуск,
| Состояния.НомерСеанса
|ИЗ
| РегистрСведений.СостоянияРассылокОтчетов КАК Состояния
|ГДЕ
| Состояния.Рассылка = &Рассылка";
Запрос.УстановитьПараметр("Рассылка", Рассылка);
УстановитьПривилегированныйРежим(Истина);
Выборка = Запрос.Выполнить().Выбрать();
Если Не Выборка.Следующий() Тогда
Возврат Неопределено;
КонецЕсли;
Результат = Новый Структура;
Результат.Вставить("ДатаНачала", Выборка.ПоследнийЗапуск);
Если Не ЗначениеЗаполнено(Выборка.НомерСеанса) Тогда
Результат.Вставить("Данные", Рассылка);
Иначе
Сеансы = Новый СписокЗначений;
Сеансы.Добавить(Выборка.НомерСеанса);
Результат.Вставить("Сеанс", Сеансы);
КонецЕсли;
Возврат Результат;
Функция ПараметрыЖурналаРегистрации(Рассылка)
Возврат РассылкаОтчетов.ПараметрыЖурналаРегистрации(Рассылка);
КонецФункции
#КонецОбласти
SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаСписка/Form.form
+275 -13
View File
@@ -1,5 +1,219 @@
<?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>157</id>
<items xsi:type="form:FormField">
<name>СостояниеОтбор</name>
<id>165</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>СостояниеОтбор</segments>
</dataPath>
<titleLocation>None</titleLocation>
<handlers>
<event>OnChange</event>
<name>СостояниеОтборПриИзменении</name>
</handlers>
<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>
<contextMenu>
<name>СостояниеОтборКонтекстноеМеню</name>
<id>166</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">
<width>15</width>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<listChoiceMode>true</listChoiceMode>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<choiceList>
<presentation>
<key>ru</key>
<value>Все</value>
</presentation>
<value xsi:type="core:StringValue">
<value>Все</value>
</value>
</choiceList>
<choiceList>
<presentation>
<key>ru</key>
<value>Выполненные</value>
</presentation>
<value xsi:type="core:StringValue">
<value>Выполненные</value>
</value>
</choiceList>
<choiceList>
<presentation>
<key>ru</key>
<value>Невыполненные</value>
</presentation>
<value xsi:type="core:StringValue">
<value>Невыполненные</value>
</value>
</choiceList>
<textSize>Normal</textSize>
<inputHint>
<key>ru</key>
<value>Все рассылки</value>
</inputHint>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>ОтветственныйОтбор</name>
<id>159</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>ОтветственныйОтборРасширеннаяПодсказка</name>
<id>161</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ОтветственныйОтборКонтекстноеМеню</name>
<id>160</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">
<width>35</width>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<clearButton>true</clearButton>
<openButton>false</openButton>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
<inputHint>
<key>ru</key>
<value>Все</value>
</inputHint>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>ОтчетОтбор</name>
<id>162</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>ОтчетОтборРасширеннаяПодсказка</name>
<id>164</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ОтчетОтборКонтекстноеМеню</name>
<id>163</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">
<width>35</width>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<clearButton>true</clearButton>
<openButton>false</openButton>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
<inputHint>
<key>ru</key>
<value>Все</value>
</inputHint>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Отборы</value>
</title>
<extendedTooltip>
<name>ГруппаОтборыРасширеннаяПодсказка</name>
<id>158</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">
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаПользовательскихНастроек</name>
<id>83</id>
@@ -1683,8 +1897,8 @@
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<handlers>
<event>OnOpen</event>
<name>ПриОткрытии</name>
<event>OnLoadDataFromSettingsAtServer</event>
<name>ПриЗагрузкеДанныхИзНастроекНаСервере</name>
</handlers>
<handlers>
<event>OnCreateAtServer</event>
@@ -1767,18 +1981,18 @@
Рассылки.АдресОтвета,
Рассылки.Архивировать,
Рассылки.ИмяАрхива,
Состояние.ПоследнийЗапуск,
Состояние.ПоследнийЗапускНачало Как ПоследнийЗапуск,
Состояние.СОшибками,
ВЫБОР
КОГДА Состояние.Выполнена
ТОГДА Состояние.ПоследнийЗапуск
ТОГДА Состояние.ПоследнийЗапускНачало
ИНАЧЕ Состояние.УспешныйЗапуск
КОНЕЦ КАК УспешныйЗапуск,
ВЫБОР
КОГДА Состояние.ПоследнийЗапуск ЕСТЬ NULL
КОГДА Состояние.ПоследнийЗапускНачало ЕСТЬ NULL
ИЛИ Рассылки.ПометкаУдаления = ИСТИНА
ТОГДА 0
КОГДА Состояние.ПоследнийЗапуск = &amp;ПустаяДата
КОГДА Состояние.ПоследнийЗапускНачало = &amp;ПустаяДата
ТОГДА 0
КОГДА НЕ Состояние.Выполнена
ТОГДА 1
@@ -1787,10 +2001,10 @@
ИНАЧЕ 2
КОНЕЦ КАК ИндексКартинкиПоследнегоЗапуска,
ВЫБОР
КОГДА Состояние.ПоследнийЗапуск ЕСТЬ NULL
КОГДА Состояние.ПоследнийЗапускНачало ЕСТЬ NULL
ИЛИ Рассылки.ПометкаУдаления = ИСТИНА
ТОГДА ВЫРАЗИТЬ(&quot;&quot; КАК СТРОКА(50))
КОГДА Состояние.ПоследнийЗапуск = &amp;ПустаяДата
КОГДА Состояние.ПоследнийЗапускНачало = &amp;ПустаяДата
ТОГДА &amp;ПредставлениеСостоянияНовая
КОГДА НЕ Состояние.Выполнена
ТОГДА &amp;ПредставлениеСостоянияНеВыполнена
@@ -1800,8 +2014,15 @@
КОНЕЦ КАК Состояние
ИЗ
Справочник.РассылкиОтчетов КАК Рассылки
ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СостоянияРассылокОтчетов КАК Состояние
ПО (Состояние.Рассылка = Рассылки.Ссылка)</queryText>
ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СостоянияРассылокОтчетов КАК Состояние
ПО (Состояние.Рассылка = Рассылки.Ссылка)
{ГДЕ ИСТИНА В
(
ВЫБРАТЬ ПЕРВЫЕ 1 ИСТИНА
ИЗ
Справочник.РассылкиОтчетов.Отчеты КАК Отчеты
ГДЕ Отчеты.Ссылка = Рассылки.Ссылка И Отчеты.Отчет = &amp;ОтчетОтбор
)}</queryText>
<mainTable>Catalog.РассылкиОтчетов</mainTable>
<dynamicDataRead>true</dynamicDataRead>
<autoFillAvailableFields>true</autoFillAvailableFields>
@@ -1831,12 +2052,46 @@
</extInfo>
</attributes>
<attributes>
<name>ТекстОшибкиПриОткрытии</name>
<name>ОтветственныйОтбор</name>
<title>
<key>ru</key>
<value>Текст ошибки при открытии</value>
<value>Ответственный</value>
</title>
<id>3</id>
<id>4</id>
<valueType>
<types>CatalogRef.Пользователи</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ОтчетОтбор</name>
<title>
<key>ru</key>
<value>Отчет</value>
</title>
<id>5</id>
<valueType>
<types>CatalogRef.ВариантыОтчетов</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>СостояниеОтбор</name>
<title>
<key>ru</key>
<value>Состояние</value>
</title>
<id>6</id>
<valueType>
<types>String</types>
<stringQualifiers/>
@@ -1870,6 +2125,13 @@
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<parameters>
<name>Отчет</name>
<valueType>
<types>CatalogRef.ВариантыОтчетов</types>
</valueType>
<keyParameter>true</keyParameter>
</parameters>
<commandInterface>
<navigationPanel/>
<commandBar/>
SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаСписка/Module.bsl
+83 -33
View File
@@ -2,6 +2,8 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
УстановитьУсловноеОформление();
Если Параметры.Свойство("АвтоТест") Тогда // Возврат при получении формы для анализа.
Возврат;
КонецЕсли;
@@ -10,19 +12,9 @@
Элементы.Список.Отображение = ОтображениеТаблицы[Параметры.Отображение];
КонецЕсли;
СтандартныеПодсистемыСервер.УстановитьУсловноеОформлениеПоляДата(
Список,
"ПоследнийЗапуск",
Элементы.ПоследнийЗапуск.Имя);
СтандартныеПодсистемыСервер.УстановитьУсловноеОформлениеПоляДата(
Список,
"УспешныйЗапуск",
Элементы.УспешныйЗапуск.Имя);
ТекстОшибкиПриОткрытии = РассылкаОтчетовПовтИсп.ТекстОшибкиПроверкиПраваДобавления();
Если ЗначениеЗаполнено(ТекстОшибкиПриОткрытии) Тогда
Возврат;
ВызватьИсключение ТекстОшибкиПриОткрытии;
КонецЕсли;
// Установка отборов динамического списка.
@@ -53,32 +45,21 @@
Если Параметры.РежимВыбора Тогда
РежимОткрытияОкна = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца;
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
Элементы,
"ФОРМАВЫБРАТЬ",
"КнопкаПоУмолчанию",
Истина);
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФОРМАВЫБРАТЬ", "КнопкаПоУмолчанию", Истина);
Иначе
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(
Элементы,
"ФОРМАВЫБРАТЬ",
"Видимость",
Ложь);
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФОРМАВЫБРАТЬ", "Видимость", Ложь);
КонецЕсли;
Если Не Пользователи.РолиДоступны("ДобавлениеИзменениеРассылокОтчетов") Тогда
// Режим показа только личных рассылок - скрываются группы и лишние колонки.
Элементы.Список.Отображение = ОтображениеТаблицы.Список;
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(
Список,
"ЭтоГруппа",
Ложь,
,
,
Истина,
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(Список, "ЭтоГруппа", Ложь, , , Истина,
РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный);
КонецЕсли;
ОтчетОтбор = Параметры.Отчет;
УстановитьОтбор(Ложь);
Список.Параметры.УстановитьЗначениеПараметра("ПустаяДата", '00010101');
Список.Параметры.УстановитьЗначениеПараметра("ПредставлениеСостоянияНовая", НСтр("ru = 'Новая'"));
Список.Параметры.УстановитьЗначениеПараметра("ПредставлениеСостоянияНеВыполнена", НСтр("ru = 'Не выполнена'"));
@@ -96,12 +77,28 @@
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)
УстановитьОтборСписка(Настройки);
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовШапкиФормы
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Если ЗначениеЗаполнено(ТекстОшибкиПриОткрытии) Тогда
Отказ = Истина;
ПоказатьПредупреждение(, ТекстОшибкиПриОткрытии);
КонецЕсли;
Процедура СостояниеОтборПриИзменении(Элемент)
УстановитьОтбор();
КонецПроцедуры
&НаКлиенте
Процедура ОтчетОтборПриИзменении(Элемент)
УстановитьОтбор();
КонецПроцедуры
&НаКлиенте
Процедура ОтветственныйОтборПриИзменении(Элемент)
УстановитьОтбор();
КонецПроцедуры
#КонецОбласти
@@ -118,6 +115,34 @@
#Область СлужебныеПроцедурыИФункции
&НаСервере
Процедура УстановитьУсловноеОформление()
СтандартныеПодсистемыСервер.УстановитьУсловноеОформлениеПоляДата(ЭтотОбъект, "Список.ПоследнийЗапуск", Элементы.ПоследнийЗапуск.Имя);
СтандартныеПодсистемыСервер.УстановитьУсловноеОформлениеПоляДата(ЭтотОбъект, "Список.УспешныйЗапуск", Элементы.УспешныйЗапуск.Имя);
ЭлементУсловногоОформления = Список.УсловноеОформление.Элементы.Добавить();
ЭлементУсловногоОформления.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;
// Неподготовленные рассылки отчетов
ЭлементОтбораДанных = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементОтбораДанных.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ЭтоГруппа");
ЭлементОтбораДанных.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
ЭлементОтбораДанных.ПравоеЗначение = Ложь;
ЭлементОтбораДанных.Использование = Истина;
ЭлементОтбораДанных = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементОтбораДанных.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Подготовлена");
ЭлементОтбораДанных.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
ЭлементОтбораДанных.ПравоеЗначение = Ложь;
ЭлементОтбораДанных.Использование = Истина;
ЭлементЦветаОформления = ЭлементУсловногоОформления.Оформление.Элементы.Найти("ЦветТекста");
ЭлементЦветаОформления.Значение = Метаданные.ЭлементыСтиля.ТекстЗапрещеннойЯчейкиЦвет.Значение;
ЭлементЦветаОформления.Использование = Истина;
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьПараметрСписка(Ключ)
Если Параметры.Свойство(Ключ) И ЗначениеЗаполнено(Параметры[Ключ]) Тогда
@@ -125,4 +150,29 @@
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура УстановитьОтбор(СнятьФиксированныеОтборы = Истина)
Если СнятьФиксированныеОтборы Тогда
Список.Отбор.Элементы.Очистить();
КонецЕсли;
ПараметрыОтбора = Новый Соответствие();
ПараметрыОтбора.Вставить("СОшибками", СостояниеОтбор);
ПараметрыОтбора.Вставить("Отчет", ОтчетОтбор);
ПараметрыОтбора.Вставить("Автор", ОтветственныйОтбор);
УстановитьОтборСписка(ПараметрыОтбора);
КонецПроцедуры
&НаСервере
Процедура УстановитьОтборСписка(ПараметрыОтбора)
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(Список, "Автор", ПараметрыОтбора["Автор"],,,
Не ПараметрыОтбора["Автор"].Пустая());
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(Список, "СОшибками", ПараметрыОтбора["СОшибками"] = "Невыполненные",,,
ПараметрыОтбора["СОшибками"] <> "Все");
ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка(Список, "ОтчетОтбор", ПараметрыОтбора["Отчет"],
ЗначениеЗаполнено(ПараметрыОтбора["Отчет"]) И Не ПараметрыОтбора["Отчет"].Пустая());
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Form.form
+56 -8
View File
@@ -1628,7 +1628,7 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.ИспользоватьПолучателяРассылкиВНастройкеОтчета</commandName>
<commandName>Form.Command.УказатьПолучателяРассылки</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
@@ -1753,7 +1753,33 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.ИспользоватьПолучателяРассылкиВНастройкеОтчета</commandName>
<commandName>Form.Command.УказатьПолучателяРассылки</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>ПользовательскиеНастройкиКонтекстноеМенюУдалитьПолучателяРассылки</name>
<id>1183</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ПользовательскиеНастройкиКонтекстноеМенюУдалитьПолучателяРассылкиРасширеннаяПодсказка</name>
<id>1184</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>
@@ -1994,7 +2020,7 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.ИспользоватьПолучателяРассылкиВНастройкеОтчета</commandName>
<commandName>Form.Command.УказатьПолучателяРассылки</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
@@ -2110,7 +2136,7 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.ИспользоватьПолучателяРассылкиВНастройкеОтчета</commandName>
<commandName>Form.Command.УказатьПолучателяРассылки</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
@@ -10256,7 +10282,7 @@
<name>ПредварительныйПросмотрОтчета</name>
<title>
<key>ru</key>
<value>Просмотр</value>
<value>Предварительный просмотр...</value>
</title>
<id>11</id>
<toolTip>
@@ -10566,7 +10592,7 @@
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>ИспользоватьПолучателяРассылкиВНастройкеОтчета</name>
<name>УказатьПолучателяРассылки</name>
<title>
<key>ru</key>
<value>Указать получателя рассылки</value>
@@ -10574,7 +10600,7 @@
<id>24</id>
<toolTip>
<key>ru</key>
<value>Указать получателя рассылки в выбранной настройке</value>
<value>Указать получателя рассылки в настройке отчета</value>
</toolTip>
<use>
<common>true</common>
@@ -10584,7 +10610,7 @@
</picture>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>ИспользоватьПолучателяРассылкиВНастройкеОтчета</name>
<name>УказатьПолучателяРассылки</name>
</handler>
</action>
<representation>TextPicture</representation>
@@ -10694,6 +10720,28 @@
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>УдалитьПолучателяРассылки</name>
<title>
<key>ru</key>
<value>Удалить получателя рассылки</value>
</title>
<id>28</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>
<commandInterface>
<navigationPanel/>
<commandBar/>
SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Help/ru.html
+4 -2
View File
@@ -34,7 +34,7 @@
</li><li>Если выбрана <strong>личная рассылка автора</strong>, то доставка выполняется только по электронной почте по единственному адресу, который указывается в поле <strong>Почтовый адрес</strong>.
</li><li>Если выбран <strong>Свой отчет для каждого получателя</strong>, то доставка также выполняется только по электронной почте, но уже не одному, а нескольким получателям.
</li><li>Если выбраны <strong>Отчеты указанным получателям</strong>, то кроме доставки по почте появляется возможность сохранить (опубликовать) готовые отчеты. Для этого включите флажок <a name="Публиковать"><strong>Публикова</strong><strong>ть</strong></a> - признак необходимости публикации рассылки. Выберите соответствующее значение:
<ul><li><a name="ВПапку"><strong>В папку</strong></a> - отчеты будут сохранены в указанную <a href="Catalog.ПапкиФайлов.Form.ФормаЭлемента/Help">папку</a> подсистемы "Работа с файлами".
<ul><li><a name="ВПапку"><strong>В папку</strong></a> - отчеты будут сохранены в указанную <a href="Catalog.ПапкиФайлов.Form.ФормаЭлемента/Help">папку</a> подсистемы "Работа с файлами". С помощью этого способа доставки можно организовать регулярную архивацию отчетов в папку файлов (при этом отключив отправку по электронной почте);
</li><li><a name="ВПапкуНаДиске"><strong>В сетевой каталог</strong></a> - отчеты будут сохранены в выбранный сетевой каталог. Запись производится с сервера, поэтому рекомендуется указывать сетевой путь в формате UNC, например: <a href="file://\\server\folder\">\\server\folder\</a>. Укажите адрес этого каталога в поле Windows (если вы работаете на компьютере под управлением этой операционной системы) или в поле Linux (если вы работаете на компьютере под управлением Linux).
</li><li><a name="НаFTP"><strong>На FTP ресурс</strong></a> - отчеты будут сохранены на ftp-сервере. Заполните необходимые <a href="Catalog.РассылкиОтчетов.Form.ПараметрыFTP/Help">параметры</a>.</li></ul></li><li><a name="Проверить"><strong>Проверить</strong></a> - проверка публикации путем записи и удаления тестового файла. Тест считается успешным, если ошибок не возникло.
</li><li><a name="ОтправлятьПоЭлектроннойПочте"><strong>Отправлять по электронной почте</strong></a> - признак использования электронной почты для отправки отчетов (или уведомлений).
@@ -56,7 +56,9 @@
<div style="MARGIN-RIGHT: 0px"><strong>[ЗаголовокСистемы]</strong> - заголовок информационной базы 1С:Предприятие для всех пользователей. Устанавливается в разделе <strong>Администрирование - Общие настройки</strong>.</div>
</li><li>
<div style="MARGIN-RIGHT: 0px"><strong>[СпособДоставки]</strong> - представление ресурса, на котором был опубликован отчет.</div></li></ul></li><li>
<div style="MARGIN-RIGHT: 0px">По умолчанию установлен формат письма <strong>HTML</strong>, можно изменить его на <strong>Обычный</strong>. В формате HTML доступны стандартные команды форматирования текста (часть из них размещена в виде кнопок, остальные можно найти в меню <strong>Еще</strong>).</div></li></ul><h3>Дополнительно</h3>
<div style="MARGIN-RIGHT: 0px">По умолчанию установлен формат письма <strong>HTML</strong>, можно изменить его на <strong>Обычный</strong>. В формате HTML доступны стандартные команды форматирования текста (часть из них размещена в виде кнопок, остальные можно найти в меню <strong>Еще</strong>).</div>
</li><li>
<div style="MARGIN-RIGHT: 0px">С помощью соответствующего флажка можно <strong>Транслитерировать имена файлов</strong>. В этом случае сохраненные файлы будут иметь имена, содержащие только латинские буквы и цифры, для возможности переноса между различными операционными системами. Например, файл <strong>Отчет.mxl</strong> будет сохранен с именем <strong>Otchet.mxl</strong>.</div></li></ul><h3>Дополнительно</h3>
<ul><li><a name="Периодичность"><strong>Форматы сохранения отчетов (по умолчанию) - </strong>определяет форматы, в которых будут по умолчанию сохранены отчеты. </a><img src="StdPicture.InputFieldSelect"></img> Выберите общие форматы для всех отчетов с помощью флажков. Можно выбрать несколько форматов.
</li><li>В таблице ниже для каждого отчета можно задать свой набор форматов в колонке <strong>Форматы</strong>.
</li><li>В колонке <a name="ОтправлятьЕслиПустой"><strong>Отправлять пустой</strong></a> установите флажок для отправки сформированного отчета, даже если он пустой. По умолчанию флажок снят. Отчеты с графикой всегда считаются не пустыми.
SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Module.bsl
+125 -101
View File
@@ -353,10 +353,10 @@
// [2] Поиск незаполненных но обязательных для заполнения настроек.
// Анализ выполняется для СКД отчетов, если рассылка подготовлена.
ПроверитьОбязательные = Объект.Подготовлена;
// [3] Поиск персонализированных полей если эта рассылка не персонализирована.
// [3] Поиск персонализированных полей, если эта рассылка не персонализирована.
// Анализ выполняется для всех отчетов, если пользователь сменил вид рассылки с персонализированной на любой
// другой.
ПроверитьПерсонализированные = (Не Объект.Персонализирована И РассылкаБылаПерсонализирована);
РассылкаНеПерсонализирована = (Не Объект.Персонализирована И РассылкаБылаПерсонализирована);
Для Каждого СтрокаОтчеты Из Объект.Отчеты Цикл
ОбъектСтрокаОтчеты = ТекущийОбъект.Отчеты.Получить(СтрокаОтчеты.НомерСтроки-1);
@@ -368,13 +368,13 @@
// [1] Запись настроек.
ОбъектСтрокаОтчеты.Настройки = Новый ХранилищеЗначения(ПользовательскиеНастройки, Новый СжатиеДанных(9));
Если Не ПроверитьОбязательные И Не ПроверитьПерсонализированные Тогда
Если Не ПроверитьОбязательные И Не РассылкаНеПерсонализирована Тогда
Продолжить;
КонецЕсли;
Иначе
Если Не ПроверитьОбязательные И Не ПроверитьПерсонализированные Тогда
Если Не ПроверитьОбязательные И Не РассылкаНеПерсонализирована Тогда
Продолжить;
КонецЕсли;
@@ -390,11 +390,7 @@
// [2] и [3] Инициализация настроек.
ПараметрыОтчета = ИнициализироватьОтчет(СтрокаОтчеты, Истина, ПользовательскиеНастройки, Ложь);
НастройкиОтчета = ?(СтрокаОтчеты.СКД, ПараметрыОтчета.КомпоновщикНастроекКД, ПользовательскиеНастройки);
// [3] Заполнение переменных.
Если ПроверитьПерсонализированные Тогда
ОтчетПерсонализирован = Ложь;
КонецЕсли;
// [2] и [3] Анализ СКД отчетов.
Если СтрокаОтчеты.СКД Тогда
@@ -440,8 +436,6 @@
КонецЕсли;
КонецЕсли; // СтрокаОтчеты.СКД
// [3] Анализ обычных отчетов.
Если ПроверитьПерсонализированные Тогда
// [3] Анализ обычных отчетов.
Если ТипЗнч(НастройкиОтчета) = Тип("ТаблицаЗначений") Тогда
Найденные = НастройкиОтчета.НайтиСтроки(Новый Структура("Значение, Использование", "[Получатель]", Истина));
@@ -449,18 +443,25 @@
ОтчетПерсонализирован = Истина;
КонецЕсли;
КонецЕсли;
// [3] Вывод ошибки.
Если ОтчетПерсонализирован Тогда
Если РассылкаНеПерсонализирована И ОтчетПерсонализирован Тогда
Отказ = Истина;
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Для отчета ''%1'' задан отбор по получателям рассылки. Необходимо отключить отбор по получателям или изменить вид рассылки на ''Свой отчет для каждого получателя''.'"),
НСтр("ru = 'В настройках отчета ''%1'' задан отбор по получателю рассылки. Необходимо отключить этот отбор или изменить вид рассылки на ''Свой отчет для каждого получателя''.'"),
Строка(СтрокаОтчеты.Отчет));
Поле = "Отчеты["+ Формат(ТекущийОбъект.Отчеты.Индекс(ОбъектСтрокаОтчеты), "ЧН=0; ЧГ=0") +"].Представление";
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, ТекущийОбъект, Поле);
КонецЕсли;
Если Объект.Персонализирована И НЕ ОтчетПерсонализирован Тогда
Отказ = Истина;
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'В настройках отчета ""%1"" не указан отбор по получателю рассылки.'"),
Строка(СтрокаОтчеты.Отчет));
Поле = "Отчеты["+ Формат(ТекущийОбъект.Отчеты.Индекс(ОбъектСтрокаОтчеты), "ЧН=0; ЧГ=0") +"].Представление";
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения, ТекущийОбъект, Поле);
КонецЕсли;
КонецЦикла; // Для Каждого СтрокаОтчеты Из Объект.Отчеты Цикл
КонецЦикла;
ТекущийОбъект.КартинкиПисьмаВФорматеHTML = Неопределено;
Если ТекущийОбъект.ПисьмоВФорматеHTML Тогда
@@ -730,7 +731,7 @@
СтандартнаяОбработка = Ложь;
ПолныйАдрес = "ftp://"+ Объект.FTPСервер +":"+ Формат(Объект.FTPПорт, "ЧН=21; ЧГ=0") + Объект.FTPКаталог;
ОбщегоНазначенияКлиент.ПерейтиПоСсылке(ПолныйАдрес);
ОбщегоНазначенияКлиент.ОткрытьНавигационнуюСсылку(ПолныйАдрес);
КонецПроцедуры
@@ -1315,7 +1316,7 @@
КонецПроцедуры
&НаКлиенте
Процедура ИспользоватьПолучателяРассылкиВНастройкеОтчета(Команда)
Процедура УказатьПолучателяРассылки(Команда)
ОчиститьСообщения();
// Проверка - включена ли возможность персонализации рассылки.
@@ -1327,8 +1328,6 @@
Возврат;
КонецЕсли;
СКД = (Элементы.СтраницыНастроекОтчета.ТекущаяСтраница = Элементы.СтраницаКомпоновщик);
// Получение основного типа получателей.
КоличествоТипов = ТипПолучателейРассылки.Типы().Количество();
Если КоличествоТипов <> 1 И КоличествоТипов <> 2 Тогда
@@ -1336,12 +1335,6 @@
Возврат;
КонецЕсли;
Если СКД Тогда
Инициатор = Элементы.ПользовательскиеНастройки;
Иначе
Инициатор = Элементы.НастройкиТекущегоОтчета;
КонецЕсли;
НайденныеИОМД = ТаблицаТиповПолучателей.НайтиСтроки(Новый Структура("ТипПолучателей", ТипПолучателейРассылки));
Если НайденныеИОМД.Количество() <> 1 Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Тип получателей не найден'"));
@@ -1356,21 +1349,107 @@
ОсновнойТипПолучателей = МассивТипов[0];
Настройка = ОпределитьНастройку();
Если Настройка = Неопределено Тогда
Возврат;
КонецЕсли;
// Проверка на содержание типа получателей.
Если Не Настройка.ОписаниеДоступныхТипов.СодержитТип(ОсновнойТипПолучателей) Тогда
ТекстПредупреждения = НСтр("ru = 'Тип ""%1"" не подходит по типу к выбранной настройке.
|Необходимо выбрать другой тип получателей рассылки или другую настройку.'");
ТекстПредупреждения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстПредупреждения, Строка(ОсновнойТипПолучателей));
ПоказатьПредупреждение(, ТекстПредупреждения);
Возврат;
КонецЕсли;
Настройка.Инициатор.ЗакончитьРедактированиеСтроки(Ложь);
Настройка.СтрокаНастроек.Использование = Истина;
Если Настройка.СКД Тогда
Если Настройка.ЭтоЭлементОтбора Тогда
Если Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке
Или Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.ВИерархии
Или Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСпискеПоИерархии
Или Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСписке
Или Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВИерархии
Или Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСпискеПоИерархии Тогда
Настройка.СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
КонецЕсли;
Настройка.СтрокаНастроек.ПравоеЗначение = "[Получатель]";
Иначе
Настройка.СтрокаНастроек.Значение = "[Получатель]";
КонецЕсли;
Иначе
Настройка.СтрокаНастроек.Значение = "[Получатель]";
КонецЕсли;
РассылкаБылаПерсонализирована = Истина;
Элементы.Отчеты.ТекущиеДанные.ВнесеныИзменения = Истина;
Модифицированность = Истина;
КонецПроцедуры
&НаКлиенте
Процедура УдалитьПолучателяРассылки(Команда)
ОчиститьСообщения();
Настройка = ОпределитьНастройку();
Если Настройка = Неопределено Тогда
Возврат;
КонецЕсли;
Настройка.Инициатор.ЗакончитьРедактированиеСтроки(Ложь);
ВнесеныИзменения = Ложь;
Если Настройка.СКД Тогда
Если Настройка.ЭтоЭлементОтбора Тогда
Если Настройка.СтрокаНастроек.ПравоеЗначение = "[Получатель]" Тогда
Настройка.СтрокаНастроек.ПравоеЗначение = Неопределено;
ВнесеныИзменения = Истина;
КонецЕсли;
Иначе
Если Настройка.СтрокаНастроек.Значение = "[Получатель]" Тогда
Настройка.СтрокаНастроек.Значение = Неопределено;
ВнесеныИзменения = Истина;
КонецЕсли;
КонецЕсли;
Иначе
Если Настройка.СтрокаНастроек.Значение = "[Получатель]" Тогда
Настройка.СтрокаНастроек.Значение = Неопределено;
ВнесеныИзменения = Истина;
КонецЕсли;
КонецЕсли;
Если ВнесеныИзменения Тогда
Элементы.Отчеты.ТекущиеДанные.ВнесеныИзменения = Истина;
Модифицированность = Истина;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Функция ОпределитьНастройку()
СКД = (Элементы.СтраницыНастроекОтчета.ТекущаяСтраница = Элементы.СтраницаКомпоновщик);
Если СКД Тогда
Инициатор = Элементы.ПользовательскиеНастройки;
Иначе
Инициатор = Элементы.НастройкиТекущегоОтчета;
КонецЕсли;
// Получения описания типов, доступных для выбора.
Если СКД Тогда
// Идентификатор пользовательской настройки.
ИдентификаторНастройки = Инициатор.ТекущаяСтрока;
Если ИдентификаторНастройки = Неопределено Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Выберите настройку отчета'"));
Возврат;
ПоказатьПредупреждение(, НСтр("ru = 'Не выбрана настройка отчета.'"));
Возврат Неопределено;
КонецЕсли;
// Получение строки из состава настроек компоновки данных.
СтрокаНастроек = КомпоновщикНастроекКД.ПользовательскиеНастройки.ПолучитьОбъектПоИдентификатору(ИдентификаторНастройки);
Если СтрокаНастроек = Неопределено Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Настройка отчета не найдена'"));
Возврат;
ПоказатьПредупреждение(, НСтр("ru = 'Не выбрана настройка отчета.'"));
Возврат Неопределено;
КонецЕсли;
// Проверка типа настройки.
@@ -1379,17 +1458,15 @@
ИначеЕсли ТипЗнч(СтрокаНастроек) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда
ЭтоЭлементОтбора = Ложь;
Иначе
ПоказатьПредупреждение(, НСтр("ru = 'Указывать получателя можно только для параметров и отборов отчетов'"));
Возврат;
ПоказатьПредупреждение(, НСтр("ru = 'Указывать получателя можно только для параметров и отборов отчетов.'"));
Возврат Неопределено;
КонецЕсли;
// Поле компоновки данных.
Если ЭтоЭлементОтбора Тогда
Если ЗначениеЗаполнено(СтрокаНастроек.ЛевоеЗначение) Тогда
ПолеКД = СтрокаНастроек.ЛевоеЗначение;
Иначе
ПолеКД = ОпределитьПолеИзКомпоновщика(ИдентификаторНастройки, КомпоновщикНастроекКД.Настройки.Отбор.Элементы);
@@ -1398,21 +1475,18 @@
КонецЕсли;
Если ПолеКД = Неопределено Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Для настройки отчета не найдено описание доступного поля'"));
Возврат;
Возврат Неопределено;
КонецЕсли;
КонецЕсли;
ДоступноеПолеКД = КомпоновщикНастроекКД.Настройки.Отбор.ДоступныеПоляОтбора.НайтиПоле(ПолеКД);
Иначе
ДоступноеПолеКД = КомпоновщикНастроекКД.Настройки.ПараметрыДанных.ДоступныеПараметры.НайтиПараметр(СтрокаНастроек.Параметр);
КонецЕсли;
Если ДоступноеПолеКД = Неопределено Тогда
Возврат;
Возврат Неопределено;
КонецЕсли;
ОписаниеДоступныхТипов = ДоступноеПолеКД.ТипЗначения;
@@ -1421,48 +1495,22 @@
// Массив типов для произвольных отчетов.
СтрокаНастроек = Инициатор.ТекущиеДанные;
Если СтрокаНастроек = Неопределено Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Выберите настройку отчета'"));
Возврат;
ПоказатьПредупреждение(, НСтр("ru = 'Не выбрана настройка отчета.'"));
Возврат Неопределено;
КонецЕсли;
ОписаниеДоступныхТипов = СтрокаНастроек.Тип;
КонецЕсли;
// Проверка на содержание типа получателей.
Если Не ОписаниеДоступныхТипов.СодержитТип(ОсновнойТипПолучателей) Тогда
ТекстПредупреждения = НСтр("ru = 'Тип ""%1"" не подходит по типу к выбранной настройке.
|Необходимо выбрать другой тип получателей или другую настройку.'");
ТекстПредупреждения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстПредупреждения, Строка(ОсновнойТипПолучателей));
ПоказатьПредупреждение(, ТекстПредупреждения);
Возврат;
КонецЕсли;
Результат = Новый Структура;
Результат.Вставить("СКД", СКД);
Результат.Вставить("Инициатор", Инициатор);
Результат.Вставить("ОписаниеДоступныхТипов", ОписаниеДоступныхТипов);
Результат.Вставить("СтрокаНастроек", СтрокаНастроек);
Результат.Вставить("ЭтоЭлементОтбора", ЭтоЭлементОтбора);
Возврат Результат;
Инициатор.ЗакончитьРедактированиеСтроки(Ложь);
СтрокаНастроек.Использование = Истина;
Если СКД Тогда
Если ЭтоЭлементОтбора Тогда
Если СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке
Или СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.ВИерархии
Или СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСпискеПоИерархии
Или СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСписке
Или СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВИерархии
Или СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСпискеПоИерархии Тогда
СтрокаНастроек.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
КонецЕсли;
СтрокаНастроек.ПравоеЗначение = "[Получатель]";
Иначе
СтрокаНастроек.Значение = "[Получатель]";
КонецЕсли;
Иначе
СтрокаНастроек.Значение = "[Получатель]";
КонецЕсли;
РассылкаБылаПерсонализирована = Истина;
Элементы.Отчеты.ТекущиеДанные.ВнесеныИзменения = Истина;
Модифицированность = Истина;
КонецПроцедуры
КонецФункции
&НаКлиенте
Функция ОпределитьПолеИзКомпоновщика(ИдентификаторНастройки, Коллекция)
@@ -3461,41 +3509,17 @@
&НаКлиенте
Процедура СобытияРассылки()
ПараметрыФормыЖурналаРегистрации = ПараметрыФормыЖурналаРегистрации(Объект.Ссылка);
ПараметрыФормыЖурналаРегистрации = ПараметрыЖурналаРегистрации(Объект.Ссылка);
Если ПараметрыФормыЖурналаРегистрации = Неопределено Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Рассылка еще не выполнялась.'"));
Возврат;
КонецЕсли;
ОткрытьФорму("Обработка.ЖурналРегистрации.Форма", ПараметрыФормыЖурналаРегистрации, ЭтотОбъект);
КонецПроцедуры
&НаСервереБезКонтекста
Функция ПараметрыФормыЖурналаРегистрации(Рассылка)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Состояния.ПоследнийЗапуск,
| Состояния.НомерСеанса
|ИЗ
| РегистрСведений.СостоянияРассылокОтчетов КАК Состояния
|ГДЕ
| Состояния.Рассылка = &Рассылка";
Запрос.УстановитьПараметр("Рассылка", Рассылка);
УстановитьПривилегированныйРежим(Истина);
Выборка = Запрос.Выполнить().Выбрать();
Если Не Выборка.Следующий() Тогда
Возврат Неопределено;
КонецЕсли;
Результат = Новый Структура;
Результат.Вставить("ДатаНачала", Выборка.ПоследнийЗапуск);
Если Не ЗначениеЗаполнено(Выборка.НомерСеанса) Тогда
Результат.Вставить("Данные", Рассылка);
Иначе
Сеансы = Новый СписокЗначений;
Сеансы.Добавить(Выборка.НомерСеанса);
Результат.Вставить("Сеанс", Сеансы);
КонецЕсли;
Возврат Результат;
Функция ПараметрыЖурналаРегистрации(Рассылка)
Возврат РассылкаОтчетов.ПараметрыЖурналаРегистрации(Рассылка);
КонецФункции
#КонецОбласти
SSL/src/Catalogs/РассылкиОтчетов/ObjectModule.bsl
+2 -4
View File
@@ -16,7 +16,7 @@
Задание = РегламентныеЗадания.НайтиПоУникальномуИдентификатору(РегламентноеЗадание);
Если Задание = Неопределено Тогда
Задание = РегламентныеЗадания.СоздатьРегламентноеЗадание(Метаданные.РегламентныеЗадания.РассылкаОтчетов);
Задание.ИмяПользователя = РассылкаОтчетов.ПолучитьИмяПользователяИБ(Автор);
Задание.ИмяПользователя = РассылкаОтчетов.ИмяПользователяИБ(Автор);
Задание.Использование = Ложь;
Задание.Наименование = ПредставлениеЗаданияПоРассылке(Наименование);
Задание.Записать();
@@ -54,7 +54,6 @@
УстановитьПривилегированныйРежим(Истина);
ОбщегоНазначения.УдалитьДанныеИзБезопасногоХранилища(Ссылка);
УстановитьПривилегированныйРежим(Ложь);
КонецПроцедуры
Процедура ПриКопировании(ОбъектКопирования)
@@ -96,7 +95,7 @@
ЗаданиеИзменено = Истина;
КонецЕсли;
ИмяПользователя = РассылкаОтчетов.ПолучитьИмяПользователяИБ(Автор);
ИмяПользователя = РассылкаОтчетов.ИмяПользователяИБ(Автор);
Если Задание.ИмяПользователя <> ИмяПользователя Тогда
Задание.ИмяПользователя = ИмяПользователя;
ЗаданиеИзменено = Истина;
@@ -119,7 +118,6 @@
Задание.Записать();
КонецЕсли;
КонецЕсли;
УстановитьПривилегированныйРежим(Ложь);
КонецПроцедуры
SSL/src/Catalogs/РолиИсполнителей/Forms/ФормаСписка/Module.bsl
+1
View File
@@ -24,6 +24,7 @@
#Область СлужебныеПроцедурыИФункции
&НаСервере
Процедура НастроитьОтображениеСпискаРолей()
Если ПолучитьФункциональнуюОпцию("ИспользоватьВнешнихПользователей") Тогда
SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Module.bsl
+1 -1
View File
@@ -583,8 +583,8 @@
КонецЦикла;
ЗафиксироватьТранзакцию();
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
ОтменитьТранзакцию();
ИнформацияОбОшибке = ИнформацияОбОшибке();
Ошибка.Вставить("ОписаниеОшибки", НСтр("ru = 'При очистке сертификатов шифрования возникла ошибка:'")
+ Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
КонецПопытки;
SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ШифрованиеДанных/Module.bsl
+1 -1
View File
@@ -950,8 +950,8 @@
КонецЦикла;
ЗафиксироватьТранзакцию();
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
ОтменитьТранзакцию();
ИнформацияОбОшибке = ИнформацияОбОшибке();
Ошибка.Вставить("ОписаниеОшибки", НСтр("ru = 'При записи сертификатов шифрования возникла ошибка:'")
+ Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
КонецПопытки;
SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/СертификатыКлючейЭлектроннойПодписиИШифрования.mdo
+1 -1
View File
@@ -441,7 +441,7 @@
<value>Уточняет, что пароль к закрытому ключу сертификата будет вводиться в отдельном окне
программой электронной подписи и шифрования, а не программой 1С:Предприятие.
Только для сертификатов, которые выпущены с усиленной защитой закрытого ключа.</value>
Только для закрытых ключей сертификатов, для которых в ОС включена усиленная защита.</value>
</toolTip>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
SSL/src/Catalogs/СтраныМира/Forms/Классификатор/Form.form
+50
View File
@@ -191,6 +191,39 @@
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>КлассификаторУчастникЕАЭС</name>
<id>84</id>
<visible>true</visible>
<enabled>false</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Классификатор.УчастникЕАЭС</segments>
</dataPath>
<extendedTooltip>
<name>КлассификаторУчастникЕАЭСРасширеннаяПодсказка</name>
<id>86</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>CheckBoxField</type>
<editMode>Auto</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:CheckBoxFieldExtInfo"/>
</items>
<items xsi:type="form:FormField">
<name>КлассификаторНаименованиеПолное</name>
<id>24</id>
@@ -994,6 +1027,23 @@
<common>true</common>
</edit>
</columns>
<columns>
<name>УчастникЕАЭС</name>
<title>
<key>ru</key>
<value>Участник ЕАЭС</value>
</title>
<id>6</id>
<valueType>
<types>Boolean</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</columns>
</attributes>
<attributes>
<name>ПоляКлассификатора</name>
SSL/src/Catalogs/СтраныМира/Forms/Классификатор/Module.bsl
+1 -1
View File
@@ -18,7 +18,7 @@
ЗакрыватьПриВыборе = РежимВыбора;
// Служебные реквизиты
ПоляКлассификатора = "Код, Наименование, НаименованиеПолное, КодАльфа2, КодАльфа3";
ПоляКлассификатора = "Код, Наименование, НаименованиеПолное, КодАльфа2, КодАльфа3, УчастникЕАЭС";
Мета = Метаданные.Справочники.СтраныМира;
ПредставлениеОбъектаКлассификатора = Мета.РасширенноеПредставлениеОбъекта;
Loaded 100 of 641 files, more files were not shown because too many files have changed in this diff. Show more