Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

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

Merged
merged 1 commit into from
May 2, 2022
Merged

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

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
5 changes: 4 additions & 1 deletion src/Инструменты/src/DataProcessors/УИ_КонсольЗапросов/Forms/Форма/Module.bsl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -4972,9 +4972,12 @@
|ИмяЗапроса,
|ТекстЗапроса,
|ПараметрыЗапроса,
|ТекстАлгоритма,
|МетодИсполненияКода,
|Заголовок,
|Содержание", Объект, ИмяЗапроса, ТекущийТекстЗапроса(),
ПараметрыЗапроса_ПолучитьКакСтроку(), "Код для выполнения запроса на встроенном языке 1С");
ПараметрыЗапроса_ПолучитьКакСтроку(), ТекущийТекстАлгоритма(), МетодИсполненияКода,
"Код для выполнения запроса на встроенном языке 1С");

ОткрытьФорму(ПолноеИмяФормы("ФормаКода"), ПараметрыОткрытия, ЭтаФорма, Ложь, , , ,
РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
Expand Down
38 changes: 38 additions & 0 deletions src/Инструменты/src/DataProcessors/УИ_КонсольЗапросов/Forms/ФормаКода/Form.form
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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>
Expand Down
24 changes: 20 additions & 4 deletions src/Инструменты/src/DataProcessors/УИ_КонсольЗапросов/Forms/ФормаКода/Module.bsl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -9,6 +9,8 @@
ПараметрыЗапроса = Параметры.ПараметрыЗапроса;
ПолученныйТекстЗапроса = Параметры.ТекстЗапроса;
ПолученныйТекстЗапроса = СтрЗаменить(ПолученныйТекстЗапроса, Символ(34), Символ(34) + Символ(34));
Параметры.Свойство("ТекстАлгоритма", УИ_ТекстАлгоритма);
Параметры.Свойство("МетодИсполненияКода", УИ_МетодИсполненияКода);
ТекстЗапроса.УстановитьТекст(ПолученныйТекстЗапроса);
УстановитьЗначенияПараметров = РеквизитФормыВЗначение("Объект").СохраняемыеСостояния_Получить("УстановитьЗначенияПараметров", Истина);

Expand Down Expand Up @@ -401,10 +403,24 @@
Текст.ДобавитьСтроку("");
Текст.ДобавитьСтроку(СтрШаблон(" РезультатЗапроса = %1.Выполнить();", ИмяЗапроса));
Текст.ДобавитьСтроку(" Выборка = РезультатЗапроса.Выбрать();");
Текст.ДобавитьСтроку(" Пока Выборка.Следующий() Цикл");
Текст.ДобавитьСтроку(" ");
Текст.ДобавитьСтроку(" КонецЦикла;");

Если ЗначениеЗаполнено(УИ_ТекстАлгоритма) Тогда
Если УИ_МетодИсполненияКода = 0 Тогда
Для Счетчик = 1 По СтрЧислоСтрок(УИ_ТекстАлгоритма) Цикл
Текст.ДобавитьСтроку(" " + СтрПолучитьСтроку(УИ_ТекстАлгоритма, Счетчик));
КонецЦикла;
Иначе
Текст.ДобавитьСтроку(" Пока Выборка.Следующий() Цикл");
Для Счетчик = 1 По СтрЧислоСтрок(УИ_ТекстАлгоритма) Цикл
Текст.ДобавитьСтроку(" " + СтрПолучитьСтроку(УИ_ТекстАлгоритма, Счетчик));
КонецЦикла;
Текст.ДобавитьСтроку(" КонецЦикла;");
КонецЕсли;
Иначе
Текст.ДобавитьСтроку(" Пока Выборка.Следующий() Цикл");
Текст.ДобавитьСтроку(" ");
Текст.ДобавитьСтроку(" КонецЦикла;");
КонецЕсли;

КонецПроцедуры

&НаСервере
Expand Down