Добавить строку в дерево значений на сервере

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    Если Параметры.ДокументСсылка = Неопределено ИЛИ Параметры.ДокументСсылка.Пустая() Тогда
        Отказ = Истина;
        Возврат;
    КонецЕсли;
    ДокументСсылка = Параметры.ДокументСсылка;
    мУжеВСписке = Новый Соответствие;
        мКэшРеквизитовДокумента = Новый Соответствие;
    мКэшПраваДоступаКМетаданным = Новый Соответствие;
    ВывестиДеревоДокументов(); //!!!
КонецПроцедуры

&НаСервере
Процедура ВывестиДеревоДокументов()        
	
	ВывестиРодительскиеДокументы(ДокументСсылка);    

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

&НаСервере
Функция ВывестиРодительскиеДокументы(ДокументСсылка)

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

    СтрокаРодителя = Родитель.ПолучитьЭлементы().Добавить(); //*вот здесь строка ставится новой строкой из-за этого нет иерархии, если 
                                                                                          //возвращаю строку, то здесь в строке есть последний добавленный элемент, 
                                                                                          //который является родителем и далее при завершении предыдущих вызовов
                                                                                          //элементы становятся дочерними

    Запрос = Новый Запрос("ВЫБРАТЬ РАЗРЕШЕННЫЕ Ссылка, Проведен, ПометкаУдаления, #Сумма, #Валюта, Представление, """ + МетаданныеДокумента.Имя + """ КАК Метаданные
                           | ИЗ Документ."+МетаданныеДокумента.Имя + " ГДЕ Ссылка = &Ссылка");
                           
    Запрос.УстановитьПараметр("Ссылка", ДокументСсылка);
    Если МетаданныеДокумента.Реквизиты.Найти("СуммаДокумента") <> Неопределено Тогда
        Запрос.Текст = СтрЗаменить(Запрос.Текст, "#Сумма", "СуммаДокумента КАК СуммаДокумента");
    Иначе
        Запрос.Текст = СтрЗаменить(Запрос.Текст, "#Сумма", "NULL КАК СуммаДокумента");
    КонецЕсли;
    
    Если МетаданныеДокумента.Реквизиты.Найти("ВалютаДокумента") <> Неопределено Тогда
        Запрос.Текст = СтрЗаменить(Запрос.Текст, "#Валюта", "ВалютаДокумента КАК ВалютаДокумента");
    Иначе
        Запрос.Текст = СтрЗаменить(Запрос.Текст, "#Валюта", "NULL КАК ВалютаДокумента");
    КонецЕсли;
    
    Выборка  = Запрос.Выполнить().Выбрать();
    Если Выборка.Следующий() Тогда        
        
        СтрокаРодителя.Ссылка= Выборка.Ссылка;
        СтрокаРодителя.Проведен = Выборка.Проведен;
        СтрокаРодителя.ПометкаУдаления = Выборка.ПометкаУдаления;
        СтрокаРодителя.ДокументПредставление = Выборка.Представление;
        СтрокаРодителя.СуммаДокумента = Выборка.СуммаДокумента;
        СтрокаРодителя.ВалютаДокумента = Выборка.ВалютаДокумента;
        СтрокаРодителя.ВидДокумента = Выборка.Метаданные;                
    Иначе
        СтрокаРодителя.Ссылка= ДокументСсылка;
        СтрокаРодителя.ДокументПредставление = Строка(ДокументСсылка);
        СтрокаРодителя.СуммаДокумента = ДокументСсылка.СуммаДокумента;
    КонецЕсли;
    Возврат Родитель;
    //Возврат СтрокаРодителя;
КонецФункции

&НаСервере
Процедура ВывестиБезРодителей(СписокДокументов)
    
    МассивТипов = Новый Массив;

    Для Каждого ЭлементСписка Из СписокДокументов Цикл
        
        МетаданныеДокумента = ЭлементСписка.Значение.Метаданные();
        
        Запрос = Новый Запрос("ВЫБРАТЬ РАЗРЕШЕННЫЕ Ссылка, Проведен, ПометкаУдаления, #Сумма, #Валюта, Представление, """ + МетаданныеДокумента.Имя + """ КАК Метаданные
        | ИЗ Документ."+МетаданныеДокумента.Имя + " ГДЕ Ссылка = &Ссылка");
        
        Запрос.УстановитьПараметр("Ссылка", ЭлементСписка.Значение);
        
        Если МетаданныеДокумента.Реквизиты.Найти("СуммаДокумента") <> Неопределено Тогда
            Запрос.Текст = СтрЗаменить(Запрос.Текст, "#Сумма", "СуммаДокумента КАК СуммаДокумента");
        Иначе
            Запрос.Текст = СтрЗаменить(Запрос.Текст, "#Сумма", "NULL КАК СуммаДокумента");
        КонецЕсли;
        
        Если МетаданныеДокумента.Реквизиты.Найти("ВалютаДокумента") <> Неопределено Тогда
            Запрос.Текст = СтрЗаменить(Запрос.Текст, "#Валюта", "ВалютаДокумента КАК ВалютаДокумента");
        Иначе
            Запрос.Текст = СтрЗаменить(Запрос.Текст, "#Валюта", "NULL КАК ВалютаДокумента");
        КонецЕсли;
        
                
        Для Каждого ЭлементТипа Из Документы.ТипВсеСсылки().Типы() Цикл
            МассивТипов.Добавить(ЭлементТипа)
        КонецЦикла;
        Для Каждого ЭлементТипа Из Справочники.ТипВсеСсылки().Типы() Цикл
            МассивТипов.Добавить(ЭлементТипа)
        КонецЦикла;
        Для Каждого ЭлементТипа Из ПланыВидовХарактеристик.ТипВсеСсылки().Типы() Цикл
            МассивТипов.Добавить(ЭлементТипа)
        КонецЦикла;
        
        Выборка  = Запрос.Выполнить().Выбрать();
        ЕСли Выборка.Следующий() Тогда        
            Если мУжеВСписке[Выборка.Ссылка] = Неопределено Тогда
                СтрокаДерева = ДеревоДокументов.ПолучитьЭлементы().Добавить();
                 
                СтрокаДерева.Ссылка= Выборка.Ссылка;
                СтрокаДерева.Проведен = Выборка.Проведен;
                СтрокаДерева.ПометкаУдаления = Выборка.ПометкаУдаления;
                СтрокаДерева.ДокументПредставление = Выборка.Представление;
                СтрокаДерева.ВидДокумента = Выборка.Метаданные;            
                СтрокаДерева.СуммаДокумента = Выборка.СуммаДокумента;
                СтрокаДерева.ВалютаДокумента = Выборка.ВалютаДокумента;
                СтрокаДерева.ОграничениеПоРодителям = Истина;
                мУжеВСписке.Вставить(Выборка.Ссылка, Истина);    
            КонецЕсли;
        КонецЕсли;        
    КонецЦикла;
КонецПроцедуры