Подсчет итогов по строкам и столбцам ("Дерево значений")

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	ДеревоЗначений = РеквизитФормыВЗначение("Дерево", Тип("ДеревоЗначений"));
	
	ЧислоДетей = 3;
	
	Для Уровень1 = 1 По 3 Цикл
		СтрокаУровень1 = ДеревоЗначений.Строки.Добавить();
		СтрокаУровень1.Группировка = "Группировка "+ Уровень1;
		СтрокаУровень1.Уровень = 1;
		СтрокаУровень1.Всего = 12 * 1800;
		
		Для НомерМесяца = 1 По 12 Цикл
			СтрокаУровень1["Сумма" + Формат(НомерМесяца, "ЧЦ=2; ЧВН=")] = 1800;
		КонецЦикла;
		
		Для Уровень2 = 1 По 3 Цикл
			СтрокаУровень2 = СтрокаУровень1.Строки.Добавить();
			СтрокаУровень2.Группировка = СтрокаУровень1.Группировка + "." + Уровень2;
			СтрокаУровень2.Уровень = 2;
			СтрокаУровень2.Всего = 12 * 600;
			
			Для НомерМесяца = 1 По 12 Цикл
				СтрокаУровень2["Сумма" + Формат(НомерМесяца, "ЧЦ=2; ЧВН=")] = 600;
			КонецЦикла;
			
			Для Уровень3 = 1 По 3 Цикл
				
				СтрокаУровень3 = СтрокаУровень2.Строки.Добавить();
				СтрокаУровень3.Группировка = СтрокаУровень2.Группировка + "." + Уровень3;
				СтрокаУровень3.Уровень = 3;
				СтрокаУровень3.Всего = Уровень3 * 12 * 100;
				
				Для НомерМесяца = 1 По 12 Цикл
					СтрокаУровень3["Сумма" + Формат(НомерМесяца, "ЧЦ=2; ЧВН=")] = Уровень3 * 100;
				КонецЦикла;
				
			КонецЦикла;
		КонецЦикла;
	КонецЦикла;
	
	ЗначениеВРеквизитФормы(ДеревоЗначений, "Дерево");
	
КонецПроцедуры