├── .settings
    └── org.eclipse.core.resources.prefs
├── DT-INF
    └── PROJECT.PMF
├── .gitignore
├── .project
├── README.md
├── LICENSE
└── src
    └── ExternalDataProcessors
        └── КонструкторМоделиЗапроса
            ├── КонструкторМоделиЗапроса.mdo
            └── Forms
                └── Форма
                    ├── Form.form
                    └── Module.bsl


/.settings/org.eclipse.core.resources.prefs:
--------------------------------------------------------------------------------
1 | eclipse.preferences.version=1
2 | encoding/<project>=UTF-8
3 | 


--------------------------------------------------------------------------------
/DT-INF/PROJECT.PMF:
--------------------------------------------------------------------------------
1 | Manifest-Version: 1.0
2 | Runtime-Version: 8.3.25
3 | Base-Project: KASL-extentions
4 | 


--------------------------------------------------------------------------------
/.gitignore:
--------------------------------------------------------------------------------
 1 | # IDE
 2 | /.metadata/
 3 | /.settings/
 4 | /.obsidian/
 5 | 
 6 | # Binary
 7 | bin
 8 | InfoBases
 9 | tools
10 | examples


--------------------------------------------------------------------------------
/.project:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="UTF-8"?>
 2 | <projectDescription>
 3 | 	<name>КонструкторМоделиЗапроса</name>
 4 | 	<comment></comment>
 5 | 	<projects>
 6 | 	</projects>
 7 | 	<buildSpec>
 8 | 		<buildCommand>
 9 | 			<name>org.eclipse.xtext.ui.shared.xtextBuilder</name>
