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

#40 выгрузка истории хранилища с помощью Tool_1CD

Browse Source
This commit is contained in:
Anton Ivanov 2017-07-06 14:20:17 +03:00
parent 48dc84af87
commit 4b0690a230
26 changed files with 4827 additions and 241 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form.xml
View File

@ -1599,6 +1599,15 @@
</CheckBoxField>
</ChildItems>
</UsualGroup>
<InputField name="КонфигурацияОтбор" id="485">
<DataPath>КонфигурацияОтбор</DataPath>
<ClearButton>true</ClearButton>
<ContextMenu name="КонфигурацияОтборКонтекстноеМеню" id="486"/>
<ExtendedTooltip name="КонфигурацияОтборРасширеннаяПодсказка" id="487"/>
<Events>
<Event name="OnChange">КонфигурацияОтборПриИзменении</Event>
</Events>
</InputField>
<Pages name="ГруппаСтраницыИзменненыеОбъекты" id="245">
<Title>
<v8:item>
@ -1714,6 +1723,11 @@
<Event name="OnStartEdit">ИзмененныеОбъектыПриНачалеРедактирования</Event>
</Events>
<ChildItems>
<LabelField name="ИзмененныеОбъектыКонфигурация" id="488">
<DataPath>ИзмененныеОбъекты.Конфигурация</DataPath>
<ContextMenu name="ИзмененныеОбъектыКонфигурацияКонтекстноеМеню" id="489"/>
<ExtendedTooltip name="ИзмененныеОбъектыКонфигурацияРасширеннаяПодсказка" id="490"/>
</LabelField>
<LabelField name="ИзмененныеОбъектыВерсия" id="214">
<DataPath>ИзмененныеОбъекты.Версия</DataPath>
<ContextMenu name="ИзмененныеОбъектыВерсияКонтекстноеМеню" id="215"/>
@ -1835,6 +1849,11 @@
<ExtendedTooltip name="ИзмененныеОбъектыСписокУправлениеПоискомРасширеннаяПодсказка" id="263"/>
</SearchControlAddition>
<ChildItems>
<LabelField name="ИзмененныеОбъектыСписокКонфигурация" id="491">
<DataPath>ИзмененныеОбъектыСписок.Конфигурация</DataPath>
<ContextMenu name="ИзмененныеОбъектыСписокКонфигурацияКонтекстноеМеню" id="492"/>
<ExtendedTooltip name="ИзмененныеОбъектыСписокКонфигурацияРасширеннаяПодсказка" id="493"/>
</LabelField>
<LabelField name="ИзмененныеОбъектыСписокПолноеИмяМетаданных" id="264">
<DataPath>ИзмененныеОбъектыСписок.ПолноеИмяМетаданных</DataPath>
<ContextMenu name="ИзмененныеОбъектыСписокПолноеИмяМетаданныхКонтекстноеМеню" id="265"/>
@ -1926,12 +1945,18 @@
узИсторияКонфигурацийИзмененныеОбъекты.ИдентификаторОбъектаМетаданных.ПорядокКоллекции КАК ПорядокКоллекции,
узИсторияКонфигурацийИзмененныеОбъекты.ИдентификаторОбъектаМетаданных.ПолноеИмяМетаданных КАК ПолноеИмяМетаданных,
узИсторияКонфигурацийИзмененныеОбъекты.ИдентификаторОбъектаМетаданных.Наименование,
узИсторияКонфигурацийИзмененныеОбъекты.Ссылка.Задача
узИсторияКонфигурацийИзмененныеОбъекты.Ссылка.Задача,
узИсторияКонфигурацийИзмененныеОбъекты.Ссылка.Владелец КАК Конфигурация
ИЗ
Справочник.узИсторияКонфигураций.ИзмененныеОбъекты КАК узИсторияКонфигурацийИзмененныеОбъекты
ГДЕ
узИсторияКонфигурацийИзмененныеОбъекты.Ссылка.Задача В ИЕРАРХИИ(&amp;Задача)
И НЕ &amp;ЭтоНовый</QueryText>
И НЕ &amp;ЭтоНовый
И ВЫБОР
КОГДА &amp;ИспользоватьОтборПоКонфигурации
ТОГДА узИсторияКонфигурацийИзмененныеОбъекты.Ссылка.Владелец = &amp;КонфигурацияОтбор
ИНАЧЕ ИСТИНА
КОНЕЦ</QueryText>
<ListSettings>
<dcsset:filter>
<dcsset:viewMode>Normal</dcsset:viewMode>
@ -1993,12 +2018,18 @@
<DynamicDataRead>false</DynamicDataRead>
<QueryText>ВЫБРАТЬ РАЗЛИЧНЫЕ
узИсторияКонфигурацийИзмененныеОбъекты.ИдентификаторОбъектаМетаданных.ПорядокКоллекции КАК ПорядокКоллекции,
ПОДСТРОКА(узИсторияКонфигурацийИзмененныеОбъекты.ИдентификаторОбъектаМетаданных.ПолноеИмяМетаданных,1,1000) КАК ПолноеИмяМетаданных
ПОДСТРОКА(узИсторияКонфигурацийИзмененныеОбъекты.ИдентификаторОбъектаМетаданных.ПолноеИмяМетаданных, 1, 1000) КАК ПолноеИмяМетаданных,
узИсторияКонфигурацийИзмененныеОбъекты.Ссылка.Владелец КАК Конфигурация
ИЗ
Справочник.узИсторияКонфигураций.ИзмененныеОбъекты КАК узИсторияКонфигурацийИзмененныеОбъекты
ГДЕ
узИсторияКонфигурацийИзмененныеОбъекты.Ссылка.Задача В ИЕРАРХИИ(&amp;Задача)
И НЕ &amp;ЭтоНовый</QueryText>
И НЕ &amp;ЭтоНовый
И ВЫБОР
КОГДА &amp;ИспользоватьОтборПоКонфигурации
ТОГДА узИсторияКонфигурацийИзмененныеОбъекты.Ссылка.Владелец = &amp;КонфигурацияОтбор
ИНАЧЕ ИСТИНА
КОНЕЦ</QueryText>
<ListSettings>
<dcsset:filter>
<dcsset:viewMode>Normal</dcsset:viewMode>
@ -2105,6 +2136,17 @@
</v8:StringQualifiers>
</Type>
</Attribute>
<Attribute name="КонфигурацияОтбор" id="10">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Отбор по конфигурации</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>cfg:CatalogRef.узКонфигурации</v8:Type>
</Type>
</Attribute>
</Attributes>
<Commands>
<Command name="КомандаПоказатьСкрытьКомментарии" id="1">

10
src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl
View File

@ -336,8 +336,13 @@
Процедура УстановитьПараметрыИзмененныеОбъекты()
ИзмененныеОбъекты.Параметры.УстановитьЗначениеПараметра("Задача",Объект.Ссылка);
ИзмененныеОбъекты.Параметры.УстановитьЗначениеПараметра("ЭтоНовый",Объект.Ссылка.Пустая());
ИзмененныеОбъекты.Параметры.УстановитьЗначениеПараметра("ИспользоватьОтборПоКонфигурации",ЗначениеЗаполнено(КонфигурацияОтбор));
ИзмененныеОбъекты.Параметры.УстановитьЗначениеПараметра("КонфигурацияОтбор",КонфигурацияОтбор);
ИзмененныеОбъектыСписок.Параметры.УстановитьЗначениеПараметра("Задача",Объект.Ссылка);
ИзмененныеОбъектыСписок.Параметры.УстановитьЗначениеПараметра("ЭтоНовый",Объект.Ссылка.Пустая());
ИзмененныеОбъектыСписок.Параметры.УстановитьЗначениеПараметра("ИспользоватьОтборПоКонфигурации",ЗначениеЗаполнено(КонфигурацияОтбор));
ИзмененныеОбъектыСписок.Параметры.УстановитьЗначениеПараметра("КонфигурацияОтбор",КонфигурацияОтбор);
КонецПроцедуры
&НаСервере
@ -1004,6 +1009,11 @@
КомандаMDДобавитьШаблон(ТекстMD);
КонецПроцедуры
&НаКлиенте
Процедура КонфигурацияОтборПриИзменении(Элемент)
УстановитьПараметрыИзмененныеОбъекты();
КонецПроцедуры

39
src/cf/Catalogs/узКонфигурации.xml
View File

@ -539,6 +539,45 @@
<FullTextSearch>Use</FullTextSearch>
</Properties>
</Attribute>
<Attribute uuid="2d4d6f5e-632c-4f86-a05b-abdf8a4ae46e">
<Properties>
<Name>ИспользоватьАльтернативнуюЗагрузкуДанныхИзХранилища</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Использовать альтернативную загрузку данных из хранилища</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
<Use>ForItem</Use>
<Indexing>DontIndex</Indexing>
<FullTextSearch>Use</FullTextSearch>
</Properties>
</Attribute>
<Form>ФормаЭлемента</Form>
</ChildObjects>
</Catalog>

304
src/cf/Catalogs/узКонфигурации/Forms/ФормаЭлемента/Ext/Form.xml
View File

