Код

Процедура ПриОткрытии()

	иТЗ=СоздатьОбъект("ИндексированнаяТаблица");

	ТЗ.НоваяКолонка("Ветка");
	ТЗ.НоваяКолонка("Значек");
	ТЗ.НоваяКолонка("Имя",,75,,,75);
	ТЗ.НоваяКолонка("СтавокВсего");
	ТЗ.НоваяКолонка("ЗанятоСтавок");
	ТЗ.НоваяКолонка("Вакантно");

	//• Beginning add © 2008-10-29 10:33:19
	ТЗ.НоваяКолонка("Раскраска");
	ТЗ.ВидимостьКолонки("Раскраска",0);
	//• End © 2008-10-29 10:33:19

	Структура=ЗначениеВСтрокуВнутр(ТЗ);

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

Процедура ПослеОткрытия()
	АтрибутФормы_ТЗ=СоздатьОбъект("АтрибутФормы");
	АтрибутФормы_ТЗ.УстановитьАтрибут(Форма,"ТЗ");
	АтрибутФормы_ТЗ.ПерехватитьТаблицуЗначений();

	РасширениеФормы = СоздатьОбъект("РасширениеФормы");
	РасширениеФормы.УстановитьФорму(Форма);
	РасширениеФормы.РаскрашиватьТаблицу("тз");
КонецПроцедуры // Послеоткрытия


Процедура Сформировать()
	//• заполняем иТЗ
	иТЗ.Загрузить(ОтборSQL());
	иТЗ.Группировать("КФ_Смена:КФ_Смена","СтавокВсего,ЗанятоСтавок",1);

	иТЗ.ВыбратьСтроки();
	ТЗ.УдалитьСтроки();

	//• создаем первый уровень
	Наименование_ветки_1=выбВладелец;
	ТЗ.НоваяСтрока();
	ТЗ.Имя=Наименование_ветки_1;
	ТЗ.СтавокВсего =иТЗ.Итог("СтавокВсего");
	ТЗ.ЗанятоСтавок=иТЗ.Итог("ЗанятоСтавок");
	ТЗ.Вакантно    =иТЗ.Итог("СтавокВсего")-иТЗ.Итог("ЗанятоСтавок");
	ТЗ.Раскраска   ="BRUSH[52377]";
	ТЗ.Ветка=ЗначениеИзСтрокиВнутр(Структура);

	Пока ИТЗ.ПолучитьСтроку() = 1 Цикл
		.
		.
		.
		.
		.
	КонецЦикла;
	АтрибутФормы_ТЗ.ОбновитьДерево();
КонецПроцедуры