1
0
mirror of https://github.com/Stepa86/oScript-Examples.git synced 2026-03-14 05:10:42 +02:00

Создана обработка для генерации файлв настроек

This commit is contained in:
Stepa86
2017-01-29 17:17:25 +03:00
parent a463bcae9e
commit f22dcab87f
5 changed files with 1330 additions and 0 deletions

View File

@@ -0,0 +1,30 @@
<?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.4">
<ExternalDataProcessor uuid="f86c2db8-7dd5-483b-b7ad-4b1b04e44978">
<InternalInfo>
<xr:ContainedObject>
<xr:ClassId>c3831ec8-d8d5-4f93-8a22-f9bfae07327f</xr:ClassId>
<xr:ObjectId>bbaa2ac9-df25-4069-92c7-acb62d30223c</xr:ObjectId>
</xr:ContainedObject>
<xr:GeneratedType name="ExternalDataProcessorObject._ПодготовкаНастроекДляБазы" category="Object">
<xr:TypeId>9b4f828a-21ea-44d4-af40-1b1b9d0f05c9</xr:TypeId>
<xr:ValueId>8b230d66-2ee4-4753-919c-4c17d05370a3</xr:ValueId>
</xr:GeneratedType>
</InternalInfo>
<Properties>
<Name>_ПодготовкаНастроекДляБазы</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Подготовка настроек для базы</v8:content>
</v8:item>
</Synonym>
<Comment/>
<DefaultForm>ExternalDataProcessor._ПодготовкаНастроекДляБазы.Form.Форма</DefaultForm>
<AuxiliaryForm/>
</Properties>
<ChildObjects>
<Form>Форма</Form>
</ChildObjects>
</ExternalDataProcessor>
</MetaDataObject>

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.4">
<Form uuid="573192f4-b840-4d6b-a045-202127ad7c74">
<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>

View File

