HelpF.pro

Пересчет дерева, суммы и коэффициенты.

Код 1C v 8.х
 //Находит строку и начинает пересчет вверх по узлам.
Процедура ПересчитатьВсеДерево(дз_стр)
для каждого стр из дз_стр.Строки Цикл
Если стр.строки.количество()>0 тогда
ПересчитатьВсеДерево(стр);
Иначе
ПересчетСуммДерева(стр);
прервать;
КонецЕсли;
КонецЦикла;
Конецпроцедуры

Процедура ПересчетСуммДерева(ТекСтрока)
Родитель=ТекСтрока.Родитель;
Если Родитель=Неопределено Тогда
Возврат;
КонецЕсли;
родитель.НазначенныйФонд=родитель.Строки.Итог("СуммаЧегото");
родитель.КТУ=Формат(родитель.Строки.Итог("СреднийПроцентДляУзлов")/Родитель.Строки.Количество(),"ЧДЦ=2");
ПересчетСуммДерева(Родитель);
КонецПроцедуры

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq8/view/935.html