@ -27,18 +27,35 @@
</InputField>
</ChildItems>
</UsualGroup>
<CheckBoxField name="ПолучатьИзмененияИзХранилища" id="10">
<DataPath>Объект.ПолучатьИзмененияИзХранилища</DataPath>
<TitleLocation>Right</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<EditMode>EnterOnInput</EditMode>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ПолучатьИзмененияИзХранилищаКонтекстноеМеню" id="11"/>
<ExtendedTooltip name="ПолучатьИзмененияИзХранилищаРасширеннаяПодсказка" id="12"/>
<Events>
<Event name="OnChange">ПолучатьИзмененияИзХранилищаПриИзменении</Event>
</Events>
</CheckBoxField>
<UsualGroup name="Группа7" id="84">
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа7РасширеннаяПодсказка" id="85"/>
<ChildItems>
<CheckBoxField name="ПолучатьИзмененияИзХранилища" id="10">
<DataPath>Объект.ПолучатьИзмененияИзХранилища</DataPath>
<TitleLocation>Right</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<EditMode>EnterOnInput</EditMode>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ПолучатьИзмененияИзХранилищаКонтекстноеМеню" id="11"/>
<ExtendedTooltip name="ПолучатьИзмененияИзХранилищаРасширеннаяПодсказка" id="12"/>
<Events>
<Event name="OnChange">ПолучатьИзмененияИзХранилищаПриИзменении</Event>
</Events>
</CheckBoxField>
<CheckBoxField name="ИспользоватьАльтернативнуюЗагрузкуДанныхИзХранилища" id="74">
<DataPath>Объект.ИспользоватьАльтернативнуюЗагрузкуДанныхИзХранилища</DataPath>
<TitleLocation>Right</TitleLocation>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ИспользоватьАльтернативнуюЗагрузкуДанныхИзХранилищаКонтекстноеМеню" id="75"/>
<ExtendedTooltip name="ИспользоватьАльтернативнуюЗагрузкуДанныхИзХранилищаРасширеннаяПодсказка" id="76"/>
<Events>
<Event name="OnChange">ИспользоватьАльтернативнуюЗагрузкуДанныхИзХранилищаПриИзменении</Event>
</Events>
</CheckBoxField>
</ChildItems>
</UsualGroup>
<UsualGroup name="ГруппаНастройкиДляПолученияИзмененийИзХранилища" id="60">
<Title>
<v8:item>
@ -56,127 +73,164 @@
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="ГруппаНастройкиДляПолученияИзмененийИзХранилищаРасширеннаяПодсказка" id="61"/>
<ChildItems>
<InputField name="Приложение1с" id="13">
<DataPath>Объект.Приложение1с</DataPath>
<TitleLocation>Top</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<EditMode>EnterOnInput</EditMode>
<AutoMaxWidth>false</AutoMaxWidth>
<ChoiceButton>true</ChoiceButton>
<ContextMenu name="Приложение1сКонтекстноеМеню" id="14"/>
<ExtendedTooltip name="Приложение1сРасширеннаяПодсказка" id="15"/>
<Events>
<Event name="StartChoice">Приложения1сНачалоВыбора</Event>
</Events>
</InputField>
<UsualGroup name="Группа2" id="45">
<Group>Vertical</Group>
<UsualGroup name="Группа8" id="82">
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа2РасширеннаяПодсказка" id="46"/>
<ExtendedTooltip name="Группа8РасширеннаяПодсказка" id="83"/>
<ChildItems>
<UsualGroup name="Группа5" id="62">
<Group>Horizontal</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа5РасширеннаяПодсказка" id="63"/>
<ChildItems>
<UsualGroup name="Группа3" id="47">
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа3РасширеннаяПодсказка" id="48"/>
<ChildItems>
<InputField name="КаталогТранзитнойБазы" id="36">
<DataPath>Объект.КаталогТранзитнойБазы</DataPath>
<TitleLocation>Top</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<ChoiceButton>true</ChoiceButton>
<ContextMenu name="КаталогТранзитнойБазыКонтекстноеМеню" id="37"/>
<ExtendedTooltip name="КаталогТранзитнойБазыРасширеннаяПодсказка" id="38"/>
<Events>
<Event name="StartChoice">КаталогТранзитнойБазыНачалоВыбора</Event>
</Events>
</InputField>
<InputField name="ПользовательТранзитнойБазы" id="39">
<DataPath>Объект.ПользовательТранзитнойБазы</DataPath>
<TitleLocation>Top</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<ContextMenu name="ПользовательТранзитнойБазыКонтекстноеМеню" id="40"/>
<ExtendedTooltip name="ПользовательТранзитнойБазыРасширеннаяПодсказка" id="41"/>
</InputField>
<InputField name="ПарольПользователяВТранзитнуюБазу" id="42">
<DataPath>Объект.ПарольПользователяВТранзитнуюБазу</DataPath>
<TitleLocation>Top</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<ContextMenu name="ПарольПользователяВТранзитнуюБазуКонтекстноеМеню" id="43"/>
<ExtendedTooltip name="ПарольПользователяВТранзитнуюБазуРасширеннаяПодсказка" id="44"/>
</InputField>
</ChildItems>
</UsualGroup>
<UsualGroup name="Группа4" id="49">
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа4РасширеннаяПодсказка" id="50"/>
<ChildItems>
<InputField name="КаталогХранилища" id="51">
<DataPath>Объект.КаталогХранилища</DataPath>
<TitleLocation>Top</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<ChoiceButton>true</ChoiceButton>
<ContextMenu name="КаталогХранилищаКонтекстноеМеню" id="52"/>
<ExtendedTooltip name="КаталогХранилищаРасширеннаяПодсказка" id="53"/>
<Events>
<Event name="StartChoice">КаталогХранилищаНачалоВыбора</Event>
</Events>
</InputField>
<InputField name="ПользовательХранилища" id="54">
<DataPath>Объект.ПользовательХранилища</DataPath>
<TitleLocation>Top</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<ContextMenu name="ПользовательХранилищаКонтекстноеМеню" id="55"/>
<ExtendedTooltip name="ПользовательХранилищаРасширеннаяПодсказка" id="56"/>
</InputField>
<InputField name="ПарольПользователяВХранилище" id="57">
<DataPath>Объект.ПарольПользователяВХранилище</DataPath>
<TitleLocation>Top</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<ContextMenu name="ПарольПользователяВХранилищеКонтекстноеМеню" id="58"/>
<ExtendedTooltip name="ПарольПользователяВХранилищеРасширеннаяПодсказка" id="59"/>
</InputField>
</ChildItems>
</UsualGroup>
</ChildItems>
</UsualGroup>
<InputField name="СтрокаЗапускаКонфигуратора" id="64">
<DataPath>1/0:afeb4591-947b-4c5c-b01c-dc5ce0bf2347</DataPath>
<ReadOnly>true</ReadOnly>
<AutoMaxWidth>false</AutoMaxWidth>
<ContextMenu name="СтрокаЗапускаКонфигуратораКонтекстноеМеню" id="65"/>
<ExtendedTooltip name="СтрокаЗапускаКонфигуратораРасширеннаяПодсказка" id="66"/>
<InputField name="КаталогХранилищаАльтернатива" id="77">
<DataPath>Объект.КаталогХранилища</DataPath>
<TitleLocation>Top</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<ChoiceButton>true</ChoiceButton>
<ContextMenu name="КаталогХранилищаАльтернативаКонтекстноеМеню" id="78"/>
<ExtendedTooltip name="КаталогХранилищаАльтернативаРасширеннаяПодсказка" id="79"/>
<Events>
<Event name="StartChoice">КаталогХранилищаНачалоВыбора</Event>
</Events>
</InputField>
<UsualGroup name="Группа6" id="72">
<Group>Horizontal</Group>
</ChildItems>
</UsualGroup>
<UsualGroup name="ГруппаТиповаяВыгрузкаИзХранилища" id="80">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа типовая выгрузка из хранилища</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа типовая выгрузка из хранилища</v8:content>
</v8:item>
</ToolTip>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="ГруппаТиповаяВыгрузкаИзХранилищаРасширеннаяПодсказка" id="81"/>
<ChildItems>
<InputField name="Приложение1с" id="13">
<DataPath>Объект.Приложение1с</DataPath>
<TitleLocation>Top</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<EditMode>EnterOnInput</EditMode>
<AutoMaxWidth>false</AutoMaxWidth>
<ChoiceButton>true</ChoiceButton>
<ContextMenu name="Приложение1сКонтекстноеМеню" id="14"/>
<ExtendedTooltip name="Приложение1сРасширеннаяПодсказка" id="15"/>
<Events>
<Event name="StartChoice">Приложения1сНачалоВыбора</Event>
</Events>
</InputField>
<UsualGroup name="Группа2" id="45">
<Group>Vertical</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа6РасширеннаяПодсказка" id="73"/>
<ExtendedTooltip name="Группа2РасширеннаяПодсказка" id="46"/>
<ChildItems>
<InputField name="КаталогДляЗагрузкиИзмененийИзХранилща" id="67">
<DataPath>1/0:bdf4488c-a73b-4b5e-badd-ab121971c7a0</DataPath>
<Visible>false</Visible>
<TitleLocation>Top</TitleLocation>
<ChoiceButton>true</ChoiceButton>
<ContextMenu name="КаталогДляЗагрузкиИзмененийИзХранилщаКонтекстноеМеню" id="68"/>
<ExtendedTooltip name="КаталогДляЗагрузкиИзмененийИзХранилщаРасширеннаяПодсказка" id="69"/>
<Events>
<Event name="StartChoice">КаталогДляЗагрузкиИзмененийИзХранилщаНачалоВыбора</Event>
</Events>
<UsualGroup name="Группа5" id="62">
<Group>Horizontal</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа5РасширеннаяПодсказка" id="63"/>
<ChildItems>
<UsualGroup name="Группа3" id="47">
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа3РасширеннаяПодсказка" id="48"/>
<ChildItems>
<InputField name="КаталогТранзитнойБазы" id="36">
<DataPath>Объект.КаталогТранзитнойБазы</DataPath>
<TitleLocation>Top</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<ChoiceButton>true</ChoiceButton>
<ContextMenu name="КаталогТранзитнойБазыКонтекстноеМеню" id="37"/>
<ExtendedTooltip name="КаталогТранзитнойБазыРасширеннаяПодсказка" id="38"/>
<Events>
<Event name="StartChoice">КаталогТранзитнойБазыНачалоВыбора</Event>
</Events>
</InputField>
<InputField name="ПользовательТранзитнойБазы" id="39">
<DataPath>Объект.ПользовательТранзитнойБазы</DataPath>
<TitleLocation>Top</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<ContextMenu name="ПользовательТранзитнойБазыКонтекстноеМеню" id="40"/>
<ExtendedTooltip name="ПользовательТранзитнойБазыРасширеннаяПодсказка" id="41"/>
</InputField>
<InputField name="ПарольПользователяВТранзитнуюБазу" id="42">
<DataPath>Объект.ПарольПользователяВТранзитнуюБазу</DataPath>
<TitleLocation>Top</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<ContextMenu name="ПарольПользователяВТранзитнуюБазуКонтекстноеМеню" id="43"/>
<ExtendedTooltip name="ПарольПользователяВТранзитнуюБазуРасширеннаяПодсказка" id="44"/>
</InputField>
</ChildItems>
</UsualGroup>
<UsualGroup name="Группа4" id="49">
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа4РасширеннаяПодсказка" id="50"/>
<ChildItems>
<InputField name="КаталогХранилища" id="51">
<DataPath>Объект.КаталогХранилища</DataPath>
<TitleLocation>Top</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<ChoiceButton>true</ChoiceButton>
<ContextMenu name="КаталогХранилищаКонтекстноеМеню" id="52"/>
<ExtendedTooltip name="КаталогХранилищаРасширеннаяПодсказка" id="53"/>
<Events>
<Event name="StartChoice">КаталогХранилищаНачалоВыбора</Event>
</Events>
</InputField>
<InputField name="ПользовательХранилища" id="54">
<DataPath>Объект.ПользовательХранилища</DataPath>
<TitleLocation>Top</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<ContextMenu name="ПользовательХранилищаКонтекстноеМеню" id="55"/>
<ExtendedTooltip name="ПользовательХранилищаРасширеннаяПодсказка" id="56"/>
</InputField>
<InputField name="ПарольПользователяВХранилище" id="57">
<DataPath>Объект.ПарольПользователяВХранилище</DataPath>
<TitleLocation>Top</TitleLocation>
<ToolTipRepresentation>Button</ToolTipRepresentation>
<ContextMenu name="ПарольПользователяВХранилищеКонтекстноеМеню" id="58"/>
<ExtendedTooltip name="ПарольПользователяВХранилищеРасширеннаяПодсказка" id="59"/>
</InputField>
</ChildItems>
</UsualGroup>
</ChildItems>
</UsualGroup>
<InputField name="СтрокаЗапускаКонфигуратора" id="64">
<DataPath>1/0:afeb4591-947b-4c5c-b01c-dc5ce0bf2347</DataPath>
<ReadOnly>true</ReadOnly>
<AutoMaxWidth>false</AutoMaxWidth>
<ContextMenu name="СтрокаЗапускаКонфигуратораКонтекстноеМеню" id="65"/>
<ExtendedTooltip name="СтрокаЗапускаКонфигуратораРасширеннаяПодсказка" id="66"/>
</InputField>
<Button name="КомандаСоздатьCMDФайлДляПланировщикаЗаданий" id="70">
<Type>UsualButton</Type>
<Visible>false</Visible>
<CommandName>Form.Command.КомандаСоздатьVBSФайлДляПланировщикаЗаданий</CommandName>
<ExtendedTooltip name="КомандаСоздатьCMDФайлДляПланировщикаЗаданийРасширеннаяПодсказка" id="71"/>
</Button>
<UsualGroup name="Группа6" id="72">
<Group>Horizontal</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа6РасширеннаяПодсказка" id="73"/>
<ChildItems>
<InputField name="КаталогДляЗагрузкиИзмененийИзХранилща" id="67">
<DataPath>1/0:bdf4488c-a73b-4b5e-badd-ab121971c7a0</DataPath>
<Visible>false</Visible>
<TitleLocation>Top</TitleLocation>
<ChoiceButton>true</ChoiceButton>
<ContextMenu name="КаталогДляЗагрузкиИзмененийИзХранилщаКонтекстноеМеню" id="68"/>
<ExtendedTooltip name="КаталогДляЗагрузкиИзмененийИзХранилщаРасширеннаяПодсказка" id="69"/>
<Events>
<Event name="StartChoice">КаталогДляЗагрузкиИзмененийИзХранилщаНачалоВыбора</Event>
</Events>
</InputField>
<Button name="КомандаСоздатьCMDФайлДляПланировщикаЗаданий" id="70">
<Type>UsualButton</Type>
<Visible>false</Visible>
<CommandName>Form.Command.КомандаСоздатьVBSФайлДляПланировщикаЗаданий</CommandName>
<ExtendedTooltip name="КомандаСоздатьCMDФайлДляПланировщикаЗаданийРасширеннаяПодсказка" id="71"/>
</Button>
</ChildItems>
</UsualGroup>
</ChildItems>
</UsualGroup>
</ChildItems>

15
src/cf/Catalogs/узКонфигурации/Forms/ФормаЭлемента/Ext/Form/Module.bsl
View File

@ -7,8 +7,18 @@
&НаСервере
Процедура УстановитьВидимостьДоступность()
Элементы.ГруппаНастройкиДляПолученияИзмененийИзХранилища.Видимость = Ложь;
Элементы.ГруппаТиповаяВыгрузкаИзХранилища.Видимость = Ложь;
Элементы.КаталогХранилищаАльтернатива.Видимость = Ложь;
Элементы.ИспользоватьАльтернативнуюЗагрузкуДанныхИзХранилища.Видимость = Ложь;
Если Объект.ПолучатьИзмененияИзХранилища Тогда
Элементы.ГруппаНастройкиДляПолученияИзмененийИзХранилища.Видимость = Истина;
Элементы.ИспользоватьАльтернативнуюЗагрузкуДанныхИзХранилища.Видимость = Истина;
Если НЕ Объект.ИспользоватьАльтернативнуюЗагрузкуДанныхИзХранилища Тогда
Элементы.ГруппаТиповаяВыгрузкаИзХранилища.Видимость = Истина;
Иначе
Элементы.КаталогХранилищаАльтернатива.Видимость = Истина;
Конецесли;
Конецесли;
КонецПроцедуры
@ -125,3 +135,8 @@
//РезультатФункции = ОбрОбъект.ПолучитьНастройкиЗапускаКонфигуратора(ФайлВыгрузкиИзменений);
//Возврат РезультатФункции.ТекстКоманды;
КонецФункции
&НаКлиенте
Процедура ИспользоватьАльтернативнуюЗагрузкуДанныхИзХранилищаПриИзменении(Элемент)
УстановитьВидимостьДоступность();
КонецПроцедуры

277
src/cf/DataProcessors/узЗагрузкаИзмененийИзХранилища/Ext/ObjectModule.bsl
View File

