Процедура СформироватьСтраницы(ИмяСтраницы,ЗаголовокСтраницы,Дерево1)

ОсновнаяПанель = ЭлементыФормы.Панель;
ТекущаяСтраницаОсновнойПанели = ОсновнаяПанель.ТекущаяСтраница;
СтраницыПанели = ОсновнаяПанель.Страницы;

НоваяСтраница = СтраницыПанели.Добавить(ИмяСтраницы,ИмяСтраницы); 
ОсновнаяПанель.ТекущаяСтраница = НоваяСтраница;
 
ТабПоле = уфСоздатьЭлементФормы(ЭлементыФормы, Тип("ТабличноеПоле"), "Дерево"+ИмяСтраницы, , ОсновнаяПанель, ,
                                          6, 6, ЭлементыФормы.Панель.Высота-20, ЭлементыФормы.Панель.Ширина-20,
                                          ЭлементыФормы.Панель, ЭлементыФормы.Панель, ЭлементыФормы.Панель, ЭлементыФормы.Панель,
                                          ГраницаЭлементаУправления.Верх, ГраницаЭлементаУправления.Верх, ГраницаЭлементаУправления.Лево, ГраницаЭлементаУправления.Лево);
ТабПоле.Колонки.Добавить("Элемент"); 
ТабПоле.Колонки.Добавить("Импортировать",Новый ОписаниеТипов("Булево"));

ТабПоле.Значение = ОтобразитьДеревоНаСтранице(ДеревоФайл,"Дерево"+ИмяСтраницы);
ТабПоле.ОбновитьСтроки();
КонецПроцедуры

Функция уфСоздатьЭлементФормы(ЭлементыФормы, ТипЭлемента, ИмяЭлемента, Видимость = Истина, Панель = Неопределено, Данные = Неопределено,
                              Верх, Лево, Высота, Ширина,
                              ЭлементПривязкиВерх, ЭлементПривязкиНиз, ЭлементПривязкиЛево, ЭлементПривязкиПраво,
                              ПривязкаВерх, ПривязкаНиз, ПривязкаЛево, ПривязкаПраво)
    
    Элемент = ЭлементыФормы.Добавить(ТипЭлемента, ИмяЭлемента, Видимость, Панель);
    Если НЕ Данные = Неопределено Тогда
       Элемент.Данные = Данные;
    КонецЕсли; 
    Элемент.Верх = Верх;
    Элемент.Лево = Лево;
    Элемент.Высота = Высота;
    Элемент.Ширина = Ширина;
    Элемент.УстановитьПривязку(ГраницаЭлементаУправления.Верх,  ЭлементПривязкиВерх,  ПривязкаВерх);
    Элемент.УстановитьПривязку(ГраницаЭлементаУправления.Низ,   ЭлементПривязкиНиз,   ПривязкаНиз);
    Элемент.УстановитьПривязку(ГраницаЭлементаУправления.Лево,  ЭлементПривязкиЛево,  ПривязкаЛево);
    Элемент.УстановитьПривязку(ГраницаЭлементаУправления.Право, ЭлементПривязкиПраво, ПривязкаПраво);

    Возврат Элемент;    

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

функция  ОтобразитьДеревоНаСтранице(ДеревоФайл,ДеревоСтраницы)
	ДеревоСДанными = Новый ДеревоЗначений;
	ДеревоСДанными.Колонки.Добавить("Элемент"); 
	ДеревоСДанными.Колонки.Добавить("Импортировать",Новый ОписаниеТипов("Булево"));
	
	Для каждого Строка0 из ДеревоФайл.Строки Цикл    
			Для каждого Строка1 из Строка0.Строки Цикл 
			    Для каждого Строка2 из Строка1.Строки Цикл
					ДеревоСтрока = ДеревоСДанными.Строки.Добавить(); 
				    ДеревоСтрока.Элемент = Строка2.Сущность;
				
					Для каждого Строка3 из Строка2.Строки Цикл
						 ДеревоРеквизит =ДеревоСтрока.Строки.Добавить(); 
						 ДеревоРеквизит.Элемент = Строка3.Сущность;
					 конецЦикла;
				 конеццикла;
         КонецЦикла;
   КонецЦикла;
   
   возврат ДеревоСданными;
конецФункции

ТабПоле.Значение = ОтобразитьДеревоНаСтранице(ДеревоФайл,"Дерево"+ИмяСтраницы);

ТабПоле.ТипЗначения = Новый ОписаниеТипов("ДеревоЗначений");
ТабПоле.Значение = ОтобразитьДеревоНаСтраницеСущности(ДеревоФайл,"Дерево"+ИмяСтраницы);  
ТабПоле.СоздатьКолонки();
ЭтаФорма.Обновить();