Код

Функция ПодчинённыеСтроки(Куда, Откуда, Чему)
	Откуда.УстановитьФильтр(Чему,Чему,"Подчинён");
	Куда.Загрузить(Откуда,"Подчинён");
	Куда.НоваяКолонка("тзПотомки");
	Откуда.УдалитьСтроки("Подчинён");
	Возврат Куда;
КонецФункции

Процедура СформироватьПодчинение(Где, ИзЧего)
	Где.ВыбратьСтроки();
	Пока (Где.ПолучитьСтроку() = 1) и (ИзЧего.КоличествоСтрок() > 0) Цикл
	    Где.тзПотомки = ПодчинённыеСтроки(СоздатьОбъект("ИндексированнаяТаблица"), ИзЧего, Где.ВведенНаОсновании);
		СформироватьПодчинение(Где.тзПотомки, ИзЧего);
	КонецЦикла;
КонецПроцедуры

.......................
итзВозврат = ПодчинённыеСтроки(СоздатьОбъект("ИндексированнаяТаблица"), итзТМП, ДокОснование);
СформироватьПодчинение(итзВозврат, итзТМП);