Дерево значений, интерактивное добавление колонок и заполнение строк - суммируются записи на форме

&НаСервере
Процедура ЗаполнитьДеревоСотрудников()

///....
 
Выборка = РезультатТолькоСКлючевыми.Выбрать();
    
    // Задаем реквизиты по умолчанию
    РеквизитыПоУмолчанию = Новый Массив;
    РеквизитыПоУмолчанию.Добавить("НомерСтроки");
    РеквизитыПоУмолчанию.Добавить("ФИО");
    РеквизитыПоУмолчанию.Добавить("Должность");
    
    // Очищаем реквизиты дерева для дальнейшего заполнения
    УдаляемыеРеквизиты = Новый Массив;
    РеквизитыДляУдаления = ПолучитьРеквизиты("Тест_ПодобранныеСотрудники");
    
    // Удаляем ранее созданные реквизиты, если таковые были
    Для каждого РеквизитУдаления Из РеквизитыДляУдаления Цикл
    
        Если РеквизитыПоУмолчанию.Найти(РеквизитУдаления.Имя) = Неопределено Тогда
        
            УдаляемыеРеквизиты.Добавить("Тест_ПодобранныеСотрудники." + РеквизитУдаления.Имя);
            // Удаляем элемент формы 
            Элементы.Удалить(Элементы["Тест_ПодобранныеСотрудники" + РеквизитУдаления.Имя]);
        
        КонецЕсли;
    
    КонецЦикла;
    
    Если ЗначениеЗаполнено(УдаляемыеРеквизиты) Тогда
        ИзменитьРеквизиты(, УдаляемыеРеквизиты);
    КонецЕсли;
    
    
    
    ОчиститьДеревоСотрудниковНаСервере();
    
    
    
    // Заполняем дерево подобранных сотрудников
    Счетчик = 0;
    Пока Выборка.Следующий() Цикл
                
        //Перебираем все массивы элементов
        Для каждого МассивКлючевыхЭлементов Из МассивМассивовКлючевыхЭлементов Цикл
            
            Если ЗначениеЗаполнено(МассивКлючевыхЭлементов) Тогда
                //Перебираем все элементы каждого массива
                Для каждого КлючевойЭлемент Из МассивКлючевыхЭлементов Цикл
                    
                    НаименованиеКолонки = КлючевойЭлемент.Наименование;
                    БезопасноеНаименование = ИсключитьЗапрещенныеСимволыНаСервере(НаименованиеКолонки);
                    
                    
                    ВсеРеквизитыДерева = ПолучитьРеквизиты("Тест_ПодобранныеСотрудники");
                    РеквизитДобавлен = Ложь;
                    
                    Для каждого Реквизит Из ВсеРеквизитыДерева Цикл
                        Если Реквизит.Имя = БезопасноеНаименование Тогда
                            РеквизитДобавлен = Истина;
                            Прервать;
                        КонецЕсли;
                    КонецЦикла;
                    
                    Если НЕ РеквизитДобавлен Тогда
                    
                        РеквизитыДерева = Новый Массив;
                        РеквизитыДерева.Добавить(Новый РеквизитФормы(БезопасноеНаименование,
																	Новый ОписаниеТипов("Строка"),
																	"Тест_ПодобранныеСотрудники",
																	НаименованиеКолонки,
																	Истина));
                        ИзменитьРеквизиты(РеквизитыДерева);
                        
                        ЭлементДерева = Элементы.Добавить("Тест_ПодобранныеСотрудники" +
														  БезопасноеНаименование,
														  Тип("ПолеФормы"),
														  Элементы.Тест_ПодобранныеСотрудники);
														  
                        ЭлементДерева.Вид = ВидПоляФормы.ПолеВвода;
                        ЭлементДерева.ПутьКДанным = "Тест_ПодобранныеСотрудники." + БезопасноеНаименование;
                        
                    КонецЕсли;    
                    
                    ДеревоСФормыГотовое =  РеквизитФормыВЗначение("Тест_ПодобранныеСотрудники");
                    
                    СтрокаДерева = ДеревоСФормыГотовое.Строки.Добавить();
                    
                    Счетчик = Счетчик + 1;
                    СтрокаДерева.НомерСтроки = Счетчик;
                    СтрокаДерева.ФИО = Выборка.Сотрудник;
                    СтрокаДерева.Должность = Выборка.Должность;
                    
                    ЗначениеВРеквизитФормы(ДеревоСФормыГотовое, "Тест_ПодобранныеСотрудники");
                    
                КонецЦикла;
                
            КонецЕсли;
            
        КонецЦикла;
                                                               
    КонецЦикла;

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


&НаСервере
Процедура ОчиститьДеревоСотрудниковНаСервере()
    
    ДеревоСотрудников = РеквизитФормыВЗначение("ПодобранныеСотрудники");
    ДеревоСотрудников.Строки.Очистить();
    ЗначениеВРеквизитФормы(ДеревоСотрудников, "ПодобранныеСотрудники"); 
    
КонецПроцедуры