10 | 			<arguments>
11 | 			</arguments>
12 | 		</buildCommand>
13 | 	</buildSpec>
14 | 	<natures>
15 | 		<nature>org.eclipse.xtext.ui.shared.xtextNature</nature>
16 | 		<nature>com._1c.g5.v8.dt.core.V8ExternalObjectsNature</nature>
17 | 	</natures>
18 | </projectDescription>
19 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
 1 | # Двунаправленный конструктор модели запроса
 2 | 
 3 | ![Версия](https://img.shields.io/badge/Версия_1С-8.3.25-yellow)
 4 | 
 5 | Конструктор позволяет интерактивно создать модель запроса на основе текста запроса. Также по созданной модели можно получить исходный текст запроса.
 6 | 
 7 | ## Состав и установка
 8 | 
 9 | Объединить с файлом конфигурации из Демо-базы к статье [Модель запроса](https://infostart.ru/1c/articles/1390402/) или с конфигурацией **KASL.cf** из релиза [сборного проекта KASL](https://github.com/KalyakinAG/kasl):
10 | - Установить режим объединения с приоритетом в файле
11 | - Отметить по подсистемам файла:
12 | 	- KASL->[ОбщегоНазначения](https://github.com/KalyakinAG/common)
13 | 	- KASL->[АТДМассив](https://github.com/KalyakinAG/adt-array)
14 | 	- KASL->Модели->[МодельЗапроса](https://github.com/KalyakinAG/query-model)
15 | 
16 | 
17 | ## Зависимости
18 | 
19 | - KASL->[ОбщегоНазначения](https://github.com/KalyakinAG/common)
20 | - KASL->[АТДМассив](https://github.com/KalyakinAG/adt-array)
21 | - KASL->Модели->[МодельЗапроса](https://github.com/KalyakinAG/query-model)
22 | - KASL->Модели->МодельТекста
23 | 


--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
 1 | MIT License
 2 | 
 3 | Copyright (c) 2020 Andrey
 4 | 
 5 | Permission is hereby granted, free of charge, to any person obtaining a copy
 6 | of this software and associated documentation files (the "Software"), to deal
 7 | in the Software without restriction, including without limitation the rights
 8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 9 | copies of the Software, and to permit persons to whom the Software is
10 | furnished to do so, subject to the following conditions:
11 | 
12 | The above copyright notice and this permission notice shall be included in all
13 | copies or substantial portions of the Software.
14 | 
15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
21 | SOFTWARE.
22 | 


--------------------------------------------------------------------------------
/src/ExternalDataProcessors/КонструкторМоделиЗапроса/КонструкторМоделиЗапроса.mdo:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="UTF-8"?>
 2 | <mdclass:ExternalDataProcessor xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="7000336e-7298-4ab5-bbea-5a17a89db1e8">
 3 |   <producedTypes>
 4 |     <objectType typeId="470c42d0-d598-4813-a203-0a368ab4258c" valueTypeId="f7c5ce27-b11d-4d05-97c5-271c6f8f1008"/>
 5 |   </producedTypes>
 6 |   <name>КонструкторМоделиЗапроса</name>
 7 |   <synonym>
 8 |     <key>ru</key>
 9 |     <value>Конструктор модели запроса</value>
10 |   </synonym>
11 |   <containedObjects classId="c3831ec8-d8d5-4f93-8a22-f9bfae07327f" objectId="64693d3c-3936-46cd-9fd8-ece6f4949528"/>
12 |   <defaultForm>ExternalDataProcessor.КонструкторМоделиЗапроса.Form.Форма</defaultForm>
13 |   <attributes uuid="02999a4b-52b7-4bbb-8a69-db69376d3ae7">
14 |     <name>ТекстЗапроса</name>
15 |     <synonym>
16 |       <key>ru</key>
17 |       <value>Текст запроса</value>
18 |     </synonym>
19 |     <type>
20 |       <types>TextDocument</types>
21 |     </type>
22 |     <minValue xsi:type="core:UndefinedValue"/>
23 |     <maxValue xsi:type="core:UndefinedValue"/>
24 |   </attributes>
25 |   <attributes uuid="5872738a-aa79-4c0f-a87a-620f79408b14">
26 |     <name>ТекстМодели</name>
27 |     <synonym>
28 |       <key>ru</key>
29 |       <value>Текст модели</value>
30 |     </synonym>
31 |     <type>
32 |       <types>TextDocument</types>
33 |     </type>
34 |     <minValue xsi:type="core:UndefinedValue"/>
35 |     <maxValue xsi:type="core:UndefinedValue"/>
36 |   </attributes>
37 |   <forms uuid="a0ba817c-c11e-4182-b796-c263e57d7167">
38 |     <name>Форма</name>
39 |     <synonym>
40 |       <key>ru</key>
41 |       <value>Форма</value>
42 |     </synonym>
43 |     <usePurposes>PersonalComputer</usePurposes>
44 |     <usePurposes>MobileDevice</usePurposes>
45 |   </forms>
46 | </mdclass:ExternalDataProcessor>
47 | 


--------------------------------------------------------------------------------
/src/ExternalDataProcessors/КонструкторМоделиЗапроса/Forms/Форма/Form.form:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form">
  3 |   <items xsi:type="form:FormField">
  4 |     <name>ТекстЗапроса</name>
  5 |     <id>1</id>
  6 |     <visible>true</visible>
  7 |     <enabled>true</enabled>
  8 |     <userVisible>
  9 |       <common>true</common>
 10 |     </userVisible>
 11 |     <dataPath xsi:type="form:DataPath">
 12 |       <segments>Объект.ТекстЗапроса</segments>
 13 |     </dataPath>
 14 |     <extendedTooltip>
 15 |       <name>ТекстЗапросаРасширеннаяПодсказка</name>
 16 |       <id>3</id>
 17 |       <visible>true</visible>
 18 |       <enabled>true</enabled>
 19 |       <userVisible>
 20 |         <common>true</common>
 21 |       </userVisible>
 22 |       <type>Label</type>
 23 |       <autoMaxWidth>true</autoMaxWidth>
 24 |       <autoMaxHeight>true</autoMaxHeight>
 25 |       <extInfo xsi:type="form:LabelDecorationExtInfo">
 26 |         <horizontalAlign>Left</horizontalAlign>
 27 |       </extInfo>
 28 |     </extendedTooltip>
 29 |     <contextMenu>
 30 |       <name>ТекстЗапросаКонтекстноеМеню</name>
 31 |       <id>2</id>
 32 |       <items xsi:type="form:Button">
 33 |         <name>МенюКомандаОткрытьКонструкторЗапроса</name>
 34 |         <id>13</id>
 35 |         <visible>true</visible>
 36 |         <enabled>true</enabled>
 37 |         <userVisible>
 38 |           <common>true</common>
 39 |         </userVisible>
 40 |         <extendedTooltip>
 41 |           <name>МенюКомандаОткрытьКонструкторЗапросаРасширеннаяПодсказка</name>
 42 |           <id>14</id>
 43 |           <visible>true</visible>
 44 |           <enabled>true</enabled>
 45 |           <userVisible>
 46 |             <common>true</common>
 47 |           </userVisible>
 48 |           <type>Label</type>
 49 |           <autoMaxWidth>true</autoMaxWidth>
 50 |           <autoMaxHeight>true</autoMaxHeight>
 51 |           <extInfo xsi:type="form:LabelDecorationExtInfo">
 52 |             <horizontalAlign>Left</horizontalAlign>
 53 |           </extInfo>
 54 |         </extendedTooltip>
 55 |         <commandName>Form.Command.КомандаОткрытьКонструкторЗапроса</commandName>
 56 |         <representation>Auto</representation>
 57 |         <autoMaxWidth>true</autoMaxWidth>
 58 |         <autoMaxHeight>true</autoMaxHeight>
 59 |         <placementArea>UserCmds</placementArea>
 60 |         <representationInContextMenu>Auto</representationInContextMenu>
 61 |       </items>
 62 |       <visible>true</visible>
 63 |       <enabled>true</enabled>
 64 |       <userVisible>
 65 |         <common>true</common>
 66 |       </userVisible>
 67 |       <autoFill>true</autoFill>
 68 |     </contextMenu>
 69 |     <type>TextDocumentField</type>
 70 |     <editMode>EnterOnInput</editMode>
 71 |     <showInHeader>true</showInHeader>
 72 |     <headerHorizontalAlign>Left</headerHorizontalAlign>
 73 |     <showInFooter>true</showInFooter>
 74 |     <extInfo xsi:type="form:TextDocFieldExtInfo">
 75 |       <width>50</width>
 76 |       <autoMaxWidth>true</autoMaxWidth>
 77 |       <height>10</height>
 78 |       <autoMaxHeight>true</autoMaxHeight>
 79 |       <horizontalStretch>true</horizontalStretch>
 80 |       <verticalStretch>true</verticalStretch>
 81 |     </extInfo>
 82 |   </items>
 83 |   <items xsi:type="form:FormField">
 84 |     <name>ТекстМодели</name>
 85 |     <id>4</id>
 86 |     <visible>true</visible>
 87 |     <enabled>true</enabled>
 88 |     <userVisible>
 89 |       <common>true</common>
 90 |     </userVisible>
 91 |     <dataPath xsi:type="form:DataPath">
 92 |       <segments>Объект.ТекстМодели</segments>
 93 |     </dataPath>
 94 |     <extendedTooltip>
 95 |       <name>ТекстМоделиРасширеннаяПодсказка</name>
 96 |       <id>6</id>
 97 |       <visible>true</visible>
 98 |       <enabled>true</enabled>
 99 |       <userVisible>
100 |         <common>true</common>
101 |       </userVisible>
102 |       <type>Label</type>
103 |       <autoMaxWidth>true</autoMaxWidth>
104 |       <autoMaxHeight>true</autoMaxHeight>
105 |       <extInfo xsi:type="form:LabelDecorationExtInfo">
106 |         <horizontalAlign>Left</horizontalAlign>
107 |       </extInfo>
108 |     </extendedTooltip>
109 |     <contextMenu>
110 |       <name>ТекстМоделиКонтекстноеМеню</name>
111 |       <id>5</id>
112 |       <visible>true</visible>
113 |       <enabled>true</enabled>
114 |       <userVisible>
115 |         <common>true</common>
116 |       </userVisible>
117 |       <autoFill>true</autoFill>
118 |     </contextMenu>
119 |     <type>TextDocumentField</type>
120 |     <editMode>EnterOnInput</editMode>
121 |     <showInHeader>true</showInHeader>
122 |     <headerHorizontalAlign>Left</headerHorizontalAlign>
123 |     <showInFooter>true</showInFooter>
124 |     <extInfo xsi:type="form:TextDocFieldExtInfo">
125 |       <width>50</width>
126 |       <autoMaxWidth>true</autoMaxWidth>
127 |       <height>10</height>
128 |       <autoMaxHeight>true</autoMaxHeight>
129 |       <horizontalStretch>true</horizontalStretch>
130 |       <verticalStretch>true</verticalStretch>
131 |     </extInfo>
132 |   </items>
133 |   <autoCommandBar>
134 |     <name>ФормаКоманднаяПанель</name>
135 |     <id>-1</id>
136 |     <items xsi:type="form:Button">
137 |       <name>КомандаПолучитьТекстМодели</name>
138 |       <id>7</id>
139 |       <visible>true</visible>
140 |       <enabled>true</enabled>
141 |       <userVisible>
142 |         <common>true</common>
143 |       </userVisible>
144 |       <extendedTooltip>
145 |         <name>КомандаПолучитьТекстМоделиРасширеннаяПодсказка</name>
146 |         <id>8</id>
147 |         <visible>true</visible>
148 |         <enabled>true</enabled>
149 |         <userVisible>
150 |           <common>true</common>
151 |         </userVisible>
152 |         <type>Label</type>
153 |         <autoMaxWidth>true</autoMaxWidth>
154 |         <autoMaxHeight>true</autoMaxHeight>
155 |         <extInfo xsi:type="form:LabelDecorationExtInfo">
156 |           <horizontalAlign>Left</horizontalAlign>
157 |         </extInfo>
158 |       </extendedTooltip>
159 |       <commandName>Form.Command.КомандаПолучитьТекстМодели</commandName>
160 |       <representation>Auto</representation>
161 |       <defaultButton>true</defaultButton>
162 |       <autoMaxWidth>true</autoMaxWidth>
163 |       <autoMaxHeight>true</autoMaxHeight>
164 |       <placementArea>UserCmds</placementArea>
165 |       <representationInContextMenu>Auto</representationInContextMenu>
166 |     </items>
167 |     <items xsi:type="form:Button">
168 |       <name>КомандаОткрытьКонструкторЗапроса</name>
169 |       <id>11</id>
170 |       <visible>true</visible>
171 |       <enabled>true</enabled>
172 |       <userVisible>
173 |         <common>true</common>
174 |       </userVisible>
175 |       <extendedTooltip>
176 |         <name>КомандаОткрытьКонструкторЗапросаРасширеннаяПодсказка</name>
177 |         <id>12</id>
178 |         <visible>true</visible>
179 |         <enabled>true</enabled>
180 |         <userVisible>
181 |           <common>true</common>
182 |         </userVisible>
183 |         <type>Label</type>
184 |         <autoMaxWidth>true</autoMaxWidth>
185 |         <autoMaxHeight>true</autoMaxHeight>
186 |         <extInfo xsi:type="form:LabelDecorationExtInfo">
187 |           <horizontalAlign>Left</horizontalAlign>
188 |         </extInfo>
189 |       </extendedTooltip>
190 |       <commandName>Form.Command.КомандаОткрытьКонструкторЗапроса</commandName>
191 |       <representation>Auto</representation>
192 |       <autoMaxWidth>true</autoMaxWidth>
193 |       <autoMaxHeight>true</autoMaxHeight>
194 |       <placementArea>UserCmds</placementArea>
195 |       <representationInContextMenu>Auto</representationInContextMenu>
196 |     </items>
197 |     <items xsi:type="form:Button">
198 |       <name>КомандаПолучитьТекстЗапроса</name>
199 |       <id>9</id>
200 |       <visible>true</visible>
201 |       <enabled>true</enabled>
202 |       <userVisible>
203 |         <common>true</common>
204 |       </userVisible>
205 |       <extendedTooltip>
206 |         <name>КомандаПолучитьТекстЗапросаРасширеннаяПодсказка</name>
207 |         <id>10</id>
208 |         <visible>true</visible>
209 |         <enabled>true</enabled>
210 |         <userVisible>
211 |           <common>true</common>
212 |         </userVisible>
213 |         <type>Label</type>
214 |         <autoMaxWidth>true</autoMaxWidth>
215 |         <autoMaxHeight>true</autoMaxHeight>
216 |         <extInfo xsi:type="form:LabelDecorationExtInfo">
217 |           <horizontalAlign>Left</horizontalAlign>
218 |         </extInfo>
219 |       </extendedTooltip>
220 |       <commandName>Form.Command.КомандаПолучитьТекстЗапроса</commandName>
221 |       <representation>Auto</representation>
222 |       <autoMaxWidth>true</autoMaxWidth>
223 |       <autoMaxHeight>true</autoMaxHeight>
224 |       <placementArea>UserCmds</placementArea>
225 |       <representationInContextMenu>Auto</representationInContextMenu>
226 |     </items>
227 |     <visible>true</visible>
228 |     <enabled>true</enabled>
229 |     <userVisible>
230 |       <common>true</common>
231 |     </userVisible>
232 |     <horizontalAlign>Left</horizontalAlign>
233 |     <autoFill>true</autoFill>
234 |   </autoCommandBar>
235 |   <handlers>
236 |     <event>OnOpen</event>
237 |     <name>ПриОткрытии</name>
238 |   </handlers>
239 |   <handlers>
240 |     <event>OnCreateAtServer</event>
241 |     <name>ПриСозданииНаСервере</name>
242 |   </handlers>
243 |   <autoSaveDataInSettings>Use</autoSaveDataInSettings>
244 |   <saveWindowSettings>true</saveWindowSettings>
245 |   <autoTitle>true</autoTitle>
246 |   <autoUrl>true</autoUrl>
247 |   <group>Vertical</group>
248 |   <autoFillCheck>true</autoFillCheck>
249 |   <allowFormCustomize>true</allowFormCustomize>
250 |   <enabled>true</enabled>
251 |   <showTitle>true</showTitle>
252 |   <showCloseButton>true</showCloseButton>
253 |   <attributes>
254 |     <name>Объект</name>
255 |     <id>1</id>
256 |     <valueType>
257 |       <types>ExternalDataProcessor.КонструкторМоделиЗапроса</types>
258 |     </valueType>
259 |     <view>
260 |       <common>true</common>
261 |     </view>
262 |     <edit>
263 |       <common>true</common>
264 |     </edit>
265 |     <settingsSavedData xsi:type="form:DataPath">
266 |       <segments>Объект.ТекстЗапроса</segments>
267 |     </settingsSavedData>
268 |     <settingsSavedData xsi:type="form:DataPath">
269 |       <segments>Объект.ТекстМодели</segments>
270 |     </settingsSavedData>
271 |     <main>true</main>
272 |   </attributes>
273 |   <formCommands>
274 |     <name>КомандаПолучитьТекстМодели</name>
275 |     <title>
276 |       <key>ru</key>
277 |       <value>Получить текст модели</value>
278 |     </title>
279 |     <id>1</id>
280 |     <use>
281 |       <common>true</common>
282 |     </use>
283 |     <picture xsi:type="core:PictureRef">
284 |       <picture>StdPicture.GenerateReport</picture>
285 |     </picture>
286 |     <action xsi:type="form:FormCommandHandlerContainer">
287 |       <handler>
288 |         <name>КомандаПолучитьТекстМодели</name>
289 |       </handler>
290 |     </action>
291 |     <representation>TextPicture</representation>
292 |     <currentRowUse>Auto</currentRowUse>
293 |   </formCommands>
294 |   <formCommands>
295 |     <name>КомандаПолучитьТекстЗапроса</name>
296 |     <title>
297 |       <key>ru</key>
298 |       <value>Получить текст запроса</value>
299 |     </title>
300 |     <id>2</id>
301 |     <use>
302 |       <common>true</common>
303 |     </use>
304 |     <picture xsi:type="core:PictureRef">
305 |       <picture>StdPicture.Document</picture>
306 |     </picture>
307 |     <action xsi:type="form:FormCommandHandlerContainer">
308 |       <handler>
309 |         <name>КомандаПолучитьТекстЗапроса</name>
310 |       </handler>
311 |     </action>
312 |     <representation>Picture</representation>
313 |     <currentRowUse>Auto</currentRowUse>
314 |   </formCommands>
315 |   <formCommands>
316 |     <name>КомандаОткрытьКонструкторЗапроса</name>
317 |     <title>
318 |       <key>ru</key>
319 |       <value>Открыть конструктор запроса</value>
320 |     </title>
321 |     <id>3</id>
322 |     <toolTip>
323 |       <key>ru</key>
324 |       <value>Команда открыть конструктор запроса</value>
325 |     </toolTip>
326 |     <use>
327 |       <common>true</common>
328 |     </use>
329 |     <picture xsi:type="core:PictureRef">
330 |       <picture>StdPicture.QueryWizard</picture>
331 |     </picture>
332 |     <action xsi:type="form:FormCommandHandlerContainer">
333 |       <handler>
334 |         <name>КомандаОткрытьКонструкторЗапроса</name>
335 |       </handler>
336 |     </action>
337 |     <currentRowUse>DontUse</currentRowUse>
338 |   </formCommands>
339 |   <commandInterface>
340 |     <navigationPanel/>
341 |     <commandBar/>
342 |   </commandInterface>
343 |   <extInfo xsi:type="form:ObjectFormExtInfo"/>
344 | </form:Form>
345 | 


--------------------------------------------------------------------------------
/src/ExternalDataProcessors/КонструкторМоделиЗапроса/Forms/Форма/Module.bsl:
--------------------------------------------------------------------------------
  1 | Перем Метки;
  2 | 
  3 | &НаКлиенте
  4 | Процедура КомандаПолучитьТекстМодели(Команда)
  5 | 	КомандаПолучитьТекстМоделиНаСервере();
  6 | КонецПроцедуры
  7 | 
  8 | &НаКлиентеНаСервереБезКонтекста
  9 | Функция Псевдоним(ПутьКДанным) 
 10 | 	Возврат СтрЗаменить(ОбщийКлиентСервер.НачалоСтрокиПослеРазделителя(ПутьКДанным, "."), ".", "");
 11 | КонецФункции
 12 | 
 13 | &НаСервере
 14 | Процедура ДобавитьТекстПоля(Строки, ЗапросПакета, Выражение)
 15 | 	Колонка = ЗапросПакета.Колонки.Найти(Выражение);
 16 | 	Поле = Строка(Выражение);
 17 | 	
 18 | 	АгрегатнаяФункция = "";
 19 | 	Если СтрНачинаетсяС(Поле, "СУММА(") Тогда
 20 | 		АгрегатнаяФункция = "Сумма";
 21 | 		ЧислоСимволов = 6;
 22 | 		Поле = Сред(Поле, ЧислоСимволов + 1, СтрДлина(Поле) - ЧислоСимволов - 1);
 23 | 	ИначеЕсли СтрНачинаетсяС(Поле, "КОЛИЧЕСТВО(РАЗЛИЧНЫЕ ") Тогда
 24 | 		АгрегатнаяФункция = "КоличествоРазличных";
 25 | 		ЧислоСимволов = 21;
 26 | 		Поле = Сред(Поле, ЧислоСимволов + 1, СтрДлина(Поле) - ЧислоСимволов - 1);
 27 | 	ИначеЕсли СтрНачинаетсяС(Поле, "КОЛИЧЕСТВО(") Тогда
 28 | 		АгрегатнаяФункция = "Количество";
 29 | 		ЧислоСимволов = 11;
 30 | 		Поле = Сред(Поле, ЧислоСимволов + 1, СтрДлина(Поле) - ЧислоСимволов - 1);
 31 | 	ИначеЕсли СтрНачинаетсяС(Поле, "СРЕДНЕЕ(") Тогда
 32 | 		АгрегатнаяФункция = "Среднее";
 33 | 		ЧислоСимволов = 8;
 34 | 		Поле = Сред(Поле, ЧислоСимволов + 1, СтрДлина(Поле) - ЧислоСимволов - 1);
 35 | 	ИначеЕсли СтрНачинаетсяС(Поле, "МАКСИМУМ(") Тогда
 36 | 		АгрегатнаяФункция = "Максимум";
 37 | 		ЧислоСимволов = 9;
 38 | 		Поле = Сред(Поле, ЧислоСимволов + 1, СтрДлина(Поле) - ЧислоСимволов - 1);
 39 | 	ИначеЕсли СтрНачинаетсяС(Поле, "МИНИМУМ(") Тогда
 40 | 		АгрегатнаяФункция = "Минимум";
 41 | 		ЧислоСимволов = 8;
 42 | 		Поле = Сред(Поле, ЧислоСимволов + 1, СтрДлина(Поле) - ЧислоСимволов - 1);
 43 | 	КонецЕсли;
 44 | 	Если ЗначениеЗаполнено(АгрегатнаяФункция) Тогда
 45 | 		Псевдоним = Псевдоним(Поле);
 46 | 		Если Колонка.Поля.Количество() = 1 И Псевдоним = Колонка.Псевдоним Тогда
 47 | 			Строки.Добавить(СтрШаблон(".%1(""%2"")", АгрегатнаяФункция, Поле));
 48 | 			Возврат;
 49 | 		КонецЕсли;
 50 | 		Строки.Добавить(СтрШаблон(".%1(""%2"", ""%3"")", АгрегатнаяФункция, ОбщийКлиентСервер.ЭкранироватьТекст(Поле), Колонка.Псевдоним));
 51 | 		Возврат;
 52 | 	КонецЕсли;
 53 | 	
 54 | 	Если СтрНачинаетсяС(Поле, "ЕСТЬNULL(") Тогда
 55 | 		ЧислоСимволов = 9;
 56 | 		Поле = Сред(Поле, ЧислоСимволов + 1, СтрДлина(Поле) - ЧислоСимволов - 1);
 57 | 		ПозицияРазделителя = СтрНайти(Поле, ",", НаправлениеПоиска.СКонца);
 58 | 		ПолеЕстьNull = СокрЛ(Прав(Поле, СтрДлина(Поле) - ПозицияРазделителя));
 59 | 		Поле = Лев(Поле, ПозицияРазделителя - 1);
 60 | 		Псевдоним = Псевдоним(Поле);
 61 | 		Если Колонка.Поля.Количество() = 1 И Псевдоним = Колонка.Псевдоним Тогда
 62 | 			Строки.Добавить(СтрШаблон(".Поле(""%1"", , ""%2"")", Поле, ПолеЕстьNull));
 63 | 			Возврат;
 64 | 		КонецЕсли;
 65 | 		ДобавитьСтроку(Строки, СтрШаблон(".Поле(""%1"", ""%2"", ""%3"")", ОбщийКлиентСервер.ЭкранироватьТекст(Поле), Колонка.Псевдоним, ОбщийКлиентСервер.ЭкранироватьТекст(ПолеЕстьNull)));
 66 | 		Возврат;
 67 | 	КонецЕсли;
 68 | 	
 69 | 	Псевдоним = Псевдоним(Строка(Выражение));
 70 | 	Если Колонка.Поля.Количество() = 1 И Псевдоним = Колонка.Псевдоним Тогда
 71 | 		ДобавитьСтроку(Строки, СтрШаблон(".Поле(""%1"")", Выражение));
 72 | 		Возврат;
 73 | 	КонецЕсли;
 74 | 	ДобавитьСтроку(Строки, СтрШаблон(".Поле(""%1"", ""%2"")", ОбщийКлиентСервер.ЭкранироватьТекст(Выражение), Колонка.Псевдоним));
 75 | КонецПроцедуры
 76 | 
 77 | &НаСервере
 78 | Процедура ДобавитьТекстСоединения(Строки, СтрокаСоединения, Связи, Условия)
 79 | 	Если Связи.ВГраница() <> -1 Тогда
 80 | 		Строки.Добавить(СтрШаблон(".%1(""%2"", ""%3"")", СтрокаСоединения.ТипСоединения, СтрокаСоединения.ИсточникСлева, СтрокаСоединения.ИсточникСправа));
 81 | 		Строки.Добавить(СтрШаблон("	.Связь(""%1"");", СтрСоединить(Связи, ", ")));
 82 | 	КонецЕсли; 
 83 | 	Если Условия.ВГраница() <> -1 Тогда
 84 | 		Условие = ОбщийКлиентСервер.ЭкранироватьТекст(СтрСоединить(Условия, "
 85 | 		|И "));
 86 | 		Условие = СтрЗаменить(Условие, СтрокаСоединения.ИсточникСлева, "%1");
 87 | 		Условие = СтрЗаменить(Условие, СтрокаСоединения.ИсточникСправа, "%2");
 88 | 		Если Связи.ВГраница() = -1 Тогда
 89 | 			ДобавитьСтроку(Строки, СтрШаблон(".%1(""%2"", ""%3"")", СтрокаСоединения.ТипСоединения, СтрокаСоединения.ИсточникСлева, СтрокаСоединения.ИсточникСправа));
 90 | 		КонецЕсли;
 91 | 		ДобавитьСтроку(Строки, СтрШаблон("	.УсловиеСвязи(""%1"");", Условие));
 92 | 	КонецЕсли;
 93 | КонецПроцедуры
 94 | 
 95 | &НаСервере
 96 | Функция ПолучитьТекстЗапроса()
 97 | 	МодельЗапроса = Общий.МодельЗапроса();
 98 | 	Выполнить(Объект.ТекстМодели.ПолучитьТекст());
 99 | 	Возврат МодельЗапроса.ПолучитьТекстЗапроса();
100 | КонецФункции
101 | 
102 | &НаКлиенте
103 | Процедура КомандаПолучитьТекстЗапроса(Команда)
104 | 	Текст = Новый ТекстовыйДокумент;
105 | 	Текст.УстановитьТекст(ПолучитьТекстЗапроса());
106 | 	Текст.Показать("Текст запроса из модели");
107 | КонецПроцедуры
108 | 
109 | &НаСервере
110 | Функция ПривестиСтроку(Строка, ОчиститьВызов = Истина, ОчиститьОкончание = Истина)
111 | 	Результат = Строка;
112 | 	Если ОчиститьВызов Тогда
113 | 		Результат = СтрЗаменить(Результат, "МодельЗапроса", "");
114 | 	КонецЕсли;		
115 | 	Если ОчиститьОкончание Тогда
116 | 		Результат = СтрЗаменить(Результат, ";", "");
117 | 	КонецЕсли;		
118 | 	Возврат Результат;
119 | КонецФункции
120 | 
121 | &НаСервере
122 | Процедура ДобавитьСтроки(СтрокиПолучателя, СтрокиИсточника, Отступ = 0, ПерваяСтрокаБезОтступа = Ложь, ТекучийИнтерфейс = Ложь)
123 | 	СтрокаОтступа1 = СтроковыеФункцииКлиентСервер.СформироватьСтрокуСимволов(Символы.Таб, Отступ);
124 | 	СтрокаОтступа = СтроковыеФункцииКлиентСервер.СформироватьСтрокуСимволов(Символы.Таб, Отступ + 1);
125 | 	Если ТекучийИнтерфейс Тогда
126 | 		Для й = 0 По СтрокиИсточника.ВГраница() Цикл
127 | 			Если й = 0 И ПерваяСтрокаБезОтступа Тогда
128 | 				ДобавитьСтроку(СтрокиПолучателя, ПривестиСтроку(СтрШаблон("%1%2", СтрокаОтступа1, СтрокиИсточника[й]), Ложь, Истина));
129 | 			ИначеЕсли й = СтрокиИсточника.ВГраница() Тогда
130 | 				ДобавитьСтроку(СтрокиПолучателя, ПривестиСтроку(СтрШаблон("%1%2", СтрокаОтступа, СтрокиИсточника[й]), Истина, Ложь));
131 | 			Иначе
132 | 				ДобавитьСтроку(СтрокиПолучателя, ПривестиСтроку(СтрШаблон("%1%2", СтрокаОтступа, СтрокиИсточника[й])));
133 | 			КонецЕсли;
134 | 		КонецЦикла;
135 | 		Возврат;
136 | 	КонецЕсли;
137 | 	Для й = 0 По СтрокиИсточника.ВГраница() Цикл
138 | 		Если й = 0 И ПерваяСтрокаБезОтступа Тогда
139 | 			ДобавитьСтроку(СтрокиПолучателя, СтрШаблон("%1", СтрокиИсточника[й]));
140 | 		Иначе
141 | 			ДобавитьСтроку(СтрокиПолучателя, СтрШаблон("%1%2", СтрокаОтступа, СтрокиИсточника[й]));
142 | 		КонецЕсли;
143 | 	КонецЦикла;
144 | КонецПроцедуры
145 | 
146 | &НаСервере
147 | Процедура ДобавитьТекстОператора(Строки, ЗапросПакета, ОператорВыбрать, ЭтоПервыйОператор, Уровень = 0)
148 | 	Если ЭтоПервыйОператор Тогда
149 | 		ИмяМетода = "Выбрать";
150 | 	ИначеЕсли ОператорВыбрать.ТипОбъединения = ТипОбъединенияСхемыЗапроса.ОбъединитьВсе Тогда
151 | 		ИмяМетода = "ОбъединитьВсе";
152 | 	Иначе
153 | 		ИмяМетода = "Объединить";
154 | 	КонецЕсли;
155 | 	Если ОператорВыбрать.КоличествоПолучаемыхЗаписей = Неопределено Тогда
156 | 		ВыбратьПервые = "";
157 | 	Иначе
158 | 		ВыбратьПервые = Формат(ОператорВыбрать.КоличествоПолучаемыхЗаписей, "ЧГ=;");
159 | 	КонецЕсли;
160 | 	Если ОператорВыбрать.ВыбиратьРазличные Тогда
161 | 		Строки.Добавить(СтрШаблон(".%1(%2, Истина)", ИмяМетода, ВыбратьПервые));
162 | 	Иначе
163 | 		Строки.Добавить(СтрШаблон(".%1(%2)", ИмяМетода, ВыбратьПервые));
164 | 	КонецЕсли;
165 | 
166 | 	Для Каждого Источник Из ОператорВыбрать.Источники Цикл
167 | 		ТипИсточника = ТипЗнч(Источник.Источник);
168 | 		Если ТипИсточника = Тип("ВложенныйЗапросСхемыЗапроса") Тогда
169 | 			ВложенныйЗапрос = Источник.Источник.Запрос;
170 | 			Строки.Добавить(СтрШаблон(".ИсточникНачать(""%1"")", Источник.Источник.Псевдоним));
171 | 			ЭтоПервыйОператорВложенногоЗапроса = Истина;
172 | 			СтрокиВложенногоЗапроса = Новый Массив;
173 | 			Для Каждого ВложенныйЗапросОператорВыбрать Из ВложенныйЗапрос.Операторы Цикл
174 | 				СтрокиОператора = Новый Массив;
175 | 				ДобавитьТекстОператора(СтрокиОператора, ВложенныйЗапрос, ВложенныйЗапросОператорВыбрать, ЭтоПервыйОператорВложенногоЗапроса, 0);
176 | 				ДобавитьСтроки(СтрокиВложенногоЗапроса, СтрокиОператора, 0, Истина, Истина);
177 | 				ЭтоПервыйОператорВложенногоЗапроса = Ложь;						
178 | 			КонецЦикла;
179 | 			ДобавитьСтроки(Строки, СтрокиВложенногоЗапроса, Уровень);
180 | 			Строки.Добавить(СтрШаблон(".ИсточникЗавершить()"));
181 | 			Продолжить;
182 | 		КонецЕсли;
183 | 		ИмяТаблицы = Источник.Источник.ИмяТаблицы;
184 | 		Псевдоним = Источник.Источник.Псевдоним;
185 | 		Если ТипИсточника = Тип("ОписаниеВременнойТаблицыСхемыЗапроса") Тогда
186 | 			Строки.Добавить(СтрШаблон(".Источник(""%1"", ""%2"")", ИмяТаблицы, Псевдоним));
187 | 			Продолжить;
188 | 		КонецЕсли;					
189 | 		СтруктураПараметров = РаботаСоСхемойЗапроса.ПараметрыВиртуальнойТаблицы(ИмяТаблицы, Источник.Источник.Параметры);
190 | 		Если СтруктураПараметров = Неопределено Тогда
191 | 			Если Псевдоним = ОбщийКлиентСервер.ОкончаниеСтрокиПослеРазделителя(ИмяТаблицы) Тогда
192 | 				Строки.Добавить(СтрШаблон(".Источник(""%1"")", ИмяТаблицы));					
193 | 			Иначе
194 | 				Строки.Добавить(СтрШаблон(".Источник(""%1"", ""%2"")", ИмяТаблицы, Псевдоним));					
195 | 			КонецЕсли;
196 | 		Иначе
197 | 			ОписаниеКлючейПараметров = "";
198 | 			СтруктураПараметровБезКоманды = Новый Структура;
199 | 			СтрокиПараметров = Новый Массив;
200 | 			Для Каждого ЭлементПараметра Из СтруктураПараметров Цикл
201 | 				Если ЭлементПараметра.Ключ = "НачалоПериода" Тогда
202 | 					СтрокиПараметров.Добавить(СтрШаблон(".НачалоПериода(%1)", СтрокаВКавычках(ЭлементПараметра.Значение)));
203 | 				ИначеЕсли ЭлементПараметра.Ключ = "КонецПериода" Тогда
204 | 					СтрокиПараметров.Добавить(СтрШаблон(".КонецПериода(%1)", СтрокаВКавычках(ЭлементПараметра.Значение)));
205 | 				ИначеЕсли ЭлементПараметра.Ключ = "Период" Тогда
206 | 					СтрокиПараметров.Добавить(СтрШаблон(".Период(%1)", СтрокаВКавычках(ЭлементПараметра.Значение)));
207 | 				ИначеЕсли ЭлементПараметра.Ключ = "Периодичность" Тогда
208 | 					СтрокиПараметров.Добавить(СтрШаблон(".Периодичность%1()", ЭлементПараметра.Значение));
209 | 				ИначеЕсли ЭлементПараметра.Ключ = "Условие" Тогда
210 | 					СтрокиПараметров.Добавить(СтрШаблон(".Условие(%1)", СтрокаВКавычках(ЭлементПараметра.Значение)));
211 | 				Иначе
212 | 					ОписаниеКлючейПараметров = ОписаниеКлючейПараметров + ?(ОписаниеКлючейПараметров = "", "", ", ") + ЭлементПараметра.Ключ;
213 | 					СтруктураПараметровБезКоманды.Вставить(ЭлементПараметра.Ключ, ЭлементПараметра.Значение);
214 | 				КонецЕсли;
215 | 			КонецЦикла;
216 | 			ОписаниеЗначенийПараметров = "";
217 | 			Для Каждого ЭлементПараметра Из СтруктураПараметровБезКоманды Цикл
218 | 				ОписаниеЗначенийПараметров = ОписаниеЗначенийПараметров + ?(ОписаниеЗначенийПараметров = "", "", ", ") + """" + ЭлементПараметра.Значение + """";
219 | 			КонецЦикла;
220 | 			Если ЗначениеЗаполнено(ОписаниеЗначенийПараметров) Тогда
221 | 				ПараметрыТаблицы = "Новый Структура(""" + ОписаниеКлючейПараметров + """, " + ОписаниеЗначенийПараметров + ")";
222 | 				Строки.Добавить(СтрШаблон("МодельЗапроса.Источник(""%1"", ""%2"", %3);", ИмяТаблицы, Псевдоним, ПараметрыТаблицы));					
223 | 			Иначе 
224 | 				Если Псевдоним = ОбщийКлиентСервер.ОкончаниеСтрокиПослеРазделителя(ИмяТаблицы) Тогда
225 | 					Строки.Добавить(СтрШаблон(".Источник(""%1"")", ИмяТаблицы));					
226 | 				Иначе
227 | 					Строки.Добавить(СтрШаблон(".Источник(""%1"", ""%2"")", ИмяТаблицы, Псевдоним));					
228 | 				КонецЕсли;
229 | 			КонецЕсли;
230 | 			ДобавитьСтроки(Строки, СтрокиПараметров, 0);
231 | 			//Строки.Добавить(СтрШаблон(".Источник(""%1"", ""%2"", %3)", ИмяТаблицы, Псевдоним, ПараметрыТаблицы));					
232 | 		КонецЕсли;
233 | 	КонецЦикла;
234 | 	
235 | 	ТаблицаСоединений = Новый ТаблицаЗначений;
236 | 	ТаблицаСоединений.Колонки.Добавить("ИсточникСлева");
237 | 	ТаблицаСоединений.Колонки.Добавить("ИсточникСправа");
238 | 	ТаблицаСоединений.Колонки.Добавить("ТипСоединения");
239 | 	ТаблицаСоединений.Колонки.Добавить("ЭтоСвязь", Новый ОписаниеТипов("Булево"));
240 | 	ТаблицаСоединений.Колонки.Добавить("Связь");
241 | 	ТаблицаСоединений.Колонки.Добавить("УсловиеСвязи");
242 | 	
243 | 	Для Каждого Источник Из ОператорВыбрать.Источники Цикл
244 | 		Для Каждого Соединение Из Источник.Соединения Цикл
245 | 			
246 | //////////////////////////////////////////////////
247 | 
248 | 			ТипСоединения = Соединение.ТипСоединения;
249 | 			ИсточникСлева = Источник.Источник;
250 | 			ИсточникСправа = Соединение.Источник.Источник; 
251 | 			Если ТипСоединения = ТипСоединенияСхемыЗапроса.ЛевоеВнешнее Тогда
252 | 				МетодСоединения = "ЛевоеСоединение";
253 | 			ИначеЕсли ТипСоединения = ТипСоединенияСхемыЗапроса.Внутреннее Тогда
254 | 				МетодСоединения = "ВнутреннееСоединение";
255 | 			ИначеЕсли ТипСоединения = ТипСоединенияСхемыЗапроса.ПравоеВнешнее Тогда
256 | 				МетодСоединения = "ПравоеСоединение";
257 | 			ИначеЕсли ТипСоединения = ТипСоединенияСхемыЗапроса.ПолноеВнешнее Тогда
258 | 				МетодСоединения = "ПолноеСоединение";
259 | 			Иначе
260 | 				ВызватьИсключение СтрШаблон("Неизвестный тип соединения %1", ТипСоединения);
261 | 			КонецЕсли;
262 | 			Условие = Соединение.Условие;
263 | 			Связь = Условие;
264 | 			ЭтоСвязь = Истина;
265 | 			ПоляСвязи = Новый Массив;
266 | 			Для Каждого УсловиеСвязи Из СтрРазделить(СтрЗаменить(Связь, " И ", ","), ",") Цикл
267 | 				Состав = СтрРазделить(УсловиеСвязи, "=");
268 | 				Если Состав.ВГраница() <> 1 Тогда
269 | 					ЭтоСвязь = Ложь;
270 | 					Прервать
271 | 				КонецЕсли;
272 | 				ПолеСлева = СокрЛП(Состав[0]);
273 | 				ПолеСлева = СтрЗаменить(ПолеСлева, ИсточникСлева.Псевдоним + ".", "");
274 | 				ПолеСправа = СокрЛП(Состав[1]);
275 | 				ПолеСправа = СтрЗаменить(ПолеСправа, ИсточникСправа.Псевдоним + ".", "");
276 | 				Если ИсточникСлева.ДоступныеПоля.Найти(ПолеСлева) = Неопределено Тогда
277 | 					ЭтоСвязь = Ложь;
278 | 					Прервать
279 | 				КонецЕсли;
280 | 				Если ИсточникСправа.ДоступныеПоля.Найти(ПолеСправа) = Неопределено Тогда
281 | 					ЭтоСвязь = Ложь;
282 | 					Прервать
283 | 				КонецЕсли;
284 | 				Если ПолеСлева = ПолеСправа Тогда
285 | 					ПоляСвязи.Добавить(ПолеСлева);
286 | 					Продолжить;
287 | 				КонецЕсли;
288 | 				ПоляСвязи.Добавить(СтрШаблон("%1 = %2", ПолеСлева, ПолеСправа));
289 | 			КонецЦикла;
290 | 			
291 | 			СтрокаСоединения = ТаблицаСоединений.Добавить();
292 | 			СтрокаСоединения.ТипСоединения = МетодСоединения;
293 | 			СтрокаСоединения.ИсточникСлева = ИсточникСлева.Псевдоним;
294 | 			СтрокаСоединения.ИсточникСправа = ИсточникСправа.Псевдоним;
295 | 			Если ЭтоСвязь Тогда
296 | 				СтрокаСоединения.Связь = СтрСоединить(ПоляСвязи, ", ");
297 | 				СтрокаСоединения.ЭтоСвязь = Истина;
298 | 				Продолжить;
299 | 			КонецЕсли;			
300 | 			СтрокаСоединения.УсловиеСвязи = Условие;
301 | 
302 | //////////////////////////////////////////////////
303 | 			
304 | 			//ДобавитьТекстСоединения(Строки, Источник, Соединение);
305 | 		КонецЦикла;					
306 | 	КонецЦикла;
307 | 	ТаблицаСоединений.Сортировать("ИсточникСлева, ИсточникСправа, ТипСоединения, ЭтоСвязь Убыв");
308 | 	ПредИндекс = "";
309 | 	Связи = Новый Массив;
310 | 	Условия = Новый Массив;
311 | 	ПоляГруппировки = Новый Структура("ТипСоединения, ИсточникСлева, ИсточникСправа");
312 | 	Для каждого СтрокаСоединения Из ТаблицаСоединений Цикл
313 | 		Индекс = СтрокаСоединения.ТипСоединения + СтрокаСоединения.ИсточникСлева + СтрокаСоединения.ИсточникСправа;
314 | 		Если ПредИндекс <> Индекс Тогда
315 | 			Если ПредИндекс <> "" Тогда
316 | 				ДобавитьТекстСоединения(Строки, ПоляГруппировки, Связи, Условия);
317 | 			КонецЕсли;
318 | 			Связи = Новый Массив;
319 | 			Условия = Новый Массив;
320 | 			ПредИндекс = Индекс;
321 | 			ЗаполнитьЗначенияСвойств(ПоляГруппировки, СтрокаСоединения);
322 | 		КонецЕсли; 
323 | 		Если СтрокаСоединения.ЭтоСвязь Тогда
324 | 			Связи.Добавить(СтрокаСоединения.Связь);
325 | 		Иначе
326 | 			Условия.Добавить(СтрокаСоединения.УсловиеСвязи);
327 | 		КонецЕсли;
328 | 	КонецЦикла; 
329 | 	
330 | 	ДобавитьТекстСоединения(Строки, СтрокаСоединения, Связи, Условия);
331 | 	
332 | 	Для Каждого ВыбранноеПоле Из ОператорВыбрать.ВыбираемыеПоля Цикл
333 | 		ДобавитьТекстПоля(Строки, ЗапросПакета, ВыбранноеПоле);
334 | 	КонецЦикла;
335 | 	Для Каждого Выражение Из ОператорВыбрать.Отбор Цикл
336 | 		ДобавитьСтроку(Строки, СтрШаблон(".Отбор(""%1"")", ОбщийКлиентСервер.ЭкранироватьТекст(Выражение)));
337 | 	КонецЦикла;
338 | КонецПроцедуры
339 | 
340 | &НаСервере
341 | Процедура ДобавитьТекстПорядка(Строки, ВыражениеПорядка)
342 | 	Элемент = ВыражениеПорядка.Элемент;
343 | 	Если ТипЗнч(Элемент) = Тип("ВыражениеСхемыЗапроса") Тогда
344 | 		Псевдоним = Строка(Элемент);
345 | 	Иначе
346 | 		Псевдоним = ВыражениеПорядка.Элемент.Псевдоним;//Тип("КолонкаСхемыЗапроса")
347 | 	КонецЕсли;
348 | 	Если ВыражениеПорядка.Направление = НаправлениеПорядкаСхемыЗапроса.ПоВозрастанию Тогда
349 | 		Строки.Добавить(СтрШаблон("	.Порядок(""%1"")", Псевдоним));
350 | 	Иначе
351 | 		Строки.Добавить(СтрШаблон("	.Порядок(""%1"", НаправлениеПорядкаСхемыЗапроса.%2)", Псевдоним, ОбщийКлиентСервер.CamelCase(Строка(ВыражениеПорядка.Направление))));
352 | 	КонецЕсли;
353 | КонецПроцедуры
354 | 
355 | &НаСервере
356 | Процедура ДобавитьСтроку(Строки, Строка, ПерваяСтрокаБезОтступа = Истина)
357 | 	ЭтоПерваяСтрока = Истина;
358 | 	Для каждого Подстрока Из СтрРазделить(Строка, Символы.ПС) Цикл
359 | 		Если ЭтоПерваяСтрока И ПерваяСтрокаБезОтступа Тогда
360 | 			Строки.Добавить(Подстрока);
361 | 			ЭтоПерваяСтрока = Ложь;
362 | 			Продолжить;
363 | 		КонецЕсли;
364 | 		Строки.Добавить("	" + Подстрока);
365 | 	КонецЦикла;
366 | КонецПроцедуры
367 | 
368 | &НаСервере
369 | Процедура ПрисоединитьСтроку(Строки, Строка, Разделитель = " ")
370 | 	ВГраница = Строки.ВГраница();
371 | 	Строки[ВГраница] = СтрШаблон("%1%2%3", Строки[ВГраница], Разделитель, Строка);
372 | КонецПроцедуры
373 | 
374 | &НаСервере
375 | Функция СтрокаВКавычках(Строка)
376 | 	Если НЕ ЗначениеЗаполнено(Строка) Тогда
377 | 		Возврат "";
378 | 	КонецЕсли;
379 | 	Возврат СтрШаблон("""%1""", Строка);
380 | КонецФункции
381 | 
382 | &НаСервере
383 | Процедура ДобавитьТекстЗапроса(Строки, ЗапросПакета)
384 | 	Если ТипЗнч(ЗапросПакета) = Тип("ЗапросУничтоженияТаблицыСхемыЗапроса") Тогда
385 | 		Строки.Добавить(СтрШаблон(";//  ЗАПРОС УНИЧТОЖЕНИЯ. %1", ЗапросПакета.ИмяТаблицы));
386 | 		Строки.Добавить(СтрШаблон("МодельЗапроса.Уничтожить(""%1"")", ЗапросПакета.ИмяТаблицы));
387 | 		Возврат;
388 | 	КонецЕсли;			
389 | 	//  Общее
390 | 	ЭтоВременнаяТаблица = НЕ ПустаяСтрока(ЗапросПакета.ТаблицаДляПомещения);
391 | 	ДобавитьСтроку(Строки, СтрШаблон(";//  ЗАПРОС ПАКЕТА."));
392 | 	Если ЭтоВременнаяТаблица Тогда
393 | 		ИмяЗапроса = ЗапросПакета.ТаблицаДляПомещения;
394 | 		Метки.Добавить(ИмяЗапроса);
395 | 		ПрисоединитьСтроку(Строки, ИмяЗапроса);
396 | 		ДобавитьСтроку(Строки, СтрШаблон("МодельЗапроса.ЗапросПакета()"));
397 | 	ИначеЕсли ЗапросПакета.Операторы.Количество() = 1 И ЗапросПакета.Операторы[0].Источники.Количество() = 1 Тогда
398 | 		ИмяЗапроса = ЗапросПакета.Операторы[0].Источники[0].Источник.Псевдоним;
399 | 		Метки.Добавить(ИмяЗапроса);
400 | 		ПрисоединитьСтроку(Строки, ИмяЗапроса);
401 | 		ДобавитьСтроку(Строки, СтрШаблон("МодельЗапроса.ЗапросПакета(%1)", СтрокаВКавычках(ИмяЗапроса)));
402 | 	Иначе 
403 | 		ДобавитьСтроку(Строки, СтрШаблон("МодельЗапроса.ЗапросПакета()"));
404 | 	КонецЕсли;
405 | 	Если ЭтоВременнаяТаблица Тогда
406 | 		ПрисоединитьСтроку(Строки, СтрШаблон("Поместить(%1)", СтрокаВКавычках(ЗапросПакета.ТаблицаДляПомещения)), ".");
407 | 	КонецЕсли;
408 | 	Если ЗапросПакета.ВыбиратьРазрешенные Тогда
409 | 		ПрисоединитьСтроку(Строки, "Разрешенные()", ".");
410 | 	КонецЕсли;
411 | 	ЭтоПервыйОператор = Истина;
412 | 	Для Каждого ОператорВыбрать Из ЗапросПакета.Операторы Цикл
413 | 		СтрокиОператора = Новый Массив;
414 | 		ДобавитьТекстОператора(СтрокиОператора, ЗапросПакета, ОператорВыбрать, ЭтоПервыйОператор);
415 | 		ДобавитьСтроки(Строки, СтрокиОператора, 1, Истина, Истина);
416 | 		ЭтоПервыйОператор = Ложь;						
417 | 	КонецЦикла;
418 | 	//  Порядок
419 | 	Для Каждого ВыражениеПорядка Из ЗапросПакета.Порядок Цикл
420 | 		ДобавитьТекстПорядка(Строки, ВыражениеПорядка);
421 | 	КонецЦикла;
422 | 	Если ЗапросПакета.Автопорядок Тогда
423 | 		Строки.Добавить(СтрШаблон("	.Автопорядок()"));
424 | 	КонецЕсли;
425 | 	//  Итоги
426 | 	Для Каждого КонтрольнаяТочкаИтогов Из ЗапросПакета.КонтрольныеТочкиИтогов Цикл
427 | 		Если ТипЗнч(КонтрольнаяТочкаИтогов.Выражение) = Тип("ВыражениеСхемыЗапроса") Тогда
428 | 			Выражение = КонтрольнаяТочкаИтогов.Выражение;
429 | 		Иначе // КолонкаСхемыЗапроса
430 | 			Выражение = КонтрольнаяТочкаИтогов.Выражение.Псевдоним;
431 | 		КонецЕсли;
432 | 		ИмяКолонкиСовпадаетСВыражением = Строка(Выражение) = КонтрольнаяТочкаИтогов.ИмяКолонки;
433 | 		Если КонтрольнаяТочкаИтогов.ТипКонтрольнойТочки = ТипКонтрольнойТочкиСхемыЗапроса.Элементы Тогда
434 | 			Если ИмяКолонкиСовпадаетСВыражением Тогда
435 | 				Строки.Добавить(СтрШаблон("	.Группировка(""%1"")", Выражение));
436 | 			Иначе
437 | 				Строки.Добавить(СтрШаблон("	.Группировка(""%1"", ""%2"")", Выражение, КонтрольнаяТочкаИтогов.ИмяКолонки));
438 | 			КонецЕсли;
439 | 		Иначе
440 | 			Если ИмяКолонкиСовпадаетСВыражением Тогда
441 | 				Строки.Добавить(СтрШаблон("	.Группировка(""%1"", , ТипКонтрольнойТочкиСхемыЗапроса.%3)", Выражение, , ОбщийКлиентСервер.CamelCase(Строка(КонтрольнаяТочкаИтогов.ТипКонтрольнойТочки))));
442 | 			Иначе
443 | 				Строки.Добавить(СтрШаблон("	.Группировка(""%1"", ""%2"", ТипКонтрольнойТочкиСхемыЗапроса.%3)", Выражение, КонтрольнаяТочкаИтогов.ИмяКолонки, ОбщийКлиентСервер.CamelCase(Строка(КонтрольнаяТочкаИтогов.ТипКонтрольнойТочки))));
444 | 			КонецЕсли;
445 | 		КонецЕсли;
446 | 		Если КонтрольнаяТочкаИтогов.ТипДополненияПериодами = ТипДополненияПериодамиСхемыЗапроса.БезДополнения Тогда
447 | 			Продолжить;
448 | 		КонецЕсли;
449 | 		Строки.Добавить(СтрШаблон(".ПоПериодам(ТипДополненияПериодамиСхемыЗапроса.%1, ""%2"", ""%3"")", ОбщийКлиентСервер.CamelCase(Строка(КонтрольнаяТочкаИтогов.ТипДополненияПериодами)), КонтрольнаяТочкаИтогов.НачалоПериодаДополнения, КонтрольнаяТочкаИтогов.КонецПериодаДополнения));
450 | 	КонецЦикла;
451 | 	Для Каждого ВыражениеИтогов Из ЗапросПакета.ВыраженияИтогов Цикл
452 | 		Если СтрШаблон("СУММА(%1)", ВыражениеИтогов.Поле.Псевдоним) = Строка(ВыражениеИтогов.Выражение) Тогда
453 | 			Строки.Добавить(СтрШаблон("	.ИтогСумма(""%1"")", ВыражениеИтогов.Поле.Псевдоним));
454 | 		Иначе
455 | 			Строки.Добавить(СтрШаблон("	.Итог(""%1"", ""%2"")", ВыражениеИтогов.Выражение, ВыражениеИтогов.Поле.Псевдоним));
456 | 		КонецЕсли;
457 | 	КонецЦикла;
458 | 	Если ЗапросПакета.ОбщиеИтоги Тогда
459 | 		Строки.Добавить(СтрШаблон("	.ОбщиеИтоги()"));
460 | 	КонецЕсли;
461 | 	//  Индексы
462 | 	Для Каждого Индекс Из ЗапросПакета.Индекс Цикл
463 | 		Строки.Добавить(СтрШаблон("	.Индекс(""%1"")", Индекс.Выражение.Псевдоним));
464 | 	КонецЦикла;
465 | 	
466 | КонецПроцедуры
467 | 
468 | &НаСервере
469 | Процедура ДобавитьТестУстановкиПараметров(Строки, СхемаЗапроса)
470 | 	Если СхемаЗапроса.НайтиПараметры().Количество() = 0 Тогда
471 | 		Возврат;
472 | 	КонецЕсли;
473 | 	Строки.Добавить(";//  Установка параметров");
474 | 	Строки.Добавить(СтрШаблон("//МодельЗапроса"));
475 | 	Для Каждого Параметр Из СхемаЗапроса.НайтиПараметры() Цикл
476 | 		Строки.Добавить(СтрШаблон("//	.Параметр(""%1"", )// %2", Параметр.Имя, Параметр.ТипЗначения));
477 | 	КонецЦикла;
478 | КонецПроцедуры
479 | 
480 | &НаСервере
481 | Процедура КомандаПолучитьТекстМоделиНаСервере()
482 | 	Метки = Новый Массив;
483 | 	Строки = Новый Массив;
484 | 	//Строки.Добавить("МодельЗапроса = Общий.МодельЗапроса();");
485 | 	СхемаЗапроса = Новый СхемаЗапроса;
486 | 	СхемаЗапроса.УстановитьТекстЗапроса(Объект.ТекстЗапроса.ПолучитьТекст());
487 | 	ТекстМодели = Объект.ТекстМодели;
488 | 	ТекстМодели.Очистить();
489 | 	//  Запросы
490 | 	Для Каждого ЗапросПакета Из СхемаЗапроса.ПакетЗапросов Цикл
491 | 		ДобавитьТекстЗапроса(Строки, ЗапросПакета);		
492 | 	КонецЦикла;
493 | 	ДобавитьТестУстановкиПараметров(Строки, СхемаЗапроса);
494 | 	Строки.Добавить(";//  Обработка результата");
495 | 	Строки.Добавить(СтрШаблон("//МодельЗапроса.ВыполнитьЗапрос();"));
496 | 	Для Каждого Метка Из Метки Цикл
497 | 		Строки.Добавить(СтрШаблон("//Результат = МодельЗапроса.Результат(""%1"");", Метка));		
498 | 	КонецЦикла;
499 | 	Объект.ТекстМодели.УстановитьТекст(СтрСоединить(Строки, Символы.ПС));	
500 | КонецПроцедуры
501 | 
502 | &НаКлиенте
503 | Асинх Процедура ОткрытьКонструкторЗапроса()
504 | 	Конструктор			= Новый КонструкторЗапроса;
505 | 	Конструктор.Текст	= Объект.ТекстЗапроса.ПолучитьТекст();
506 | 	ТекстЗапроса = Ждать Конструктор.ОткрытьАсинх();
507 | 	Если ТекстЗапроса <> Неопределено Тогда
508 | 		Объект.ТекстЗапроса.УстановитьТекст(ТекстЗапроса);
509 | 	КонецЕсли;
510 | КонецПроцедуры
511 | 
512 | &НаКлиенте
513 | Процедура КомандаОткрытьКонструкторЗапроса(Команда)
514 | 	ОткрытьКонструкторЗапроса();
515 | КонецПроцедуры
516 | 


--------------------------------------------------------------------------------