В начало

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

 

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

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

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

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

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

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

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

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

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

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

КонецЦикла; 

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