@ -5,21 +5,11 @@
Функция ЗагрузитьИзмененияИзХранилища(АдресФайлаПолученныйНаКлиенте = Неопределено,ФайлВыгрузкиИзменений = Неопределено) Экспорт
СоздатьСтруктурумТЗПоискКэш();
Если ФайлВыгрузкиИзменений = Неопределено Тогда
Если АдресФайлаПолученныйНаКлиенте = Неопределено Тогда
ФайлВыгрузкиИзменений = ВыгрузитьИзмененияИзХранилища();
Иначе
ФайлВыгрузкиИзменений = КаталогВременныхФайлов() + ПолучитьИмяФайлаДляВыгрузки();
ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресФайлаПолученныйНаКлиенте);
ДвоичныеДанные.Записать(ФайлВыгрузкиИзменений);
Конецесли;
Конецесли;
РезультатЗагрузки = ПолучитьТЗИсторияХранилища(АдресФайлаПолученныйНаКлиенте,ФайлВыгрузкиИзменений);
ТабДокИсторияХранилища = Новый ТабличныйДокумент();
ТабДокИсторияХранилища.Прочитать(ФайлВыгрузкиИзменений);
ТЗИсторияХранилища = ПолучитьТЗИсторияХранилища(ТабДокИсторияХранилища);
УдалитьФайлы(ФайлВыгрузкиИзменений);
ТЗИсторияХранилища = РезультатЗагрузки.ТЗИсторияХранилища;
ТабДокИсторияХранилища = РезультатЗагрузки.ТабДокИсторияХранилища;
РезультатЗагрузки = Неопределено;
ЗаполнитьмТЗСвойстваМетаданных();
@ -46,6 +36,168 @@
Возврат РезультатФункции;
КонецФункции
Функция ПолучитьТЗИсторияХранилища(АдресФайлаПолученныйНаКлиенте,ФайлВыгрузкиИзменений)
Если Конфигурация.ИспользоватьАльтернативнуюЗагрузкуДанныхИзХранилища Тогда
Возврат ПолучитьТЗИсторияХранилища_АльтернативнаяВыгрузка();
Иначе
Возврат ПолучитьТЗИсторияХранилища_ТиповаяВыгрузка(АдресФайлаПолученныйНаКлиенте,ФайлВыгрузкиИзменений);
Конецесли;
КонецФункции
Функция ПолучитьТЗИсторияХранилища_ТиповаяВыгрузка(АдресФайлаПолученныйНаКлиенте,ФайлВыгрузкиИзменений)
Если ФайлВыгрузкиИзменений = Неопределено Тогда
Если АдресФайлаПолученныйНаКлиенте = Неопределено Тогда
ФайлВыгрузкиИзменений = ВыгрузитьИзмененияИзХранилища();
Иначе
ФайлВыгрузкиИзменений = КаталогВременныхФайлов() + ПолучитьИмяФайлаДляВыгрузки();
ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресФайлаПолученныйНаКлиенте);
ДвоичныеДанные.Записать(ФайлВыгрузкиИзменений);
Конецесли;
Конецесли;
ТабДокИсторияХранилища = Новый ТабличныйДокумент();
ТабДокИсторияХранилища.Прочитать(ФайлВыгрузкиИзменений);
//ТЗИсторияХранилища = ПолучитьТЗИсторияХранилища_ТиповаяВыгрузка(ТабДокИсторияХранилища);
УдалитьФайлы(ФайлВыгрузкиИзменений);
ТЗИсторияХранилища = ПолучитьОписаниеТЗИсторияХранилища();
ИмяПоля_Версия = "Версия:";
ИмяПоля_Пользователь = "Пользователь:";
ИмяПоля_ДатаСоздания = "Дата создания:";
ИмяПоля_ВремяСоздания = "Время создания:";
ИмяПоля_Комментарий = "Комментарий:";
ИмяПоля_Добавлены = "Добавлены:";
ИмяПоля_Изменены = "Изменены:";
ИмяПоля_Удалены = "Удалены:";
ВидыИзменений_Добавлен = ПредопределенноеЗначение("Перечисление.узВидыИзменений.Добавлен");
ВидыИзменений_Удален = ПредопределенноеЗначение("Перечисление.узВидыИзменений.Удален");
ВидыИзменений_Изменен = ПредопределенноеЗначение("Перечисление.узВидыИзменений.Изменен");
Ряд = 0;
пДатаВерсии = Неопределено;
ТекстДатаСоздания = Неопределено;
ТекущийВидИзменения = Неопределено;
Пока ТабДокИсторияХранилища.ВысотаТаблицы >= Ряд Цикл
Ряд = Ряд + 1;
ЗначениеЯчейкиКолонка1 = СокрЛП(ТабДокИсторияХранилища.Область(Ряд,1).Текст);
ЗначениеЯчейкиКолонка2 = СокрЛП(ТабДокИсторияХранилища.Область(Ряд,2).Текст);
Если ТекущийВидИзменения = Неопределено
И НЕ ЗначениеЗаполнено(ЗначениеЯчейкиКолонка1) Тогда
Продолжить;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_Версия) Тогда
пДатаВерсии = Неопределено;
ТекстДатаСоздания = Неопределено;
ТекущийВидИзменения = Неопределено;
ТЗИзмененныеОбъекты = ПолучитьОписаниеТЗИсторияХранилища();
//ТЗИзмененныеОбъекты.Колонки.Добавить("ВидИзменения",Новый ОписаниеТипов("ПеречислениеСсылка.узВидыИзменений"));
//ТЗИзмененныеОбъекты.Колонки.Добавить("ТекстИдентификатораОбъектаМетаданных",Новый ОписаниеТипов("Строка"));
//ТЗИзмененныеОбъекты.Колонки.Добавить("ИдентификаторОбъектаМетаданных",Новый ОписаниеТипов("СправочникСсылка.узИдентификаторыОбъектовМетаданныхКонфигурации"));
СтрокаТЗИсторияХранилища = ТЗИсторияХранилища.Добавить();
СтрокаТЗИсторияХранилища.Версия = Число(ЗначениеЯчейкиКолонка2);
СтрокаТЗИсторияХранилища.ТЗИзмененныеОбъекты = ТЗИзмененныеОбъекты;
Продолжить;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_Пользователь) Тогда
СтрокаТЗИсторияХранилища.ПользовательХранилища = ЗначениеЯчейкиКолонка2;
Продолжить;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_ДатаСоздания) Тогда
ТекстДатаСоздания = ЗначениеЯчейкиКолонка2;
Продолжить;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_ВремяСоздания) Тогда
ТекстВремяСоздания = ЗначениеЯчейкиКолонка2;
пДатаВерсии = Неопределено;
пДатаВерсии = Дата(ТекстДатаСоздания +" " +ТекстВремяСоздания);
СтрокаТЗИсторияХранилища.ДатаВерсии = пДатаВерсии;
Продолжить;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_Комментарий) Тогда
СтрокаТЗИсторияХранилища.Комментарий = ЗначениеЯчейкиКолонка2;
Продолжить;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_Добавлены) Тогда
ТекущийВидИзменения = ВидыИзменений_Добавлен;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_Изменены) Тогда
ТекущийВидИзменения = ВидыИзменений_Изменен;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_Удалены) Тогда
ТекущийВидИзменения = ВидыИзменений_Удален;
Конецесли;
Если ТекущийВидИзменения <> Неопределено
И ЗначениеЗаполнено(ЗначениеЯчейкиКолонка2) Тогда
ДобавитьВТЗИзмененныеОбъекты(ТЗИзмененныеОбъекты,ТекущийВидИзменения,ЗначениеЯчейкиКолонка2);
Продолжить;
Конецесли;
КонецЦикла;
РезультатФункции = Новый Структура();
РезультатФункции.Вставить("ТЗИсторияХранилища",ТЗИсторияХранилища);
РезультатФункции.Вставить("ТабДокИсторияХранилища",ТабДокИсторияХранилища);
Возврат РезультатФункции;
КонецФункции
Функция ПолучитьТЗИсторияХранилища_АльтернативнаяВыгрузка()
ТЗИсторияХранилищаСтруктура = ПолучитьОписаниеТЗИсторияХранилища();
ТЗИзмененныеОбъектыСтруктура = ПолучитьОписаниеТЗИзмененныеОбъекты();
ОбработкаИсторияХранилища = Обработки.узПросмотрИсторииХранилища.Создать();
ОбработкаИсторияХранилища.ВерсияС = ВерсияС;
ОбработкаИсторияХранилища.ВерсияПо = ВерсияПо;
ОбработкаИсторияХранилища.ВыводитьОтладочныеСообщения = Ложь;
ОбработкаИсторияХранилища.КаталогХранилища = Конфигурация.КаталогХранилища;
ДопПараметры = Новый Структура();
ДопПараметры.Вставить("ТЗИсторияХранилищаСтруктура",ТЗИсторияХранилищаСтруктура);
ДопПараметры.Вставить("ТЗИзмененныеОбъектыСтруктура",ТЗИзмененныеОбъектыСтруктура);
ТЗИсторияХранилища = ОбработкаИсторияХранилища.ПолучитьТЗИсторияХранилища(ДопПараметры);
ОбработкаИсторияХранилища = Неопределено;
РезультатФункции = Новый Структура();
РезультатФункции.Вставить("ТЗИсторияХранилища",ТЗИсторияХранилища);
РезультатФункции.Вставить("ТабДокИсторияХранилища",Неопределено);
Возврат РезультатФункции;
КонецФункции
Функция ПолучитьОписаниеТЗИсторияХранилища() Экспорт
ТЗИсторияХранилища = Новый ТаблицаЗначений;
ТЗИсторияХранилища.Колонки.Добавить("Версия", Новый ОписаниеТипов("Число"));
ТЗИсторияХранилища.Колонки.Добавить("ДатаВерсии", Новый ОписаниеТипов("Дата"));
ТЗИсторияХранилища.Колонки.Добавить("ПользовательХранилища", Новый ОписаниеТипов("Строка"));
ТЗИсторияХранилища.Колонки.Добавить("Пользователь", Новый ОписаниеТипов("СправочникСсылка.Пользователи"));
ТЗИсторияХранилища.Колонки.Добавить("Комментарий", Новый ОписаниеТипов("Строка"));
ТЗИсторияХранилища.Колонки.Добавить("Задача", Новый ОписаниеТипов("СправочникСсылка.узЗадачи"));
ТЗИсторияХранилища.Колонки.Добавить("ТЗИзмененныеОбъекты");
Возврат ТЗИсторияХранилища;
КонецФункции
Функция ПолучитьОписаниеТЗИзмененныеОбъекты() Экспорт
ТЗИзмененныеОбъекты = Новый ТаблицаЗначений;
ТЗИзмененныеОбъекты.Колонки.Добавить("ВидИзменения",Новый ОписаниеТипов("ПеречислениеСсылка.узВидыИзменений"));
ТЗИзмененныеОбъекты.Колонки.Добавить("ТекстИдентификатораОбъектаМетаданных",Новый ОписаниеТипов("Строка"));
ТЗИзмененныеОбъекты.Колонки.Добавить("ИдентификаторОбъектаМетаданных",Новый ОписаниеТипов("СправочникСсылка.узИдентификаторыОбъектовМетаданныхКонфигурации"));
Возврат ТЗИзмененныеОбъекты;
КонецФункции
Процедура ЗаполнитьмТЗСвойстваМетаданных() Экспорт
мТЗСвойстваМетаданных = Новый ТаблицаЗначений;
мТЗСвойстваМетаданных.Колонки.Добавить("Родитель");
@ -289,8 +441,6 @@
ДобавитьВКомандуКлючЗначение(ТекстКоманды, "-NEnd", Формат(ВерсияПо, "ЧН=; ЧГ=0"));
КонецЕсли;
ДобавитьВКомандуКлючЗначение(ТекстКоманды, "-GroupByComment");
РезультатФункции = Новый Структура();
РезультатФункции.Вставить("ТекстКоманды",ТекстКоманды);
РезультатФункции.Вставить("ФайлВыгрузкиИзменений",ФайлВыгрузкиИзменений);
@ -338,101 +488,6 @@
КонецФункции
Функция ПолучитьТЗИсторияХранилища(ТабДокИсторияХранилища)
ТЗИсторияХранилища = Новый ТаблицаЗначений;
ТЗИсторияХранилища.Колонки.Добавить("Версия", Новый ОписаниеТипов("Число"));
ТЗИсторияХранилища.Колонки.Добавить("ДатаВерсии", Новый ОписаниеТипов("Дата"));
ТЗИсторияХранилища.Колонки.Добавить("ПользовательХранилища", Новый ОписаниеТипов("Строка"));
ТЗИсторияХранилища.Колонки.Добавить("Пользователь", Новый ОписаниеТипов("СправочникСсылка.Пользователи"));
ТЗИсторияХранилища.Колонки.Добавить("Комментарий", Новый ОписаниеТипов("Строка"));
ТЗИсторияХранилища.Колонки.Добавить("Задача", Новый ОписаниеТипов("СправочникСсылка.узЗадачи"));
ТЗИсторияХранилища.Колонки.Добавить("ТЗИзмененныеОбъекты");
ИмяПоля_Версия = "Версия:";
ИмяПоля_Пользователь = "Пользователь:";
ИмяПоля_ДатаСоздания = "Дата создания:";
ИмяПоля_ВремяСоздания = "Время создания:";
ИмяПоля_Комментарий = "Комментарий:";
ИмяПоля_Добавлены = "Добавлены:";
ИмяПоля_Изменены = "Изменены:";
ИмяПоля_Удалены = "Удалены:";
ВидыИзменений_Добавлен = ПредопределенноеЗначение("Перечисление.узВидыИзменений.Добавлен");
ВидыИзменений_Удален = ПредопределенноеЗначение("Перечисление.узВидыИзменений.Удален");
ВидыИзменений_Изменен = ПредопределенноеЗначение("Перечисление.узВидыИзменений.Изменен");
Ряд = 0;
пДатаВерсии = Неопределено;
ТекстДатаСоздания = Неопределено;
ТекущийВидИзменения = Неопределено;
Пока ТабДокИсторияХранилища.ВысотаТаблицы >= Ряд Цикл
Ряд = Ряд + 1;
ЗначениеЯчейкиКолонка1 = СокрЛП(ТабДокИсторияХранилища.Область(Ряд,1).Текст);
ЗначениеЯчейкиКолонка2 = СокрЛП(ТабДокИсторияХранилища.Область(Ряд,2).Текст);
Если ТекущийВидИзменения = Неопределено
И НЕ ЗначениеЗаполнено(ЗначениеЯчейкиКолонка1) Тогда
Продолжить;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_Версия) Тогда
пДатаВерсии = Неопределено;
ТекстДатаСоздания = Неопределено;
ТекущийВидИзменения = Неопределено;
ТЗИзмененныеОбъекты = Новый ТаблицаЗначений;
ТЗИзмененныеОбъекты.Колонки.Добавить("ВидИзменения",Новый ОписаниеТипов("ПеречислениеСсылка.узВидыИзменений"));
ТЗИзмененныеОбъекты.Колонки.Добавить("ТекстИдентификатораОбъектаМетаданных",Новый ОписаниеТипов("Строка"));
ТЗИзмененныеОбъекты.Колонки.Добавить("ИдентификаторОбъектаМетаданных",Новый ОписаниеТипов("СправочникСсылка.узИдентификаторыОбъектовМетаданныхКонфигурации"));
СтрокаТЗИсторияХранилища = ТЗИсторияХранилища.Добавить();
СтрокаТЗИсторияХранилища.Версия = Число(ЗначениеЯчейкиКолонка2);
СтрокаТЗИсторияХранилища.ТЗИзмененныеОбъекты = ТЗИзмененныеОбъекты;
Продолжить;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_Пользователь) Тогда
СтрокаТЗИсторияХранилища.ПользовательХранилища = ЗначениеЯчейкиКолонка2;
Продолжить;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_ДатаСоздания) Тогда
ТекстДатаСоздания = ЗначениеЯчейкиКолонка2;
Продолжить;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_ВремяСоздания) Тогда
ТекстВремяСоздания = ЗначениеЯчейкиКолонка2;
пДатаВерсии = Неопределено;
пДатаВерсии = Дата(ТекстДатаСоздания +" " +ТекстВремяСоздания);
СтрокаТЗИсторияХранилища.ДатаВерсии = пДатаВерсии;
Продолжить;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_Комментарий) Тогда
СтрокаТЗИсторияХранилища.Комментарий = ЗначениеЯчейкиКолонка2;
Продолжить;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_Добавлены) Тогда
ТекущийВидИзменения = ВидыИзменений_Добавлен;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_Изменены) Тогда
ТекущийВидИзменения = ВидыИзменений_Изменен;
Конецесли;
Если ВЗначенииЯчейкиЕстьПодстрока(ЗначениеЯчейкиКолонка1,ИмяПоля_Удалены) Тогда
ТекущийВидИзменения = ВидыИзменений_Удален;
Конецесли;
Если ТекущийВидИзменения <> Неопределено
И ЗначениеЗаполнено(ЗначениеЯчейкиКолонка2) Тогда
ДобавитьВТЗИзмененныеОбъекты(ТЗИзмененныеОбъекты,ТекущийВидИзменения,ЗначениеЯчейкиКолонка2);
Продолжить;
Конецесли;
КонецЦикла;
Возврат ТЗИсторияХранилища;
КонецФункции
Функция ПолучитьПользователя(СтрокаТЗИсторияХранилища)
Перем пПользователь;

