Skip to content

Commit

Permalink
Merge branch 'release/1.0.9'
Browse files Browse the repository at this point in the history
  • Loading branch information
alkoleft committed Oct 31, 2017
2 parents a0c5f83 + a63faba commit 242fd7d
Show file tree
Hide file tree
Showing 15 changed files with 1,717 additions and 242 deletions.
Binary file modified CodeConsole83.epf
Binary file not shown.
341 changes: 265 additions & 76 deletions src/CodeConsole83/Form/Форма/Форма.bsl

Large diffs are not rendered by default.

Original file line number Diff line number Diff line change
@@ -0,0 +1,23 @@
&НаКлиенте
Процедура ПриступимКОтладке(Команда)

Закрыть(Новый Структура("Адрес, НеУдалятьИзХранилища", Адрес, НеУдалятьИзХранилища));

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

&НаКлиенте
Процедура ПриОткрытии(Отказ)

РежимСКДПриИзменении(Неопределено);

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

&НаКлиенте
Процедура РежимСКДПриИзменении(Элемент)

ТекстСкрипта = СтрШаблон("ВнешниеОбработки.Создать(""CodeConsole83"").%1, Новый УникальныйИдентификатор(""%2""))"
, ?(РежимСКД, "ПоместитьЗапросСКДВоВременноеХранилище(СхемаКомпоновкиДанных, КомпановщикНастроек", "ПоместитьЗапросВоВременноеХранилище(Запрос")
, ЭтаФорма.ВладелецФормы.УникальныйИдентификатор
);

КонецПроцедуры
Original file line number Diff line number Diff line change
Expand Up @@ -161,7 +161,7 @@
Процедура НастроитьКолонки(Команда)

Оповещение = Новый ОписаниеОповещения("ПослеНастройкиКолонок", ЭтотОбъект);
ОткрытьФорму("ВнешняяОбработка.КонсольКода83.Форма.ФормаНастройкаТаблицы", Новый Структура("Данные", РеквизитыТаблицы), ЭтаФорма, , , , Оповещение, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
ОткрытьФорму("ВнешняяОбработка.CodeConsole83.Форма.ФормаНастройкаТаблицы", Новый Структура("Данные", РеквизитыТаблицы), ЭтаФорма, , , , Оповещение, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);

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

Expand Down
120 changes: 120 additions & 0 deletions src/CodeConsole83/ObjectModule.bsl
Original file line number Diff line number Diff line change
@@ -0,0 +1,120 @@
// ВнешниеОбработки.Создать("CodeConsole83").ПоместитьЗапросВоВременноеХранилище(Запрос);

Функция ПоместитьЗапросВоВременноеХранилище(Запрос, Знач Адрес = Неопределено) Экспорт

Если Адрес = Неопределено Тогда
Адрес = Новый УникальныйИдентификатор;
КонецЕсли;

Возврат ПоместитьВоВременноеХранилище(ПолучитьДанныеЗапроса(Запрос), Адрес);

КонецФункции

Функция ПоместитьЗапросСКДВоВременноеХранилище(СхемаКомпоновкиДанных, Настройки, Знач Адрес = Неопределено) Экспорт

Если Адрес = Неопределено Тогда
Адрес = Новый УникальныйИдентификатор;
КонецЕсли;

Возврат ПоместитьВоВременноеХранилище(ПолучитьДанныеЗапросаСКД(СхемаКомпоновкиДанных, Настройки), Адрес);

КонецФункции

Функция ПолучитьДанныеЗапроса(Запрос) Экспорт

#Если Клиент Тогда
Запрос = Новый Запрос;
#КонецЕсли

ДанныеЗапроса = Новый Структура("Текст, Параметры");

ЗаполнитьЗначенияСвойств(ДанныеЗапроса, Запрос);

Если Запрос.МенеджерВременныхТаблиц <> Неопределено Тогда

СхемаЗапроса = Новый СхемаЗапроса;
СхемаЗапроса.УстановитьТекстЗапроса(Запрос.Текст);

ВременныеТаблицыЗапроса = Новый Соответствие;
Для Каждого Пакет Из СхемаЗапроса.ПакетЗапросов Цикл

Если ЗначениеЗаполнено(Пакет.ТаблицаДляПомещения) Тогда

ВременныеТаблицыЗапроса.Вставить(ВРег(Пакет.ТаблицаДляПомещения), Истина);

КонецЕсли;

КонецЦикла;

ТекстыУстановкиВТ = "";


Для каждого Таблица Из Запрос.МенеджерВременныхТаблиц.Таблицы Цикл

Если ВременныеТаблицыЗапроса[ВРег(Таблица.ПолноеИмя)] = Неопределено Тогда

ДанныеЗапроса.Параметры.Вставить(Таблица.ПолноеИмя, Таблица.ПолучитьДанные().Выгрузить());
ТекстыУстановкиВТ = ТекстыУстановкиВТ + СтрШаблон("ВЫБРАТЬ * ПОМЕСТИТЬ %1 ИЗ &%1%2;%2", Таблица.ПолноеИмя, Символы.ПС);

КонецЕсли;

КонецЦикла;

ДанныеЗапроса.Текст = ТекстыУстановкиВТ + ДанныеЗапроса.Текст;

КонецЕсли;

Возврат ДанныеЗапроса;

КонецФункции

Функция ПолучитьДанныеЗапросаСКД(СхемаКомпоновкиДанных, Знач Настройки) Экспорт

Настройки = ПолучитьНастройки(Настройки);

#Если Клиент Тогда
Схема = Новый СхемаКомпоновкиДанных;
Настройки = Новый НастройкиКомпоновкиДанных;
#КонецЕсли

КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, ?(Настройки = Неопределено, СхемаКомпоновкиДанных.НастройкиПоУмолчанию, Настройки));

