Заполнение данных колонки дерева значений

&НаСервере
Процедура ОтборПриИзмененииНаСервере()
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    Структура.Код КАК Код,
    |    Структура.Ссылка КАК Структура,
    |    ДанныеОбъектаПоСтруктуреСрезПоследних.Объект КАК Объект
    |ИЗ
    |    Справочник.Структура КАК Структура
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.ДанныеОбъектаПоСтруктуре.СрезПоследних КАК ДанныеОбъектаПоСтруктуреСрезПоследних
    |        ПО Структура.Ссылка = ДанныеОбъектаПоСтруктуреСрезПоследних.Структура
    |ГДЕ
    |    Структура.Ссылка В ИЕРАРХИИ(&Отбор)
    |    И Структура.ПометкаУдаления = ЛОЖЬ
    |    И ДанныеОбъектаПоСтруктуреСрезПоследних.ВидОперации = ЗНАЧЕНИЕ(Перечисление.ВидыОпераций.Установить)
    |
    |УПОРЯДОЧИТЬ ПО
    |    Структура ИЕРАРХИЯ";
    
    Если ЗначениеЗаполнено(Объект.Отбор) Тогда       
        Запрос.УстановитьПараметр("Отбор", Объект.Отбор);      
    Иначе            
        Запрос.Текст = СтрЗаменить(Запрос.Текст,"Структура.Ссылка В ИЕРАРХИИ(&Отбор)","Истина");      
    КонецЕсли;
    
    ОписаниеКод = Новый ОписаниеТипов("Строка");
    ОписаниеСтруктра = Новый ОписаниеТипов("СправочникСсылка.Структура");
    ОписаниеОбъект = Новый ОписаниеТипов("СправочникСсылка.Объекты");
            
    Дерево = Новый ДеревоЗначений;
    Дерево.Колонки.Добавить("Структура", ОписаниеСтруктра );
    Дерево.Колонки.Добавить("Код",ОписаниеКод);
    Дерево.Колонки.Добавить("Объект",ОписаниеОбъект );
        
    Выборка = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);
    ЗначениеВРеквизитФормы(Выборка, "Сопоставление");
    
КонецПроцедуры