Имя: Пароль:
1C
 
Дерево значений из двух колонок в одну
0 Inv1noveritas
 
06.11.25
11:35
Добрый день. Есть условный запрос на получение документов и всех документов в их тч. Хотелось бы вывести на форму в виде раскрывающегося дерева значений в таком виде:
Документ 1 уровня
-> Документ 2 уровня

Пока что получается вывести только в 2 колонки, хотелось бы поместить в одну

Что пока имею:
Запрос.Текст =
    "ВЫБРАТЬ ПЕРВЫЕ 3
    |    ПлатежноеПоручениеВходящее.Ссылка КАК Ссылка
    |ПОМЕСТИТЬ ВТ
    |ИЗ
    |    Документ.ПлатежноеПоручениеВходящее КАК ПлатежноеПоручениеВходящее
    |
    |УПОРЯДОЧИТЬ ПО
    |    ПлатежноеПоручениеВходящее.Дата УБЫВ
    |;
    |
    |////////////////////////////////////////////////////////////////////////////////
    |ВЫБРАТЬ
    |    ВТ.Ссылка КАК Документ,
    |    ПлатежноеПоручениеВходящееРасшифровкаПлатежа.Сделка КАК ДокументПодчиненный
    |ИЗ
    |    ВТ КАК ВТ
    |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПлатежноеПоручениеВходящее.РасшифровкаПлатежа КАК ПлатежноеПоручениеВходящееРасшифровкаПлатежа
    |        ПО ВТ.Ссылка = ПлатежноеПоручениеВходящееРасшифровкаПлатежа.Ссылка
    |
    |ИТОГИ ПО
    |    Документ";
    
    РезультатЗапроса = Запрос.Выполнить();
    ВыгрузкаДерево = РезультатЗапроса.Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);  
    ЗначениеВРеквизитФормы(ВыгрузкаДерево, "Дерево");
1 zenik
 
06.11.25
12:25
Обойти группировки через выборку и заполнить дерево кодом.
2 Inv1noveritas
 
06.11.25
12:57
(1) Сделал так:
ВыборкаСсылка = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
    ДеревоЗначений = Новый ДеревоЗначений;
    ДеревоЗначений.Колонки.Добавить("Документ");
    
    Пока ВыборкаСсылка.Следующий() Цикл    
        
        Группа1 = ДеревоЗначений.Строки.Добавить();
        Группа1.Документ = ВыборкаСсылка.Документ;        
        
        ВыборкаДетальныеЗаписи = ВыборкаСсылка.Выбрать();
    
        Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
            
            Группа12 = Группа1.Строки.Добавить();
            Группа12.Документ = ВыборкаСсылка.ДокументПодчиненный;    
            
        КонецЦикла;
    КонецЦикла;
    
    ЗначениеВРеквизитФормы(ДеревоЗначений, "Дерево");

Не выводит документ из тч
Что я делаю не так?
3 Inv1noveritas
 
06.11.25
13:00
(1) А, я тупой, все хорошо. Спасибо большое)
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.