ДанныеЗапроса = Новый Структура("Текст, Параметры", "", Новый Структура);

ДанныеЗапроса.Текст = МакетКомпоновки.НаборыДанных[0].Запрос;

Для Каждого Параметр Из МакетКомпоновки.ЗначенияПараметров Цикл

ДанныеЗапроса.Параметры.Вставить(Параметр.Имя, Параметр.Значение);

КонецЦикла;

Возврат ДанныеЗапроса;

КонецФункции

Функция ПолучитьНастройки(Компановщик)

ТипКомпановщика = ТипЗнч(Компановщик);

Если ТипКомпановщика = Тип("КомпоновщикНастроекКомпоновкиДанных") Тогда

Возврат Компановщик.ПолучитьНастройки();

ИначеЕсли ТипКомпановщика = Тип("СхемаКомпоновкиДанных") Тогда

Возврат Компановщик.НастройкиПоУмолчанию;

ИначеЕсли ТипКомпановщика = Тип("НастройкиКомпоновкиДанных") Тогда

Возврат Компановщик;

ИначеЕсли ТипКомпановщика = Тип("ДинамическийСписок") Тогда

Возврат Компановщик.КомпоновщикНастроек.Настройки;

иначе
Возврат Неопределено;
КонецЕсли;
КонецФункции
3 changes: 2 additions & 1 deletion src/CodeConsole83/maps.txt
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)
4 changes: 4 additions & 0 deletions src/CodeConsole83/renames.txt
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
2160ae20-89a5-4c06-8ef5-261700f38e89-->und\2160ae20-89a5-4c06-8ef5-261700f38e89
2160ae20-89a5-4c06-8ef5-261700f38e89.0-->und\2160ae20-89a5-4c06-8ef5-261700f38e89.0
2ba950ef-cc66-426c-bd5e-29d6c4524f6b.0\info-->und\2ba950ef-cc66-426c-bd5e-29d6c4524f6b.0\info
2ba950ef-cc66-426c-bd5e-29d6c4524f6b.0\text-->ObjectModule.bsl
5a5166ee-dd28-42ca-9ae7-e31cb0329104-->und\5a5166ee-dd28-42ca-9ae7-e31cb0329104
5a5166ee-dd28-42ca-9ae7-e31cb0329104.0-->und\5a5166ee-dd28-42ca-9ae7-e31cb0329104.0
6e6904e6-445a-4678-957b-e39d02fce6a4-->und\6e6904e6-445a-4678-957b-e39d02fce6a4
6e6904e6-445a-4678-957b-e39d02fce6a4.0-->und\6e6904e6-445a-4678-957b-e39d02fce6a4.0
7d946b5b-906c-4e97-a3d5-e75dd73eae68-->und\7d946b5b-906c-4e97-a3d5-e75dd73eae68
Expand Down
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
{3,1,0,"",0}
15 changes: 15 additions & 0 deletions src/CodeConsole83/und/5a5166ee-dd28-42ca-9ae7-e31cb0329104
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}
Loading

0 comments on commit 242fd7d

Please sign in to comment.