Рекурсивный перебор дерева значений и вывод в макет

[demon3]

написал вот такой код. но почему то при нажатии кнопки печать,выводится столько табл документов,сколько элементов в дереве значений. и в последних двух табличн документах только строки номенклатуры. поправьте пожалуйста.

Код Выделить Развернуть

Процедура ОсновныеДействияФормыПечать(Кнопка)

Дерево(деревоспецификаций);


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


Процедура Дерево(МП,Уровень=0)
ТабДокумент = Новый ТабличныйДокумент;
    Макет = ЭтотОбъект.ПолучитьМакет("Макет");
    ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
//Обходим строки текущего уровня дерева
Для Каждого СтрДерева Из мп.Строки Цикл
   ОбластьСтрока.Параметры.Номенклатура = СтрДерева.СтрЭл;
   ТабДокумент.Вывести(ОбластьСтрока);
   Сообщить(СтрДерева.СтрЭл);
Дерево(СтрДерева,Уровень+1);
КонецЦикла;
ТабДокумент.Показать();
КонецПроцедуры


[GRADUS]

написал вот такой код. но почему то при нажатии кнопки печать,выводится столько табл документов,сколько элементов в дереве значений. и в последних двух табличн документах только строки номенклатуры. поправьте пожалуйста.

Код Выделить Развернуть

Процедура ОсновныеДействияФормыПечать(Кнопка)

Дерево(деревоспецификаций);


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


Процедура Дерево(МП,Уровень=0)
ТабДокумент = Новый ТабличныйДокумент;
    Макет = ЭтотОбъект.ПолучитьМакет("Макет");
    ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
//Обходим строки текущего уровня дерева
Для Каждого СтрДерева Из мп.Строки Цикл
   ОбластьСтрока.Параметры.Номенклатура = СтрДерева.СтрЭл;
   ТабДокумент.Вывести(ОбластьСтрока);
   Сообщить(СтрДерева.СтрЭл);
Дерево(СтрДерева,Уровень+1);
КонецЦикла;
ТабДокумент.Показать();
КонецПроцедуры


Вроде рекурсии нет, по-моему только первый уровень дерева у тебя выводится.
Не уверен, что вот это: "Дерево(СтрДерева,Уровень+1);" Вообще что то должно сделать с твоим деревом.

[demon3]

написал вот такой код. но почему то при нажатии кнопки печать,выводится столько табл документов,сколько элементов в дереве значений. и в последних двух табличн документах только строки номенклатуры. поправьте пожалуйста.

Код Выделить Развернуть

Процедура ОсновныеДействияФормыПечать(Кнопка)

Дерево(деревоспецификаций);


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


Процедура Дерево(МП,Уровень=0)
ТабДокумент = Новый ТабличныйДокумент;
    Макет = ЭтотОбъект.ПолучитьМакет("Макет");
    ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
//Обходим строки текущего уровня дерева
Для Каждого СтрДерева Из мп.Строки Цикл
   ОбластьСтрока.Параметры.Номенклатура = СтрДерева.СтрЭл;
   ТабДокумент.Вывести(ОбластьСтрока);
   Сообщить(СтрДерева.СтрЭл);
Дерево(СтрДерева,Уровень+1);
КонецЦикла;
ТабДокумент.Показать();
КонецПроцедуры


Вроде рекурсии нет, по-моему только первый уровень дерева у тебя выводится.
Не уверен, что вот это: "Дерево(СтрДерева,Уровень+1);" Вообще что то должно сделать с твоим деревом.

у меня выводится все как надо. но только открываются много табличных документов для печати, я так понимаю строка :ТабДокумент.Показать() не там стоит где надо

[GRADUS]

написал вот такой код. но почему то при нажатии кнопки печать,выводится столько табл документов,сколько элементов в дереве значений. и в последних двух табличн документах только строки номенклатуры. поправьте пожалуйста.

Код Выделить Развернуть

Процедура ОсновныеДействияФормыПечать(Кнопка)

Дерево(деревоспецификаций);


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


Процедура Дерево(МП,Уровень=0)
ТабДокумент = Новый ТабличныйДокумент;
    Макет = ЭтотОбъект.ПолучитьМакет("Макет");
    ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
//Обходим строки текущего уровня дерева
Для Каждого СтрДерева Из мп.Строки Цикл
   ОбластьСтрока.Параметры.Номенклатура = СтрДерева.СтрЭл;
   ТабДокумент.Вывести(ОбластьСтрока);
   Сообщить(СтрДерева.СтрЭл);
Дерево(СтрДерева,Уровень+1);
КонецЦикла;
ТабДокумент.Показать();
КонецПроцедуры


Вроде рекурсии нет, по-моему только первый уровень дерева у тебя выводится.
Не уверен, что вот это: "Дерево(СтрДерева,Уровень+1);" Вообще что то должно сделать с твоим деревом.

у меня выводится все как надо. но только открываются много табличных документов для печати, я так понимаю строка :ТабДокумент.Показать() не там стоит где надо

Аааа, вот что за Дерево() xDDDD
У тебя не может все как надо выводиться, так как ты создаешь таб доки столько раз, сколько уровней у дерева.
+ Вывод каждого уровня у тебя отдельно идет.

Отделяй рекурсия от создания и от вывода.