|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
//Находит строку и начинает пересчет вверх по узлам. Процедура ПересчитатьВсеДерево(дз_стр) для каждого стр из дз_стр.Строки Цикл Если стр.строки.количество()>0 тогда ПересчитатьВсеДерево(стр); Иначе ПересчетСуммДерева(стр); прервать; КонецЕсли; КонецЦикла; Конецпроцедуры Процедура ПересчетСуммДерева(ТекСтрока) Родитель=ТекСтрока.Родитель; Если Родитель=Неопределено Тогда Возврат; КонецЕсли; родитель.НазначенныйФонд=родитель.Строки.Итог("СуммаЧегото"); родитель.КТУ=Формат(родитель.Строки.Итог("СреднийПроцентДляУзлов")/Родитель.Строки.Количество(),"ЧДЦ=2"); ПересчетСуммДерева(Родитель); КонецПроцедуры |
About the Author