@@ -0,0 +1,821 @@
<?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.4">
<CommandBarLocation>None</CommandBarLocation>
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1"/>
<Events>
<Event name="OnOpen">ПриОткрытии</Event>
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
<Event name="FillCheckProcessingAtServer">ОбработкаПроверкиЗаполненияНаСервере</Event>
</Events>
<ChildItems>
<InputField name="ИмяФайлаНастроек" id="1">
<DataPath>ИмяФайлаНастроек</DataPath>
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Файл настроек</v8:content>
</v8:item>
</Title>
<DropListButton>true</DropListButton>
<ChoiceButton>true</ChoiceButton>
<InputHint>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>D:\Folder\DB111.base_config</v8:content>
</v8:item>
</InputHint>
<ContextMenu name="ИмяФайлаНастроекКонтекстноеМеню" id="2"/>
<ExtendedTooltip name="ИмяФайлаНастроекРасширеннаяПодсказка" id="3"/>
<Events>
<Event name="OnChange">ИмяФайлаНастроекПриИзменении</Event>
<Event name="StartChoice">ИмяФайлаНастроекНачалоВыбора</Event>
</Events>
</InputField>
<UsualGroup name="Группа_Команды" id="8">
<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="9"/>
<ChildItems>
<Button name="Прочитать" id="6">
<Type>UsualButton</Type>
<CommandName>Form.Command.Прочитать</CommandName>
<ExtendedTooltip name="ПрочитатьРасширеннаяПодсказка" id="7"/>
</Button>
<Button name="Записать" id="4">
<Type>UsualButton</Type>
<CommandName>Form.Command.Записать</CommandName>
<ExtendedTooltip name="ЗаписатьРасширеннаяПодсказка" id="5"/>
</Button>
<Button name="ТестОбработки" id="94">
<Type>UsualButton</Type>
<CommandName>Form.Command.ТестОбработки</CommandName>
<ExtendedTooltip name="ТестОбработкиРасширеннаяПодсказка" id="95"/>
</Button>
</ChildItems>
</UsualGroup>
<UsualGroup name="Группа_ОбщиеПараметры" id="13">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Общие</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа общие параметры</v8:content>
</v8:item>
</ToolTip>
<Group>Vertical</Group>
<Representation>StrongSeparation</Representation>
<ExtendedTooltip name="Группа_ОбщиеПараметрыРасширеннаяПодсказка" id="14"/>
<ChildItems>
<InputField name="OSCRIPT" id="24">
<DataPath>OSCRIPT</DataPath>
<DropListButton>true</DropListButton>
<InputHint>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>c:\Program Files (x86)\OneScript\bin\oscript.exe</v8:content>
</v8:item>
</InputHint>
<ContextMenu name="OSCRIPTКонтекстноеМеню" id="25"/>
<ExtendedTooltip name="OSCRIPTРасширеннаяПодсказка" id="26"/>
</InputField>
<InputField name="EXE1CV8" id="27">
<DataPath>EXE1CV8</DataPath>
<InputHint>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>c:\Program Files (x86)\1cv8\8.3.9.2033\bin\1cv8.exe</v8:content>
</v8:item>
</InputHint>
<ContextMenu name="EXE1CV8КонтекстноеМеню" id="28"/>
<ExtendedTooltip name="EXE1CV8РасширеннаяПодсказка" id="29"/>
</InputField>
<InputField name="FileBackup" id="30">
<DataPath>FileBackup</DataPath>
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Файл Backup</v8:content>
</v8:item>
</Title>
<InputHint>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>db111.bak</v8:content>
</v8:item>
</InputHint>
<ContextMenu name="FileBackupКонтекстноеМеню" id="31"/>
<ExtendedTooltip name="FileBackupРасширеннаяПодсказка" id="32"/>
</InputField>
</ChildItems>
</UsualGroup>
<UsualGroup name="Группа_Колонки" id="48">
<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="49"/>
<ChildItems>
<UsualGroup name="Группа_SQL" id="70">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа SQL</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа SQL</v8:content>
</v8:item>
</ToolTip>
<Group>Vertical</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа_SQLРасширеннаяПодсказка" id="71"/>
<ChildItems>
<CheckBoxField name="ВыгружатьБекап" id="50">
<DataPath>ВыгружатьБекап</DataPath>
<TitleLocation>Right</TitleLocation>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ВыгружатьБекапКонтекстноеМеню" id="51"/>
<ExtendedTooltip name="ВыгружатьБекапРасширеннаяПодсказка" id="52"/>
<Events>
<Event name="OnChange">ВыгружатьБекапПриИзменении</Event>
</Events>
</CheckBoxField>
<UsualGroup name="Группа_БазаИсточник_SQL" id="53">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>SQL Источник</v8:content>
</v8:item>
</Title>
<Group>Vertical</Group>
<Representation>StrongSeparation</Representation>
<ExtendedTooltip name="Группа_БазаИсточник_SQLРасширеннаяПодсказка" id="54"/>
<ChildItems>
<InputField name="Source_SQL_Server" id="58">
<DataPath>Source_SQL_Server</DataPath>
<InputHint>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>WORK_SQL_SERVER</v8:content>
</v8:item>
</InputHint>
<ContextMenu name="Source_SQL_ServerКонтекстноеМеню" id="59"/>
<ExtendedTooltip name="Source_SQL_ServerРасширеннаяПодсказка" id="60"/>
</InputField>
<InputField name="Source_SQL_User" id="61">
<DataPath>Source_SQL_User</DataPath>
<InputHint>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>sa</v8:content>
</v8:item>
</InputHint>
<ContextMenu name="Source_SQL_UserКонтекстноеМеню" id="62"/>
<ExtendedTooltip name="Source_SQL_UserРасширеннаяПодсказка" id="63"/>
</InputField>
<InputField name="Source_SQL_Password" id="64">
<DataPath>Source_SQL_Password</DataPath>
<ContextMenu name="Source_SQL_PasswordКонтекстноеМеню" id="65"/>
<ExtendedTooltip name="Source_SQL_PasswordРасширеннаяПодсказка" id="66"/>
</InputField>
<InputField name="Source_SQL_Base" id="67">
<DataPath>Source_SQL_Base</DataPath>
<InputHint>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>db111</v8:content>
</v8:item>
</InputHint>
<ContextMenu name="Source_SQL_BaseКонтекстноеМеню" id="68"/>
<ExtendedTooltip name="Source_SQL_BaseРасширеннаяПодсказка" id="69"/>
</InputField>
</ChildItems>
</UsualGroup>
<CheckBoxField name="ЗагружатьИзБекапа" id="45">
<DataPath>ЗагружатьИзБекапа</DataPath>
<TitleLocation>Right</TitleLocation>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ЗагружатьИзБекапаКонтекстноеМеню" id="46"/>
<ExtendedTooltip name="ЗагружатьИзБекапаРасширеннаяПодсказка" id="47"/>
<Events>
<Event name="OnChange">ЗагружатьИзБекапаПриИзменении</Event>
</Events>
</CheckBoxField>
<UsualGroup name="Группа_БазаПриемник_SQL" id="19">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>SQL Приемник</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа общие параметры</v8:content>
</v8:item>
</ToolTip>
<Group>Vertical</Group>
<Representation>StrongSeparation</Representation>
<ExtendedTooltip name="Группа_БазаПриемник_SQLРасширеннаяПодсказка" id="20"/>
<ChildItems>
<InputField name="Script_Restore" id="33">
<DataPath>Script_Restore</DataPath>
<ChoiceButton>true</ChoiceButton>
<InputHint>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Restore.sql</v8:content>
</v8:item>
</InputHint>
<ContextMenu name="Script_RestoreКонтекстноеМеню" id="34"/>
<ExtendedTooltip name="Script_RestoreРасширеннаяПодсказка" id="35"/>
<Events>
<Event name="StartChoice">Script_RestoreНачалоВыбора</Event>
</Events>
</InputField>
<InputField name="Current_SQL_Server" id="21">
<DataPath>Current_SQL_Server</DataPath>
<InputHint>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>DEV_SQL_SERVER</v8:content>
</v8:item>
</InputHint>
<ContextMenu name="Current_SQL_ServerКонтекстноеМеню" id="22"/>
<ExtendedTooltip name="Current_SQL_ServerРасширеннаяПодсказка" id="23"/>
</InputField>
<InputField name="Current_SQL_User" id="39">
<DataPath>Current_SQL_User</DataPath>
<InputHint>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>sa</v8:content>
</v8:item>
</InputHint>
<ContextMenu name="Current_SQL_UserКонтекстноеМеню" id="40"/>
<ExtendedTooltip name="Current_SQL_UserРасширеннаяПодсказка" id="41"/>
</InputField>
<InputField name="Current_SQL_Password" id="36">
<DataPath>Current_SQL_Password</DataPath>
<ContextMenu name="Current_SQL_PasswordКонтекстноеМеню" id="37"/>
<ExtendedTooltip name="Current_SQL_PasswordРасширеннаяПодсказка" id="38"/>
</InputField>
<InputField name="Current_SQL_Base" id="42">
<DataPath>Current_SQL_Base</DataPath>
<InputHint>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>db111</v8:content>
</v8:item>
</InputHint>
<ContextMenu name="Current_SQL_BaseКонтекстноеМеню" id="43"/>
<ExtendedTooltip name="Current_SQL_BaseРасширеннаяПодсказка" id="44"/>
</InputField>
</ChildItems>
</UsualGroup>
</ChildItems>
</UsualGroup>
<UsualGroup name="Группа_1С" id="89">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа 1 С</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа 1 С</v8:content>
</v8:item>
</ToolTip>
<Group>Vertical</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа_1СРасширеннаяПодсказка" id="90"/>
<ChildItems>
<CheckBoxField name="ПодключатьКХранилищу" id="91">
<DataPath>ПодключатьКХранилищу</DataPath>
<TitleLocation>Right</TitleLocation>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ПодключатьКХранилищуКонтекстноеМеню" id="92"/>
<ExtendedTooltip name="ПодключатьКХранилищуРасширеннаяПодсказка" id="93"/>
<Events>
<Event name="OnChange">ПодключатьКХранилищуПриИзменении</Event>
</Events>
</CheckBoxField>
<UsualGroup name="Группа_БазаПриемник" id="17">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Приемник</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа общие параметры</v8:content>
</v8:item>
</ToolTip>
<Group>Vertical</Group>
<Representation>StrongSeparation</Representation>
<ExtendedTooltip name="Группа_БазаПриемникРасширеннаяПодсказка" id="18"/>
<ChildItems>
<InputField name="База_СтрокаПодключения" id="10">
<DataPath>База_СтрокаПодключения</DataPath>
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Строка подключения</v8:content>
</v8:item>
</Title>
<InputHint>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>/SSERVER/db111</v8:content>
</v8:item>
</InputHint>
<ContextMenu name="База_СтрокаПодключенияКонтекстноеМеню" id="11"/>
<ExtendedTooltip name="База_СтрокаПодключенияРасширеннаяПодсказка" id="12"/>
</InputField>
<InputField name="База_Пользователь" id="72">
<DataPath>База_Пользователь</DataPath>
<ContextMenu name="База_ПользовательКонтекстноеМеню" id="73"/>
<ExtendedTooltip name="База_ПользовательРасширеннаяПодсказка" id="74"/>
</InputField>
<InputField name="База_Пароль" id="75">
<DataPath>База_Пароль</DataPath>
<ContextMenu name="База_ПарольКонтекстноеМеню" id="76"/>
<ExtendedTooltip name="База_ПарольРасширеннаяПодсказка" id="77"/>
</InputField>
</ChildItems>
</UsualGroup>
<UsualGroup name="Группа_Хранилище" id="87">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Хранилище</v8:content>
</v8:item>
</Title>
<Group>Vertical</Group>
<Representation>StrongSeparation</Representation>
<ExtendedTooltip name="Группа_ХранилищеРасширеннаяПодсказка" id="88"/>
<ChildItems>
<InputField name="База_Хранилище" id="78">
<DataPath>Хранилище_Адрес</DataPath>
<ContextMenu name="База_ХранилищеКонтекстноеМеню" id="79"/>
<ExtendedTooltip name="База_ХранилищеРасширеннаяПодсказка" id="80"/>
</InputField>
<InputField name="Хранилище_Пользователь" id="81">
<DataPath>Хранилище_Пользователь</DataPath>
<ContextMenu name="Хранилище_ПользовательКонтекстноеМеню" id="82"/>
<ExtendedTooltip name="Хранилище_ПользовательРасширеннаяПодсказка" id="83"/>
</InputField>
<InputField name="Хранилище_Пароль" id="84">
<DataPath>Хранилище_Пароль</DataPath>
<ContextMenu name="Хранилище_ПарольКонтекстноеМеню" id="85"/>
<ExtendedTooltip name="Хранилище_ПарольРасширеннаяПодсказка" id="86"/>
</InputField>
</ChildItems>
</UsualGroup>
</ChildItems>
</UsualGroup>
</ChildItems>
</UsualGroup>
</ChildItems>
<Attributes>
<Attribute name="Объект" id="1">
<Type>
<v8:Type>cfg:ExternalDataProcessorObject._ПодготовкаНастроекДляБазы</v8:Type>
</Type>
<MainAttribute>true</MainAttribute>
</Attribute>
<Attribute name="ИмяФайлаНастроек" id="2">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Имя файла настроек</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="База_СтрокаПодключения" id="3">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Строка подключения</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="Current_SQL_Server" id="4">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Сервер</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="OSCRIPT" id="5">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>OSCRIPT</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="EXE1CV8" id="6">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>1cv8.exe</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="FileBackup" id="7">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>File backup</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="Script_Restore" id="8">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Script restore</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="Current_SQL_User" id="9">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Пользователь</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="Current_SQL_Password" id="10">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Пароль</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="Current_SQL_Base" id="11">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>База</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="ЗагружатьИзБекапа" id="12">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Загружать из бекапа</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
</Attribute>
<Attribute name="ИспользуемоеИмяФайла" id="13">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Используемое имя файла</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
</Attribute>
<Attribute name="Source_SQL_Server" id="14">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Сервер</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="Source_SQL_Password" id="15">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Пароль</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="Source_SQL_Base" id="16">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>База</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="Source_SQL_User" id="17">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Пользователь</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="ВыгружатьБекап" id="18">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Выгружать бекап</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
</Attribute>
<Attribute name="База_Пользователь" id="19">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Пользователь</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="База_Пароль" id="20">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Пароль</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="Хранилище_Адрес" id="21">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Адрес</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="Хранилище_Пользователь" id="22">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Пользователь</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="Хранилище_Пароль" id="23">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Пароль</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:string</v8:Type>
<v8:StringQualifiers>
<v8:Length>0</v8:Length>
<v8:AllowedLength>Variable</v8:AllowedLength>
</v8:StringQualifiers>
</Type>
<FillCheck>ShowError</FillCheck>
</Attribute>
<Attribute name="ПодключатьКХранилищу" id="24">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Подключать к хранилищу</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:boolean</v8:Type>
</Type>
</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>
<Command name="Прочитать" id="2">
<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>
<Command name="ТестОбработки" id="3">
<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>

