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

 //Находит строку и начинает пересчет вверх по узлам.

Процедура ПересчитатьВсеДерево(дз_стр)

	для каждого стр из дз_стр.Строки Цикл

		Если стр.строки.количество()>0 тогда

			ПересчитатьВсеДерево(стр);

		Иначе

			ПересчетСуммДерева(стр);

			прервать;

		КонецЕсли;

	КонецЦикла;

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



Процедура ПересчетСуммДерева(ТекСтрока)

	Родитель=ТекСтрока.Родитель;

	Если Родитель=Неопределено Тогда

		Возврат;

	КонецЕсли;

	родитель.НазначенныйФонд=родитель.Строки.Итог("СуммаЧегото");

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

	ПересчетСуммДерева(Родитель);

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