1c_tools
/
epf_QueryConsole
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Импорт из БСП

This commit is contained in:
Dmitry Belyaev 2019-02-21 16:29:02 +03:00
commit 976cb371bb
Signed by: b4tman
GPG Key ID: 014E87EC54B77673
34 changed files with 9963 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored Normal file
View File

@ -0,0 +1 @@
/*.e[rp]f

1007
src/ИнструментыРазработчикаКонсольЗапросов.xml Normal file
View File

File diff suppressed because it is too large Load Diff

4
src/ИнструментыРазработчикаКонсольЗапросов/Ext/Help.xml Normal file
View File

@ -0,0 +1,4 @@
<?xml version="1.0" encoding="UTF-8"?>
<Help xmlns="http://v8.1c.ru/8.3/xcf/extrnprops" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.7">
<Page>ru</Page>
</Help>

11
src/ИнструментыРазработчикаКонсольЗапросов/Ext/Help/ru.html Normal file
View File

@ -0,0 +1,11 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.10570.1001"></meta></head><body>
<h1 style="WHITE-SPACE: normal; WORD-SPACING: 0px; TEXT-TRANSFORM: none; COLOR: rgb(0,51,102); TEXT-ALIGN: left; FONT: bold 18pt Arial, Tahoma; LETTER-SPACING: normal; TEXT-INDENT: 0px; -webkit-text-stroke-width: 0px"><span class="iss_sch_hl current" style="BACKGROUND-COLOR: yellow">Консоль</span><span class="Apple-converted-space"> </span><span class="iss_sch_hl" style="BACKGROUND-COLOR: rgb(0,255,255)">запросов</span> для управляемого приложения</h1>
<p style="WHITE-SPACE: normal; WORD-SPACING: 0px; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); FONT: 13px Verdana; LETTER-SPACING: normal; TEXT-INDENT: 0px; -webkit-text-stroke-width: 0px">Инструмент "<span class="iss_sch_hl" style="BACKGROUND-COLOR: rgb(0,255,255)">Консоль</span><span class="Apple-converted-space"> </span><span class="iss_sch_hl" style="BACKGROUND-COLOR: rgb(0,255,255)">запросов</span>" предназначена для отладки и просмотра результатов выполнения запросов в режиме 1С:Предприятие. Данная обработка предназначена, в основном, для разработчиков конфигураций и специалистов по внедрению. </p>
<p style="WHITE-SPACE: normal; WORD-SPACING: 0px; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); FONT: 13px Verdana; LETTER-SPACING: normal; TEXT-INDENT: 0px; -webkit-text-stroke-width: 0px">При разработке запросов в конфигураторе, как правило, требуется проводить отладку запроса на реальных данных. Данный инструмент позволяет вести разработку запроса (или пакета запросов) параллельно с просмотром результата. При работе с инструментом в толстом клиенте можно воспользоваться конструктором запросов, как и при работе в конфигураторе. Возможности по анализу результата запроса включают:</p>
<ul style="WHITE-SPACE: normal; WORD-SPACING: 0px; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); FONT: 13px Verdana; LETTER-SPACING: normal; TEXT-INDENT: 0px; -webkit-text-stroke-width: 0px"><li>вывод данных временных таблиц,
</li><li>замер времени выполнения запроса и числа строк,
</li><li>подсветку указанных ячеек в результате запроса,
</li><li>интерактивное сравнение двух результатов запроса (только в толстом клиенте),
</li><li>а также вывод результата запроса в новом окне.
</li><li>вывод плана выполнения запроса, а также SQL-текст запроса, сформированного в СУБД. Для СУБД Microsoft SQL Server план выполнения выводится в виде дерева, а для остальных СУБД – в текстовом формате технологического журнала. Для упрощения анализа запросов также предусмотрено два режима отображения текстов запросов: с именами таблиц и колонок СУБД или с именами объектов метаданных и реквизитов конфигурации.</li></ul><p style="WHITE-SPACE: normal; WORD-SPACING: 0px; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); FONT: 13px Verdana; LETTER-SPACING: normal; TEXT-INDENT: 0px; -webkit-text-stroke-width: 0px">После завершения отладки, текст запроса можно перенести в код (с помощью команды формирования текста запроса для конфигуратора) или в отчеты конфигурации. К сервисным возможностям относятся работа сразу с несколькими запросами (пакет запросов), сохранение текста и параметров запросов в файле, автосохранение, экспорт результатов запроса в табличный документ и другое.</p>
<p style="WHITE-SPACE: normal; WORD-SPACING: 0px; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); FONT: 13px Verdana; LETTER-SPACING: normal; TEXT-INDENT: 0px; -webkit-text-stroke-width: 0px">Если в запросе при выводе результатов требуется использовать точку с запятой, то ее следует экранировать символом обратного слеша - "<strong>\</strong>". <br>Пример: <em>ВЫБРАТЬ Номенклатура.Наименование + " \; " + Номенклатура.Наименование ИЗ Справочник.Номенклатура</em> </p></body></html>

1993
src/ИнструментыРазработчикаКонсольЗапросов/Ext/ObjectModule.bsl Normal file
View File

File diff suppressed because it is too large Load Diff

22
src/ИнструментыРазработчикаКонсольЗапросов/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.7">
<Form uuid="fa515b18-8e83-489a-ade0-4ec882c66901">
<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">PlatformApplication</v8:Value>
<v8:Value xsi:type="app:ApplicationUsePurpose">MobilePlatformApplication</v8:Value>
</UsePurposes>
<ExtendedPresentation/>
</Properties>
</Form>
</MetaDataObject>

357
src/ИнструментыРазработчикаКонсольЗапросов/Forms/ВыборЗапроса/Ext/Form.xml Normal file
View File

@ -0,0 +1,357 @@
<?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.7">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Выбор запроса</v8:content>
</v8:item>
</Title>
<Width>80</Width>
<WindowOpeningMode>LockOwnerWindow</WindowOpeningMode>
<AutoTitle>false</AutoTitle>
<VerticalScroll>useIfNecessary</VerticalScroll>
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1">
<ChildItems>
<Button name="ЗапросыВыбратьЗапрос" id="15">
<Type>CommandBarButton</Type>
<DefaultButton>true</DefaultButton>
<CommandName>Form.Command.ВыбратьЗапрос</CommandName>
<ExtendedTooltip name="ЗапросыВыбратьЗапросExtendedTooltip" id="25"/>
</Button>
<ButtonGroup name="ФормаГруппа1" id="18">
<CommandSource>Item.Запросы</CommandSource>
<ExtendedTooltip name="ФормаГруппа1ExtendedTooltip" id="26"/>
</ButtonGroup>
<ButtonGroup name="ФормаГруппа2" id="19">
<ExtendedTooltip name="ФормаГруппа2ExtendedTooltip" id="27"/>
<ChildItems>
<Button name="ЗапросыВосстановитьЗапросыИзФайла" id="14">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.ВосстановитьЗапросыИзФайла</CommandName>
<ExtendedTooltip name="ЗапросыВосстановитьЗапросыИзФайлаExtendedTooltip" id="28"/>
</Button>
<Button name="ФормаДобавитьЗапросыИзФайла" id="22">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.ДобавитьЗапросыИзФайла</CommandName>
<ExtendedTooltip name="ФормаДобавитьЗапросыИзФайлаExtendedTooltip" id="29"/>
</Button>
<Button name="ЗапросыСохранитьЗапросыВФайл" id="13">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.СохранитьЗапросыВФайл</CommandName>
<ExtendedTooltip name="ЗапросыСохранитьЗапросыВФайлExtendedTooltip" id="30"/>
</Button>
<Button name="ЗапросыСохранитьЗапросыВДругойФайл" id="17">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.СохранитьЗапросыВДругойФайл</CommandName>
<ExtendedTooltip name="ЗапросыСохранитьЗапросыВДругойФайлExtendedTooltip" id="31"/>
</Button>
</ChildItems>
</ButtonGroup>
<Button name="ФормаСравнитьРезультатыЗапросов" id="24">
<Type>CommandBarButton</Type>
<OnlyInAllActions>false</OnlyInAllActions>
<CommandName>Form.Command.СравнитьРезультатыЗапросов</CommandName>
<ExtendedTooltip name="ФормаСравнитьРезультатыЗапросовExtendedTooltip" id="32"/>
</Button>
</ChildItems>
</AutoCommandBar>
<Events>
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
</Events>
<ChildItems>
<Table name="Запросы" id="1">
<Representation>List</Representation>
<CommandBarLocation>None</CommandBarLocation>
<MultipleChoice>true</MultipleChoice>
<RowSelectionMode>Row</RowSelectionMode>
<UseAlternationRowColor>true</UseAlternationRowColor>
<AutoInsertNewRow>true</AutoInsertNewRow>
<EnableStartDrag>true</EnableStartDrag>
<EnableDrag>true</EnableDrag>
<FileDragMode>AsFile</FileDragMode>
<DataPath>Объект.Запросы</DataPath>
<SearchStringLocation>None</SearchStringLocation>
<ViewStatusLocation>None</ViewStatusLocation>
<SearchControlLocation>None</SearchControlLocation>
<RowFilter xsi:nil="true"/>
<ContextMenu name="ЗапросыКонтекстноеМеню" id="2">
<ChildItems>
<Button name="ЗапросыКонтекстноеМенюСравнитьРезультатыЗапросов" id="23">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.СравнитьРезультатыЗапросов</CommandName>
<ExtendedTooltip name="ЗапросыКонтекстноеМенюСравнитьРезультатыЗапросовExtendedTooltip" id="33"/>
</Button>
</ChildItems>
</ContextMenu>
<AutoCommandBar name="ЗапросыКоманднаяПанель" id="3"/>
<ExtendedTooltip name="ЗапросыExtendedTooltip" id="34"/>
<SearchStringAddition name="ЗапросыСтрокаПоиска" id="41">
<AdditionSource>
<Item>Запросы</Item>
<Type>SearchStringRepresentation</Type>
</AdditionSource>
<ContextMenu name="ЗапросыСтрокаПоискаКонтекстноеМеню" id="42"/>
<ExtendedTooltip name="ЗапросыСтрокаПоискаРасширеннаяПодсказка" id="43"/>
</SearchStringAddition>
<ViewStatusAddition name="ЗапросыСостояниеПросмотра" id="44">
<AdditionSource>
<Item>Запросы</Item>
<Type>ViewStatusRepresentation</Type>
</AdditionSource>
<ContextMenu name="ЗапросыСостояниеПросмотраКонтекстноеМеню" id="45"/>
<ExtendedTooltip name="ЗапросыСостояниеПросмотраРасширеннаяПодсказка" id="46"/>
</ViewStatusAddition>
<SearchControlAddition name="ЗапросыУправлениеПоиском" id="47">
<AdditionSource>
<Item>Запросы</Item>
<Type>SearchControl</Type>
</AdditionSource>
<ContextMenu name="ЗапросыУправлениеПоискомКонтекстноеМеню" id="48"/>
<ExtendedTooltip name="ЗапросыУправлениеПоискомРасширеннаяПодсказка" id="49"/>
</SearchControlAddition>
<Events>
<Event name="1282f000-23b6-4887-87f4-9e8e79db3d32">ЗапросыВыбор</Event>
<Event name="2391e7b8-7235-45d7-ab7e-6ff3dc086396">ЗапросыПередНачаломДобавления</Event>
<Event name="2ccfdec5-583d-4eca-8319-e55de492665a">ЗапросыПередУдалением</Event>
</Events>
<ChildItems>
<InputField name="ЗапросыИмя" id="4">
<DataPath>Объект.Запросы.Имя</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ЗапросыИмяКонтекстноеМеню" id="5"/>
<ExtendedTooltip name="ЗапросыИмяExtendedTooltip" id="35"/>
<Events>
<Event name="OnChange">ЗапросыИмяПриИзменении</Event>
</Events>
</InputField>
<LabelField name="ЗапросыID" id="11">
<DataPath>Объект.Запросы.Идентификатор</DataPath>
<Visible>false</Visible>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ЗапросыIDКонтекстноеМеню" id="12"/>
<ExtendedTooltip name="ЗапросыIDExtendedTooltip" id="36"/>
</LabelField>
<ColumnGroup name="ГруппаЗапроса" id="6">
<ReadOnly>true</ReadOnly>
<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>Horizontal</Group>
<ExtendedTooltip name="ГруппаЗапросаExtendedTooltip" id="37"/>
<ChildItems>
<InputField name="ЗапросыВремяВыполнения" id="7">
<DataPath>Объект.Запросы.ВремяВыполнения</DataPath>
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Время выполнения (сек.)</v8:content>
</v8:item>
</Title>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ЗапросыВремяВыполненияКонтекстноеМеню" id="8"/>
<ExtendedTooltip name="ЗапросыВремяВыполненияExtendedTooltip" id="38"/>
</InputField>
<InputField name="ЗапросыКоличествоСтрок" id="9">
<DataPath>Объект.Запросы.КоличествоСтрок</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ЗапросыКоличествоСтрокКонтекстноеМеню" id="10"/>
<ExtendedTooltip name="ЗапросыКоличествоСтрокExtendedTooltip" id="39"/>
</InputField>
</ChildItems>
</ColumnGroup>
</ChildItems>
</Table>
<InputField name="ИмяФайла" id="20">
<DataPath>Объект.ИмяФайла</DataPath>
<ReadOnly>true</ReadOnly>
<ContextMenu name="ИмяФайлаКонтекстноеМеню" id="21"/>
<ExtendedTooltip name="ИмяФайлаExtendedTooltip" id="40"/>
</InputField>
</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>v8:UUID</v8:Type>
</Type>
</Attribute>
<Attribute name="ИдентификаторТекущегоПараметра" id="3">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Идентификатор текущего параметра</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>v8:UUID</v8:Type>
</Type>
</Attribute>
<Attribute name="СписокТипов" id="4">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Список типов</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>v8:ValueListType</v8:Type>
</Type>
</Attribute>
<Attribute name="ЗаданВопросОбУстановкеРасширения" id="5">
<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>
<Shortcut>Ctrl+S</Shortcut>
<Picture>
<xr:Ref>StdPicture.SaveFile</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>СохранитьЗапросыВФайл</Action>
<Representation>Picture</Representation>
<CurrentRowUse>DontUse</CurrentRowUse>
</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>
<Shortcut>Ctrl+O</Shortcut>
<Picture>
<xr:Ref>StdPicture.OpenFile</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>ВосстановитьЗапросыИзФайла</Action>
<Representation>TextPicture</Representation>
<CurrentRowUse>DontUse</CurrentRowUse>
</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>
<CurrentRowUse>DontUse</CurrentRowUse>
</Command>
<Command name="СохранитьЗапросыВДругойФайл" id="4">
<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.EndEdit</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>СохранитьЗапросыВДругойФайл</Action>
<Representation>Picture</Representation>
<CurrentRowUse>DontUse</CurrentRowUse>
</Command>
<Command name="ДобавитьЗапросыИзФайла" id="5">
<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.NewWindow</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>ДобавитьЗапросыИзФайла</Action>
<Representation>Picture</Representation>
<CurrentRowUse>DontUse</CurrentRowUse>
</Command>
<Command name="СравнитьРезультатыЗапросов" id="6">
<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.ReadChanges</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>СравнитьРезультатыЗапросов</Action>
<Representation>TextPicture</Representation>
<CurrentRowUse>DontUse</CurrentRowUse>
</Command>
</Commands>
</Form>

456
src/ИнструментыРазработчикаКонсольЗапросов/Forms/ВыборЗапроса/Ext/Form/Module.bsl Normal file
View File

@ -0,0 +1,456 @@

#Область ОбработчикиСобытий
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
// Считывание параметров передачи.
ПараметрыПередачи = ПолучитьИзВременногоХранилища(Параметры.АдресХранилища);
Объект.Запросы.Загрузить(ПараметрыПередачи.Запросы);
Объект.Параметры.Загрузить(ПараметрыПередачи.Параметры);
Объект.ИмяФайла = ПараметрыПередачи.ИмяФайла;
ИдентификаторТекущегоЗапроса = ПараметрыПередачи.ИдентификаторТекущегоЗапроса;
ИдентификаторТекущегоПараметра = ПараметрыПередачи.ИдентификаторТекущегоПараметра;
ОбработкаОбъект = ОбъектОбработки();
Объект.ДоступныеТипыДанных = ОбработкаОбъект.Метаданные().Реквизиты.ДоступныеТипыДанных.Тип;
СписокТипов = ОбъектОбработки().СформироватьСписокТипов();
ОбработкаОбъект.ФильтрацияСпискаТипов(СписокТипов, "");
Фильтр = Новый Структура;
Фильтр.Вставить("Идентификатор", ИдентификаторТекущегоЗапроса);
СтрокиЗапросовСИдентификатор = Объект.Запросы.НайтиСтроки(Фильтр);
Если СтрокиЗапросовСИдентификатор.Количество() > 0 Тогда
Элементы.Запросы.ТекущаяСтрока = СтрокиЗапросовСИдентификатор.Получить(0).ПолучитьИдентификатор();
КонецЕсли;
Заголовок = НСтр("ru = 'Выбрать запрос'");
КонецПроцедуры
&НаКлиенте
Процедура ЗапросыПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)
Отказ = Истина;
ЭлементКопирования = Элемент.ТекущиеДанные;
ИмяЗапросаПоУмолчанию = ЭтотОбъект.ВладелецФормы.ИмяЗапросаПоУмолчанию;
ИдентификаторЗапроса = Новый УникальныйИдентификатор;
Запрос = Объект.Запросы.Добавить();
Запрос.Имя = ИмяЗапросаПоУмолчанию;
Запрос.Идентификатор = ИдентификаторЗапроса;
Если Копирование Тогда
ИмяНовогоЗапроса = СформироватьИмяКопииЗапроса(ЭлементКопирования.Имя);
Запрос.Имя = ИмяНовогоЗапроса;
Запрос.Текст = ЭлементКопирования.Текст;
ИдентификаторТекущегоЗапроса = ЭлементКопирования.Идентификатор;
// Копирование параметров
Фильтр = Новый Структура;
Фильтр.Вставить("ИдентификаторЗапроса", ИдентификаторТекущегоЗапроса);
МассивПараметров = Объект.Параметры.НайтиСтроки(Фильтр);
Для каждого Стр Из МассивПараметров Цикл
ЭлементПараметр = Объект.Параметры.Добавить();
ЭлементПараметр.Идентификатор = Новый УникальныйИдентификатор;
ЭлементПараметр.ИдентификаторЗапроса = ИдентификаторЗапроса;
ЭлементПараметр.Имя = Стр.Имя;
ЭлементПараметр.Тип = Стр.Тип;
ЭлементПараметр.Значение = Стр.Значение;
ЭлементПараметр.ТипВФорме = Стр.ТипВФорме;
ЭлементПараметр.ЗначениеВФорме = Стр.ЗначениеВФорме;
КонецЦикла;
КонецЕсли;
ВладелецФормы.Модифицированность = Истина;
КонецПроцедуры
// Обработчик перед удалением Запроса.
// Удаляет параметры для данного запроса.
//
&НаКлиенте
Процедура ЗапросыПередУдалением(Элемент, Отказ)
ПараметрыВФорме = Объект.Параметры;
ИдентификаторУдаляемогоЗапроса = Элементы.Запросы.ТекущиеДанные.Идентификатор;
КоличествоСтрок = ПараметрыВФорме.Количество() - 1;
Пока КоличествоСтрок >= 0 Цикл
ТекущийПараметр = ПараметрыВФорме.Получить(КоличествоСтрок);
Если ТекущийПараметр.ИдентификаторЗапроса = ИдентификаторУдаляемогоЗапроса Тогда
ПараметрыВФорме.Удалить(КоличествоСтрок);
Модифицированность = Истина;
КонецЕсли;
КоличествоСтрок = КоличествоСтрок - 1;
КонецЦикла;
ВладелецФормы.Модифицированность = Истина;
КонецПроцедуры
&НаКлиенте
Процедура ЗапросыВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
ОбработкаВыбораЗапроса();
КонецПроцедуры
&НаКлиенте
Процедура ЗапросыИмяПриИзменении(Элемент)
ВладелецФормы.Модифицированность = Истина;
КонецПроцедуры
&НаКлиенте
Процедура СравнитьРезультатыЗапросов(Команда)
#Если Не ВебКлиент И Не ТонкийКлиент Тогда
ВыделенныеЗапросы = Элементы.Запросы.ВыделенныеСтроки;
Если ВыделенныеЗапросы.Количество() <> 2 Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Для сравнения необходимо выбрать только 2 запроса", "Объект'"));
Возврат;
Иначе
ИдентификаторСтрокиПервогоЗапроса = ВыделенныеЗапросы.Получить(0);
ИдентификаторСтрокиВторогоЗапроса = ВыделенныеЗапросы.Получить(1);
КонецЕсли;
ИдентификаторПервогоЗапроса = Объект.Запросы.НайтиПоИдентификатору(ИдентификаторСтрокиПервогоЗапроса).Идентификатор;
ИдентификаторВторогоЗапроса = Объект.Запросы.НайтиПоИдентификатору(ИдентификаторСтрокиВторогоЗапроса).Идентификатор;
ТабличныйДокументПервогоЗапроса = Неопределено;
ТабличныйДокументВторогоЗапроса = Неопределено;
ПолучитьТабличныеДокументыСравниваемыхЗапросов(ИдентификаторПервогоЗапроса, ИдентификаторВторогоЗапроса, ТабличныйДокументПервогоЗапроса, ТабличныйДокументВторогоЗапроса);
Если ТипЗнч(ТабличныйДокументПервогоЗапроса) <> Неопределено
И ТипЗнч(ТабличныйДокументВторогоЗапроса) <> Неопределено Тогда
// Сравниваются два файла.
Сравнение = Новый СравнениеФайлов;
Сравнение.СпособСравнения = СпособСравненияФайлов.ТабличныйДокумент;
Сравнение.ПервыйФайл = ТабличныйДокументПервогоЗапроса;
Сравнение.ВторойФайл = ТабличныйДокументВторогоЗапроса;
Сравнение.ПоказатьРазличияМодально();
КонецЕсли;
#Иначе
ПоказатьПредупреждение(, НСтр("ru = 'Сравнивать результаты можно только в режиме толстого клиента.", "Объект'"));
#КонецЕсли
КонецПроцедуры
///////////////////////////////////////////////////////////////////////////
// ОБЩИЕ КОМАНДЫ
&НаКлиенте
Процедура СохранитьЗапросыВФайл(Команда)
ОписаниеОповещения = Новый ОписаниеОповещения("УстановитьИмяФайлаЗапроса", ЭтотОбъект, Объект.ИмяФайла);
СохранитьФайлЗапроса(ОписаниеОповещения);
КонецПроцедуры
&НаКлиенте
Процедура СохранитьЗапросыВДругойФайл(Команда)
ОписаниеОповещения = Новый ОписаниеОповещения("УстановитьИмяФайлаЗапроса", ЭтотОбъект, "");
СохранитьФайлЗапроса(ОписаниеОповещения);
КонецПроцедуры
&НаКлиенте
Процедура УстановитьИмяФайлаЗапроса(ИмяФайла, ДополнительныеПараметры) Экспорт
Объект.ИмяФайла = ИмяФайла;
КонецПроцедуры
&НаКлиенте
Процедура ВосстановитьЗапросыИзФайла(Команда)
ОбработкаЧтенияФайла(Истина);
ВладелецФормы.Модифицированность = Ложь;
КонецПроцедуры
&НаКлиенте
Процедура ВыбратьЗапрос(Команда)
ОбработкаВыбораЗапроса();
КонецПроцедуры
&НаКлиенте
Процедура ДобавитьЗапросыИзФайла(Команда)
ОбработкаЧтенияФайла(Ложь);
ВладелецФормы.Модифицированность = Истина;
КонецПроцедуры
///////////////////////////////////////////////////////////////////////////
// ВСПОМОГАТЕЛЬНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
&НаСервере
Функция ОбъектОбработки()
Возврат РеквизитФормыВЗначение("Объект");
КонецФункции
&НаСервере
Функция ПоместитьЗапросыВСтруктуру(ИдентификаторЗапроса, ИдентификаторПараметра)
ПараметрыПередачи = Новый Структура;
ПараметрыПередачи.Вставить("АдресХранилища", ОбъектОбработки().ПоместитьЗапросыВоВременноеХранилище(Объект, ИдентификаторЗапроса, ИдентификаторПараметра));
Возврат ПараметрыПередачи;
КонецФункции
// Сохранение запросов.
//
// Параметры:
// ИмяФайла - имя файла XML.
// Объект - объект обработки.
//
&НаСервере
Функция СохранитьЗапросы(знач Объект)
ДвоичныеДанные = ОбъектОбработки().ЗаписатьЗапросыВФайлXML(Объект);
Возврат ДвоичныеДанные;
КонецФункции
&НаКлиенте
Процедура ОбработкаВыбораЗапроса()
ТекущаяСтрока = Элементы.Запросы.ТекущаяСтрока;
Если ТекущаяСтрока <> Неопределено Тогда
ТекущийЗапрос = Элементы.Запросы.ТекущиеДанные;
ИдентификаторТекущегоЗапроса = ТекущийЗапрос.Идентификатор;
ПараметрыПередачи = ПоместитьЗапросыВСтруктуру(ИдентификаторТекущегоЗапроса, ИдентификаторТекущегоПараметра);
// Передача в открывающую форму.
Закрыть();
Оповестить("ВыгрузитьЗапросыВРеквизиты", ПараметрыПередачи);
Оповестить("ОбновитьФормуКлиент");
Иначе
ПоказатьСообщениеПользователю(НСтр("ru = 'Выберите запрос.'"), "Объект");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СохранитьФайлЗапроса(ОписаниеОповещения)
Оповещение = Новый ОписаниеОповещения("СохранитьФайлЗапросаЗавершение", ЭтотОбъект, ОписаниеОповещения);
#Если Не ВебКлиент Тогда
// В тонком и толстом клиентах расширение подключено всегда.
СохранитьФайлЗапросаЗавершение(ОписаниеОповещения);
Возврат;
#КонецЕсли
// Если расширение и так уже подключено, незачем про него спрашивать.
РасширениеПодключено = ПодключитьРасширениеРаботыСФайлами();
Если РасширениеПодключено Тогда
СохранитьФайлЗапросаЗавершение(ОписаниеОповещения);
Возврат;
КонецЕсли;
Если Не ЗаданВопросОбУстановкеРасширения Тогда
ЗаданВопросОбУстановкеРасширения = Истина;
ОписаниеОповещенияВопрос = Новый ОписаниеОповещения("ЗадатьВопросОбУстановкеРасширения", ЭтотОбъект, Оповещение);
ПоказатьВопрос(ОписаниеОповещенияВопрос, Нстр("ru = 'Установить расширение для работы с файлами?'"), РежимДиалогаВопрос.ДаНет);
Иначе
СохранитьФайлЗапросаЗавершение(ОписаниеОповещения);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗадатьВопросОбУстановкеРасширения(Ответ, Оповещение) Экспорт
Если Ответ = КодВозвратаДиалога.Да Тогда
НачатьУстановкуРасширенияРаботыСФайлами(Оповещение);
Иначе
СохранитьФайлЗапросаЗавершение(Оповещение);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СохранитьФайлЗапросаЗавершение(Оповещение) Экспорт
ИмяФайла = Оповещение.ДополнительныеПараметры;
Если ПодключитьРасширениеРаботыСФайлами() Тогда
Если ПустаяСтрока(ИмяФайла) Тогда
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
Диалог.Заголовок = НСтр("ru = 'Выберите файл запросов'");
Диалог.ПредварительныйПросмотр = Ложь;
Диалог.Фильтр = НСтр("ru = 'Файл запросов (*.q1c)|*.q1c'");
Диалог.Расширение = "q1c";
Диалог.ПроверятьСуществованиеФайла = Истина;
Диалог.МножественныйВыбор = Ложь;
Если Диалог.Выбрать() Тогда
ИмяФайла = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецЕсли;
// Записываются текст и параметры запроса в файл.
Если Не ПустаяСтрока(ИмяФайла) Тогда
ДвоичныеДанные = СохранитьЗапросы(Объект);
ДвоичныеДанные.Записать(ИмяФайла);
ВладелецФормы.Модифицированность = Ложь;
КонецЕсли;
Иначе
ТекстСообщения = НСтр("ru = 'В данном браузере невозможно работать с файлами.'");
ПоказатьСообщениеПользователю(ТекстСообщения, "Объект");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаЧтенияФайла(Удалять)
// Выбор файла для загрузки.
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = НСтр("ru = 'Выберите файл запросов'");
Диалог.ПредварительныйПросмотр = Ложь;
Диалог.Фильтр = НСтр("ru = 'Файл запросов (*.q1c)|*.q1c'");
Диалог.Расширение = "q1c";
Диалог.ПроверятьСуществованиеФайла = Истина;
Диалог.МножественныйВыбор = Ложь;
Если Диалог.Выбрать() Тогда
ИмяФайла = Диалог.ПолноеИмяФайла;
КонецЕсли;
// Чтение данных из файла.
Если Не ПустаяСтрока(ИмяФайла) Тогда
Если Удалять Тогда
Объект.Запросы.Очистить();
Объект.Параметры.Очистить();
КонецЕсли;
ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайла);
ЗагрузитьЗапросыИзФайла(ДвоичныеДанные)
КонецЕсли;
Объект.ИмяФайла = ИмяФайла;
КонецПроцедуры
&НаСервере
Процедура ЗагрузитьЗапросыИзФайла(ДвоичныеДанные)
ОбъектВнешнейОбработки = ОбъектОбработки().ПрочитатьЗапросыИзФайлаXML(ДвоичныеДанные);
ЗаполнитьЗапросыИПараметрыИзОбъектаВнешнейОбработки(ОбъектВнешнейОбработки);
КонецПроцедуры
// Заполняет из объекта внешней обработки запросы и параметры.
//
// Параметры:
// ОбъектОбработки - объект внешней обработки.
//
&НаСервере
Процедура ЗаполнитьЗапросыИПараметрыИзОбъектаВнешнейОбработки(ОбъектОбработки)
ЗапросыОбработка = ОбъектОбработки.Запросы;
ПараметрыОбработка = ОбъектОбработки.Параметры;
Объект.Запросы.Очистить();
Объект.Параметры.Очистить();
// Заполнение запросов и параметров в форме.
Для каждого ТекстЗапрос Из ЗапросыОбработка Цикл
ЭлементЗапроса = Объект.Запросы.Добавить();
ЭлементЗапроса.Идентификатор = ТекстЗапрос.Идентификатор;
ЭлементЗапроса.Имя = ТекстЗапрос.Имя;
ЭлементЗапроса.Текст = ТекстЗапрос.Текст;
КонецЦикла;
Для каждого ТекПараметр Из ПараметрыОбработка Цикл
ТипСтрока = ТекПараметр.Тип;
Значение = ТекПараметр.Значение;
Значение = ЗначениеИЗСтрокиВнутр(Значение);
Если ТипСтрока = "ТаблицаЗначений" ИЛИ ТипСтрока = "МоментВремени" ИЛИ ТипСтрока = "Граница" Тогда
ЭлементПараметр = Объект.Параметры.Добавить();
ЭлементПараметр.ИдентификаторЗапроса = ТекПараметр.ИдентификаторЗапроса;
ЭлементПараметр.Идентификатор = ТекПараметр.Идентификатор;
ЭлементПараметр.Имя = ТекПараметр.Имя;
ЭлементПараметр.Тип = СписокТипов.НайтиПоЗначению(ТипСтрока).Значение;
ЭлементПараметр.Значение = ТекПараметр.Значение;
ЭлементПараметр.ТипВФорме = СписокТипов.НайтиПоЗначению(ТипСтрока).Представление;
ЭлементПараметр.ЗначениеВФорме = ОбъектОбработки().ФормированиеПредставленияЗначения(Значение);
Иначе
Массив = Новый Массив;
Массив.Добавить(Тип(ТипСтрока));
Описание = Новый ОписаниеТипов(Массив);
ЭлементПараметр = Объект.Параметры.Добавить();
ЭлементПараметр.ИдентификаторЗапроса = ТекПараметр.ИдентификаторЗапроса;
ЭлементПараметр.Идентификатор = ТекПараметр.Идентификатор;
ЭлементПараметр.Имя = ТекПараметр.Имя;
ЭлементПараметр.Тип = ТипСтрока;
ЭлементПараметр.ТипВФорме = Описание;
ЭлементПараметр.Значение = ЗначениеВСтрокуВнутр(Значение);
ЭлементПараметр.ЗначениеВФорме = Значение;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура ПоказатьСообщениеПользователю(ТекстСообщения, ПутьКДанным)
ОчиститьСообщения();
Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = ТекстСообщения;
Сообщение.ПутьКДанным = ПутьКДанным;
Сообщение.УстановитьДанные(Объект);
Сообщение.Сообщить();
КонецПроцедуры
&НаСервере
Процедура ПолучитьТабличныеДокументыСравниваемыхЗапросов(ИДПервогоЗапроса, ИДВторогоЗапроса, ФайлПервогоЗапроса, ФайлВторогоЗапроса)
ФильтрПервого = Новый Структура;
ФильтрПервого.Вставить("Идентификатор",ИДПервогоЗапроса);
АдресПервогоДокумента = Объект.Запросы.НайтиСтроки(ФильтрПервого).Получить(0).АдресРезультата;
ФильтрВторого = Новый Структура;
ФильтрПервого.Вставить("Идентификатор",ИДВторогоЗапроса);
АдресВторогоДокумента = Объект.Запросы.НайтиСтроки(ФильтрПервого).Получить(0).АдресРезультата;
Если ПустаяСтрока(АдресПервогоДокумента) ИЛИ ПустаяСтрока(АдресВторогоДокумента) Тогда
Возврат;
КонецЕсли;
ТДПервогоЗапроса = ПолучитьИзВременногоХранилища(АдресПервогоДокумента);
ТДВторогоЗапроса = ПолучитьИзВременногоХранилища(АдресВторогоДокумента);
ФайлПервогоЗапроса = ПолучитьИмяВременногоФайла("mxl");
ТДПервогоЗапроса.Записать(ФайлПервогоЗапроса);
ФайлВторогоЗапроса = ПолучитьИмяВременногоФайла("mxl");
ТДВторогоЗапроса.Записать(ФайлВторогоЗапроса);
КонецПроцедуры
// Формирует имя копии запроса.
//
// Параметры:
// Имя - передаваемое имя запроса.
//
&НаКлиенте
Функция СформироватьИмяКопииЗапроса(Имя)
Флаг = Истина;
Индекс = 1;
Пока Флаг Цикл
ФормируемоеИмяЗапроса = НСтр("ru = '%ИмяЗапроса% - Копия %НомерКопии%'");
ФормируемоеИмяЗапроса = СтрЗаменить(ФормируемоеИмяЗапроса, "%ИмяЗапроса%", Имя);
ФормируемоеИмяЗапроса = СтрЗаменить(ФормируемоеИмяЗапроса, "%НомерКопии%", Индекс);
Фильтр = Новый Структура;
Фильтр.Вставить("Имя", ФормируемоеИмяЗапроса);
МассивЗапросовПоФильтру = Объект.Запросы.НайтиСтроки(Фильтр);
Если МассивЗапросовПоФильтру.Количество() = 0 Тогда
Флаг = Ложь;
КонецЕсли;
Индекс = Индекс + 1;
КонецЦикла;
Возврат ФормируемоеИмяЗапроса;
КонецФункции
#КонецОбласти

22
src/ИнструментыРазработчикаКонсольЗапросов/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.7">
<Form uuid="c0fcbe6c-4da8-44e0-8874-c855fdab13d6">
<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">PlatformApplication</v8:Value>
<v8:Value xsi:type="app:ApplicationUsePurpose">MobilePlatformApplication</v8:Value>
</UsePurposes>
<ExtendedPresentation/>
</Properties>
</Form>
</MetaDataObject>

190
src/ИнструментыРазработчикаКонсольЗапросов/Forms/Граница/Ext/Form.xml Normal file
View File

@ -0,0 +1,190 @@
<?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.7">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Граница</v8:content>
</v8:item>
</Title>
<Width>50</Width>
<WindowOpeningMode>LockOwnerWindow</WindowOpeningMode>
<AutoTitle>false</AutoTitle>
<VerticalScroll>useIfNecessary</VerticalScroll>
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1">
<ChildItems>
<Button name="ФормаЗаписатьГраницу" id="8">
<Type>CommandBarButton</Type>
<DefaultButton>true</DefaultButton>
<CommandName>Form.Command.ЗаписатьГраницу</CommandName>
<ExtendedTooltip name="ФормаЗаписатьГраницуExtendedTooltip" id="11"/>
</Button>
</ChildItems>
</AutoCommandBar>
<Events>
<Event name="NotificationProcessing">ОбработкаОповещения</Event>
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
</Events>
<ChildItems>
<UsualGroup name="Группа1" id="5">
<Group>Horizontal</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="Группа1ExtendedTooltip" id="12"/>
<ChildItems>
<InputField name="Тип" id="6">
<DataPath>Тип</DataPath>
<HorizontalStretch>false</HorizontalStretch>
<ChoiceButton>true</ChoiceButton>
<TextEdit>false</TextEdit>
<ContextMenu name="ТипКонтекстноеМеню" id="7"/>
<ExtendedTooltip name="ТипExtendedTooltip" id="13"/>
<Events>
<Event name="StartChoice">ТипНачалоВыбора</Event>
</Events>
</InputField>
<InputField name="ВидГраницы" id="3">
<DataPath>ВидГраницыФормы</DataPath>
<HorizontalStretch>false</HorizontalStretch>
<ListChoiceMode>true</ListChoiceMode>
<TextEdit>false</TextEdit>
<ContextMenu name="ВидГраницыКонтекстноеМеню" id="4"/>
<ExtendedTooltip name="ВидГраницыExtendedTooltip" id="14"/>
</InputField>
</ChildItems>
</UsualGroup>
<InputField name="ЗначениеВФорме" id="9">
<DataPath>ЗначениеВФорме</DataPath>
<ChoiceButton>true</ChoiceButton>
<ChooseType>false</ChooseType>
<ContextMenu name="ЗначениеВФормеКонтекстноеМеню" id="10"/>
<ExtendedTooltip name="ЗначениеВФормеExtendedTooltip" id="15"/>
<Events>
<Event name="OnChange">ЗначениеВФормеПриИзменении</Event>
<Event name="StartChoice">ЗначениеВФормеНачалоВыбора</Event>
</Events>
</InputField>
</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>v8:UUID</v8:Type>
</Type>
</Attribute>
<Attribute name="ИдентификаторТекущегоПараметра" id="3">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Идентификатор текущего параметра</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>v8:UUID</v8:Type>
</Type>
</Attribute>
<Attribute name="ИмяФайла" 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>
</Attribute>
<Attribute name="Значение" id="5">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Значение</v8:content>
</v8:item>
</Title>
<Type/>
</Attribute>
<Attribute name="ВидГраницыФормы" id="6">
<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="СписокТипов" id="7">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Список типов</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>v8:ValueListType</v8:Type>
</Type>
</Attribute>
<Attribute name="Тип" id="8">
<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="ЗначениеВФорме" id="9">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Значение</v8:content>
</v8:item>
</Title>
<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>
<Representation>Text</Representation>
<CurrentRowUse>DontUse</CurrentRowUse>
</Command>
</Commands>
</Form>

217
src/ИнструментыРазработчикаКонсольЗапросов/Forms/Граница/Ext/Form/Module.bsl Normal file
View File

@ -0,0 +1,217 @@

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

22
src/ИнструментыРазработчикаКонсольЗапросов/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.7">
<Form uuid="6fe2bc87-d94d-4254-980d-0be690196d98">
<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">PlatformApplication</v8:Value>
<v8:Value xsi:type="app:ApplicationUsePurpose">MobilePlatformApplication</v8:Value>
</UsePurposes>
<ExtendedPresentation/>
</Properties>
</Form>
</MetaDataObject>

126
src/ИнструментыРазработчикаКонсольЗапросов/Forms/МоментВремени/Ext/Form.xml Normal file
View File

@ -0,0 +1,126 @@
<?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.7">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Момент времени</v8:content>
</v8:item>
</Title>
<WindowOpeningMode>LockOwnerWindow</WindowOpeningMode>
<AutoTitle>false</AutoTitle>
<VerticalScroll>useIfNecessary</VerticalScroll>
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1">
<ChildItems>
<Button name="ФормаЗаписатьИЗакрыть" id="5">
<Type>CommandBarButton</Type>
<DefaultButton>true</DefaultButton>
<CommandName>Form.Command.ЗаписатьИЗакрыть</CommandName>
<ExtendedTooltip name="ФормаЗаписатьИЗакрытьExtendedTooltip" id="6"/>
</Button>
</ChildItems>
</AutoCommandBar>
<Events>
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
</Events>
<ChildItems>
<InputField name="Ссылка" id="3">
<DataPath>Ссылка</DataPath>
<ContextMenu name="СсылкаКонтекстноеМеню" id="4"/>
<ExtendedTooltip name="СсылкаExtendedTooltip" id="7"/>
</InputField>
<InputField name="Дата" id="1">
<DataPath>Дата</DataPath>
<ContextMenu name="ДатаКонтекстноеМеню" id="2"/>
<ExtendedTooltip name="ДатаExtendedTooltip" id="8"/>
</InputField>
</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:TypeSet>cfg:AnyRef</v8:TypeSet>
</Type>
</Attribute>
<Attribute name="Дата" id="3">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Дата</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>xs:dateTime</v8:Type>
<v8:DateQualifiers>
<v8:DateFractions>DateTime</v8:DateFractions>
</v8:DateQualifiers>
</Type>
</Attribute>
<Attribute name="ИдентификаторТекущегоЗапроса" id="4">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Идентификатор текущего запроса</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>v8:UUID</v8:Type>
</Type>
</Attribute>
<Attribute name="ИдентификаторТекущегоПараметра" id="5">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Идентификатор текущего параметра</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>v8:UUID</v8:Type>
</Type>
</Attribute>
<Attribute name="ИмяФайла" id="6">
<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>
</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>
<Representation>Text</Representation>
<CurrentRowUse>DontUse</CurrentRowUse>
</Command>
</Commands>
</Form>

118
src/ИнструментыРазработчикаКонсольЗапросов/Forms/МоментВремени/Ext/Form/Module.bsl Normal file
View File

@ -0,0 +1,118 @@

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

22
src/ИнструментыРазработчикаКонсольЗапросов/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.7">
<Form uuid="b8a520d4-c823-477e-ba92-708656e9c9c6">
<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">PlatformApplication</v8:Value>
<v8:Value xsi:type="app:ApplicationUsePurpose">MobilePlatformApplication</v8:Value>
</UsePurposes>
<ExtendedPresentation/>
</Properties>
</Form>
</MetaDataObject>

132
src/ИнструментыРазработчикаКонсольЗапросов/Forms/Настройки/Ext/Form.xml Normal file
View File

@ -0,0 +1,132 @@
<?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.7">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Настройки</v8:content>
</v8:item>
</Title>
<WindowOpeningMode>LockOwnerWindow</WindowOpeningMode>
<AutoTitle>false</AutoTitle>
<VerticalScroll>useIfNecessary</VerticalScroll>
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1">
<Autofill>false</Autofill>
<ChildItems>
<Button name="Записать" id="5">
<Type>CommandBarButton</Type>
<DefaultButton>true</DefaultButton>
<CommandName>Form.Command.Записать</CommandName>
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Записать и закрыть</v8:content>
</v8:item>
</Title>
<ExtendedTooltip name="ЗаписатьExtendedTooltip" id="15"/>
</Button>
</ChildItems>
</AutoCommandBar>
<Events>
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
</Events>
<ChildItems>
<UsualGroup name="Автосохранение" id="10">
<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>Horizontal</Group>
<Representation>None</Representation>
<ShowTitle>false</ShowTitle>
<ExtendedTooltip name="АвтосохранениеExtendedTooltip" id="16"/>
<ChildItems>
<CheckBoxField name="ИспользоватьАвтосохранение" id="1">
<DataPath>Объект.ИспользоватьАвтосохранение</DataPath>
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Автоматически сохранять каждые (мин.):</v8:content>
</v8:item>
</Title>
<TitleLocation>Right</TitleLocation>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ИспользоватьАвтосохранениеКонтекстноеМеню" id="2"/>
<ExtendedTooltip name="ИспользоватьАвтосохранениеExtendedTooltip" id="17"/>
</CheckBoxField>
<InputField name="ПериодАвтосохранения" id="3">
<DataPath>Объект.ПериодАвтосохранения</DataPath>
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Период автосохранения (с)</v8:content>
</v8:item>
</Title>
<TitleLocation>None</TitleLocation>
<Width>4</Width>
<SpinButton>true</SpinButton>
<ContextMenu name="ПериодАвтосохраненияКонтекстноеМеню" id="4"/>
<ExtendedTooltip name="ПериодАвтосохраненияExtendedTooltip" id="18"/>
</InputField>
</ChildItems>
</UsualGroup>
<CheckBoxField name="ВыводитьВРезультатахЗапросаЗначенияСсылок" id="8">
<DataPath>Объект.ВыводитьВРезультатахЗапросаЗначенияСсылок</DataPath>
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Выводить в результатах запроса значения ссылок</v8:content>
</v8:item>
</Title>
<TitleLocation>Right</TitleLocation>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ВыводитьВРезультатахЗапросаЗначенияСсылокКонтекстноеМеню" id="9"/>
<ExtendedTooltip name="ВыводитьВРезультатахЗапросаЗначенияСсылокExtendedTooltip" id="19"/>
</CheckBoxField>
<CheckBoxField name="ЧередованиеЦветовВРезультатеЗапроса" id="13">
<DataPath>Объект.ЧередованиеЦветовВРезультатеЗапроса</DataPath>
<TitleLocation>Right</TitleLocation>
<CheckBoxType>Auto</CheckBoxType>
<ContextMenu name="ЧередованиеЦветовВРезультатеЗапросаКонтекстноеМеню" id="14"/>
<ExtendedTooltip name="ЧередованиеЦветовВРезультатеЗапросаExtendedTooltip" id="20"/>
</CheckBoxField>
<InputField name="ТипОбхода" id="11">
<DataPath>Объект.ТипОбхода</DataPath>
<ContextMenu name="ТипОбходаКонтекстноеМеню" id="12"/>
<ExtendedTooltip name="ТипОбходаExtendedTooltip" id="21"/>
</InputField>
</ChildItems>
<Attributes>
<Attribute name="Объект" id="1">
<Type>
<v8:Type>cfg:ExternalDataProcessorObject.ИнструментыРазработчикаКонсольЗапросов</v8:Type>
</Type>
<MainAttribute>true</MainAttribute>
</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>
<CurrentRowUse>DontUse</CurrentRowUse>
</Command>
</Commands>
</Form>

53
src/ИнструментыРазработчикаКонсольЗапросов/Forms/Настройки/Ext/Form/Module.bsl Normal file
View File

@ -0,0 +1,53 @@

#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
ПараметрыПередачи = ПолучитьИзВременногоХранилища(Параметры.АдресХранилища);
Объект.ИспользоватьАвтосохранение = ПараметрыПередачи.ИспользоватьАвтосохранение;
Объект.ПериодАвтосохранения = ПараметрыПередачи.ПериодАвтосохранения;
Объект.ВыводитьВРезультатахЗапросаЗначенияСсылок = ПараметрыПередачи.ВыводитьВРезультатахЗапросаЗначенияСсылок;
Объект.ТипОбхода = ПараметрыПередачи.ТипОбхода;
Объект.ЧередованиеЦветовВРезультатеЗапроса = ПараметрыПередачи.ЧередованиеЦветовВРезультатеЗапроса;
Элементы.ТипОбхода.СписокВыбора.Добавить("Авто");
Элементы.ТипОбхода.СписокВыбора.Добавить("Прямой");
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
&НаКлиенте
Процедура Записать(Команда)
ПараметрыПередачи = ПоместитьНастройкиВСтруктуру();
// Передача в открывающую форму.
Закрыть();
Владелец = ЭтотОбъект.ВладелецФормы;
Оповестить("ПередатьПараметрыНастроек" , ПараметрыПередачи);
Оповестить("ПередатьПараметрыНастроекАвтоСохранения");
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаСервере
Функция ОбъектОбработки()
Возврат РеквизитФормыВЗначение("Объект");
КонецФункции
&НаСервере
Функция ПоместитьНастройкиВСтруктуру()
ПараметрыПередачи = Новый Структура;
ПараметрыПередачи.Вставить("АдресХранилища", ОбъектОбработки().ПоместитьНастройкиВоВременноеХранилище(Объект));
Возврат ПараметрыПередачи;
КонецФункции
#КонецОбласти

22
src/ИнструментыРазработчикаКонсольЗапросов/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.7">
<Form uuid="1b4b9089-8db7-4b59-be6b-c1e4b997a5c7">
<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">PlatformApplication</v8:Value>
<v8:Value xsi:type="app:ApplicationUsePurpose">MobilePlatformApplication</v8:Value>
</UsePurposes>
<ExtendedPresentation/>
</Properties>
</Form>
</MetaDataObject>

1050
src/ИнструментыРазработчикаКонсольЗапросов/Forms/ПланВыполненияЗапроса/Ext/Form.xml Normal file
View File

File diff suppressed because it is too large Load Diff

246
src/ИнструментыРазработчикаКонсольЗапросов/Forms/ПланВыполненияЗапроса/Ext/Form/Module.bsl Normal file
View File

@ -0,0 +1,246 @@
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(Параметры.МеткаЗапроса) Тогда
Отказ = Истина;
Возврат;
КонецЕсли;
МеткаЗапроса = Параметры.МеткаЗапроса;
ЭтотОбъект.Заголовок = НСтр("ru = 'План выполнения запроса ('") + Параметры.ИмяЗапроса + ")";
ПолноеИмяФайлаЖурнала = ФайлТехнологическийЖурнал(Параметры.ИдентификаторПроцессаОС, Параметры.КаталогСЛогФайлами);
Если НЕ ДанныеИзТехнологическогоЖурналаПрочитаны(ПолноеИмяФайлаЖурнала) Тогда
Элементы.ГруппаПланВыполненияЗапроса.ТекущаяСтраница = Элементы.ГруппаПолучениеПланаВыполненияЗапроса;
ТребуетсяПрочитатьЖурналИмя = ПолноеИмяФайлаЖурнала;
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовФормы
&НаКлиенте
Процедура ТипПоказаЗапросаПриИзменении(Элемент)
Если ВидОтображенияДанных = 0 Тогда
Если ТипСУБД = "DBMSSQL" Тогда
Элементы.ДеревоОператорМетаданные.Видимость=Истина;
Элементы.ДеревоОператор.Видимость=Ложь;
Иначе
ПланВыполненияЗапросаТекст = ПланВыполненияЗапросаВМетаданных;
КонецЕсли;
СформированныйСКЛТекстЗапроса = ТекстЗапросаВВидеМетаданных;
Иначе
Если ТипСУБД = "DBMSSQL" Тогда
Элементы.ДеревоОператорМетаданные.Видимость=Ложь;
Элементы.ДеревоОператор.Видимость=Истина;
Иначе
ПланВыполненияЗапросаТекст = ПланВыполненияЗапросаИзТехЖурнала;
КонецЕсли;
СформированныйСКЛТекстЗапроса = ТекстЗапросаВСКЛ;
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовТаблицыФормыПланВыполненияЗапросаSQLServer
&НаКлиенте
Процедура ДеревоПриАктивизацииСтроки(Элемент)
Если ТипСУБД = "DBMSSQL" Тогда
Если ВидОтображенияДанных = 0 Тогда
ОписаниеОператора = Элемент.ТекущиеДанные.ОператорМетаданные;
Иначе
ОписаниеОператора = Элемент.ТекущиеДанные.Оператор;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область СлужебныеФункции
&НаСервере
Функция ОбъектОбработки()
Возврат РеквизитФормыВЗначение("Объект");
КонецФункции
&НаСервере
Функция ФайлТехнологическийЖурнал(ИдентификаторПроцессаОС, КаталогСЛогФайлами)
ОжидаемоеИмяФайла = ИмяФайлТехнологическийЖурнал(ТекущаяДатаСеанса());
ПолноеИмяФайлаЖурнала = НайтиФайлТехнологическийЖурнал(ОжидаемоеИмяФайла, ИдентификаторПроцессаОС, КаталогСЛогФайлами);
Если ЗначениеЗаполнено(ПолноеИмяФайлаЖурнала) Тогда
Возврат ПолноеИмяФайлаЖурнала;
Иначе
ОжидаемоеИмяФайла = ИмяФайлТехнологическийЖурнал(ТекущаяДатаСеанса() - 3600);
ПолноеИмяФайлаЖурнала = НайтиФайлТехнологическийЖурнал(ОжидаемоеИмяФайла, ИдентификаторПроцессаОС, КаталогСЛогФайлами);
Если ЗначениеЗаполнено(ПолноеИмяФайлаЖурнала) Тогда
Возврат ПолноеИмяФайлаЖурнала;
КонецЕсли;
КонецЕсли;
Возврат Неопределено;
КонецФункции
&НаСервере
Функция ИмяФайлТехнологическийЖурнал(ДатаФайла)
ОжидаемоеИмяФайла = Формат(ДатаФайла, "ДФ=yyMMddHH")+ ".log";
Возврат ОжидаемоеИмяФайла;
КонецФункции
&НаСервере
Функция НайтиФайлТехнологическийЖурнал(ИмяФайла, ИдентификаторПроцессаОС, КаталогСЛогФайлами)
СписокФайлов = НайтиФайлы(КаталогСЛогФайлами, "*.log", Истина);
Для каждого Файл Из СписокФайлов Цикл
Если Найти(Файл.Путь, "_" + ИдентификаторПроцессаОС) > 0 Тогда
Если Файл.Имя = ИмяФайла Тогда
Возврат Файл.ПолноеИмя;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Возврат Неопределено;
КонецФункции
&НаСервере
Функция ДанныеИзТехнологическогоЖурналаПрочитаны(ПолноеИмяФайлаЖурнала)
ПрочитанныеДанные = Новый Структура("ТипСУБД, СКЛЗапрос, ПланВыполненияЗапроса");
ОбъектОбработки().ПрочитатьТехнологическийЖурнал(ПолноеИмяФайлаЖурнала, МеткаЗапроса, ПрочитанныеДанные);
ТипСУБД = ПрочитанныеДанные.ТипСУБД;
ТекстЗапросаВСКЛ = ПрочитанныеДанные.СКЛЗапрос;
ПланВыполненияЗапросаИзТехЖурнала = ПрочитанныеДанные.ПланВыполненияЗапроса;
Если НЕ ЗначениеЗаполнено(ТипСУБД) Тогда
Возврат Ложь;
КонецЕсли;
ВВидеМетаданных = ОбъектОбработки().ПреобразоватьВМетаданные(ТекстЗапросаВСКЛ, ПланВыполненияЗапросаИзТехЖурнала, ТипСУБД);
ТекстЗапросаВВидеМетаданных = ВВидеМетаданных.ТекстЗапросаВВидеМетаданных;
ПланВыполненияЗапросаВМетаданных = ВВидеМетаданных.ПланВыполненияЗапросаВМетаданных;
СформированныйСКЛТекстЗапроса = ВВидеМетаданных.ТекстЗапросаВВидеМетаданных;
ПланВыполненияЗапросаТекст = ВВидеМетаданных.ПланВыполненияЗапросаВМетаданных;
Если ТипСУБД = "DBMSSQL" Тогда
СуммарнаяСтоимостьОбщая = 0;
Элементы.ГруппаПланВыполненияЗапроса.ТекущаяСтраница = Элементы.ГруппаПланВыполненияЗапросаSQLСервер;
ДеревоПланаЗапроса = РеквизитФормыВЗначение("ДеревоПланаВыполненияЗапроса");
ОбъектОбработки().ПолучитьДеревоПланаВыполненияЗапроса(ПланВыполненияЗапросаИзТехЖурнала, ПланВыполненияЗапросаВМетаданных, ДеревоПланаЗапроса, СуммарнаяСтоимостьОбщая);
ЗначениеВРеквизитФормы(ДеревоПланаЗапроса, "ДеревоПланаВыполненияЗапроса");
СуммарнаяСтоимостьЗапроса = СуммарнаяСтоимостьОбщая;
Элементы.ГруппаИнформацияОСтоимостиЗапроса.Видимость = Истина;
Элементы.ПоказыватьПланВыполненияЗапросаВВиде.Видимость = Истина;
Максимум = НайтиМаксимальныйПоказательСтоимости(ДеревоПланаЗапроса.Строки);
УстановитьОформлениеДанныхВКолонкеСтоимость(Максимум);
Иначе
Элементы.ГруппаИнформацияОСтоимостиЗапроса.Видимость = Ложь;
Элементы.ГруппаПланВыполненияЗапроса.ТекущаяСтраница = Элементы.ГруппаПланВыполненияЗапросаТекстовоеПредставление;
Элементы.ПоказыватьПланВыполненияЗапросаВВиде.Видимость = Ложь;
КонецЕсли;
Возврат Истина;
КонецФункции
&НаСервере
Процедура УстановитьОформлениеДанныхВКолонкеСтоимость(Максимум)
УсловноеОформление.Элементы.Очистить();
ЭлементУсловногоОформления = УсловноеОформление.Элементы.Добавить();
ПолеОформления = ЭлементУсловногоОформления.Поля.Элементы.Добавить();
ПолеОформления.Поле = Новый ПолеКомпоновкиДанных("ДеревоСтоимость");
ПолеОформления.Использование = Истина;
ЭлементОтбора = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ДеревоПланаВыполненияЗапроса.Стоимость");
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
ЭлементОтбора.ПравоеЗначение = Максимум;
ЭлементОтбора.Использование = Истина;
ЭлементУсловногоОформления.Оформление.УстановитьЗначениеПараметра("Шрифт", Новый Шрифт(, , Истина));
КонецПроцедуры
&НаСервере
Функция НайтиМаксимальныйПоказательСтоимости(СтрокиДерева, Максимум = 0)
Для каждого Строка Из СтрокиДерева Цикл
Если Строка.Строки.Количество() > 0 Тогда
Максимум = НайтиМаксимальныйПоказательСтоимости(Строка.Строки, Максимум);
КонецЕсли;
Если Строка.Стоимость > Максимум Тогда
Максимум = Строка.Стоимость;
КонецЕсли;
КонецЦикла;
Возврат Максимум;
КонецФункции
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Если ЗначениеЗаполнено(ТребуетсяПрочитатьЖурналИмя) Тогда
ПодключитьОбработчикОжидания("ПрочитатьДанныеИзТехнологическогоЖурналаОбработчик", 2);
Элементы.ГруппаПолучениеПланаВыполненияЗапроса.Видимость = Истина;
КоличествоПопыток = 0;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПрочитатьДанныеИзТехнологическогоЖурналаОбработчик()
Если ДанныеИзТехнологическогоЖурналаПрочитаны(ТребуетсяПрочитатьЖурналИмя) Тогда
ОтключитьОбработчикОжидания("ПрочитатьДанныеИзТехнологическогоЖурналаОбработчик");
ТребуетсяПрочитатьЖурналИмя = Неопределено;
Элементы.ГруппаПолучениеПланаВыполненияЗапроса.Видимость = Ложь;
Иначе
Если КоличествоПопыток < 5 Тогда
КоличествоПопыток = КоличествоПопыток + 1;
Иначе
ОтключитьОбработчикОжидания("ПрочитатьДанныеИзТехнологическогоЖурналаОбработчик");
ТребуетсяПрочитатьЖурналИмя = Неопределено;
Элементы.ГруппаПолучениеПланаВыполненияЗапроса.Видимость = Ложь;
ПоказатьПредупреждение(, НСтр("ru = 'Ошибка получения плана выполнения запроса'"));
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПоказыватьПланВыполненияЗапросаВВидеПриИзменении(Элемент)
Если ПоказыватьПланВыполненияЗапросаВВиде = 0 Тогда
Элементы.ГруппаПланВыполненияЗапроса.ТекущаяСтраница = Элементы.ГруппаПланВыполненияЗапросаSQLСервер;
Иначе
Элементы.ГруппаПланВыполненияЗапроса.ТекущаяСтраница = Элементы.ГруппаПланВыполненияЗапросаТекстовоеПредставление;
КонецЕсли;
КонецПроцедуры
#КонецОбласти

22
src/ИнструментыРазработчикаКонсольЗапросов/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.7">
<Form uuid="2631699b-6892-4580-aa17-dfdcfb594e38">
<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">PlatformApplication</v8:Value>
<v8:Value xsi:type="app:ApplicationUsePurpose">MobilePlatformApplication</v8:Value>
</UsePurposes>
<ExtendedPresentation/>
</Properties>
</Form>
</MetaDataObject>

72
src/ИнструментыРазработчикаКонсольЗапросов/Forms/РезультатЗапроса/Ext/Form.xml Normal file
View File

@ -0,0 +1,72 @@
<?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.7">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Результат запроса</v8:content>
</v8:item>
</Title>
<AutoTitle>false</AutoTitle>
<VerticalScroll>useIfNecessary</VerticalScroll>
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1">
<ChildItems>
<Button name="ФормаЗакрыть" id="3">
<Type>CommandBarButton</Type>
<DefaultButton>true</DefaultButton>
<CommandName>Form.Command.ЗакрытьФорму</CommandName>
<ExtendedTooltip name="ФормаЗакрытьExtendedTooltip" id="4"/>
</Button>
</ChildItems>
</AutoCommandBar>
<Events>
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
</Events>
<ChildItems>
<SpreadSheetDocumentField name="Результат" id="1">
<DataPath>Результат</DataPath>
<TitleLocation>None</TitleLocation>
<VerticalScrollBar>true</VerticalScrollBar>
<HorizontalScrollBar>true</HorizontalScrollBar>
<Edit>true</Edit>
<ContextMenu name="РезультатКонтекстноеМеню" id="2"/>
<ExtendedTooltip name="РезультатExtendedTooltip" id="5"/>
</SpreadSheetDocumentField>
</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 xmlns:mxl="http://v8.1c.ru/8.2/data/spreadsheet">mxl:SpreadsheetDocument</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>
<CurrentRowUse>DontUse</CurrentRowUse>
</Command>
</Commands>
</Form>

19
src/ИнструментыРазработчикаКонсольЗапросов/Forms/РезультатЗапроса/Ext/Form/Module.bsl Normal file
View File

@ -0,0 +1,19 @@

#Область ОбработчикиСобытий
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
Результат = Параметры.РезультатЗапроса;
КонецПроцедуры
&НаКлиенте
Процедура ЗакрытьФорму(Команда)
Закрыть();
КонецПроцедуры
#КонецОбласти

22
src/ИнструментыРазработчикаКонсольЗапросов/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.7">
<Form uuid="dc68ed1e-6fc1-41f6-afcd-ce639b389335">
<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">PlatformApplication</v8:Value>
<v8:Value xsi:type="app:ApplicationUsePurpose">MobilePlatformApplication</v8:Value>
</UsePurposes>
<ExtendedPresentation/>
</Properties>
</Form>
</MetaDataObject>

326
src/ИнструментыРазработчикаКонсольЗапросов/Forms/ТаблицаЗначений/Ext/Form.xml Normal file
View File

@ -0,0 +1,326 @@
<?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.7">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Таблица значений</v8:content>
</v8:item>
</Title>
<WindowOpeningMode>LockOwnerWindow</WindowOpeningMode>
<AutoTitle>false</AutoTitle>
<VerticalScroll>useIfNecessary</VerticalScroll>
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1">
<ChildItems>
<Button name="НастройкиТаблицыЗначенийВыгрузитьТаблицуЗначений" id="17">
<Type>CommandBarButton</Type>
<DefaultButton>true</DefaultButton>
<CommandName>Form.Command.ВыгрузитьТаблицуЗначений</CommandName>
<ExtendedTooltip name="НастройкиТаблицыЗначенийВыгрузитьТаблицуЗначенийРасширеннаяПодсказка" id="24"/>
</Button>
<ButtonGroup 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>
<ExtendedTooltip name="ФормаГруппаКнопокРасширеннаяПодсказка" id="25"/>
<ChildItems>
<Button name="ФормаДобавить" id="18">
<Type>CommandBarButton</Type>
<CommandName>Form.Item.НастройкиТаблицыЗначений.StandardCommand.Add</CommandName>
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Добавить колонку</v8:content>
</v8:item>
</Title>
<ExtendedTooltip name="ФормаДобавитьExtendedTooltip" id="26"/>
</Button>
<Button name="ФормаСкопировать" id="19">
<Type>CommandBarButton</Type>
<CommandName>Form.Item.НастройкиТаблицыЗначений.StandardCommand.Copy</CommandName>
<ExtendedTooltip name="ФормаСкопироватьExtendedTooltip" id="27"/>
</Button>
<Button name="ФормаИзменить" id="20">
<Type>CommandBarButton</Type>
<CommandName>Form.Item.НастройкиТаблицыЗначений.StandardCommand.Change</CommandName>
<ExtendedTooltip name="ФормаИзменитьExtendedTooltip" id="28"/>
</Button>
<Button name="ФормаУдалить" id="21">
<Type>CommandBarButton</Type>
<CommandName>Form.Item.НастройкиТаблицыЗначений.StandardCommand.Delete</CommandName>
<ExtendedTooltip name="ФормаУдалитьExtendedTooltip" id="29"/>
</Button>
<Button name="ФормаСортироватьСписокПоВозрастанию" id="22">
<Type>CommandBarButton</Type>
<CommandName>Form.Item.НастройкиТаблицыЗначений.StandardCommand.SortListAsc</CommandName>
<ExtendedTooltip name="ФормаСортироватьСписокПоВозрастаниюExtendedTooltip" id="30"/>
</Button>
<Button name="ФормаСортироватьСписокПоУбыванию" id="23">
<Type>CommandBarButton</Type>
<CommandName>Form.Item.НастройкиТаблицыЗначений.StandardCommand.SortListDesc</CommandName>
<ExtendedTooltip name="ФормаСортироватьСписокПоУбываниюExtendedTooltip" id="31"/>
</Button>
</ChildItems>
</ButtonGroup>
</ChildItems>
</AutoCommandBar>
<Events>
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
</Events>
<ChildItems>
<Table name="НастройкиТаблицыЗначений" id="1">
<Representation>List</Representation>
<UseAlternationRowColor>true</UseAlternationRowColor>
<AutoInsertNewRow>true</AutoInsertNewRow>
<EnableStartDrag>true</EnableStartDrag>
<EnableDrag>true</EnableDrag>
<FileDragMode>AsFile</FileDragMode>
<DataPath>НастройкиТаблицыЗначений</DataPath>
<SearchStringLocation>None</SearchStringLocation>
<ViewStatusLocation>None</ViewStatusLocation>
<SearchControlLocation>None</SearchControlLocation>
<RowFilter xsi:nil="true"/>
<ContextMenu name="НастройкиТаблицыЗначенийКонтекстноеМеню" id="2"/>
<AutoCommandBar name="НастройкиТаблицыЗначенийКоманднаяПанель" id="3">
<Autofill>false</Autofill>
</AutoCommandBar>
<ExtendedTooltip name="НастройкиТаблицыЗначенийРасширеннаяПодсказка" id="32"/>
<SearchStringAddition name="НастройкиТаблицыЗначенийСтрокаПоиска" id="36">
<AdditionSource>
<Item>НастройкиТаблицыЗначений</Item>
<Type>SearchStringRepresentation</Type>
</AdditionSource>
<ContextMenu name="НастройкиТаблицыЗначенийСтрокаПоискаКонтекстноеМеню" id="37"/>
<ExtendedTooltip name="НастройкиТаблицыЗначенийСтрокаПоискаРасширеннаяПодсказка" id="38"/>
</SearchStringAddition>
<ViewStatusAddition name="НастройкиТаблицыЗначенийСостояниеПросмотра" id="39">
<AdditionSource>
<Item>НастройкиТаблицыЗначений</Item>
<Type>ViewStatusRepresentation</Type>
</AdditionSource>
<ContextMenu name="НастройкиТаблицыЗначенийСостояниеПросмотраКонтекстноеМеню" id="40"/>
<ExtendedTooltip name="НастройкиТаблицыЗначенийСостояниеПросмотраРасширеннаяПодсказка" id="41"/>
</ViewStatusAddition>
<SearchControlAddition name="НастройкиТаблицыЗначенийУправлениеПоиском" id="42">
<AdditionSource>
<Item>НастройкиТаблицыЗначений</Item>
<Type>SearchControl</Type>
</AdditionSource>
<ContextMenu name="НастройкиТаблицыЗначенийУправлениеПоискомКонтекстноеМеню" id="43"/>
<ExtendedTooltip name="НастройкиТаблицыЗначенийУправлениеПоискомРасширеннаяПодсказка" id="44"/>
</SearchControlAddition>
<Events>
<Event name="BeforeAddRow">НастройкиТаблицыЗначенийПередНачаломДобавления</Event>
<Event name="BeforeDeleteRow">НастройкиТаблицыЗначенийПередУдалением</Event>
</Events>
<ChildItems>
<InputField name="НастройкиТаблицыЗначенийНаименованиеКолонки" id="4">
<DataPath>НастройкиТаблицыЗначений.НаименованиеКолонки</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="НастройкиТаблицыЗначенийНаименованиеКолонкиКонтекстноеМеню" id="5"/>
<ExtendedTooltip name="НастройкиТаблицыЗначенийНаименованиеКолонкиРасширеннаяПодсказка" id="33"/>
<Events>
<Event name="TextEditEnd">НастройкитаблицыЗначенийНаименованиеКолонкиОкончаниеВводаТекста</Event>
</Events>
</InputField>
<InputField name="НастройкиТаблицыЗначенийТипКолонки" id="6">
<DataPath>НастройкиТаблицыЗначений.ТипКолонки</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="НастройкиТаблицыЗначенийТипКолонкиКонтекстноеМеню" id="7"/>
<ExtendedTooltip name="НастройкиТаблицыЗначенийТипКолонкиРасширеннаяПодсказка" id="34"/>
<Events>
<Event name="OnChange">НастройкитаблицыЗначенийТипКолонкиПриИзменении</Event>
</Events>
</InputField>
</ChildItems>
</Table>
<Table name="ТаблицаЗначенийПараметр" id="13">
<Representation>List</Representation>
<UseAlternationRowColor>true</UseAlternationRowColor>
<AutoInsertNewRow>true</AutoInsertNewRow>
<EnableStartDrag>true</EnableStartDrag>
<EnableDrag>true</EnableDrag>
<FileDragMode>AsFile</FileDragMode>
<DataPath>ТаблицаЗначенийПараметр</DataPath>
<SearchStringLocation>None</SearchStringLocation>
<ViewStatusLocation>None</ViewStatusLocation>
<SearchControlLocation>None</SearchControlLocation>
<RowFilter xsi:nil="true"/>
<ContextMenu name="ТаблицаЗначенийПараметрКонтекстноеМеню" id="14"/>
<AutoCommandBar name="ТаблицаЗначенийПараметрКоманднаяПанель" id="15"/>
<ExtendedTooltip name="ТаблицаЗначенийПараметрExtendedTooltip" id="35"/>
<SearchStringAddition name="ТаблицаЗначенийПараметрСтрокаПоиска" id="45">
<AdditionSource>
<Item>ТаблицаЗначенийПараметр</Item>
<Type>SearchStringRepresentation</Type>
</AdditionSource>
<ContextMenu name="ТаблицаЗначенийПараметрСтрокаПоискаКонтекстноеМеню" id="46"/>
<ExtendedTooltip name="ТаблицаЗначенийПараметрСтрокаПоискаРасширеннаяПодсказка" id="47"/>
</SearchStringAddition>
<ViewStatusAddition name="ТаблицаЗначенийПараметрСостояниеПросмотра" id="48">
<AdditionSource>
<Item>ТаблицаЗначенийПараметр</Item>
<Type>ViewStatusRepresentation</Type>
</AdditionSource>
<ContextMenu name="ТаблицаЗначенийПараметрСостояниеПросмотраКонтекстноеМеню" id="49"/>
<ExtendedTooltip name="ТаблицаЗначенийПараметрСостояниеПросмотраРасширеннаяПодсказка" id="50"/>
</ViewStatusAddition>
<SearchControlAddition name="ТаблицаЗначенийПараметрУправлениеПоиском" id="51">
<AdditionSource>
<Item>ТаблицаЗначенийПараметр</Item>
<Type>SearchControl</Type>
</AdditionSource>
<ContextMenu name="ТаблицаЗначенийПараметрУправлениеПоискомКонтекстноеМеню" id="52"/>
<ExtendedTooltip name="ТаблицаЗначенийПараметрУправлениеПоискомРасширеннаяПодсказка" id="53"/>
</SearchControlAddition>
</Table>
</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>v8:ValueTable</v8:Type>
</Type>
<Columns>
<Column name="НаименованиеКолонки" id="1">
<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>
</Column>
<Column name="ТипКолонки" id="2">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Тип колонки</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>v8:TypeDescription</v8:Type>
</Type>
</Column>
</Columns>
</Attribute>
<Attribute name="ТаблицаЗначенийПараметр" id="3">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Таблица значений параметр</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>v8:ValueTable</v8:Type>
</Type>
</Attribute>
<Attribute name="ИдентификаторТекущегоПараметра" id="4">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Идентификатор текущего параметра</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>v8:UUID</v8:Type>
</Type>
</Attribute>
<Attribute name="ИдентификаторТекущегоЗапроса" id="5">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Идентификатор текущего запроса</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>v8:UUID</v8:Type>
</Type>
</Attribute>
<Attribute name="ИмяФайла" id="6">
<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="ИмяРодителя" id="7">
<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="СписокТипов" id="8">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Список типов</v8:content>
</v8:item>
</Title>
<Type>
<v8:Type>v8:ValueListType</v8:Type>
</Type>
</Attribute>
</Attributes>
<Commands>
<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>
<Representation>Text</Representation>
<CurrentRowUse>DontUse</CurrentRowUse>
</Command>
</Commands>
</Form>

490
src/ИнструментыРазработчикаКонсольЗапросов/Forms/ТаблицаЗначений/Ext/Form/Module.bsl Normal file
View File

@ -0,0 +1,490 @@
&НаКлиенте
Перем ИмяКолонкиПоУмолчанию;
#Область ОбработчикиСобытий
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
// Считывание параметров передачи.
ПараметрыПередачи = ПолучитьИзВременногоХранилища(Параметры.АдресХранилища);
Объект.Запросы.Загрузить(ПараметрыПередачи.Запросы);
Объект.Параметры.Загрузить(ПараметрыПередачи.Параметры);
Объект.ИмяФайла = ПараметрыПередачи.ИмяФайла;
ИдентификаторТекущегоЗапроса = ПараметрыПередачи.ИдентификаторТекущегоЗапроса;
ИдентификаторТекущегоПараметра = ПараметрыПередачи.ИдентификаторТекущегоПараметра;
Объект.ДоступныеТипыДанных = ОбъектОбработки().Метаданные().Реквизиты.ДоступныеТипыДанных.Тип;
ОбъектОбработки().СформироватьСписокТипов(СписокТипов);
ЗаполнитьТаблицыПриОткрытии();
КонецПроцедуры
&НаКлиенте
Процедура НастройкиТаблицыЗначенийТипКолонкиПриИзменении(Элемент)
// Определение наименования колонки.
ПервыйТип = "";
ТекущаяКолонка = Элементы.НастройкиТаблицыЗначений.ТекущиеДанные;
ТипКолонки = ТекущаяКолонка.ТипКолонки;
СтароеИмяКолонки= ТекущаяКолонка.НаименованиеКолонки;
ДоступныеТипы = ТекущаяКолонка.ТипКолонки.Типы();
Количество = ДоступныеТипы.Количество();
Если Количество > 0 Тогда
Флаг = Ложь;
Для каждого ЭлементСписка Из СписокТипов Цикл
Если ЭлементСписка.Представление = Строка(ДоступныеТипы.Получить(0)) Тогда
Флаг = Истина;
Прервать;
КонецЕсли;
КонецЦикла;
Если Флаг Тогда
ПервыйТип = Строка(ДоступныеТипы.Получить(0)); // для примитивных типов.
Иначе
ПервыйТип = Новый(ДоступныеТипы.Получить(0));
ПервыйТип = ИмяТипаПоЗначению(ПервыйТип);
КонецЕсли;
КонецЕсли;
ИдентификаторСтроки = ТекущаяКолонка.ПолучитьИдентификатор();
Если Найти(ВРег(СтароеИмяКолонки), ВРег(ИмяКолонкиПоУмолчанию)) <> 0 Тогда
НовоеИмяКолонки = СформироватьИмяКолонки(ПервыйТип, ИдентификаторСтроки);
Иначе
НовоеИмяКолонки = СтароеИмяКолонки;
КонецЕсли;
ТекущаяКолонка.НаименованиеКолонки = НовоеИмяКолонки;
ТекущаяСтрока = Элементы.НастройкиТаблицыЗначений.ТекущаяСтрока;
ИнициализацияКолонкиВТЗКлиент(СтароеИмяКолонки, НовоеИмяКолонки, ТипКолонки);
КонецПроцедуры
&НаКлиенте
Процедура НастройкиТаблицыЗначенийПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)
Отказ = Истина;
ИдентификаторСтроки = Новый УникальныйИдентификатор;
ИмяКолонки = СформироватьИмяКолонки(ИмяКолонкиПоУмолчанию, ИдентификаторСтроки);
МассивТипов = Новый Массив;
МассивТипов.Добавить(Тип("Строка"));
ТипКолонки = Новый ОписаниеТипов(МассивТипов);
ЭлементНастройки = НастройкиТаблицыЗначений.Добавить();
ЭлементНастройки.НаименованиеКолонки = ИмяКолонки;
ЭлементНастройки.ТипКолонки = ТипКолонки;
ИнициализацияКолонкиВТЗКлиент("", ИмяКолонки, ТипКолонки)
КонецПроцедуры
&НаКлиенте
Процедура НастройкиТаблицыЗначенийНаименованиеКолонкиОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, СтандартнаяОбработка)
ТекущаяКолонкаТЗ = Элементы.НастройкиТаблицыЗначений.ТекущиеДанные;
СтароеИмя = ТекущаяКолонкаТЗ.НаименованиеКолонки;
ТипКолонки = ТекущаяКолонкаТЗ.ТипКолонки;
ИдентификаторСтроки = ТекущаяКолонкаТЗ.ПолучитьИдентификатор();
Текст = УбратьСимволыИзТекста(Текст);
Если Не ПустаяСтрока(Текст) Тогда
НовоеИмя = СформироватьИмяКолонки(Текст, ИдентификаторСтроки);
Иначе
НовоеИмя = СформироватьИмяКолонки(ИмяКолонкиПоУмолчанию, ИдентификаторСтроки);
ПоказатьСообщениеПользователю(НСтр("ru = 'Наименование колонки не может быть пустым.'"), "Объект");
КонецЕсли;
ТекущаяКолонкаТЗ.НаименованиеКолонки = НовоеИмя;
Если ТипКолонки.Типы().Количество() <> 0 Тогда
ИзменитьИмяРеквизитаИКолонкиСервер(СтароеИмя, НовоеИмя, ТипКолонки);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура НастройкиТаблицыЗначенийПередУдалением(Элемент, Отказ)
ТекущаяСтрока = Элементы.НастройкиТаблицыЗначений.ТекущаяСтрока;
ТекущаяКолонкаТЗ = Элементы.НастройкиТаблицыЗначений.ТекущиеДанные;
ИмяКолонки = ТекущаяКолонкаТЗ.НаименованиеКолонки;
ТипКолонки = ТекущаяКолонкаТЗ.ТипКолонки;
Если ТипКолонки.Типы().Количество() <> 0 Тогда
УдалитьКолонкуСервер(ИмяКолонки);
КонецЕсли;
ЭлементКоллекции = НастройкиТаблицыЗначений.НайтиПоИдентификатору(ТекущаяСтрока);
ИндексЭлементаКоллекции = НастройкиТаблицыЗначений.Индекс(ЭлементКоллекции);
НастройкиТаблицыЗначений.Удалить(ИндексЭлементаКоллекции);
КонецПроцедуры
///////////////////////////////////////////////////////////////////////////
// КОМАНДЫ
&НаКлиенте
Процедура ВыгрузитьТаблицуЗначений(Команда)
ВыгрузитьТаблицуЗначенийСервер();
КонецПроцедуры
///////////////////////////////////////////////////////////////////////////
// ВСПОМОГАТЕЛЬНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
&НаСервере
Функция ОбъектОбработки()
Возврат РеквизитФормыВЗначение("Объект");
КонецФункции
// Формирует колонки для Таблицы значений из Настроек таблицы значений.
//
// Изменяет реквизиты текущего параметра.
//
&НаКлиенте
Процедура ВыгрузитьТаблицуЗначенийСервер()
ПараметрыПередачи = ПоместитьЗапросыВСтруктуру(ИдентификаторТекущегоЗапроса, ИдентификаторТекущегоПараметра);
Закрыть();
Владелец = ЭтотОбъект.ВладелецФормы;
Владелец.Модифицированность = Истина;
Оповестить("ВыгрузитьЗапросыВРеквизиты", ПараметрыПередачи);
КонецПроцедуры
&НаСервере
Функция ВнутрЗначениеОбъектаТЗ()
ТЗ = РеквизитФормыВЗначение("ТаблицаЗначенийПараметр");
Возврат ЗначениеВСтрокуВнутр(ТЗ);
КонецФункции
&НаСервере
Функция ПоместитьЗапросыВСтруктуру(ИдентификаторЗапроса,ИдентификаторПараметра)
ПараметрыФормы = Объект.Параметры;
ПредставлениеТЗ = СформироватьПредставлениеТаблицыЗначений(ПредставлениеТЗ);
Для каждого Стр Из ПараметрыФормы Цикл
Если Стр.Идентификатор = ИдентификаторТекущегоПараметра Тогда
Стр.Тип = "ТаблицаЗначений";
Стр.Значение = ВнутрЗначениеОбъектаТЗ();
Стр.ТипВФорме = НСтр("ru = 'Таблица значений'");
Стр.ЗначениеВФорме = ПредставлениеТЗ;
КонецЕсли;
КонецЦикла;
ПараметрыПередачи = Новый Структура;
ПараметрыПередачи.Вставить("АдресХранилища", ОбъектОбработки().ПоместитьЗапросыВоВременноеХранилище(Объект, ИдентификаторЗапроса, ИдентификаторПараметра));
Возврат ПараметрыПередачи;
КонецФункции
// Заполняет таблицы значений в форме по загружаемой таблице значений.
//
&НаСервере
Процедура ЗаполнитьТаблицыПриОткрытии()
ПараметрыФормы = Объект.Параметры;
Для каждого ТекущийПараметр Из ПараметрыФормы Цикл
Если ТекущийПараметр.Идентификатор = ИдентификаторТекущегоПараметра Тогда
Значение = ТекущийПараметр.Значение;
Если ПустаяСтрока(Значение) Тогда
Возврат;
Иначе
Прервать;
КонецЕсли;
КонецЕсли;
КонецЦикла;
// Формирование таблицы "Настройки".
ТЗ = ЗначениеИзСтрокиВнутр(Значение);
Если ТипЗнч(ТЗ) <> Тип("ТаблицаЗначений") Тогда
Возврат;
КонецЕсли;
Колонки = ТЗ.Колонки;
Для Индекс = 0 По Колонки.Количество() - 1 Цикл
ТекущаяКолонка = Колонки.Получить(Индекс);
ИмяКолонки = ТекущаяКолонка.Имя;
ТипКолонки = ТекущаяКолонка.ТипЗначения;
Настройка = НастройкиТаблицыЗначений.Добавить();
Настройка.НаименованиеКолонки = ИмяКолонки;
Настройка.ТипКолонки = ТипКолонки;
ИнициализацияКолонкиВТЗСервер("", ИмяКолонки, ТипКолонки, "");
КонецЦикла;
// Заполнение таблицы значений.
Для каждого Строка Из ТЗ Цикл
ЭлементТЗ = ТаблицаЗначенийПараметр.Добавить();
Для каждого Колонка Из ТЗ.Колонки Цикл
ЭлементТЗ[Колонка.Имя] = Строка[Колонка.Имя];
КонецЦикла;
КонецЦикла;
КонецПроцедуры
&НаСервере
Функция СформироватьПредставлениеТаблицыЗначений(Представление)
ТЗ = РеквизитФормыВЗначение("ТаблицаЗначенийПараметр");
Представление = ОбъектОбработки().ФормированиеПредставленияЗначения(ТЗ);
Возврат Представление;
КонецФункции
// Формирует имя добавляемой колонки.
// Оно не должно совпадать с именем реквизита формы
// и с именем колонки.
//
// Параметры:
// Имя - передаваемое имя.
//
&НаКлиенте
Функция СформироватьИмяКолонки(знач ИмяКолонки, ИДТекСтроки)
НТЗ = НастройкиТаблицыЗначений;
Флаг = Истина;
Индекс = 0;
ИмяКолонки = СокрЛП(ИмяКолонки);
Пока Флаг Цикл
Имя = ИмяКолонки + Строка(Формат(Индекс, "ЧН=-"));
Имя = СтрЗаменить(Имя, "-", "");
// Если нет строки с таким именем.
Фильтр = Новый Структура("НаименованиеКолонки", Имя);
ОтфильтрованныеСтроки = НТЗ.НайтиСтроки(Фильтр);
Если ОтфильтрованныеСтроки.Количество() = 0 Тогда
Флаг = Ложь;
Иначе
Если ОтфильтрованныеСтроки.Получить(0).ПолучитьИдентификатор() <> ИДТекСтроки Тогда
Флаг = Истина;
Иначе
Флаг = Ложь;
КонецЕсли;
КонецЕсли;
// Если нет колонки с таким именем.
Колонки = Элементы.ТаблицаЗначенийПараметр.ПодчиненныеЭлементы;
КолКолонок = Колонки.Количество();
Для Индекс = 0 По КолКолонок - 1 Цикл
Если Колонки.Получить(Индекс).Имя = Имя Тогда
Флаг = Истина;
Прервать;
КонецЕсли;
КонецЦикла;
Результат = ?(Флаг, "", Имя);
Индекс = Индекс + 1;
КонецЦикла;
Возврат Результат;
КонецФункции
&НаКлиенте
Процедура ИнициализацияКолонкиВТЗКлиент(СтароеИмяКолонки, НовоеИмяКолонки, ТипКолонки)
СообщениеСистемы = "";
ИнициализацияКолонкиВТЗСервер(СтароеИмяКолонки, НовоеИмяКолонки, ТипКолонки, СообщениеСистемы);
Если НЕ ПустаяСтрока(СообщениеСистемы) Тогда
ПоказатьСообщениеПользователю(СообщениеСистемы, "Объект");
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ИнициализацияКолонкиВТЗСервер(СтароеИмяКолонки, НовоеИмяКолонки, ТипКолонки, Сообщение = "");
НачатьТранзакцию();
ИмяУдаляемогоРеквизита = ИмяРодителя + "." + СтароеИмяКолонки;
// Заполнение массива удаляемыми реквизитами.
МассивУдаляемыхРеквизитов = Новый Массив;
РекРодителя = ПолучитьРеквизиты(ИмяРодителя);
Для каждого ТекРек Из РекРодителя Цикл
Если ТекРек.Имя = СтароеИмяКолонки Тогда
МассивУдаляемыхРеквизитов.Добавить(ИмяУдаляемогоРеквизита);
КонецЕсли;
КонецЦикла;
// Выгрузка значений в таблицу значений.
Если Не ПустаяСтрока(СтароеИмяКолонки) Тогда
ТЗЗначений = ТаблицаЗначенийПараметр.Выгрузить(, СтароеИмяКолонки);
Иначе
ТЗЗначений = Неопределено;
КонецЕсли;
// Добавление нового реквизита в объект.
ДобавляемыеРеквизиты = Новый Массив;
НовыйРеквизит = Новый РеквизитФормы(НовоеИмяКолонки, ТипКолонки, ИмяРодителя, НовоеИмяКолонки, Ложь);
ДобавляемыеРеквизиты.Добавить(НовыйРеквизит);
ИзменитьРеквизиты(ДобавляемыеРеквизиты, МассивУдаляемыхРеквизитов);
// Поиск колонки в "ТаблицаЗначенийПараметр" с условием ПутьКДанным=ПутьКНовомуРеквизиту.
ИмяДобавляемогоРеквизита = ИмяРодителя + "." + НовоеИмяКолонки;
НомерКолонки = ПоискКолонокВТЗСЗаданнымПутемКДанным(ИмяДобавляемогоРеквизита);
Если ТЗЗначений <> Неопределено Тогда
Если НомерКолонки <> Неопределено Тогда
ИмяПервойКолонки = ТЗЗначений.Колонки.Получить(0).Имя;
Индекс = 0;
Для Каждого Стр Из ТЗЗначений Цикл
ТаблицаЗначенийПараметр.Получить(Индекс)[НовоеИмяКолонки] = Стр[ИмяПервойКолонки];
Индекс = Индекс + 1;
КонецЦикла;
КонецЕсли;
Иначе
НоваяКолонкаТаблицы = Элементы.Добавить(НовоеИмяКолонки, Тип("ПолеФормы"), Элементы.ТаблицаЗначенийПараметр);
НоваяКолонкаТаблицы.ПутьКДанным = ИмяДобавляемогоРеквизита;
НоваяКолонкаТаблицы.Вид = ВидПоляФормы.ПолеВвода;
КонецЕсли;
ЗафиксироватьТранзакцию();
КонецПроцедуры
// Изменяет имя реквизита и колонки по идентификатору строки.
//
// Параметры:
// ИДСтроки - идентификатор строки таблицы значений настроек.
// Имя - новое передаваемое имя для реквизита и колонки.
//
&НаСервере
Процедура ИзменитьИмяРеквизитаИКолонкиСервер(СтароеИмя, НовоеИмя, ТипКолонки)
НачатьТранзакцию();
ИмяУдаляемогоРеквизита = ИмяРодителя + "." + СтароеИмя;
// Заполнение массива удаляемыми реквизитами.
МассивУдаляемыхРеквизитов = Новый Массив;
РекРодителя = ПолучитьРеквизиты(ИмяРодителя);
Для каждого ТекРек Из РекРодителя Цикл
Если ТекРек.Имя = СтароеИмя Тогда
МассивУдаляемыхРеквизитов.Добавить(ИмяУдаляемогоРеквизита);
КонецЕсли;
КонецЦикла;
// Выгрузка значений в таблицу значений.
ТЗЗначений = ТаблицаЗначенийПараметр.Выгрузить(, СтароеИмя);
// Добавление нового реквизита в объект.
ДобавляемыеРеквизиты = Новый Массив;
НовыйРеквизит = Новый РеквизитФормы(НовоеИмя, ТипКолонки, ИмяРодителя, НовоеИмя, Ложь);
ДобавляемыеРеквизиты.Добавить(НовыйРеквизит);
ИзменитьРеквизиты(ДобавляемыеРеквизиты, МассивУдаляемыхРеквизитов);
// Поиск колонки в "ТаблицаЗначенийПараметр" с условием ПутьКДанным = ПутьКНовомуРеквизиту.
ИмяДобавляемогоРеквизита = ИмяРодителя + "." + НовоеИмя;
НомерКолонки = ПоискКолонокВТЗСЗаданнымПутемКДанным(ИмяДобавляемогоРеквизита);
Если НомерКолонки <> Неопределено Тогда
ИмяПервойКолонки = ТЗЗначений.Колонки.Получить(0).Имя;
Индекс = 0;
Для Каждого СтарСтр Из ТЗЗначений Цикл
ТаблицаЗначенийПараметр.Получить(Индекс)[НовоеИмя] = СтарСтр[ИмяПервойКолонки];
Индекс = Индекс + 1;
КонецЦикла;
КонецЕсли;
ЗафиксироватьТранзакцию();
КонецПроцедуры
// Возвращает номер колонки с заданным путем.
//
// Параметры:
// ПутьКДанным - заданный путь.
//
// Возвращаемое значение: номер колонки или Неопределено.
//
&НаСервере
Функция ПоискКолонокВТЗСЗаданнымПутемКДанным(ПутьКДанным)
Колонки = Элементы.ТаблицаЗначенийПараметр.ПодчиненныеЭлементы;
КоличествоКолонок = Колонки.Количество();
Флаг = Ложь;
Для Индекс = 0 По КоличествоКолонок - 1 Цикл
ТекКолонка = Колонки.Получить(Индекс);
Если ТекКолонка.ПутьКДанным = ПутьКДанным Тогда
Возврат Индекс;
КонецЕсли;
КонецЦикла;
Возврат Неопределено;
КонецФункции
// Удаляет колонку по имени.
//
// Параметры:
// ИмяКолонки - имя колонки.
//
&НаСервере
Процедура УдалитьКолонкуСервер(ИмяКолонки)
ИмяУдаляемогоРеквизита = ИмяРодителя + "." + ИмяКолонки;
// Заполнение массива удаляемыми реквизитами.
МассивУдаляемыхРеквизитов = Новый Массив;
РекРодителя = ПолучитьРеквизиты(ИмяРодителя);
Для каждого ТекРек Из РекРодителя Цикл
Если ТекРек.Имя = ИмяКолонки Тогда
МассивУдаляемыхРеквизитов.Добавить(ИмяУдаляемогоРеквизита);
КонецЕсли;
КонецЦикла;
ИзменитьРеквизиты(, МассивУдаляемыхРеквизитов);
КонецПроцедуры
&НаКлиенте
Процедура ПоказатьСообщениеПользователю(ТекстСообщения, ПутьКДанным)
ОчиститьСообщения();
Сообщение = Новый СообщениеПользователю();
Сообщение.Текст = ТекстСообщения;
Сообщение.ПутьКДанным = ПутьКДанным;
Сообщение.УстановитьДанные(Объект);
Сообщение.Сообщить();
КонецПроцедуры
&НаКлиенте
Функция УбратьСимволыИзТекста(знач Текст)
Результат = "";
ДлинаТекста = СтрДлина(Текст);
Если ДлинаТекста = 0 Тогда
Возврат Результат;
КонецЕсли;
Для Индекс = 0 По ДлинаТекста - 1 Цикл
СимволТекста = Лев(Текст, 1);
Если Не ЭтоСимвол(СимволТекста) Тогда
Результат = Результат + СимволТекста;
КонецЕсли;
Текст = Сред(Текст, 2);
КонецЦикла;
Возврат Результат;
КонецФункции
&НаКлиенте
Функция ЭтоСимвол(Символ)
// Символы между 1040 и 1103 - Русские буквы.
// Символы между 48 и 57 - Цифры.
// Символы между 65 и 122 - Английские буквы.
Код = КодСимвола(Символ);
Если (Код >= 1040 И Код <= 1103) Или (Код >= 48 И Код <= 57) Или (Код >= 65 И Код <= 122) Тогда
Возврат Ложь;
Иначе
Возврат Истина;
КонецЕсли;
КонецФункции
&НаСервере
Функция ИмяТипаПоЗначению(Значение)
Возврат Значение.Метаданные().Имя;
КонецФункции
///////////////////////////////////////////////////////////////////////////
// ОПЕРАТОРЫ ОСНОВНОЙ ПРОГРАММЫ
ИмяРодителя = "ТаблицаЗначенийПараметр";
ИмяКолонкиПоУмолчанию = "Колонка";
#КонецОбласти

22
src/ИнструментыРазработчикаКонсольЗапросов/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.7">
<Form uuid="65b03d50-7314-4ee7-bd2d-3096bcd0f256">
<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">PlatformApplication</v8:Value>
<v8:Value xsi:type="app:ApplicationUsePurpose">MobilePlatformApplication</v8:Value>
</UsePurposes>
<ExtendedPresentation/>
</Properties>
</Form>
</MetaDataObject>

47
src/ИнструментыРазработчикаКонсольЗапросов/Forms/ТекстЗапросаДляКонфигуратора/Ext/Form.xml Normal file
View File

@ -0,0 +1,47 @@
<?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.7">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Текст запроса для конфигуратора</v8:content>
</v8:item>
</Title>
<WindowOpeningMode>LockOwnerWindow</WindowOpeningMode>
<AutoTitle>false</AutoTitle>
<VerticalScroll>useIfNecessary</VerticalScroll>
<AutoCommandBar name="ФормаКоманднаяПанель" id="-1">
<ChildItems>
<Button name="ФормаЗакрыть" id="6">
<Type>CommandBarButton</Type>
<Representation>Text</Representation>
<DefaultButton>true</DefaultButton>
<CommandName>Form.StandardCommand.Close</CommandName>
<ExtendedTooltip name="ФормаЗакрытьРасширеннаяПодсказка" id="7"/>
</Button>
</ChildItems>
</AutoCommandBar>
<Events>
<Event name="OnCreateAtServer">ПриСозданииНаСервере</Event>
</Events>
<ChildItems>
<TextDocumentField name="ТекстЗапроса" id="1">
<DataPath>ТекстЗапроса</DataPath>
<TitleLocation>None</TitleLocation>
<ContextMenu name="ТекстЗапросаКонтекстноеМеню" id="2"/>
<ExtendedTooltip name="ТекстЗапросаExtendedTooltip" id="5"/>
</TextDocumentField>
</ChildItems>
<Attributes>
<Attribute name="Объект" id="1">
<Type>
<v8:Type>cfg:ExternalDataProcessorObject.ИнструментыРазработчикаКонсольЗапросов</v8:Type>
</Type>
<MainAttribute>true</MainAttribute>
</Attribute>
<Attribute name="ТекстЗапроса" id="2">
<Type>
<v8:Type xmlns:d5p1="http://v8.1c.ru/8.1/data/txtedt">d5p1:TextDocument</v8:Type>
</Type>
</Attribute>
</Attributes>
</Form>

37
src/ИнструментыРазработчикаКонсольЗапросов/Forms/ТекстЗапросаДляКонфигуратора/Ext/Form/Module.bsl Normal file
View File

@ -0,0 +1,37 @@

#Область ОбработчикиСобытий
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
Текст = Параметры.ТекстЗапроса;
ТекстЗапроса.УстановитьТекст(СформироватьТекстЗапросаДляКонфигуратора(Текст));
КонецПроцедуры
///////////////////////////////////////////////////////////////////////////
// ВСПОМОГАТЕЛЬНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
&НаСервере
Функция СформироватьТекстЗапросаДляКонфигуратора(Текст)
Результат = """";
Текст = Параметры.ТекстЗапроса;
ПереводСтроки = Символы.ВК+Символы.ПС;
Для Счетчик = 1 По СтрЧислоСтрок(Текст) Цикл
ТекСтрока = СтрПолучитьСтроку(Текст, Счетчик);
Если Счетчик > 1 Тогда
ТекСтрока = СтрЗаменить(ТекСтрока,"""","""""");
Результат = Результат + ПереводСтроки + "|"+ ТекСтрока;
Иначе
ТекСтрока = СтрЗаменить(ТекСтрока,"""","""""");
Результат = Результат + ТекСтрока;
КонецЕсли;
КонецЦикла;
Результат = Результат + """";
Возврат Результат;
КонецФункции
#КонецОбласти

22
src/ИнструментыРазработчикаКонсольЗапросов/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.7">
<Form uuid="85e77a67-909f-4bb9-abad-8d2402383848">
<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">PlatformApplication</v8:Value>
<v8:Value xsi:type="app:ApplicationUsePurpose">MobilePlatformApplication</v8:Value>
</UsePurposes>
<ExtendedPresentation/>
</Properties>
</Form>
</MetaDataObject>

1025
src/ИнструментыРазработчикаКонсольЗапросов/Forms/Форма/Ext/Form.xml Normal file
View File

File diff suppressed because it is too large Load Diff

1677
src/ИнструментыРазработчикаКонсольЗапросов/Forms/Форма/Ext/Form/Module.bsl Normal file
View File

File diff suppressed because it is too large Load Diff

16
src/ИнструментыРазработчикаКонсольЗапросов/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.7">
<Template uuid="95d843f8-db40-4ff1-b848-1bfa16e5bdfd">
<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>

95
src/ИнструментыРазработчикаКонсольЗапросов/Templates/РезультатВыполненияЗапроса/Ext/Template.xml Normal file
View File

@ -0,0 +1,95 @@
<?xml version="1.0" encoding="UTF-8"?>
<document xmlns="http://v8.1c.ru/8.2/data/spreadsheet" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<languageSettings>
<currentLanguage>ru</currentLanguage>
<defaultLanguage>ru</defaultLanguage>
<languageInfo>
<id>ru</id>
<code>Русский</code>
<description>Русский</description>
</languageInfo>
</languageSettings>
<columns>
<size>1</size>
</columns>
<rowsItem>
<index>0</index>
<row>
<formatIndex>1</formatIndex>
<c>
<c>
<f>2</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>[ИмяЗапроса] (Записей в результате: [КоличествоСтрок])</v8:content>
</v8:item>
</tl>
</c>
</c>
</row>
</rowsItem>
<rowsItem>
<index>1</index>
<row>
<c>
<c>
<f>3</f>
<parameter>Значение</parameter>
<detailParameter>Расшифровка</detailParameter>
</c>
</c>
</row>
</rowsItem>
<templateMode>true</templateMode>
<defaultFormatIndex>4</defaultFormatIndex>
<height>2</height>
<vgRows>2</vgRows>
<namedItem xsi:type="NamedItemCells">
<name>ЗапросИмя</name>
<area>
<type>Rows</type>
<beginRow>0</beginRow>
<endRow>0</endRow>
<beginColumn>-1</beginColumn>
<endColumn>-1</endColumn>
</area>
</namedItem>
<namedItem xsi:type="NamedItemCells">
<name>ОбластьЯчейки</name>
<area>
<type>Rectangle</type>
<beginRow>1</beginRow>
<endRow>1</endRow>
<beginColumn>0</beginColumn>
<endColumn>0</endColumn>
</area>
</namedItem>
<line width="1" gap="false">
<v8ui:style xsi:type="v8ui:SpreadsheetDocumentCellLineType">Solid</v8ui:style>
</line>
<font faceName="Arial" height="10" bold="true" italic="false" underline="true" strikeout="false" kind="Absolute" scale="100"/>
<format>
<height>96</height>
</format>
<format>
<font>0</font>
<height>96</height>
<width>72</width>
<verticalAlignment>Center</verticalAlignment>
<textColor>#5C5845</textColor>
<textPlacement>Auto</textPlacement>
<fillType>Template</fillType>
<protection>true</protection>
</format>
<format>
<border>0</border>
<verticalAlignment>Top</verticalAlignment>
<fillType>Parameter</fillType>
<protection>false</protection>
<columnSizeChange>QuickChange</columnSizeChange>
</format>
<format>
<width>72</width>
</format>
</document>