cpr1c#388 Консоль запросов, получение кода выполнения алгоритма на яз…

…ыке 1с
Oleg1085 · Apr 25, 2022 · b8d22fb · b8d22fb
1 parent a2ecf8f
commit b8d22fb
Show file tree

Hide file tree

Showing 3 changed files with 62 additions and 5 deletions.
diff --git a/src/Инструменты/src/DataProcessors/УИ_КонсольЗапросов/Forms/Форма/Module.bsl b/src/Инструменты/src/DataProcessors/УИ_КонсольЗапросов/Forms/Форма/Module.bsl
@@ -4972,9 +4972,12 @@
 										|ИмяЗапроса,
 										|ТекстЗапроса,
 										|ПараметрыЗапроса,
+										|ТекстАлгоритма,
+										|МетодИсполненияКода,
 										|Заголовок,
 										|Содержание", Объект, ИмяЗапроса, ТекущийТекстЗапроса(),
-		ПараметрыЗапроса_ПолучитьКакСтроку(), "Код для выполнения запроса на встроенном языке 1С");
+		ПараметрыЗапроса_ПолучитьКакСтроку(), ТекущийТекстАлгоритма(), МетодИсполненияКода,
+		"Код для выполнения запроса на встроенном языке 1С");
 
 	ОткрытьФорму(ПолноеИмяФормы("ФормаКода"), ПараметрыОткрытия, ЭтаФорма, Ложь, , , ,
 		РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);

diff --git a/src/Инструменты/src/DataProcessors/УИ_КонсольЗапросов/Forms/ФормаКода/Form.form b/src/Инструменты/src/DataProcessors/УИ_КонсольЗапросов/Forms/ФормаКода/Form.form
@@ -421,6 +421,44 @@
       <common>true</common>
     </edit>
   </attributes>
+  <attributes>
+    <name>УИ_ТекстАлгоритма</name>
+    <title>
+      <key>ru</key>
+      <value>У и текст алгоритма</value>
+    </title>
+    <id>7</id>
+    <valueType>
+      <types>String</types>
+      <stringQualifiers/>
+    </valueType>
+    <view>
+      <common>true</common>
+    </view>
+    <edit>
+      <common>true</common>
+    </edit>
+  </attributes>
+  <attributes>
+    <name>УИ_МетодИсполненияКода</name>
+    <title>
+      <key>ru</key>
+      <value>У и метод исполнения кода</value>
+    </title>
+    <id>8</id>
+    <valueType>
+      <types>Number</types>
+      <numberQualifiers>
+        <precision>10</precision>
+      </numberQualifiers>
+    </valueType>
+    <view>
+      <common>true</common>
+    </view>
+    <edit>
+      <common>true</common>
+    </edit>
+  </attributes>
   <formCommands>
     <name>Обновить</name>
     <title>

diff --git a/src/Инструменты/src/DataProcessors/УИ_КонсольЗапросов/Forms/ФормаКода/Module.bsl b/src/Инструменты/src/DataProcessors/УИ_КонсольЗапросов/Forms/ФормаКода/Module.bsl
@@ -9,6 +9,8 @@
 	ПараметрыЗапроса = Параметры.ПараметрыЗапроса;
 	ПолученныйТекстЗапроса = Параметры.ТекстЗапроса;
 	ПолученныйТекстЗапроса = СтрЗаменить(ПолученныйТекстЗапроса, Символ(34), Символ(34) + Символ(34));
+	Параметры.Свойство("ТекстАлгоритма", УИ_ТекстАлгоритма);
+	Параметры.Свойство("МетодИсполненияКода", УИ_МетодИсполненияКода);
 	ТекстЗапроса.УстановитьТекст(ПолученныйТекстЗапроса);	
 	УстановитьЗначенияПараметров = РеквизитФормыВЗначение("Объект").СохраняемыеСостояния_Получить("УстановитьЗначенияПараметров", Истина);
 
@@ -401,10 +403,24 @@
 	Текст.ДобавитьСтроку("");
 	Текст.ДобавитьСтроку(СтрШаблон("	РезультатЗапроса = %1.Выполнить();", ИмяЗапроса));
 	Текст.ДобавитьСтроку("	Выборка = РезультатЗапроса.Выбрать();");
-	Текст.ДобавитьСтроку("	Пока Выборка.Следующий() Цикл");
-	Текст.ДобавитьСтроку("		");
-	Текст.ДобавитьСтроку("	КонецЦикла;");
-
+	Если ЗначениеЗаполнено(УИ_ТекстАлгоритма) Тогда
+		Если УИ_МетодИсполненияКода = 0 Тогда
+			Для Счетчик = 1 По СтрЧислоСтрок(УИ_ТекстАлгоритма) Цикл
+				Текст.ДобавитьСтроку("	" + СтрПолучитьСтроку(УИ_ТекстАлгоритма, Счетчик));
+			КонецЦикла;
+		Иначе
+			Текст.ДобавитьСтроку("	Пока Выборка.Следующий() Цикл");
+			Для Счетчик = 1 По СтрЧислоСтрок(УИ_ТекстАлгоритма) Цикл
+				Текст.ДобавитьСтроку("		" + СтрПолучитьСтроку(УИ_ТекстАлгоритма, Счетчик));
+			КонецЦикла;
+			Текст.ДобавитьСтроку("	КонецЦикла;"); 
+		КонецЕсли;
+	Иначе
+		Текст.ДобавитьСтроку("	Пока Выборка.Следующий() Цикл");
+		Текст.ДобавитьСтроку("		");
+		Текст.ДобавитьСтроку("	КонецЦикла;");
+	КонецЕсли;
+
 КонецПроцедуры
 
 &НаСервере