2 задание курсы

Процедура ИзучениеВыборкиРезультатаЗапроса() Экспорт
	// (Здесь пишется весь учебный код)


	ВыбранныйВидРасчета = ПланыВидовРасчета.ВидыРасчета.ПолучитьФормуВыбора().ОткрытьМодально();

	Запрос = Новый Запрос();

	Запрос.Текст =

	"ВЫБРАТЬ

	|   ВидыРасчета.Ссылка КАК ВидРасчета,

	|   ВидыРасчетаБазовыеВидыРасчета.ВидРасчета КАК БазовыйВидРасчета

	|ИЗ

	|   ПланВидовРасчета.ВидыРасчета КАК ВидыРасчета

	|        ЛЕВОЕ СОЕДИНЕНИЕ ПланВидовРасчета.ВидыРасчета.БазовыеВидыРасчета КАК ВидыРасчетаБазовыеВидыРасчета

	|        ПО ВидыРасчета.Ссылка = ВидыРасчетаБазовыеВидыРасчета.Ссылка

	|ИТОГИ

	|   КОЛИЧЕСТВО(РАЗЛИЧНЫЕ БазовыйВидРасчета)

	|ПО

	|   ВидРасчета";

	Результат = Запрос.Выполнить();

	ИнициализироватьТаблицуИлиДерево(Результат, Дерево);

	ВыгрузкаВТаблицу = Результат.Выгрузить();

	ВыгрузкаВТаблицу.Индексы.Добавить("ВидРасчета,БазовыйВидРасчета");

	Если ВыбранныйВидРасчета = Неопределено Тогда    //Если ничего не выбрано, обходим таблицу циклом

		Для Каждого Строка Из ВыгрузкаВТаблицу Цикл

			НоваяСтрока = Дерево.Строки.Добавить();
			НоваяСтрока.ВидРасчета = Строка.ВидРасчета;
			Выкрутка(ВыгрузкаВТаблицу, НоваяСтрока.ВидРасчета, НоваяСтрока);

		КонецЦикла;

	Иначе
		НоваяСтрока = Дерево.Строки.Добавить();
		НоваяСтрока.ВидРасчета = ВыбранныйВидРасчета;
		Выкрутка(ВыгрузкаВТаблицу, НоваяСтрока.ВидРасчета, НоваяСтрока);
	КонецЕсли;



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

Процедура Выкрутка(ВыгрузкаВТаблицу, ВидРасчета, РодительскийУровень)

	СтруктураОтбора = Новый Структура("БазовыйВидРасчета", ВидРасчета);
	МассивСтрок  = ВыгрузкаВТаблицу.НайтиСтроки(СтруктураОтбора);
	Если МассивСтрок.Количество() > 0 Тогда

		Для Каждого СтрокаМассива Из МассивСтрок Цикл

			НоваяСтрока1 = РодительскийУровень.Строки.Добавить();
			НоваяСтрока1.ВидРасчета = СтрокаМассива.ВидРасчета;
			Выкрутка(ВыгрузкаВТаблицу, НоваяСтрока1.ВидРасчета, НоваяСтрока1);


		КонецЦикла;
	КонецЕсли;

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