Код

Перем мВсегоПозиций, мТекСтрока;

//*******************************************
Процедура ВывестиИерархию(Таб, ИТ, Отступ = "")

	ИТ.ВыбратьСтроки("индПорядок");
	Пока ИТ.ПолучитьСтроку("индПорядок") = 1 Цикл
		Если ИТ.__ЭтоГруппа__ = 1 Тогда
			ПечНаименование = Отступ + ИТ.Наименование;
			Если ИТ.__Уровень__ = 1 Тогда
				ИмяСекции = "Группа1уровня";
			Иначе
				ИмяСекции = "Группа";
			КонецЕсли;
			Таб.ВывестиСекцию(ИмяСекции);
			ВывестиИерархию(Таб, ИТ.тзПотомки, Отступ + " ");
		Иначе
			мТекСтрока = мТекСтрока + 1;
			Если мТекСтрока % 10 = 0 Тогда
				Состояние("Вывод... " + Цел(мТекСтрока / мВсегоПозиций * 100) + "%");
			КонецЕсли;
			ПечНаименование = ИТ.Наименование;
			Таб.ВывестиСекцию("Строка");
		КонецЕсли;
	КонецЦикла;

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


//*******************************************
Процедура ОбработатьИерархию(ИТ)

	ИТ.ВыбратьСтроки();
	Пока ИТ.ПолучитьСтроку() = 1 Цикл
		Если ИТ.__ЭтоГруппа__ = 1 Тогда
			ИТ.Наименование = ИТ.Ссылка.Наименование;
			ОбработатьИерархию(ИТ.тзПотомки);
		КонецЕсли;
	КонецЦикла;
	ИТ.ДобавитьИндекс("индПорядок", "Наименование");

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


//*******************************************
Процедура Сформировать()

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

	// тут получение данных в ИТ
	//в данных должно быть поле Ссылка
	//желательно наличие поля Ссылка_Родитель

	мВсегоПозиций = РезИТ.КоличествоСтрок();
	Если мВсегоПозиций = 0 Тогда
		Возврат;
	КонецЕсли;

	РезИТ.Группировать("Ссылка:Ссылка*&", , 0);
	ОбработатьИерархию(РезИТ);

	Таб = СоздатьОбъект("Таблица");
	//Таб.ИсходнаяТаблица();
	Таб.ВывестиСекцию("Шапка");
	Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0, "Печать", "Окно");
	Таб.ПовторятьПриПечатиСтроки(Таб.ВысотаТаблицы(), Таб.ВысотаТаблицы());

	мТекСтрока=0;
	ВывестиИерархию(Таб, РезИТ);

	Таб.ВывестиСекцию("Подвал");
	Таб.ТолькоПросмотр(1);
	//Таб.ПараметрыСтраницы();
	Таб.Показать();

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

Код (C++)

	// Соорудим временную таблицу для групп
	CValue vVTGroups;
	vVTGroups.CreateObject("IndexedTable");
	CVTExtended* pVTGroups = CValue2VTExt(vVTGroups);
	pVTGroups->LoadStructure(this);

	// Проиндексируем по колонке группы
	CString sIndexExpr(ColumnName(nRefCol));
	sIndexExpr += "*"; //сортировать будем по внутреннему представлению
	CVTExtIndex* pGrpIndex = pVTGroups->DefaultIndex;
	pGrpIndex->Reindex( sIndexExpr );