(
0) Да ты не очкуй рекурсию. Я 100 раз так делал ©
&НаКлиенте
Процедура ЗаполнитьТЧизДерева (Знач Элементы)
ЭлементыДерева = Элементы.ПолучитьЭлементы();
Для каждого стр из ЭлементыДерева Цикл
ЗаполнитьТЧизДерева (стр);
Если НЕ стр.ЭтоГруппа И стр.Сумма Тогда
нс = Объект.Статьи.Добавить();
....
КонецЕсли;
КонецЦикла;
КонецПроцедуры