View File

@@ -0,0 +1,457 @@
&НаКлиентеНаСервереБезКонтекста
Функция РасширениеФайлаНастроек()
Возврат "base_config";
КонецФункции
&НаКлиентеНаСервереБезКонтекста
Функция КаталогПоиска()
Возврат "\..\..\Configs\";
КонецФункции
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
НастроитьВидимостьДоступность();
ИспользуемоеИмяФайла = РеквизитФормыВЗначение( "Объект" ).ИспользуемоеИмяФайла;
структ = ПеременныеОкружения();
Если структ.Свойство( "oscript" ) Тогда
Элементы.OSCRIPT.СписокВыбора.Добавить( структ.oscript );
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
структ = ПеременныеОкружения();
Если структ.Свойство( "oscript" )
И Элементы.OSCRIPT.СписокВыбора.НайтиПоЗначению( структ.oscript ) = Неопределено Тогда
Элементы.OSCRIPT.СписокВыбора.Добавить( структ.oscript );
КонецЕсли;
EXE1CV8 = КаталогПрограммы() + "\Bin\1cv8.exe" ;
текФайл = Новый Файл( ИспользуемоеИмяФайла );
каталогПоиска = Новый Файл( текФайл.Путь + КаталогПоиска() );
каталогПоиска.НачатьПроверкуСуществования(Новый ОписаниеОповещения("ПриОткрытииЗавершение", ЭтаФорма, Новый Структура("каталогПоиска", каталогПоиска.Путь)));
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытииЗавершение(Существует, ДополнительныеПараметры) Экспорт
Если Существует Тогда
НачатьПоискФайлов(Новый ОписаниеОповещения("ПриОткрытииКаталогПоискаПроверен", ЭтаФорма), ДополнительныеПараметры.каталогПоиска , "*." + РасширениеФайлаНастроек(), Истина );
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытииКаталогПоискаПроверен(НайденныеФайлы, ДополнительныеПараметры) Экспорт
Для каждого цНайденныйФайл Из НайденныеФайлы Цикл
Элементы.ИмяФайлаНастроек.СписокВыбора.Добавить( цНайденныйФайл.ПолноеИмя );
КонецЦикла;
КонецПроцедуры
&НаСервере
Процедура ОбработкаПроверкиЗаполненияНаСервере(Отказ, ПроверяемыеРеквизиты)
Если Не ЗагружатьИзБекапа Тогда
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "Current_SQL_Server" ) );
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "Current_SQL_User" ) );
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "Current_SQL_Password" ) );
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "Current_SQL_Base" ) );
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "Script_Restore" ) );
КонецЕсли;
Если Не ВыгружатьБекап Тогда
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "Source_SQL_Server" ) );
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "Source_SQL_User" ) );
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "Source_SQL_Password" ) );
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "Source_SQL_Base" ) );
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "FileBackup" ) );
КонецЕсли;
Если Не ПодключатьКХранилищу Тогда
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "База_СтрокаПодключения" ) );
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "База_Пользователь" ) );
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "База_Пароль" ) );
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "Хранилище_Адрес" ) );
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "Хранилище_Пользователь" ) );
ПроверяемыеРеквизиты.Удалить( ПроверяемыеРеквизиты.Найти( "Хранилище_Пароль" ) );
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура Прочитать(Команда)
Если Не ЗначениеЗаполнено( ИмяФайлаНастроек ) Тогда
Возврат;
КонецЕсли;
чтениеJSON = Новый ЧтениеJSON;
чтениеJSON.ОткрытьФайл(ИмяФайлаНастроек);
соотПараметры = ПрочитатьJSON( ЧтениеJSON, Истина );
чтениеJSON.Закрыть();
прочитанныеПараметры = Новый Соответствие;
ПрочитатьПараметрыРекурсивно( соотПараметры, прочитанныеПараметры );
OSCRIPT = прочитанныеПараметры.Получить( "OSCRIPT" );
EXE1CV8 = прочитанныеПараметры.Получить( "EXE1CV8" );
FileBackup = прочитанныеПараметры.Получить( "FileBackup" );
Script_Restore = прочитанныеПараметры.Получить( "Script_Restore" );
ВыгружатьБекап = прочитанныеПараметры.Получить( "Source_SQL.UseBackup" );
Source_SQL_Server = прочитанныеПараметры.Получить( "Source_SQL.Server" );
Source_SQL_User = прочитанныеПараметры.Получить( "Source_SQL.User" );
Source_SQL_Password = прочитанныеПараметры.Получить( "Source_SQL.Password" );
Source_SQL_Base = прочитанныеПараметры.Получить( "Source_SQL.Base" );
ЗагружатьИзБекапа = прочитанныеПараметры.Получить( "Current_SQL.UseRestore" );
Current_SQL_Server = прочитанныеПараметры.Получить( "Current_SQL.Server" );
Current_SQL_User = прочитанныеПараметры.Получить( "Current_SQL.User" );
Current_SQL_Password = прочитанныеПараметры.Получить( "Current_SQL.Password" );
Current_SQL_Base = прочитанныеПараметры.Получить( "Current_SQL.Base" );
База_СтрокаПодключения = прочитанныеПараметры.Получить( "Current_Base.Connect" );
База_Пользователь = прочитанныеПараметры.Получить( "Current_Base.User" );
База_Пароль = прочитанныеПараметры.Получить( "Current_Base.Password" );
ПодключатьКХранилищу = прочитанныеПараметры.Получить( "Current_Repo.Blind" );
Хранилище_Адрес = прочитанныеПараметры.Получить( "Current_Repo.Connect" );
Хранилище_Пользователь = прочитанныеПараметры.Получить( "Current_Repo.User" );
Хранилище_Пароль = прочитанныеПараметры.Получить( "Current_Repo.Password" );
НастроитьВидимостьДоступность();
КонецПроцедуры
&НаКлиенте
Процедура Записать(Команда)
Если Не ПроверитьЗаполнение() Тогда
Возврат;
КонецЕсли;
ЗаписьJSON = Новый ЗаписьJSON;
ЗаписьJSON.ОткрытьФайл( ИмяФайлаНастроек,,, Новый ПараметрыЗаписиJSON(, Символы.Таб ));
соот = Новый Соответствие;
общиеПараметры = Новый Соответствие;
общиеПараметры.Вставить( "OSCRIPT" , OSCRIPT );
общиеПараметры.Вставить( "EXE1CV8" , EXE1CV8 );
общиеПараметры.Вставить( "FileBackup" , FileBackup );
общиеПараметры.Вставить( "Script_Restore", Script_Restore );
соот.Вставить( НСтр( "ru='Общие параметры'" ), общиеПараметры );
параметрыБазыИсточника = Новый Соответствие;
параметрыБазыИсточника.Вставить( "Source_SQL.UseBackup", ВыгружатьБекап );
параметрыБазыИсточника.Вставить( "Source_SQL.Server", Source_SQL_Server );
параметрыБазыИсточника.Вставить( "Source_SQL.User", Source_SQL_User );
параметрыБазыИсточника.Вставить( "Source_SQL.Password", Source_SQL_Password );
параметрыБазыИсточника.Вставить( "Source_SQL.Base", Source_SQL_Base );
соот.Вставить( НСтр( "ru='Параметры базы-источника'" ), параметрыБазыИсточника );
параметрыБазыПриемника = Новый Соответствие;
параметрыБазыПриемника.Вставить( "Current_SQL.UseRestore", ЗагружатьИзБекапа );
параметрыБазыПриемника.Вставить( "Current_SQL.Server", Current_SQL_Server );
параметрыБазыПриемника.Вставить( "Current_SQL.User", Current_SQL_User );
параметрыБазыПриемника.Вставить( "Current_SQL.Password", Current_SQL_Password );
параметрыБазыПриемника.Вставить( "Current_SQL.Base", Current_SQL_Base );
параметрыБазыПриемника.Вставить( "Current_Base.Connect", База_СтрокаПодключения );
параметрыБазыПриемника.Вставить( "Current_Base.User", База_Пользователь );
параметрыБазыПриемника.Вставить( "Current_Base.Password", База_Пароль );
параметрыБазыПриемника.Вставить( "Current_Repo.Blind", ПодключатьКХранилищу );
параметрыБазыПриемника.Вставить( "Current_Repo.Connect", Хранилище_Адрес );
параметрыБазыПриемника.Вставить( "Current_Repo.User", Хранилище_Пользователь );
параметрыБазыПриемника.Вставить( "Current_Repo.Password", Хранилище_Пароль );
соот.Вставить( НСтр( "ru='Параметры базы-приемника'" ), параметрыБазыПриемника );
ЗаписатьJSON( ЗаписьJSON, соот );
ЗаписьJSON.Закрыть();
КонецПроцедуры
&НаКлиенте
Процедура ИмяФайлаНастроекНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла( РежимДиалогаВыбораФайла.Открытие );
Если ЗначениеЗаполнено( ИмяФайлаНастроек ) Тогда
ДиалогОткрытияФайла.ПолноеИмяФайла = ИмяФайлаНастроек;
Иначе
имяБазы = Current_SQL_Base;
Если Не ЗначениеЗаполнено( имяБазы ) Тогда
имяБазы = "db111";
КонецЕсли;
ДиалогОткрытияФайла.ПолноеИмяФайла = имяБазы + "." + РасширениеФайлаНастроек();
КонецЕсли;
ДиалогОткрытияФайла.Фильтр = НСтр( "ru='Настройки базы'" ) + " (*." + РасширениеФайлаНастроек() + "|*." + РасширениеФайлаНастроек();
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
ДиалогОткрытияФайла.Заголовок = НСтр( "ru='Выберите файл настройки'" );
ДиалогОткрытияФайла.Показать(Новый ОписаниеОповещения("ИмяФайлаНастроекНачалоВыбораЗавершение", ЭтаФорма, Новый Структура("ДиалогОткрытияФайла", ДиалогОткрытияФайла)));
КонецПроцедуры
&НаКлиенте
Процедура ИмяФайлаНастроекНачалоВыбораЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
ДиалогОткрытияФайла = ДополнительныеПараметры.ДиалогОткрытияФайла;
Если (ВыбранныеФайлы <> Неопределено) Тогда
ИмяФайлаНастроек = ДиалогОткрытияФайла.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ИмяФайлаНастроекПриИзменении(Элемент)
Прочитать( Неопределено );
КонецПроцедуры
&НаКлиенте
Процедура Script_RestoreНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла( РежимДиалогаВыбораФайла.Открытие );
Если ЗначениеЗаполнено( ИмяФайлаНастроек ) Тогда
ДиалогОткрытияФайла.ПолноеИмяФайла = Script_Restore;
КонецЕсли;
ДиалогОткрытияФайла.Фильтр = НСтр( "ru='Исходный файл SQL'" ) + " (*.sql)|*.sql";
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
ДиалогОткрытияФайла.Заголовок = НСтр( "ru='Выберите файл со скриптом восстановления'" );
ДиалогОткрытияФайла.Показать(Новый ОписаниеОповещения("ИмяФайлаНастроекНачалоВыбораЗавершение", ЭтаФорма, Новый Структура("ДиалогОткрытияФайла", ДиалогОткрытияФайла)));
КонецПроцедуры
&НаКлиенте
Процедура Script_RestoreНачалоВыбораЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
ДиалогОткрытияФайла = ДополнительныеПараметры.ДиалогОткрытияФайла;
Если (ВыбранныеФайлы <> Неопределено) Тогда
Script_Restore = ДиалогОткрытияФайла.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗагружатьИзБекапаПриИзменении(Элемент)
Элементы.Группа_БазаПриемник_SQL.Доступность = ЗагружатьИзБекапа;
КонецПроцедуры
&НаКлиенте
Процедура ВыгружатьБекапПриИзменении(Элемент)
Элементы.Группа_БазаИсточник_SQL.Доступность = ВыгружатьБекап;
КонецПроцедуры
&НаКлиенте
Процедура ПодключатьКХранилищуПриИзменении(Элемент)
Элементы.Группа_БазаПриемник.Доступность = ПодключатьКХранилищу;
Элементы.Группа_Хранилище.Доступность = ПодключатьКХранилищу;
КонецПроцедуры
#Область Прочее
&НаКлиентеНаСервереБезКонтекста
Функция ПеременныеОкружения()
ПеременныеОкружения = Новый Структура;
Попытка
WshShell = Новый COMОбъект("WScript.Shell");
WshSysEnv = WshShell.Environment("Process");
ПеременныеОкружения.Вставить("oscript" , WshSysEnv.Item("oscript"));
Исключение
КонецПопытки;
Возврат ПеременныеОкружения;
КонецФункции
&НаКлиентеНаСервереБезКонтекста
Процедура ПрочитатьПараметрыРекурсивно( Знач пПараметры, пПрочитенныеПараметры )
Для каждого цЭлемент Из пПараметры Цикл
Если ТипЗнч( цЭлемент.Значение ) = Тип("Структура")
ИЛИ ТипЗнч( цЭлемент.Значение ) = Тип("Соответствие") Тогда
ПрочитатьПараметрыРекурсивно( цЭлемент.Значение, пПрочитенныеПараметры );
Иначе
пПрочитенныеПараметры.Вставить( цЭлемент.Ключ, цЭлемент.Значение );
КонецЕсли;
КонецЦикла;
КонецПроцедуры
&НаСервере
Процедура НастроитьВидимостьДоступность()
Элементы.Группа_БазаПриемник_SQL.Доступность = ЗагружатьИзБекапа;
Элементы.Группа_БазаИсточник_SQL.Доступность = ВыгружатьБекап;
Элементы.Группа_БазаПриемник.Доступность = ПодключатьКХранилищу;
Элементы.Группа_Хранилище.Доступность = ПодключатьКХранилищу;
КонецПроцедуры
#КонецОбласти
Функция ТекущиеЗначения()
текЗначения = Новый Структура;
Для каждого цРеквизит Из ПолучитьРеквизиты() Цикл
текЗначения.Вставить( цРеквизит.Имя, ЭтаФорма[цРеквизит.Имя] );
КонецЦикла;
Возврат текЗначения;
КонецФункции
&НаКлиенте
Процедура ТестОбработки(Команда)
старЗначения = ТекущиеЗначения();
генератор = Новый ГенераторСлучайныхЧисел( ТекущаяУниверсальнаяДатаВМиллисекундах() );
тестовыеЗначения = Новый Структура("OSCRIPT,EXE1CV8,FileBackup,Script_Restore,
|Source_SQL_Server,Source_SQL_User,Source_SQL_Password,Source_SQL_Base,
|Current_SQL_Server,Current_SQL_User,Current_SQL_Password,Current_SQL_Base,
|База_СтрокаПодключения,База_Пользователь,База_Пароль,
|Хранилище_Адрес,Хранилище_Пользователь,Хранилище_Пароль");
Для каждого цЭлемент Из тестовыеЗначения Цикл
тестовыеЗначения.Вставить( цЭлемент.Ключ, Строка( генератор.СлучайноеЧисло() ) );
КонецЦикла;
тестовыеЗначения.Вставить( "ВыгружатьБекап", Истина );
тестовыеЗначения.Вставить( "ЗагружатьИзБекапа", Истина );
тестовыеЗначения.Вставить( "ПодключатьКХранилищу", Истина );
лИмяФайлаНастроек = ПолучитьИмяВременногоФайла( РасширениеФайлаНастроек() );
ИмяФайлаНастроек = лИмяФайлаНастроек;
ЗаполнитьЗначенияСвойств( ЭтаФорма, тестовыеЗначения );
Записать( Неопределено );
ЗаполнитьЗначенияСвойств( ЭтаФорма, старЗначения,, "Объект" );
ИмяФайлаНастроек = лИмяФайлаНастроек;
Прочитать( Неопределено );
тестПрошел = Истина;
Для каждого цЭлемент Из тестовыеЗначения Цикл
Если Не цЭлемент.Значение = ЭтаФорма[цЭлемент.Ключ] Тогда
Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = цЭлемент.Ключ + НСтр( "ru=': Различаются значения. Должно быть '" ) + цЭлемент.Значение;
Сообщение.Поле = цЭлемент.Ключ;
Сообщение.Сообщить();
тестПрошел = Ложь;
КонецЕсли;
КонецЦикла;
Если тестПрошел Тогда
ЗаполнитьЗначенияСвойств( ЭтаФорма, старЗначения,, "Объект" );
НачатьУдалениеФайлов(Новый ОписаниеОповещения("ТестОбработкиЗавершение", ЭтаФорма), лИмяФайлаНастроек );
ПоказатьОповещениеПользователя( НСтр( "ru='Тест прошел успешно'" ) );
КонецЕсли;
НастроитьВидимостьДоступность();
КонецПроцедуры
&НаКлиенте
Процедура ТестОбработкиЗавершение(ДополнительныеПараметры) Экспорт
КонецПроцедуры