Код

	РС = СоздатьОбъект("ODBCRecordSet");
	ТекстЗапроса = "
	|SELECT
	|	ID Эл,
	|	ParentID Родитель,
	|	1 Сумма
	|FROM
	|	$Справочник."+ИмяСправочника+"
	|WHERE IsFolder = 2
	|";
	итЭлементы = СоздатьОбъект("ИндексированнаяТаблица");
	РС.ВыполнитьИнструкцию(ТекстЗапроса, итЭлементы);


	КоличествоСтрок = итЭлементы.КоличествоСтрок();
	Старт = _GetPerformanceCounter();

	ТекстЗапроса = "
	|SELECT
	|	ID Группа,
	|	ParentID Родитель,
	|	0 Сумма
	|FROM
	|	$Справочник."+ИмяСправочника+"
	|WHERE IsFolder = 1
	|";
	итГруппы = СоздатьОбъект("ИндексированнаяТаблица");
	РС.ВыполнитьИнструкцию(ТекстЗапроса, итГруппы);
	итГруппы.ДобавитьИндекс("Группа", "Группа");

	итЭлементы.ВыбратьСтроки();
	Пока итЭлементы.ПолучитьСтроку() = 1 Цикл
		Сумма = итЭлементы.Сумма;
		Группа = итЭлементы.Родитель;
		Пока итГруппы.НайтиСтроку("Группа", Группа, 0, 1) > 0 Цикл
			итГруппы.Сумма = итГруппы.Сумма + Сумма;
			Группа = итГруппы.Родитель;
		КонецЦикла;
	КонецЦикла;