15
src/cf/DataProcessors/узЗагрузкаИзмененийИзХранилища/Forms/Форма/Ext/Form/Module.bsl
View File

@ -1,14 +1,27 @@

&НаКлиенте
Процедура КомандаЗагрузитьИзмененияИзХранилища(Команда)
ВремяНачала=ТекущаяДата();
Если НЕ ПроверитьЗаполнение() Тогда
Возврат;
Конецесли;
Если НЕ ПолучатьИзмененияИзХранилища(Объект.Конфигурация) Тогда
Сообщить("Ошибка! в конфигурации не настроена загрузка изменений из хранилища");
Конецесли;
РезультатФункции = ЗагрузитьИзмененияИзХранилищаНаСервере();
РезультатФункции.ТабДокОтчет.Показать("Загруженная история хранилища");
ТабДокОтчет = РезультатФункции.ТабДокОтчет;
Если ТабДокОтчет <> Неопределено Тогда
ТабДокОтчет.Показать("Загруженная история хранилища");
Конецесли;
ВремяКонца=ТекущаяДата();
Сообщить("------------------------------------------------------------------");
Сообщить("ВремяНачала -"+ВремяНачала);
Сообщить("ВремяКонца -"+ВремяКонца);
Сообщить("Общее время выполнения - "+ОКР(((ВремяКонца-ВремяНачала)/60),2) +" мин.");
Сообщить("------------------------------------------------------------------");
КонецПроцедуры
&НаСервере

751
src/cf/DataProcessors/узПросмотрИсторииХранилища.xml Normal file
View File

@ -0,0 +1,751 @@
<?xml version="1.0" encoding="UTF-8"?>
<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" 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:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.2">
<DataProcessor uuid="3d0f93fd-d4b1-4e70-addb-6e2c2aea37e9">
<InternalInfo>
<xr:GeneratedType name="DataProcessorObject.узПросмотрИсторииХранилища" category="Object">
<xr:TypeId>1f8e8bf9-1ec6-4ce0-a44c-ea03c62f9dfb</xr:TypeId>
<xr:ValueId>7ff66dca-140c-4a13-8c3b-3cfe3c5352ca</xr:ValueId>
</xr:GeneratedType>
<xr:GeneratedType name="DataProcessorManager.узПросмотрИсторииХранилища" category="Manager">
<xr:TypeId>66c35861-83cc-4eba-baf1-eaca84ff8938</xr:TypeId>
<xr:ValueId>e51e2691-4622-46dd-9937-ec4b36bb7e7a</xr:ValueId>
</xr:GeneratedType>
</InternalInfo>
<Properties>
<Name>узПросмотрИсторииХранилища</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Просмотр истории хранилища</v8:content>
</v8:item>
</Synonym>
<Comment/>
<UseStandardCommands>true</UseStandardCommands>
<DefaultForm>DataProcessor.узПросмотрИсторииХранилища.Form.Форма</DefaultForm>
<AuxiliaryForm/>
<IncludeHelpInContents>false</IncludeHelpInContents>
<ExtendedPresentation/>
<Explanation/>
</Properties>
<ChildObjects>
<Attribute uuid="4f1f8a0c-c38c-4d79-9bda-931c8a28e0f6">
<Properties>
<Name>КаталогХранилища</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Каталог хранилища</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>1C Repository Folder</v8:content>
</v8:item>
<v8:item>
<v8:lang>ro</v8:lang>
<v8:content>1C Repository Folder</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Каталог хранилища
Например: D:\Dev\Storage\</v8:content>
</v8:item>
</ToolTip>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="77c833b2-6f69-4d2e-a98c-20451b3aa27f">
<Properties>
<Name>ВерсияС</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>С</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:decimal</v8:Type>
<v8:NumberQualifiers>
<v8:Digits>10</v8:Digits>
<v8:FractionDigits>0</v8:FractionDigits>
<v8:AllowedSign>Nonnegative</v8:AllowedSign>
</v8:NumberQualifiers>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="604d43de-8d5e-4846-8f66-5c7df156d7af">
<Properties>
<Name>ВерсияПо</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>по</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>To</v8:content>
</v8:item>
<v8:item>
<v8:lang>ro</v8:lang>
<v8:content>Până la</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:decimal</v8:Type>
<v8:NumberQualifiers>
<v8:Digits>10</v8:Digits>
<v8:FractionDigits>0</v8:FractionDigits>
<v8:AllowedSign>Nonnegative</v8:AllowedSign>
</v8:NumberQualifiers>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="8eb33027-33ea-4598-a5d1-49b198556771">
<Properties>
<Name>ВыводитьОтладочныеСообщения</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Выводить отладочные сообщения</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<TabularSection uuid="80e96b3a-4d92-4c5c-8c47-bc61e10ac83a">
<InternalInfo>
<xr:GeneratedType name="DataProcessorTabularSection.узПросмотрИсторииХранилища.ИсторияХранилища" category="TabularSection">
<xr:TypeId>c2fd8e87-ff20-4b42-ab72-0948ef045cf8</xr:TypeId>
<xr:ValueId>d36a76ba-26dc-4d67-bdf9-d31d7936b0b3</xr:ValueId>
</xr:GeneratedType>
<xr:GeneratedType name="DataProcessorTabularSectionRow.узПросмотрИсторииХранилища.ИсторияХранилища" category="TabularSectionRow">
<xr:TypeId>e5f43456-35b4-4ce1-ba31-7126960037c9</xr:TypeId>
<xr:ValueId>a5ceaa8c-91cd-4d21-9a1f-313c666fc000</xr:ValueId>
</xr:GeneratedType>
</InternalInfo>
<Properties>
<Name>ИсторияХранилища</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>История хранилища</v8:content>
</v8:item>
</Synonym>
<Comment/>
<ToolTip/>
<FillChecking>DontCheck</FillChecking>
<StandardAttributes>
<xr:StandardAttribute name="LineNumber">
<xr:LinkByType/>
<xr:FillChecking>DontCheck</xr:FillChecking>
<xr:MultiLine>false</xr:MultiLine>
<xr:FillFromFillingValue>false</xr:FillFromFillingValue>
<xr:CreateOnInput>Auto</xr:CreateOnInput>
<xr:MaxValue xsi:nil="true"/>
<xr:ToolTip/>
<xr:ExtendedEdit>false</xr:ExtendedEdit>
<xr:Format/>
<xr:ChoiceForm/>
<xr:QuickChoice>Auto</xr:QuickChoice>
<xr:ChoiceHistoryOnInput>Auto</xr:ChoiceHistoryOnInput>
<xr:EditFormat/>
<xr:PasswordMode>false</xr:PasswordMode>
<xr:MarkNegatives>false</xr:MarkNegatives>
<xr:MinValue xsi:nil="true"/>
<xr:Synonym/>
<xr:Comment/>
<xr:FullTextSearch>Use</xr:FullTextSearch>
<xr:ChoiceParameterLinks/>
<xr:FillValue xsi:nil="true"/>
<xr:Mask/>
<xr:ChoiceParameters/>
</xr:StandardAttribute>
</StandardAttributes>
</Properties>
<ChildObjects>
<Attribute uuid="c0e7f416-fa86-43ca-91cb-2293db063083">
<Properties>
<Name>Версия</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Версия</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Version</v8:content>
</v8:item>
<v8:item>
<v8:lang>ro</v8:lang>
<v8:content>Versiune</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:decimal</v8:Type>
<v8:NumberQualifiers>
<v8:Digits>10</v8:Digits>
<v8:FractionDigits>0</v8:FractionDigits>
<v8:AllowedSign>Nonnegative</v8:AllowedSign>
</v8:NumberQualifiers>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="91d8ffa8-af3e-4b16-b85d-e3c4e78c22bc">
<Properties>
<Name>ДатаВерсии</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Дата версии</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Version date</v8:content>
</v8:item>
<v8:item>
<v8:lang>ro</v8:lang>
<v8:content>Data versiunii</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:dateTime</v8:Type>
<v8:DateQualifiers>
<v8:DateFractions>DateTime</v8:DateFractions>
</v8:DateQualifiers>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="c469f881-d0f9-421a-8000-99b38dd74610">
<Properties>
<Name>ПользовательХранилища</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Пользователь хранилища</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>User storage</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>150</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:type="xs:string"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="a69de5d8-8847-4fbd-8b2d-906db2f0e642">
<Properties>
<Name>Комментарий</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Комментарий</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Comment</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:type="xs:string"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="0e3381d4-95cb-4dda-baf1-6084d36cdb9e">
<Properties>
<Name>Пользователь</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Пользователь</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>User</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>cfg:CatalogRef.Пользователи</v8:Type>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="6838cf6d-3a27-493b-96c9-f6b5e5b2e3cf">
<Properties>
<Name>Задача</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Задача</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Task</v8:content>
</v8:item>
<v8:item>
<v8:lang>ro</v8:lang>
<v8:content>Task</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>cfg:CatalogRef.узЗадачи</v8:Type>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
</ChildObjects>
</TabularSection>
<TabularSection uuid="b9de4d74-e455-4dba-a6b8-a84923e64c4b">
<InternalInfo>
<xr:GeneratedType name="DataProcessorTabularSection.узПросмотрИсторииХранилища.ИзмененныеОбъекты" category="TabularSection">
<xr:TypeId>4ce2c007-fa38-402a-999a-587817a92ba3</xr:TypeId>
<xr:ValueId>a1f78f2b-c90c-4836-979b-b2b80f260237</xr:ValueId>
</xr:GeneratedType>
<xr:GeneratedType name="DataProcessorTabularSectionRow.узПросмотрИсторииХранилища.ИзмененныеОбъекты" category="TabularSectionRow">
<xr:TypeId>8ba0485f-0708-4de6-8f60-b4a6846e749c</xr:TypeId>
<xr:ValueId>d280e032-4929-4500-9c4b-50dfb78e794e</xr:ValueId>
</xr:GeneratedType>
</InternalInfo>
<Properties>
<Name>ИзмененныеОбъекты</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Измененные объекты</v8:content>
</v8:item>
</Synonym>
<Comment/>
<ToolTip/>
<FillChecking>DontCheck</FillChecking>
<StandardAttributes>
<xr:StandardAttribute name="LineNumber">
<xr:LinkByType/>
<xr:FillChecking>DontCheck</xr:FillChecking>
<xr:MultiLine>false</xr:MultiLine>
<xr:FillFromFillingValue>false</xr:FillFromFillingValue>
<xr:CreateOnInput>Auto</xr:CreateOnInput>
<xr:MaxValue xsi:nil="true"/>
<xr:ToolTip/>
<xr:ExtendedEdit>false</xr:ExtendedEdit>
<xr:Format/>
<xr:ChoiceForm/>
<xr:QuickChoice>Auto</xr:QuickChoice>
<xr:ChoiceHistoryOnInput>Auto</xr:ChoiceHistoryOnInput>
<xr:EditFormat/>
<xr:PasswordMode>false</xr:PasswordMode>
<xr:MarkNegatives>false</xr:MarkNegatives>
<xr:MinValue xsi:nil="true"/>
<xr:Synonym/>
<xr:Comment/>
<xr:FullTextSearch>Use</xr:FullTextSearch>
<xr:ChoiceParameterLinks/>
<xr:FillValue xsi:nil="true"/>
<xr:Mask/>
<xr:ChoiceParameters/>
</xr:StandardAttribute>
</StandardAttributes>
</Properties>
<ChildObjects>
<Attribute uuid="c59f55f5-4e24-4aa2-b0ce-3ecb01744994">
<Properties>
<Name>Версия</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Версия</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Version</v8:content>
</v8:item>
<v8:item>
<v8:lang>ro</v8:lang>
<v8:content>Versiune</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:decimal</v8:Type>
<v8:NumberQualifiers>
<v8:Digits>10</v8:Digits>
<v8:FractionDigits>0</v8:FractionDigits>
<v8:AllowedSign>Nonnegative</v8:AllowedSign>
</v8:NumberQualifiers>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="5297ff7d-1c12-4d42-9f3c-37eaa8497fea">
<Properties>
<Name>ВидИзменения</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Вид изменения</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Type of change</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>cfg:EnumRef.узВидыИзменений</v8:Type>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="b7394eeb-c7e1-4340-bed7-746f74e076b7">
<Properties>
<Name>ТекстИдентификатораОбъектаМетаданных</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Текст идентификатора объекта метаданных</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:type="xs:string"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="a946341c-0c94-4fd7-93f0-7e82748caf84">
<Properties>
<Name>ИдентификаторОбъектаМетаданных</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Идентификатор объекта метаданных</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>Metadata object identifier</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>cfg:CatalogRef.узИдентификаторыОбъектовМетаданныхКонфигурации</v8:Type>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
</ChildObjects>
</TabularSection>
<Form>Форма</Form>
<Template>cTool_1CD</Template>
<Template>ИменаКлассов</Template>
</ChildObjects>
</DataProcessor>
</MetaDataObject>

621
src/cf/DataProcessors/узПросмотрИсторииХранилища/Ext/ObjectModule.bsl Normal file
View File

