1С 8.x : Как обойти, перебрать дерево значений?

 Процедура ОбойтиУровеньДерева(Строки)

  Для каждого Строка из Строки Цикл

     //что-то делаем со строкой, например:

     Сообщить(Строка.ИмяСуществующегоВСтрокеРеквизита);  

     ОбойтиУровеньДерева(Строка.Строки);

  КонецЦикла; 

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



//Вызываем перебор так:

Дерево = Новый ДеревоЗначений;

Запрос = Новый Запрос;

Запрос.Текст="ВЫБРАТЬ

  |Ном.Ссылка как ссылка

  |ИЗ

  | Справочник.Номенклатура КАК Ном

  |ИТОГИ ПО

  |Ном.Ссылка ТОЛЬКО ИЕРАРХИЯ";

Дерево = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);

// перебор дерева значений

ОбойтиУровеньДерева(Дерево.Строки);