-
Notifications
You must be signed in to change notification settings - Fork 2
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
15 changed files
with
1,717 additions
and
242 deletions.
There are no files selected for viewing
Binary file not shown.
Large diffs are not rendered by default.
Oops, something went wrong.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,23 @@ | ||
&НаКлиенте | ||
Процедура ПриступимКОтладке(Команда) | ||
|
||
Закрыть(Новый Структура("Адрес, НеУдалятьИзХранилища", Адрес, НеУдалятьИзХранилища)); | ||
|
||
КонецПроцедуры | ||
|
||
&НаКлиенте | ||
Процедура ПриОткрытии(Отказ) | ||
|
||
РежимСКДПриИзменении(Неопределено); | ||
|
||
КонецПроцедуры | ||
|
||
&НаКлиенте | ||
Процедура РежимСКДПриИзменении(Элемент) | ||
|
||
ТекстСкрипта = СтрШаблон("ВнешниеОбработки.Создать(""CodeConsole83"").%1, Новый УникальныйИдентификатор(""%2""))" | ||
, ?(РежимСКД, "ПоместитьЗапросСКДВоВременноеХранилище(СхемаКомпоновкиДанных, КомпановщикНастроек", "ПоместитьЗапросВоВременноеХранилище(Запрос") | ||
, ЭтаФорма.ВладелецФормы.УникальныйИдентификатор | ||
); | ||
|
||
КонецПроцедуры |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,120 @@ | ||
// ВнешниеОбработки.Создать("CodeConsole83").ПоместитьЗапросВоВременноеХранилище(Запрос); | ||
|
||
Функция ПоместитьЗапросВоВременноеХранилище(Запрос, Знач Адрес = Неопределено) Экспорт | ||
|
||
Если Адрес = Неопределено Тогда | ||
Адрес = Новый УникальныйИдентификатор; | ||
КонецЕсли; | ||
|
||
Возврат ПоместитьВоВременноеХранилище(ПолучитьДанныеЗапроса(Запрос), Адрес); | ||
|
||
КонецФункции | ||
|
||
Функция ПоместитьЗапросСКДВоВременноеХранилище(СхемаКомпоновкиДанных, Настройки, Знач Адрес = Неопределено) Экспорт | ||
|
||
Если Адрес = Неопределено Тогда | ||
Адрес = Новый УникальныйИдентификатор; | ||
КонецЕсли; | ||
|
||
Возврат ПоместитьВоВременноеХранилище(ПолучитьДанныеЗапросаСКД(СхемаКомпоновкиДанных, Настройки), Адрес); | ||
|
||
КонецФункции | ||
|
||
Функция ПолучитьДанныеЗапроса(Запрос) Экспорт | ||
|
||
#Если Клиент Тогда | ||
Запрос = Новый Запрос; | ||
#КонецЕсли | ||
|
||
ДанныеЗапроса = Новый Структура("Текст, Параметры"); | ||
|
||
ЗаполнитьЗначенияСвойств(ДанныеЗапроса, Запрос); | ||
|
||
Если Запрос.МенеджерВременныхТаблиц <> Неопределено Тогда | ||
|
||
СхемаЗапроса = Новый СхемаЗапроса; | ||
СхемаЗапроса.УстановитьТекстЗапроса(Запрос.Текст); | ||
|
||
ВременныеТаблицыЗапроса = Новый Соответствие; | ||
Для Каждого Пакет Из СхемаЗапроса.ПакетЗапросов Цикл | ||
|
||
Если ЗначениеЗаполнено(Пакет.ТаблицаДляПомещения) Тогда | ||
|
||
ВременныеТаблицыЗапроса.Вставить(ВРег(Пакет.ТаблицаДляПомещения), Истина); | ||
|
||
КонецЕсли; | ||
|
||
КонецЦикла; | ||
|
||
ТекстыУстановкиВТ = ""; | ||
|
||
|
||
Для каждого Таблица Из Запрос.МенеджерВременныхТаблиц.Таблицы Цикл | ||
|
||
Если ВременныеТаблицыЗапроса[ВРег(Таблица.ПолноеИмя)] = Неопределено Тогда | ||
|
||
ДанныеЗапроса.Параметры.Вставить(Таблица.ПолноеИмя, Таблица.ПолучитьДанные().Выгрузить()); | ||
ТекстыУстановкиВТ = ТекстыУстановкиВТ + СтрШаблон("ВЫБРАТЬ * ПОМЕСТИТЬ %1 ИЗ &%1%2;%2", Таблица.ПолноеИмя, Символы.ПС); | ||
|
||
КонецЕсли; | ||
|
||
КонецЦикла; | ||
|
||
ДанныеЗапроса.Текст = ТекстыУстановкиВТ + ДанныеЗапроса.Текст; | ||
|
||
КонецЕсли; | ||
|
||
Возврат ДанныеЗапроса; | ||
|
||
КонецФункции | ||
|
||
Функция ПолучитьДанныеЗапросаСКД(СхемаКомпоновкиДанных, Знач Настройки) Экспорт | ||
|
||
Настройки = ПолучитьНастройки(Настройки); | ||
|
||
#Если Клиент Тогда | ||
Схема = Новый СхемаКомпоновкиДанных; | ||
Настройки = Новый НастройкиКомпоновкиДанных; | ||
#КонецЕсли | ||
|
||
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; | ||
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, ?(Настройки = Неопределено, СхемаКомпоновкиДанных.НастройкиПоУмолчанию, Настройки)); | ||
|
||
ДанныеЗапроса = Новый Структура("Текст, Параметры", "", Новый Структура); | ||
|
||
ДанныеЗапроса.Текст = МакетКомпоновки.НаборыДанных[0].Запрос; | ||
|
||
Для Каждого Параметр Из МакетКомпоновки.ЗначенияПараметров Цикл | ||
|
||
ДанныеЗапроса.Параметры.Вставить(Параметр.Имя, Параметр.Значение); | ||
|
||
КонецЦикла; | ||
|
||
Возврат ДанныеЗапроса; | ||
|
||
КонецФункции | ||
|
||
Функция ПолучитьНастройки(Компановщик) | ||
|
||
ТипКомпановщика = ТипЗнч(Компановщик); | ||
|
||
Если ТипКомпановщика = Тип("КомпоновщикНастроекКомпоновкиДанных") Тогда | ||
|
||
Возврат Компановщик.ПолучитьНастройки(); | ||
|
||
ИначеЕсли ТипКомпановщика = Тип("СхемаКомпоновкиДанных") Тогда | ||
|
||
Возврат Компановщик.НастройкиПоУмолчанию; | ||
|
||
ИначеЕсли ТипКомпановщика = Тип("НастройкиКомпоновкиДанных") Тогда | ||
|
||
Возврат Компановщик; | ||
|
||
ИначеЕсли ТипКомпановщика = Тип("ДинамическийСписок") Тогда | ||
|
||
Возврат Компановщик.КомпоновщикНастроек.Настройки; | ||
|
||
иначе | ||
Возврат Неопределено; | ||
КонецЕсли; | ||
КонецФункции |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,5 @@ | ||
Form\Форма\Форма.bsl-->6e6904e6-445a-4678-957b-e39d02fce6a4.0 (4 763, 7 673) | ||
Form\Форма\Форма.bsl-->6e6904e6-445a-4678-957b-e39d02fce6a4.0 (4 826, 7 925) | ||
Form\ФормаЗагрузитьДляОтладки\Форма.bsl-->5a5166ee-dd28-42ca-9ae7-e31cb0329104.0 (675, 698) | ||
Form\ФормаНастройкаТаблицы\Форма.bsl-->a3626ede-5b0a-440b-92ae-ae5ab4b70298.0 (595, 627) | ||
Form\ФормаРедакторТаблицы\Форма.bsl-->7d946b5b-906c-4e97-a3d5-e75dd73eae68.0 (371, 565) | ||
Form\ФормаСвойств\Форма.bsl-->2160ae20-89a5-4c06-8ef5-261700f38e89.0 (574, 599) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
1 change: 1 addition & 0 deletions
1
src/CodeConsole83/und/2ba950ef-cc66-426c-bd5e-29d6c4524f6b.0/info
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1 @@ | ||
{3,1,0,"",0} |
15 changes: 15 additions & 0 deletions
15
src/CodeConsole83/und/5a5166ee-dd28-42ca-9ae7-e31cb0329104
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,15 @@ | ||
{1, | ||
{1, | ||
{0, | ||
{12, | ||
{1, | ||
{0,0,5a5166ee-dd28-42ca-9ae7-e31cb0329104},"ФормаЗагрузитьДляОтладки", | ||
{1,"ru","Форма загрузить для отладки"},"",0,1,32e087ab-1491-49b6-aba7-43571b41ac2b,3},0,1, | ||
{2, | ||
{"#",1708fdaa-cbce-4289-b373-07a5a74bee91,1}, | ||
{"#",1708fdaa-cbce-4289-b373-07a5a74bee91,2} | ||
} | ||
}, | ||
{0} | ||
} | ||
},0} |
Oops, something went wrong.