@ -0,0 +1,621 @@
Перем мТЗHistory;
Перем мТЗUsers;
Перем мТЗVersions;
Перем мТЗObjects;
Перем мТЗИменаКлассов;
Перем мИмяКлассаОбъекта_Конфигурация;
Функция ПолучитьТЗИсторияХранилища(ДопПараметры) Экспорт
//ВызватьИсключение "Ошибка! Нет алгоритма ";
//ДопПараметры = Новый Структура();
//ДопПараметры.Вставить("ТЗИсторияХранилища",ТЗИсторияХранилища);
//ДопПараметры.Вставить("ТЗИзмененныеОбъектыСтруктура",ТЗИзмененныеОбъектыСтруктура);
ЗагрузитьИсторию();
ТЗИсторияХранилищаСтруктура = ДопПараметры.ТЗИсторияХранилищаСтруктура;
ТЗИзмененныеОбъектыСтруктура = ДопПараметры.ТЗИзмененныеОбъектыСтруктура;
ТЗИсторияХранилища = ТЗИсторияХранилищаСтруктура.СкопироватьКолонки();
Для каждого СтрокаИсторияХранилища из ИсторияХранилища цикл
пВерсия = СтрокаИсторияХранилища.Версия;
СтрокаТЗИсторияХранилища = ТЗИсторияХранилища.Добавить();
СтрокаТЗИсторияХранилища.Версия = пВерсия;
СтрокаТЗИсторияХранилища.ДатаВерсии = СтрокаИсторияХранилища.ДатаВерсии;
СтрокаТЗИсторияХранилища.ПользовательХранилища = СтрокаИсторияХранилища.ПользовательХранилища;
СтрокаТЗИсторияХранилища.Комментарий = СтрокаИсторияХранилища.Комментарий;
ПараметрыОтбора=Новый Структура();
ПараметрыОтбора.Вставить("Версия",пВерсия);
НайденныеСтрокиИзмененныеОбъекты = ИзмененныеОбъекты.НайтиСтроки(ПараметрыОтбора);
ВсегоНайденныеСтроки = НайденныеСтрокиИзмененныеОбъекты.Количество();
ТекстОшибки = "";
Если ВсегоНайденныеСтроки = 0 Тогда
ТекстОшибки = "Ошибка! Не найдена строка";
Конецесли;
Если ЗначениеЗаполнено(ТекстОшибки) Тогда
ТекстОшибки = ТекстОшибки
+" в ""ИзмененныеОбъекты"" для ";
Для каждого ЭлементОтбора из ПараметрыОтбора цикл
ТекстОшибки = ТекстОшибки
+" "+ ЭлементОтбора.Ключ + " = "+ЭлементОтбора.Значение;
Конеццикла;
ВызватьИсключение ТекстОшибки;
Конецесли;
ТЗИзмененныеОбъекты = ТЗИзмененныеОбъектыСтруктура.СкопироватьКолонки();
Для каждого СтрокаИзмененныеОбъекты из НайденныеСтрокиИзмененныеОбъекты цикл
СтрокаТЗИзмененныеОбъекты = ТЗИзмененныеОбъекты.Добавить();
СтрокаТЗИзмененныеОбъекты.ВидИзменения = СтрокаИзмененныеОбъекты.ВидИзменения;
СтрокаТЗИзмененныеОбъекты.ТекстИдентификатораОбъектаМетаданных = СтрокаИзмененныеОбъекты.ТекстИдентификатораОбъектаМетаданных;
Конеццикла;
Конеццикла;
Возврат ТЗИсторияХранилища;
КонецФункции
Процедура ЗагрузитьИсторию() Экспорт
ВремяНачала=ТекущаяДата();
мТЗHistory = Неопределено;
мТЗUsers = Неопределено;
мТЗVersions = Неопределено;
мТЗObjects = Неопределено;
ЗагрузитьДанныеВТЗИзХранилища();
ВывестиСообщение("Заполнение ТЧ Обработки");
мТЗИменаКлассов = ПолучитьТЗИменаКлассов();
ЗаполнитьТЧОбработки();
//СоединитьТаблицыТЗHistoryИТЗOBJECTS(мТЗHistory,мТЗObjects);
мТЗHistory = Неопределено;
мТЗUsers = Неопределено;
мТЗVersions = Неопределено;
мТЗObjects = Неопределено;
мТЗИменаКлассов = Неопределено;
ВремяКонца=ТекущаяДата();
ВывестиСообщение("------------------------------------------------------------------");
ВывестиСообщение("ВремяНачала -"+ВремяНачала);
ВывестиСообщение("ВремяКонца -"+ВремяКонца);
ВывестиСообщение("Общее время выполнения - "+ОКР(((ВремяКонца-ВремяНачала)/60),2) +" мин.");
ВывестиСообщение("------------------------------------------------------------------");
КонецПроцедуры
Процедура ЗагрузитьДанныеВТЗИзХранилища()
РезультатВыгрузки = ВыгрузитьТаблицыХранилищаВФайлы();
ДопПараметры = Новый Структура();
ДопПараметры.Вставить("ИмяПространстваИмен","http://localhost/узHISTORYXDTO");
ДопПараметры.Вставить("ИмяТаблицы","HISTORY");
ДопПараметры.Вставить("ИмяФайлаДляЗагрузки",РезультатВыгрузки.ИмяФайлаHISTORY);
мТЗHistory = ПолучитьТЗИзФайла(ДопПараметры);
ДопПараметры = Новый Структура();
ДопПараметры.Вставить("ИмяПространстваИмен","http://localhost/узUSERSXDTO");
ДопПараметры.Вставить("ИмяТаблицы","USERS");
ДопПараметры.Вставить("ИмяФайлаДляЗагрузки",РезультатВыгрузки.ИмяФайлаUSERS);
мТЗUsers = ПолучитьТЗИзФайла(ДопПараметры);
ДопПараметры = Новый Структура();
ДопПараметры.Вставить("ИмяПространстваИмен","http://localhost/узVERSIONSXDTO");
ДопПараметры.Вставить("ИмяТаблицы","VERSIONS");
ДопПараметры.Вставить("ИмяФайлаДляЗагрузки",РезультатВыгрузки.ИмяФайлаVERSIONS);
мТЗVersions = ПолучитьТЗИзФайла(ДопПараметры);
ДопПараметры = Новый Структура();
ДопПараметры.Вставить("ИмяПространстваИмен","http://localhost/узOBJECTSXDTO");
ДопПараметры.Вставить("ИмяТаблицы","OBJECTS");
ДопПараметры.Вставить("ИмяФайлаДляЗагрузки",РезультатВыгрузки.ИмяФайлаOBJECTS);
мТЗObjects = ПолучитьТЗИзФайла(ДопПараметры);
УдалитьВременныеФайлы(РезультатВыгрузки);
КонецПроцедуры
Функция ЗаполнитьТЧОбработки()
ИсторияХранилища.Очистить();
ИзмененныеОбъекты.Очистить();
//ТЗИсторияХранилища = ИсторияХранилища.ВыгрузитьКолонки();
//ИзмененныеОбъекты = ИзмененныеОбъекты.ВыгрузитьКолонки();
пВерсияПо = ВерсияПо;
Если пВерсияПо = 0 Тогда
пВерсияПо = 9999999999;
Конецесли;
Для каждого СтрокамТЗVersions из мТЗVersions цикл
пVERNUM = СтрокамТЗVersions.VERNUM;
Если ВерсияС <= пVERNUM
И пVERNUM <= пВерсияПо Тогда
Иначе
Продолжить;
Конецесли;
СтрокаИсторияХранилища = ИсторияХранилища.Добавить();
СтрокаИсторияХранилища.Версия = пVERNUM;
СтрокаИсторияХранилища.ДатаВерсии = СтрокамТЗVersions.VERDATE;
пUSERID = СтрокамТЗVersions.USERID;
СтрокаИсторияХранилища.ПользовательХранилища = ПолучитьПользователяХранилища(пUSERID);
СтрокаИсторияХранилища.Комментарий = СтрокамТЗVersions.COMMENT;
ПараметрыОтбора=Новый Структура();
ПараметрыОтбора.Вставить("VERNUM",пVERNUM);
НайденныеСтрокимТЗHistory = мТЗHistory.НайтиСтроки(ПараметрыОтбора);
ВсегоНайденныеСтроки = НайденныеСтрокимТЗHistory.Количество();
ТекстОшибки = "";
Если ВсегоНайденныеСтроки = 0 тогда
ТекстОшибки = "Ошибка! Не найдена строка";
ТекстОшибки = ТекстОшибки
+" в ""мТЗHistory"" для ";
Для каждого ЭлементОтбора из ПараметрыОтбора цикл
ТекстОшибки = ТекстОшибки
+" "+ ЭлементОтбора.Ключ + " = "+ЭлементОтбора.Значение;
Конеццикла;
ВызватьИсключение ТекстОшибки;
Конецесли;
Для каждого СтрокамТЗHistory из НайденныеСтрокимТЗHistory цикл
ПолноеИмяМетаданных = "";
ПолноеИмяМетаданных = ПолучитьПолноеИмяМетаданных(ПолноеИмяМетаданных,СтрокамТЗHistory);;
СтрокаИзмененныеОбъекты = ИзмененныеОбъекты.Добавить();
СтрокаИзмененныеОбъекты.Версия = пVERNUM;
СтрокаИзмененныеОбъекты.ВидИзменения = ПолучитьВидИзменения(СтрокамТЗHistory);
СтрокаИзмененныеОбъекты.ТекстИдентификатораОбъектаМетаданных = ПолноеИмяМетаданных;
Конеццикла;
Конеццикла;
ИсторияХранилища.Сортировать("Версия");
КонецФункции
Функция ПолучитьПолноеИмяМетаданных(ПолноеИмяМетаданных,СтрокамТЗHistory)
ИмяОбъекта = СтрокамТЗHistory.OBJNAME;
ИмяКлассаОбъекта = ПолучитьИмяКлассаОбъекта(СтрокамТЗHistory.OBJID);
Если ЗначениеЗаполнено(ПолноеИмяМетаданных) Тогда
Если ИмяКлассаОбъекта <> мИмяКлассаОбъекта_Конфигурация Тогда
ПолноеИмяМетаданных = ИмяКлассаОбъекта + "."+ИмяОбъекта +"."+ ПолноеИмяМетаданных;
Конецесли;
Иначе
Если ИмяКлассаОбъекта = мИмяКлассаОбъекта_Конфигурация Тогда
ПолноеИмяМетаданных = ИмяОбъекта;
Иначе
ПолноеИмяМетаданных = ИмяКлассаОбъекта + "."+ИмяОбъекта;
Конецесли;
Конецесли;
СтрокаРодителя = ПолучитьСтрокуРодителя(СтрокамТЗHistory.PARENTID);
Если ЗначениеЗаполнено(СтрокаРодителя) Тогда
ПолучитьПолноеИмяМетаданных(ПолноеИмяМетаданных,СтрокаРодителя)
Конецесли;
Возврат ПолноеИмяМетаданных;
КонецФункции
Функция ПолучитьСтрокуРодителя(РодительOBJID)
Перем СтрокаРодителя;
ПараметрыОтбора=Новый Структура();
ПараметрыОтбора.Вставить("OBJID",РодительOBJID);
НайденныеСтроки = мТЗHistory.НайтиСтроки(ПараметрыОтбора);
ВсегоНайденныеСтроки = НайденныеСтроки.Количество();
ТекстОшибки = "";
Если ВсегоНайденныеСтроки >= 1 Тогда
СтрокаРодителя = НайденныеСтроки[0];
//ИначеЕсли ВсегоНайденныеСтроки > 1 Тогда
// ТекстОшибки = "Ошибка! Найдено более 1 строки";
//Иначе
// ТекстОшибки = "Ошибка! Не найдена строка";
Конецесли;
Если ЗначениеЗаполнено(ТекстОшибки) Тогда
ТекстОшибки = ТекстОшибки
+" в ""мТЗHistory"" для ";
Для каждого ЭлементОтбора из ПараметрыОтбора цикл
ТекстОшибки = ТекстОшибки
+" "+ ЭлементОтбора.Ключ + " = "+ЭлементОтбора.Значение;
Конеццикла;
ВызватьИсключение ТекстОшибки;
Конецесли;
Возврат СтрокаРодителя;
КонецФункции
Функция ПолучитьИмяКлассаОбъекта(ЗНАЧ OBJID)
Перем CLASSID;
Перем ИмяКласса;
ПараметрыОтбора=Новый Структура();
ПараметрыОтбора.Вставить("OBJID",OBJID);
НайденныеСтрокимТЗObjects = мТЗObjects.НайтиСтроки(ПараметрыОтбора);
ВсегоНайденныеСтроки = НайденныеСтрокимТЗObjects.Количество();
ТекстОшибки = "";
Если ВсегоНайденныеСтроки = 1 тогда
СтрокамТЗObjects = НайденныеСтрокимТЗObjects[0];
CLASSID = СтрокамТЗObjects.CLASSID;
ИначеЕсли ВсегоНайденныеСтроки > 1 Тогда
ТекстОшибки = "Ошибка! Найдено более 1 строки";
Иначе
ТекстОшибки = "Ошибка! Не найдена строка";
Конецесли;
Если ЗначениеЗаполнено(ТекстОшибки) Тогда
ТекстОшибки = ТекстОшибки
+" в ""мТЗObjects"" для ";
Для каждого ЭлементОтбора из ПараметрыОтбора цикл
ТекстОшибки = ТекстОшибки
+" "+ ЭлементОтбора.Ключ + " = "+ЭлементОтбора.Значение;
Конеццикла;
ВызватьИсключение ТекстОшибки;
Конецесли;
ПараметрыОтбора=Новый Структура();
ПараметрыОтбора.Вставить("CLASSID",CLASSID);
НайденныеСтрокимТЗИменаКлассов = мТЗИменаКлассов.НайтиСтроки(ПараметрыОтбора);
ВсегоНайденныеСтроки = НайденныеСтрокимТЗИменаКлассов.Количество();
ТекстОшибки = "";
Если ВсегоНайденныеСтроки = 1 тогда
СтрокамТЗИменаКлассов = НайденныеСтрокимТЗИменаКлассов[0];
ИмяКласса = СтрокамТЗИменаКлассов.ИмяКласса;
ИначеЕсли ВсегоНайденныеСтроки > 1 Тогда
ТекстОшибки = "Ошибка! Найдено более 1 строки";
Иначе
ТекстОшибки = "Ошибка! Не найдена строка";
Конецесли;
Если ЗначениеЗаполнено(ТекстОшибки) Тогда
ТекстОшибки = ТекстОшибки
+" в ""мТЗИменаКлассов"" для ";
Для каждого ЭлементОтбора из ПараметрыОтбора цикл
ТекстОшибки = ТекстОшибки
+" "+ ЭлементОтбора.Ключ + " = "+ЭлементОтбора.Значение;
Конеццикла;
//ВызватьИсключение ТекстОшибки;
Сообщить(ТекстОшибки);
ИмяКласса = "";
Конецесли;
Возврат ИмяКласса;
КонецФункции
Функция ПолучитьВидИзменения(СтрокамТЗHistory)
пВидИзменения = ПредопределенноеЗначение("Перечисление.узВидыИзменений.Изменен");
Если СтрокамТЗHistory.SELFVERNUM = 1 Тогда
пВидИзменения = ПредопределенноеЗначение("Перечисление.узВидыИзменений.Добавлен");
Конецесли;
Если СтрокамТЗHistory.REMOVED Тогда
пВидИзменения = ПредопределенноеЗначение("Перечисление.узВидыИзменений.Удален");
Конецесли;
Возврат пВидИзменения;
КонецФункции
Функция ПолучитьПользователяХранилища(пUSERID)
Перем пПользовательХранилища;
ПараметрыОтбора=Новый Структура();
ПараметрыОтбора.Вставить("USERID",пUSERID);
НайденныеСтроки = мТЗUsers.НайтиСтроки(ПараметрыОтбора);
ВсегоНайденныеСтроки = НайденныеСтроки.Количество();
ТекстОшибки = "";
Если ВсегоНайденныеСтроки = 1 тогда
СтрокамТЗUsers = НайденныеСтроки[0];
пПользовательХранилища = СтрокамТЗUsers.Name;
ИначеЕсли ВсегоНайденныеСтроки > 1 Тогда
ТекстОшибки = "Ошибка! Найдено более 1 строки";
Иначе
ТекстОшибки = "Ошибка! Не найдена строка";
Конецесли;
Если ЗначениеЗаполнено(ТекстОшибки) Тогда
ТекстОшибки = ТекстОшибки
+" в ""мТЗUsers"" для ";
Для каждого ЭлементОтбора из ПараметрыОтбора цикл
ТекстОшибки = ТекстОшибки
+" "+ ЭлементОтбора.Ключ + " = "+ЭлементОтбора.Значение;
Конеццикла;
ВызватьИсключение ТекстОшибки;
Конецесли;
Возврат пПользовательХранилища;
КонецФункции
Функция ПолучитьТЗИменаКлассов()
Массив=Новый Массив;
Массив.Добавить(Тип("Строка"));
ТипСтрока_150 = Новый ОписаниеТипов(Массив, , ,Новый КвалификаторыСтроки(150));
ТЗИменаКлассов = Новый ТаблицаЗначений;
ТЗИменаКлассов.Колонки.Добавить("CLASSID",ПолучитьТипСтрока36());
ТЗИменаКлассов.Колонки.Добавить("ИмяКласса",ТипСтрока_150);
Макет = ПолучитьМакет("ИменаКлассов");
Для НомерСтроки = 2 По Макет.ВысотаТаблицы Цикл
CLASSID = СокрЛП(Макет.Область(НомерСтроки,1).Текст);
ИмяКласса = СокрЛП(Макет.Область(НомерСтроки,2).Текст);
СтрокаТЗИменаКлассов = ТЗИменаКлассов.Добавить();
СтрокаТЗИменаКлассов.CLASSID = CLASSID;
СтрокаТЗИменаКлассов.ИмяКласса = ИмяКласса;
КонецЦикла;
Возврат ТЗИменаКлассов;
КонецФункции
Процедура СоединитьТаблицыТЗHistoryИТЗOBJECTS(ТЗHistory,ТЗOBJECTS)
Запрос = Новый Запрос("
|ВЫБРАТЬ
| ТЗHISTORY.OBJID КАК OBJID,
| ТЗHISTORY.OBJNAME КАК OBJNAME,
| ТЗHISTORY.PARENTID КАК PARENTID,
| ТЗHISTORY.REMOVED КАК REMOVED,
| ТЗHISTORY.SELFVERNUM КАК SELFVERNUM,
| ТЗHISTORY.VERNUM КАК VERNUM
|ПОМЕСТИТЬ ТЗHISTORY
|ИЗ
| &ТЗHISTORY КАК ТЗHISTORY
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ТЗOBJECTS.OBJID,
| ТЗOBJECTS.CLASSID
|ПОМЕСТИТЬ ТЗOBJECTS
|ИЗ
| &ТЗOBJECTS КАК ТЗOBJECTS
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ТЗHISTORY.OBJID КАК OBJID,
| ТЗHISTORY.OBJNAME КАК OBJNAME,
| ТЗHISTORY.PARENTID КАК PARENTID,
| ТЗHISTORY.REMOVED КАК REMOVED,
| ТЗHISTORY.SELFVERNUM КАК SELFVERNUM,
| ТЗHISTORY.VERNUM КАК VERNUM,
| ТЗOBJECTS.OBJID КАК OBJID_ТЗOBJECTS,
| ТЗOBJECTS.CLASSID КАК CLASSID
|ИЗ
| ТЗHISTORY КАК ТЗHISTORY
| ЛЕВОЕ СОЕДИНЕНИЕ ТЗOBJECTS КАК ТЗOBJECTS
| ПО ТЗHISTORY.OBJID = ТЗOBJECTS.OBJID
|");
Запрос.УстановитьПараметр("ТЗHISTORY", ТЗHistory);
Запрос.УстановитьПараметр("ТЗOBJECTS", ТЗOBJECTS);
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() Тогда
Возврат;
Конецесли;
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
КонецЦикла;
КонецПроцедуры
Функция ПолучитьТЗИзФайла(ДопПараметры)
Перем ТЗИзФайла;
ИмяФайлаДляЗагрузки = ДопПараметры.ИмяФайлаДляЗагрузки;
ИмяПространстваИмен = ДопПараметры.ИмяПространстваИмен;
ИмяПакетаXDTO = "Table";
ИмяТаблицы = ДопПараметры.ИмяТаблицы;
ЧтениеТекста = Новый ЧтениеТекста(ИмяФайлаДляЗагрузки ,КодировкаТекста.UTF16); // XML документ не имеет атрибута
СтрокаXML = ЧтениеТекста.Прочитать(); // xmlns - URIПространстваИмен
//СтрокаXML = СтрЗаменить(СтрокаXML,"<Records","<Records xmlns="""+ИмяПространстваИмен+""" ");
//СтрокаXML = СтрЗаменить(СтрокаXML,"<Table Name=""HISTORY""","<Table Name=""HISTORY"" xmlns="""+ИмяПространстваИмен+""" ");
СтрокаXML = СтрЗаменить(СтрокаXML,"<Table Name="""+ИмяТаблицы+"""","<Table Name="""+ИмяТаблицы+""" xmlns="""+ИмяПространстваИмен+""" ");
ЧтениеXML = Новый ЧтениеXML;
ЧтениеXML.УстановитьСтроку(СтрокаXML);
ПакетХранилищаXDTO = ФабрикаXDTO.Тип(ИмяПространстваИмен,ИмяПакетаXDTO);
Если ПакетХранилищаXDTO = Неопределено Тогда
ВызватьИсключение "Ошибка! не удалось определить Тип пакета XDTO";
Конецесли;
ФайлХранилища = ФабрикаXDTO.ПрочитатьXML(ЧтениеXML,ПакетХранилищаXDTO);
ТЗИзФайла = ПолучитьОписаниеТЗИзФайла(ИмяТаблицы);
#Если Тромбон тогда
ТЗИзФайла = Новый ТаблицаЗначений;
#Конецесли
Для каждого СтрокаRecord из ФайлХранилища.Records.Record цикл
СтрокаТЗИзФайла = ТЗИзФайла.Добавить();
Для каждого Колонка из ТЗИзФайла.Колонки цикл
ИмяКолонки = Колонка.Имя;
ЗначениеИзФайла = СтрокаRecord[ИмяКолонки];
//Если Колонка.ТипЗначения.СодержитТип(Тип("Число")) Тогда
// ЗначениеИзФайла = Число(ЗначениеИзФайла);
//ИначеЕсли Колонка.ТипЗначения.СодержитТип(Тип("Дата")) Тогда
// ЗначениеИзФайла = Число(ЗначениеИзФайла);
// ВызватьИсключение "Нет типа";
//Конецесли;
СтрокаТЗИзФайла[ИмяКолонки] = ЗначениеИзФайла;
Конеццикла;
//ЗаполнитьЗначенияСвойств(СтрокаТЗИзФайла,СтрокаRecord);
КонецЦикла;
ФайлХранилища = Неопределено;
Возврат ТЗИзФайла;
КонецФункции
Функция ПолучитьТипСтрока36()
Массив=Новый Массив;
Массив.Добавить(Тип("Строка"));
ТипСтрока_36 = Новый ОписаниеТипов(Массив, , ,Новый КвалификаторыСтроки(36));
Возврат ТипСтрока_36;
КонецФункции
Функция ПолучитьОписаниеТЗИзФайла(ИмяТаблицы)
Перем ТЗИзФайла;
ТипСтрока_36 = ПолучитьТипСтрока36();
Если ИмяТаблицы = "HISTORY" Тогда
ТЗИзФайла = Новый ТаблицаЗначений();
ТЗИзФайла.Колонки.Добавить("OBJID",ТипСтрока_36);
ТЗИзФайла.Колонки.Добавить("VERNUM",Новый ОписаниеТипов("Число"));
ТЗИзФайла.Колонки.Добавить("SELFVERNUM",Новый ОписаниеТипов("Число"));
ТЗИзФайла.Колонки.Добавить("OBJVERID",ТипСтрока_36);
ТЗИзФайла.Колонки.Добавить("PARENTID",ТипСтрока_36);
ТЗИзФайла.Колонки.Добавить("OWNERID",ТипСтрока_36);
ТЗИзФайла.Колонки.Добавить("OBJNAME",Новый ОписаниеТипов("Строка"));
ТЗИзФайла.Колонки.Добавить("OBJPOS",Новый ОписаниеТипов("Число"));
ТЗИзФайла.Колонки.Добавить("REMOVED",Новый ОписаниеТипов("Булево"));
ТЗИзФайла.Индексы.Добавить("VERNUM,OBJID,PARENTID");
ИначеЕсли ИмяТаблицы = "USERS" Тогда
ТЗИзФайла = Новый ТаблицаЗначений();
ТЗИзФайла.Колонки.Добавить("USERID",ТипСтрока_36);
ТЗИзФайла.Колонки.Добавить("NAME",Новый ОписаниеТипов("Строка"));
ИначеЕсли ИмяТаблицы = "VERSIONS" Тогда
ТЗИзФайла = Новый ТаблицаЗначений();
ТЗИзФайла.Колонки.Добавить("VERNUM",Новый ОписаниеТипов("Число"));
ТЗИзФайла.Колонки.Добавить("USERID",ТипСтрока_36);
ТЗИзФайла.Колонки.Добавить("VERDATE",Новый ОписаниеТипов("Дата"));
ТЗИзФайла.Колонки.Добавить("COMMENT",Новый ОписаниеТипов("Строка"));
ИначеЕсли ИмяТаблицы = "OBJECTS" Тогда
ТЗИзФайла = Новый ТаблицаЗначений();
ТЗИзФайла.Колонки.Добавить("OBJID",ТипСтрока_36);
ТЗИзФайла.Колонки.Добавить("CLASSID",ТипСтрока_36);
//ТЗИзФайла.Колонки.Добавить("SELFVERNUM",Новый ОписаниеТипов("Число"));
Иначе
ВызватьИсключение "Ошибка! Нет алгоритма описание ТЗИзФайла для ["+ИмяТаблицы+"]";
Конецесли;
Возврат ТЗИзФайла;
КонецФункции
Функция ВыгрузитьТаблицыХранилищаВФайлы()
ИмяФайлаХранилища = КаталогХранилища + "\1cv8ddb.1CD";
ФайлХранилища = Новый Файл(ИмяФайлаХранилища);
Если НЕ ФайлХранилища.Существует() Тогда
ТекстОшибки = "Ошибка! Не удалось найти файл ["+ИмяФайлаХранилища+"]";
ВывестиСообщение(ТекстОшибки);
ВызватьИсключение ТекстОшибки;
КонецЕсли;
ФайлХранилища = Неопределено;
пКаталогВременныхФайлов = КаталогВременныхФайлов();
мИмяФайлаДляTool_1CD = пКаталогВременныхФайлов + "cTool_1CD.exe";
Макет_cTool_1CD = ПолучитьМакет("cTool_1CD");
Макет_cTool_1CD.Записать(мИмяФайлаДляTool_1CD);
ВывестиСообщение("Создали файл: " + мИмяФайлаДляTool_1CD);
//"D:\Storage_transit\Tool_1cd\cTool_1CD.exe" "D:\Storage\Kons\1cv8ddb.1CD" -ne -eax "D:\Storage_transit\Tool_1cd"
ТекстКоманды = СоздатьКоманду(мИмяФайлаДляTool_1CD);
ИмяФайлаХранилища = Экранировать(ИмяФайлаХранилища);
КаталогВыгрузкиФайлов = Лев(пКаталогВременныхФайлов,СтрДлина(пКаталогВременныхФайлов)-1);
ДобавитьВКомандуКлючЗначение(ТекстКоманды,,ИмяФайлаХранилища);
ДобавитьВКомандуКлючЗначение(ТекстКоманды,"-ne");
ДобавитьВКомандуКлючЗначение(ТекстКоманды,"-ex",КаталогВыгрузкиФайлов);
ДобавитьВКомандуКлючЗначение(ТекстКоманды,"USERS,HISTORY,VERSIONS,OBJECTS");
ВывестиСообщение("ТекстКоманды: " + ТекстКоманды);
ВывестиСообщение("Выгрузка хранилища в файлы");
КодВозврата = ВыполнитьКоманду(ТекстКоманды);
Если КодВозврата <> 0 Тогда
ОписаниеОшибки = "При выгрузке хранилища в файлы XML произошла ошибка";
ВызватьИсключение ОписаниеОшибки;
КонецЕсли;
ВывестиСообщение("Завершена выгрузка хранилища в файлы");
//"C:\Users\Bliz\AppData\Local\Temp\cTool_1CD.exe" "D:\Cloud\Dev\Tasks\Tool_1CD\1cv8ddb.1CD\1cv8ddb.1CD" -ne -eax "C:\Users\Bliz\AppData\Local\Temp\"
//"d:\Cloud\Dev\Tasks\Tool_1CD\cTool_1CD.exe" "D:\Cloud\Dev\Tasks\Tool_1CD\1cv8ddb.1CD" -ne -ex "D:\Cloud\Dev\Tasks\Tool_1CD" "USERS,HISTORY,VERSIONS,OBJECTS"
УдалитьФайлы(мИмяФайлаДляTool_1CD);
ВывестиСообщение("Удалили временный файл: " + мИмяФайлаДляTool_1CD);
РезультатФункции = Новый Структура();
РезультатФункции.Вставить("ИмяФайлаUSERS",КаталогВыгрузкиФайлов + "\USERS.xml");
РезультатФункции.Вставить("ИмяФайлаHISTORY",КаталогВыгрузкиФайлов + "\HISTORY.xml");
РезультатФункции.Вставить("ИмяФайлаVERSIONS",КаталогВыгрузкиФайлов + "\VERSIONS.xml");
РезультатФункции.Вставить("ИмяФайлаOBJECTS",КаталогВыгрузкиФайлов + "\OBJECTS.xml");
Возврат РезультатФункции;
КонецФункции
Функция СоздатьКоманду(Приложение)
ТекстКоманды = """" + Приложение + """";
Возврат ТекстКоманды;
КонецФункции
Функция ВыполнитьКоманду(ТекстКоманды)
КодВозврата = Неопределено;
ЗапуститьПриложение(ТекстКоманды,, Истина, КодВозврата);
Возврат КодВозврата;
КонецФункции
Процедура ДобавитьВКомандуКлючЗначение(ТекстКоманды, Ключ, Значение = Неопределено)
Если Значение = Неопределено Тогда
ТекстКоманды = ТекстКоманды + " " + Ключ;
Иначе
ТекстКоманды = ТекстКоманды + " " + Ключ + " """ + Экранировать(Значение) + """";
КонецЕсли;
КонецПроцедуры
Функция Экранировать(Значение)
Возврат СтрЗаменить(Значение, """", """""");
КонецФункции
Процедура ВывестиСообщение(ТекстСообщения)
Если НЕ ВыводитьОтладочныеСообщения Тогда
Возврат;
Конецесли;
Сообщить("ОТЛАДКА "+ТекущаяДата() + ": "+ТекстСообщения);
КонецПроцедуры
Процедура УдалитьВременныеФайлы(РезультатВыгрузки)
Для каждого СтрокаРезультатВыгрузки из РезультатВыгрузки цикл
ИмяФайла = СтрокаРезультатВыгрузки.Значение;
УдалитьФайлы(ИмяФайла);
ВывестиСообщение("Удалили временный файл: " + ИмяФайла);
Конеццикла;
КонецПроцедуры
мЭтоОтладка = Ложь;
мИмяКлассаОбъекта_Конфигурация = "Конфигурация";

22
src/cf/DataProcessors/узПросмотрИсторииХранилища/Forms/Форма.xml Normal file
View File

@ -0,0 +1,22 @@
<?xml version="1.0" encoding="UTF-8"?>
<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" 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:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.2">
<Form uuid="1b48fadd-b08f-48e0-8896-ee26ac9722aa">
<Properties>
<Name>Форма</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Форма</v8:content>
</v8:item>
</Synonym>
<Comment/>
<FormType>Managed</FormType>
<IncludeHelpInContents>false</IncludeHelpInContents>
<UsePurposes>
<v8:Value xsi:type="app:ApplicationUsePurpose">PersonalComputer</v8:Value>
<v8:Value xsi:type="app:ApplicationUsePurpose">MobileDevice</v8:Value>
</UsePurposes>
<ExtendedPresentation/>
</Properties>
</Form>
</MetaDataObject>

239
src/cf/DataProcessors/узПросмотрИсторииХранилища/Forms/Форма/Ext/Form.xml Normal file
View File

@ -0,0 +1,239 @@
<?xml version="1.0" encoding="UTF-8"?>
<Form xmlns="http://v8.1c.ru/8.3/xcf/logform" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core" xmlns:dcsset="http://v8.1c.ru/8.1/data-composition-system/settings" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" 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:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.2">
<AutoSaveDataInSettings>Use</AutoSaveDataInSettings>
<ScalingMode>Compact</ScalingMode>
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1">
<ChildItems>
<Button name="ФормаКомандаЗагрузитьИсторию" id="82">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.КомандаЗагрузитьИсторию</CommandName>
<ExtendedTooltip name="ФормаКомандаЗагрузитьИсториюРасширеннаяПодсказка" id="83"/>
</Button>
</ChildItems>
</AutoCommandBar>
<ChildItems>
<UsualGroup name="Группа2" id="80">
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа2РасширеннаяПодсказка" id="81"/>
<ChildItems>
<InputField name="КаталогХранилища" id="1">
<DataPath>Объект.КаталогХранилища</DataPath>
<EditMode>EnterOnInput</EditMode>
<ChoiceButton>true</ChoiceButton>
<ContextMenu name="КаталогХранилищаКонтекстноеМеню" id="2"/>
<ExtendedTooltip name="КаталогХранилищаРасширеннаяПодсказка" id="3"/>
<Events>
<Event name="StartChoice">КаталогХранилищаНачалоВыбора</Event>
</Events>
</InputField>
<UsualGroup name="ГруппаВерсии" id="78">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Версии</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа версии</v8:content>
</v8:item>
</ToolTip>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="ГруппаВерсииРасширеннаяПодсказка" id="79"/>
<ChildItems>
<InputField name="ВерсияС" id="4">
<DataPath>Объект.ВерсияС</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ВерсияСКонтекстноеМеню" id="5"/>
<ExtendedTooltip name="ВерсияСРасширеннаяПодсказка" id="6"/>
</InputField>
<InputField name="ВерсияПо" id="7">
<DataPath>Объект.ВерсияПо</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ВерсияПоКонтекстноеМеню" id="8"/>
<ExtendedTooltip name="ВерсияПоРасширеннаяПодсказка" id="9"/>
</InputField>
</ChildItems>
</UsualGroup>
<CheckBoxField name="ВыводитьОтладочныеСообщения" id="84">
<DataPath>Объект.ВыводитьОтладочныеСообщения</DataPath>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ВыводитьОтладочныеСообщенияКонтекстноеМеню" id="85"/>
<ExtendedTooltip name="ВыводитьОтладочныеСообщенияРасширеннаяПодсказка" id="86"/>
</CheckBoxField>
</ChildItems>
</UsualGroup>
<Pages name="Страницы" id="10">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Страницы</v8:content>
</v8:item>
</Title>
<ExtendedTooltip name="СтраницыРасширеннаяПодсказка" id="11"/>
<ChildItems>
<Page name="ГруппаИсторияХранилища" id="12">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>История хранилища</v8:content>
</v8:item>
</Title>
<Group>Horizontal</Group>
<ExtendedTooltip name="ГруппаИсторияХранилищаРасширеннаяПодсказка" id="13"/>
<ChildItems>
<Table name="ИсторияХранилища" id="14">
<Representation>List</Representation>
<AutoInsertNewRow>true</AutoInsertNewRow>
<EnableStartDrag>true</EnableStartDrag>
<EnableDrag>true</EnableDrag>
<DataPath>Объект.ИсторияХранилища</DataPath>
<RowFilter xsi:nil="true"/>
<ContextMenu name="ИсторияХранилищаКонтекстноеМеню" id="15"/>
<AutoCommandBar name="ИсторияХранилищаКоманднаяПанель" id="16">
<Autofill>false</Autofill>
</AutoCommandBar>
<ExtendedTooltip name="ИсторияХранилищаРасширеннаяПодсказка" id="17"/>
<SearchStringAddition name="ИсторияХранилищаСтрокаПоиска" id="18">
<AdditionSource>
<Item>ИсторияХранилища</Item>
<Type>SearchStringRepresentation</Type>
</AdditionSource>
<ContextMenu name="ИсторияХранилищаСтрокаПоискаКонтекстноеМеню" id="19"/>
<ExtendedTooltip name="ИсторияХранилищаСтрокаПоискаРасширеннаяПодсказка" id="20"/>
</SearchStringAddition>
<ViewStatusAddition name="ИсторияХранилищаСостояниеПросмотра" id="21">
<AdditionSource>
<Item>ИсторияХранилища</Item>
<Type>ViewStatusRepresentation</Type>
</AdditionSource>
<ContextMenu name="ИсторияХранилищаСостояниеПросмотраКонтекстноеМеню" id="22"/>
<ExtendedTooltip name="ИсторияХранилищаСостояниеПросмотраРасширеннаяПодсказка" id="23"/>
</ViewStatusAddition>
<SearchControlAddition name="ИсторияХранилищаУправлениеПоиском" id="24">
<AdditionSource>
<Item>ИсторияХранилища</Item>
<Type>SearchControl</Type>
</AdditionSource>
<ContextMenu name="ИсторияХранилищаУправлениеПоискомКонтекстноеМеню" id="25"/>
<ExtendedTooltip name="ИсторияХранилищаУправлениеПоискомРасширеннаяПодсказка" id="26"/>
</SearchControlAddition>
<Events>
<Event name="OnActivateRow">ИсторияХранилищаПриАктивизацииСтроки</Event>
</Events>
<ChildItems>
<InputField name="ИсторияХранилищаВерсия" id="30">
<DataPath>Объект.ИсторияХранилища.Версия</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ИсторияХранилищаВерсияКонтекстноеМеню" id="31"/>
<ExtendedTooltip name="ИсторияХранилищаВерсияРасширеннаяПодсказка" id="32"/>
</InputField>
<InputField name="ИсторияХранилищаДатаВерсии" id="33">
<DataPath>Объект.ИсторияХранилища.ДатаВерсии</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ИсторияХранилищаДатаВерсииКонтекстноеМеню" id="34"/>
<ExtendedTooltip name="ИсторияХранилищаДатаВерсииРасширеннаяПодсказка" id="35"/>
</InputField>
<InputField name="ИсторияХранилищаПользовательХранилища" id="36">
<DataPath>Объект.ИсторияХранилища.ПользовательХранилища</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ИсторияХранилищаПользовательХранилищаКонтекстноеМеню" id="37"/>
<ExtendedTooltip name="ИсторияХранилищаПользовательХранилищаРасширеннаяПодсказка" id="38"/>
</InputField>
<InputField name="ИсторияХранилищаКомментарий" id="39">
<DataPath>Объект.ИсторияХранилища.Комментарий</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ИсторияХранилищаКомментарийКонтекстноеМеню" id="40"/>
<ExtendedTooltip name="ИсторияХранилищаКомментарийРасширеннаяПодсказка" id="41"/>
</InputField>
</ChildItems>
</Table>
<Table name="ИзмененныеОбъекты" id="50">
<Representation>List</Representation>
<AutoInsertNewRow>true</AutoInsertNewRow>
<EnableStartDrag>true</EnableStartDrag>
<EnableDrag>true</EnableDrag>
<DataPath>Объект.ИзмененныеОбъекты</DataPath>
<RowFilter xsi:nil="true"/>
<ContextMenu name="ИзмененныеОбъектыКонтекстноеМеню" id="51"/>
<AutoCommandBar name="ИзмененныеОбъектыКоманднаяПанель" id="52">
<Autofill>false</Autofill>
</AutoCommandBar>
<ExtendedTooltip name="ИзмененныеОбъектыРасширеннаяПодсказка" id="53"/>
<SearchStringAddition name="ИзмененныеОбъектыСтрокаПоиска" id="54">
<AdditionSource>
<Item>ИзмененныеОбъекты</Item>
<Type>SearchStringRepresentation</Type>
</AdditionSource>
<ContextMenu name="ИзмененныеОбъектыСтрокаПоискаКонтекстноеМеню" id="55"/>
<ExtendedTooltip name="ИзмененныеОбъектыСтрокаПоискаРасширеннаяПодсказка" id="56"/>
</SearchStringAddition>
<ViewStatusAddition name="ИзмененныеОбъектыСостояниеПросмотра" id="57">
<AdditionSource>
<Item>ИзмененныеОбъекты</Item>
<Type>ViewStatusRepresentation</Type>
</AdditionSource>
<ContextMenu name="ИзмененныеОбъектыСостояниеПросмотраКонтекстноеМеню" id="58"/>
<ExtendedTooltip name="ИзмененныеОбъектыСостояниеПросмотраРасширеннаяПодсказка" id="59"/>
</ViewStatusAddition>
<SearchControlAddition name="ИзмененныеОбъектыУправлениеПоиском" id="60">
<AdditionSource>
<Item>ИзмененныеОбъекты</Item>
<Type>SearchControl</Type>
</AdditionSource>
<ContextMenu name="ИзмененныеОбъектыУправлениеПоискомКонтекстноеМеню" id="61"/>
<ExtendedTooltip name="ИзмененныеОбъектыУправлениеПоискомРасширеннаяПодсказка" id="62"/>
</SearchControlAddition>
<ChildItems>
<InputField name="ИзмененныеОбъектыВидИзменения" id="66">
<DataPath>Объект.ИзмененныеОбъекты.ВидИзменения</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ИзмененныеОбъектыВидИзмененияКонтекстноеМеню" id="67"/>
<ExtendedTooltip name="ИзмененныеОбъектыВидИзмененияРасширеннаяПодсказка" id="68"/>
</InputField>
<InputField name="ИзмененныеОбъектыТекстИдентификатораОбъектаМетаданных" id="69">
<DataPath>Объект.ИзмененныеОбъекты.ТекстИдентификатораОбъектаМетаданных</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ИзмененныеОбъектыТекстИдентификатораОбъектаМетаданныхКонтекстноеМеню" id="70"/>
<ExtendedTooltip name="ИзмененныеОбъектыТекстИдентификатораОбъектаМетаданныхРасширеннаяПодсказка" id="71"/>
</InputField>
</ChildItems>
</Table>
</ChildItems>
</Page>
</ChildItems>
</Pages>
</ChildItems>
<Attributes>
<Attribute name="Объект" id="1">
<Type>
<v8:Type>cfg:DataProcessorObject.узПросмотрИсторииХранилища</v8:Type>
</Type>
<MainAttribute>true</MainAttribute>
<Save>
<Field>Объект.КаталогХранилища</Field>
<Field>Объект.ВыводитьОтладочныеСообщения</Field>
</Save>
</Attribute>
</Attributes>
<Commands>
<Command name="КомандаЗагрузитьИсторию" id="1">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Загрузить историю</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Команда загрузить историю</v8:content>
</v8:item>
</ToolTip>
<Action>КомандаЗагрузитьИсторию</Action>
</Command>
</Commands>
</Form>

51
src/cf/DataProcessors/узПросмотрИсторииХранилища/Forms/Форма/Ext/Form/Module.bsl Normal file
View File

@ -0,0 +1,51 @@

&НаСервере
Процедура КомандаЗагрузитьИсториюНаСервере()
пОбъект = РеквизитФормыВЗначение("Объект");
пОбъект.ЗагрузитьИсторию();
ЗначениеВРеквизитФормы(пОбъект,"Объект");
КонецПроцедуры
&НаКлиенте
Процедура КомандаЗагрузитьИсторию(Команда)
КомандаЗагрузитьИсториюНаСервере();
КонецПроцедуры
&НаКлиенте
Процедура КаталогХранилищаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
ДиалогВыбораФайла.Заголовок = НСтр("ru = 'Выберите каталог хранилища'");
ДиалогВыбораФайла.МножественныйВыбор = Ложь;
Оповещение = Новый ОписаниеОповещения("ОбработатьВыборКаталогХранилища",ЭтотОбъект);
ДиалогВыбораФайла.Показать(Оповещение);
КонецПроцедуры
&НаКлиенте
Процедура ОбработатьВыборКаталогХранилища(ВыбранныйКаталог, ДополнительныеПараметры) Экспорт
Если ВыбранныйКаталог = Неопределено Тогда
Возврат;
Конецесли;
Объект.КаталогХранилища = ВыбранныйКаталог[0];
КонецПроцедуры
&НаКлиенте
Процедура ИсторияХранилищаПриАктивизацииСтроки(Элемент)
УстановитьОтборВТЧ();
КонецПроцедуры
&НаКлиенте
Процедура УстановитьОтборВТЧ()
пВерсия = 0;
СтрокаИсторияХранилища = Элементы.ИсторияХранилища.ТекущиеДанные;
Если СтрокаИсторияХранилища <> Неопределено тогда
пВерсия = СтрокаИсторияХранилища.Версия;
Конецесли;
Элементы.ИзмененныеОбъекты.ОтборСтрок = Новый ФиксированнаяСтруктура("Версия", пВерсия);
КонецПроцедуры

16
src/cf/DataProcessors/узПросмотрИсторииХранилища/Templates/cTool_1CD.xml Normal file
View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" 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:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.2">
<Template uuid="ee255c3c-433f-4448-896e-f4c7479d5827">
<Properties>
<Name>cTool_1CD</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>C tool 1 CD</v8:content>
</v8:item>
</Synonym>
<Comment>Исходная программа взята с bitbucket.org/awa15/tool_1cd/src</Comment>
<TemplateType>BinaryData</TemplateType>
</Properties>
</Template>
</MetaDataObject>

BIN
src/cf/DataProcessors/узПросмотрИсторииХранилища/Templates/cTool_1CD/Ext/Template.bin Normal file
View File

Binary file not shown.

16
src/cf/DataProcessors/узПросмотрИсторииХранилища/Templates/ИменаКлассов.xml Normal file
View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" 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:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.2">
<Template uuid="7d3f997c-eeee-45f9-b9fb-eefe4a454bbb">
<Properties>
<Name>ИменаКлассов</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Имена классов</v8:content>
</v8:item>
</Synonym>
<Comment/>
<TemplateType>SpreadsheetDocument</TemplateType>
</Properties>
</Template>
</MetaDataObject>

2447
src/cf/DataProcessors/узПросмотрИсторииХранилища/Templates/ИменаКлассов/Ext/Template.xml Normal file
View File

File diff suppressed because it is too large Load Diff

11
src/cf/Roles/узПользователь/Ext/Rights.xml
View File

@ -1509,6 +1509,17 @@
<value>true</value>
</right>
</object>
<object>
<name>DataProcessor.узПросмотрИсторииХранилища</name>
<right>
<name>Use</name>
<value>true</value>
</right>
<right>
<name>View</name>
<value>true</value>
</right>
</object>
<object>
<name>Subsystem.СтандартныеПодсистемы.Subsystem.Свойства</name>
<right>

1
src/cf/Subsystems/узУправлениеЗадачами.xml
View File

@ -98,6 +98,7 @@
<xr:Item xsi:type="xr:MDObjectRef">CommonPicture.узИконкаДобавитьДело</xr:Item>
<xr:Item xsi:type="xr:MDObjectRef">CommonPicture.узРазвернутьНаПолныйЭкран</xr:Item>
<xr:Item xsi:type="xr:MDObjectRef">CommonPicture.узУбратьПолноэкранныйРежим</xr:Item>
<xr:Item xsi:type="xr:MDObjectRef">DataProcessor.узПросмотрИсторииХранилища</xr:Item>
</Content>
</Properties>
<ChildObjects/>

16
src/cf/XDTOPackages/узHISTORYXDTO.xml Normal file
View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" 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:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.2">
<XDTOPackage uuid="6b3a6989-0934-4623-89ec-15b53c0b3a9c">
<Properties>
<Name>узHISTORYXDTO</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>HISTORYXDTO</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Namespace>http://localhost/узHISTORYXDTO</Namespace>
</Properties>
</XDTOPackage>
</MetaDataObject>

33
src/cf/XDTOPackages/узHISTORYXDTO/Ext/Package.bin Normal file
View File

@ -0,0 +1,33 @@
<package xmlns="http://v8.1c.ru/8.1/xdto" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" targetNamespace="http://localhost/узHISTORYXDTO">
<objectType name="Table">
<property name="Name" type="xs:Name" form="Attribute"/>
<property xmlns:d3p1="http://localhost/узHISTORYXDTO" name="Fields" type="d3p1:Fields"/>
<property xmlns:d3p1="http://localhost/узHISTORYXDTO" name="Records" type="d3p1:Records"/>
</objectType>
<objectType name="Fields" ordered="false">
<property xmlns:d3p1="http://localhost/узHISTORYXDTO" name="Field" type="d3p1:Field" upperBound="100" form="Element"/>
</objectType>
<objectType name="Field">
<property name="Name" type="xs:Name" form="Attribute"/>
<property name="Type" form="Attribute"/>
<property name="Length" form="Attribute"/>
<property name="Precision" form="Attribute"/>
</objectType>
<objectType name="Records">
<property xmlns:d3p1="http://localhost/узHISTORYXDTO" name="Record" type="d3p1:Record" lowerBound="1" upperBound="-1"/>
</objectType>
<objectType name="Record">
<property name="OBJID" type="xs:string" form="Element"/>
<property name="VERNUM" type="xs:integer"/>
<property name="SELFVERNUM" type="xs:integer"/>
<property name="OBJVERID" type="xs:string" form="Element"/>
<property name="PARENTID" type="xs:string" form="Element"/>
<property name="OWNERID" type="xs:string" form="Element"/>
<property name="OBJNAME" type="xs:string" form="Element"/>
<property name="OBJPOS" type="xs:decimal"/>
<property name="REMOVED" type="xs:boolean"/>
<property name="DATAPACKED" type="xs:string"/>
<property name="OBJDATA" type="xs:string"/>
<property name="DATAHASH" type="xs:string" lowerBound="0" nillable="true" fixed="false"/>
</objectType>
</package>

16
src/cf/XDTOPackages/узOBJECTSXDTO.xml Normal file
View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" 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:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.2">
<XDTOPackage uuid="63dd4a78-8cba-42b0-984a-e37eb1db6497">
<Properties>
<Name>узOBJECTSXDTO</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>OBJECTSXDTO</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Namespace>http://localhost/узOBJECTSXDTO</Namespace>
</Properties>
</XDTOPackage>
</MetaDataObject>

27
src/cf/XDTOPackages/узOBJECTSXDTO/Ext/Package.bin Normal file
View File

@ -0,0 +1,27 @@
<package xmlns="http://v8.1c.ru/8.1/xdto" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" targetNamespace="http://localhost/узOBJECTSXDTO">
<objectType name="Table">
<property name="Name" type="xs:Name" form="Attribute"/>
<property xmlns:d3p1="http://localhost/узOBJECTSXDTO" name="Fields" type="d3p1:Fields"/>
<property xmlns:d3p1="http://localhost/узOBJECTSXDTO" name="Records" type="d3p1:Records"/>
</objectType>
<objectType name="Fields" ordered="false">
<property xmlns:d3p1="http://localhost/узOBJECTSXDTO" name="Field" type="d3p1:Field" lowerBound="1" upperBound="-1"/>
</objectType>
<objectType name="Field">
<property name="Name" type="xs:Name" form="Attribute"/>
<property name="Type" form="Attribute"/>
<property name="Length" form="Attribute"/>
<property name="Precision" form="Attribute"/>
</objectType>
<objectType name="Records">
<property xmlns:d3p1="http://localhost/узOBJECTSXDTO" name="Record" type="d3p1:Record" lowerBound="1" upperBound="-1"/>
</objectType>
<objectType name="Record">
<property name="OBJID" type="xs:string"/>
<property name="CLASSID" type="xs:string"/>
<property name="SELFVERNUM" type="xs:integer"/>
<property name="REVISED" type="xs:string"/>
<property name="REVISORID" type="xs:string"/>
<property name="REVISEDATE" type="xs:string"/>
</objectType>
</package>

16
src/cf/XDTOPackages/узUSERSXDTO.xml Normal file
View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" 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:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.2">
<XDTOPackage uuid="91c4af09-32b3-430b-9869-30c837beaa9d">
<Properties>
<Name>узUSERSXDTO</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>USERSXDTO</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Namespace>http://localhost/узUSERSXDTO</Namespace>
</Properties>
</XDTOPackage>
</MetaDataObject>

28
src/cf/XDTOPackages/узUSERSXDTO/Ext/Package.bin Normal file
View File

@ -0,0 +1,28 @@
<package xmlns="http://v8.1c.ru/8.1/xdto" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" targetNamespace="http://localhost/узUSERSXDTO">
<objectType name="Table">
<property name="Name" type="xs:Name" form="Attribute"/>
<property xmlns:d3p1="http://localhost/узUSERSXDTO" name="Fields" type="d3p1:Fields"/>
<property xmlns:d3p1="http://localhost/узUSERSXDTO" name="Records" type="d3p1:Records"/>
</objectType>
<objectType name="Fields" ordered="false">
<property xmlns:d3p1="http://localhost/узUSERSXDTO" name="Field" type="d3p1:Field" lowerBound="1" upperBound="-1"/>
</objectType>
<objectType name="Field">
<property name="Name" type="xs:Name" form="Attribute"/>
<property name="Type" form="Attribute"/>
<property name="Length" form="Attribute"/>
<property name="Precision" form="Attribute"/>
</objectType>
<objectType name="Records">
<property xmlns:d3p1="http://localhost/узUSERSXDTO" name="Record" type="d3p1:Record" lowerBound="1" upperBound="-1"/>
</objectType>
<objectType name="Record">
<property name="USERID" type="xs:string"/>
<property name="NAME" type="xs:string"/>
<property name="PASSWORD" type="xs:string"/>
<property name="REMOVED" type="xs:string"/>
<property name="BINDID" type="xs:string"/>
<property name="BINDSTRING" type="xs:string"/>
<property name="RIGHTS" type="xs:string"/>
</objectType>
</package>

16
src/cf/XDTOPackages/узVERSIONSXDTO.xml Normal file
View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" 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:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.2">
<XDTOPackage uuid="afe7777b-9a9c-4308-b6ef-aa8ccec82c65">
<Properties>
<Name>узVERSIONSXDTO</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>VERSIONSXDTO</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Namespace>http://localhost/узVERSIONSXDTO</Namespace>
</Properties>
</XDTOPackage>
</MetaDataObject>

31
src/cf/XDTOPackages/узVERSIONSXDTO/Ext/Package.bin Normal file
View File

@ -0,0 +1,31 @@
<package xmlns="http://v8.1c.ru/8.1/xdto" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" targetNamespace="http://localhost/узVERSIONSXDTO">
<objectType name="Table">
<property name="Name" type="xs:Name" form="Attribute"/>
<property xmlns:d3p1="http://localhost/узVERSIONSXDTO" name="Fields" type="d3p1:Fields"/>
<property xmlns:d3p1="http://localhost/узVERSIONSXDTO" name="Records" type="d3p1:Records"/>
</objectType>
<objectType name="Fields" ordered="false">
<property xmlns:d3p1="http://localhost/узVERSIONSXDTO" name="Field" type="d3p1:Field" lowerBound="1" upperBound="-1"/>
</objectType>
<objectType name="Field">
<property name="Name" type="xs:Name" form="Attribute"/>
<property name="Type" form="Attribute"/>
<property name="Length" form="Attribute"/>
<property name="Precision" form="Attribute"/>
</objectType>
<objectType name="Records">
<property xmlns:d3p1="http://localhost/узVERSIONSXDTO" name="Record" type="d3p1:Record" lowerBound="1" upperBound="-1"/>
</objectType>
<objectType name="Record">
<property name="VERNUM" type="xs:integer"/>
<property name="USERID" type="xs:string"/>
<property name="VERDATE" type="xs:dateTime"/>
<property name="PVERSION" type="xs:string"/>
<property name="CVERSION" type="xs:string"/>
<property name="CODE" type="xs:string"/>
<property name="COMMENT" type="xs:string"/>
<property name="SNAPSHOTMAKER" type="xs:string"/>
<property name="SNAPSHOTCRC" type="xs:string"/>
<property name="VERSIONID" type="xs:string" lowerBound="0" nillable="true"/>
</objectType>
</package>