"Процедура ЗакрытиеСчета(Счет, БухИт, НомерВыбираемогоСубконто = 0)<br> <br> Иначе<br> НомерВыбираемогоСубконто = НомерВыбираемогоСубконто + 1;<br> <br> // Итоги не разворачиваются по оборотным субконто.<br> Если Счет.ТолькоОбороты(НомерВыбираемогоСубконто) = 0 Тогда // не оборотное субконто<br> БухИт.ВыбратьСубконто(НомерВыбираемогоСубконто);<br> ВремНомер = НомерВыбираемогоСубконто; // лечим рекурсию<br> Пока БухИт.ПолучитьСубконто(ВремНомер) = 1 Цикл // лечим рекурсию - было НомерВыбираемогоСубконто<br> ЗакрытиеСчета(Счет, БухИт, НомерВыбираемогоСубконто)<br> КонецЦикла;<br> НомерВыбираемогоСубконто = ВремНомер; // лечим рекурсию<br> Иначе<br> ЗакрытиеСчета(Счет, БухИт, НомерВыбираемогоСубконто)<br> КонецЕсли;<br> КонецЕсли;<br> <br>КонецПроцедуры // ЗакрытиеСчета()<br><br>"