Форма настроен. Каркас под команду тестирования соединения.
This commit is contained in:
@@ -0,0 +1,9 @@
|
||||
// TODO: Надо внести стандартные директивы и области в данный модуль
|
||||
|
||||
Функция СоединениеАктивно(НастройкаСсылка) Экспорт
|
||||
Если ТипЗнч(НастройкаСсылка) = Тип("СправочникСсылка.РК_НастройкиПодключенияКВнешнейБазе") Тогда
|
||||
// TODO: Тут надо проверить Активно у записи настройки и соответствие ИмяТекущейБазы имени данной базы и вернуть ЛОЖЬ если одно из этого не выполняется.
|
||||
Иначе
|
||||
Возврат Неопределено;
|
||||
КонецЕсли;
|
||||
КонецФункции
|
||||
@@ -2,7 +2,15 @@
|
||||
<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:dcssch="http://v8.1c.ru/8.1/data-composition-system/schema" 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.20">
|
||||
<WindowOpeningMode>LockOwnerWindow</WindowOpeningMode>
|
||||
<UseForFoldersAndItems>Items</UseForFoldersAndItems>
|
||||
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1"/>
|
||||
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1">
|
||||
<ChildItems>
|
||||
<Button name="ФормаКомандаПроверитьСоединение" id="35">
|
||||
<Type>CommandBarButton</Type>
|
||||
<CommandName>Form.Command.КомандаПроверитьСоединение</CommandName>
|
||||
<ExtendedTooltip name="ФормаКомандаПроверитьСоединениеРасширеннаяПодсказка" id="36"/>
|
||||
</Button>
|
||||
</ChildItems>
|
||||
</AutoCommandBar>
|
||||
<ChildItems>
|
||||
<InputField name="Код" id="1">
|
||||
<DataPath>Объект.Code</DataPath>
|
||||
@@ -87,12 +95,26 @@
|
||||
</InputField>
|
||||
</ChildItems>
|
||||
</UsualGroup>
|
||||
<InputField name="ИмяТекущейБазы" id="32">
|
||||
<DataPath>Объект.ИмяТекущейБазы</DataPath>
|
||||
<ExtendedEditMultipleValues>true</ExtendedEditMultipleValues>
|
||||
<ContextMenu name="ИмяТекущейБазыКонтекстноеМеню" id="33"/>
|
||||
<ExtendedTooltip name="ИмяТекущейБазыРасширеннаяПодсказка" id="34"/>
|
||||
</InputField>
|
||||
<UsualGroup name="Группа1" id="37">
|
||||
<Group>AlwaysHorizontal</Group>
|
||||
<ExtendedTooltip name="Группа1РасширеннаяПодсказка" id="38"/>
|
||||
<ChildItems>
|
||||
<InputField name="ИмяТекущейБазы" id="32">
|
||||
<DataPath>Объект.ИмяТекущейБазы</DataPath>
|
||||
<AutoMaxWidth>false</AutoMaxWidth>
|
||||
<ClearButton>true</ClearButton>
|
||||
<ExtendedEditMultipleValues>true</ExtendedEditMultipleValues>
|
||||
<ContextMenu name="ИмяТекущейБазыКонтекстноеМеню" id="33"/>
|
||||
<ExtendedTooltip name="ИмяТекущейБазыРасширеннаяПодсказка" id="34"/>
|
||||
</InputField>
|
||||
<Button name="ОбновитьИмяТекущейБазы" id="39">
|
||||
<Type>UsualButton</Type>
|
||||
<Representation>Picture</Representation>
|
||||
<CommandName>Form.Command.ОбновитьИмяТекущейБазы</CommandName>
|
||||
<ExtendedTooltip name="ОбновитьИмяТекущейБазыРасширеннаяПодсказка" id="40"/>
|
||||
</Button>
|
||||
</ChildItems>
|
||||
</UsualGroup>
|
||||
<CheckBoxField name="Активно" id="22">
|
||||
<DataPath>Объект.Активно</DataPath>
|
||||
<CheckBoxType>Auto</CheckBoxType>
|
||||
@@ -128,10 +150,33 @@
|
||||
<ToolTip>
|
||||
<v8:item>
|
||||
<v8:lang>ru</v8:lang>
|
||||
<v8:content>Обновить имя текущей базы</v8:content>
|
||||
<v8:content>Обновить имя текущей базы из текущей</v8:content>
|
||||
</v8:item>
|
||||
</ToolTip>
|
||||
<Picture>
|
||||
<xr:Ref>CommonPicture.ЗаполнитьФорму</xr:Ref>
|
||||
<xr:LoadTransparent>true</xr:LoadTransparent>
|
||||
</Picture>
|
||||
<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>
|
||||
<Picture>
|
||||
<xr:Ref>StdPicture.AppearanceCheckIcon</xr:Ref>
|
||||
<xr:LoadTransparent>true</xr:LoadTransparent>
|
||||
</Picture>
|
||||
<Action>КомандаПроверитьСоединение</Action>
|
||||
</Command>
|
||||
</Commands>
|
||||
</Form>
|
||||
+11
-1
@@ -1,10 +1,20 @@
|
||||
|
||||
&НаСервере
|
||||
Процедура ОбновитьИмяТекущейБазыНаСервере()
|
||||
// Вставить содержимое обработчика.
|
||||
// TODO: Заполнить имя базы из текущей.
|
||||
КонецПроцедуры
|
||||
|
||||
&НаКлиенте
|
||||
Процедура ОбновитьИмяТекущейБазы(Команда)
|
||||
ОбновитьИмяТекущейБазыНаСервере();
|
||||
КонецПроцедуры
|
||||
|
||||
&НаСервере
|
||||
Процедура КомандаПроверитьСоединениеНаСервере()
|
||||
// TODO: Реализовать тестовое соединение со сторонней базой через API ws-rhana
|
||||
КонецПроцедуры
|
||||
|
||||
&НаКлиенте
|
||||
Процедура КомандаПроверитьСоединение(Команда)
|
||||
КомандаПроверитьСоединениеНаСервере();
|
||||
КонецПроцедуры
|
||||
|
||||
Reference in New Issue
Block a user