В начало

Процедура «Выдать рекурсивно»

 

Процедура ВыдатьРекурсивно (Выборка)  

// Пока в выборке есть записи ...  

Пока Выборка. Следующий () Цикл 

            // ... выведем в окно сообщений поля из результата  

Товар = Выборка.Наименование; 

Количество = Выборка.Количество; 

Сообщить ("Товар: " + Товар + " Количество: " + Количество); 

// продолжим выборку подчиненных записей 

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

Выдать Рекурсивно (Выборка.Выбрать(СпособВыборки)); 

КонецЦикла; 

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