ПолеВвода1 = "ВЫБРАТЬ
   Операции1.Ссылка КАК Ссылка1,
   Операции.Ссылка КАК Ссылка
ИЗ
   (ВЫБРАТЬ
       Операции.Ссылка КАК Ссылка
   ИЗ
       Справочник.Операции КАК Операции
   ГДЕ
       Операции.Проект = &ВыбранныйПроект) КАК Операции1
       ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Операции КАК Операции
           
       ПО Операции.Этап = Операции1.Ссылка
ГДЕ
   Операции.Проект = &ВыбранныйПроект
ИТОГИ ПО
   Ссылка1 ИЕРАРХИЯ, Ссылка ИЕРАРХИЯ";

Текст = ПолеВвода1;
   Запрос.Текст = Текст;
   Запрос.УстановитьПараметр("ВыбранныйПроект", ВыбранныйПроект);
   Дерево3 = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкам);
   ЭлементыФормы.Дерево3.СоздатьКолонки();


Так дерево строится, но только до второго уровня.
Справочник Операции сам по себе одноуровневый, но в поле Этап записывается предок.
Как проще всего построить дерево с произвольным количеством "подуровней"?

в коде, обходом по выборке

(1) Думал над этим, сейчас застрял на том, как отсортировать выборку, что бы дерево строилось за один проход, но не идет что-то...
Проблема в том что не вижу способа отсортировать выборку в порядке их вывода в дерево...

ОбходРезультатаЗапроса.ПоГруппировкамСИерархией

(3) Результат тот же.

если справочник не иерархический, тогда чо-нить вроде этого, имхо:

"ВЫБРАТЬ
   Операции.Этап КАК Этап,
   Операции.Ссылка КАК Операция    
ИЗ
  Справочник.Операции КАК Операции КАК Операции

ГДЕ
   Операции.Проект = &ВыбранныйПроект
УПОРЯДОЧИТЬ ПО
   Этап,
   Операция

ИТОГИ ПО
   Этап
АВТОУПОРЯДОЧИВАНИЕ";

(5) Если так, то сперва выводятся элементы первого уровня, потом второго и тд.
Подумаю, поможет ли это...

Может кто предсказать, если использовать отдельный справочник для хранения уровней
Т.е.
справочник Операции (Наименование)
справочник Связи (Операция, Вышестоящая операция)

Можно ли по простому построить дерево в таком случае?

(6)

Думал выводятся по уровням, однако, выводятся не по уровням.

А то уже нашел нормальное решение, а дерево кривое получилось :-)

Древесные справочники спокон веку делались так:

ID,
Parent,
Name,
...
всё это хозяйство епстественно в одной таблице(справочнике:))

(9) Ну я так и сделал. Хочу добиться, что бы затем по простому построить дерево за один проход, а сейчас этого не получается...
из-за того, что в запросе строки идут в беспорядке...

Сейчас вот так

ПолеВвода1 = "ВЫБРАТЬ
   |Операции.Ссылка КАК Операция,
   |Операции.Этап КАК ВышестоящаяОперация,
   |1 как НПП
|ИЗ
  |Справочник.Операции КАК Операции
|ГДЕ
   |Операции.Проект = &ВыбранныйПроект
|ИТОГИ ПО
|    ВышестоящаяОперация
|АВТОУПОРЯДОЧИВАНИЕ";

Дерево2.Строки.Очистить();
   
   Выборка = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.Прямой);
   
   Строки = Дерево2;
   
   ст = Новый Соответствие;

   Пока Выборка.Следующий() цикл // Хотели воспользоваться тем, что подчиненные элементы будет в выборке позже вышестоящего
       
       Операция = Выборка.Операция;
       ВышестоящаяОперация = Выборка.ВышестоящаяОперация;
       
       узел = ст.Получить(ВышестоящаяОперация);
       Если узел = Неопределено тогда
           узел = Строки;
       КонецЕсли;
       
       Строка = узел.Строки.Добавить();
       Строка.Операция = Операция;
       Строка.ВышестоящаяОперация = ВышестоящаяОперация;
       
       Если Операция <> null тогда
           ст.Вставить(Операция, Строка);
       КонецЕсли;        

   КонецЦикла;


В определенных местах дерево рвет.

ВыборкаВышестоящаяОрганизация = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

.....
Пока ВыборкаВышестоящаяОрганизация.Следующий() Цикл
.....
   ВыборкаОперация = ВыборкаВышестоящаяОрганизация.Выбрать();
   Пока ВыборкаВышестоящаяОрганизация.Следующий() Цикл
       .......
   КонецЦикла;
КонецЦикла;

(12)* млин...

Пока ВыборкаВышестоящаяОрганизация.Следующий() Цикл
.....
   ВыборкаОперация = ВыборкаВышестоящаяОрганизация.Выбрать();
   Пока ВЫБОРКАОПЕРАЦИЯ.Следующий() Цикл
       .......
   КонецЦикла;
КонецЦикла;

(12) Это не работает, т.к. в запросе не формируются корректные группировки.
Работает, только если заранее известно количество группировок, например, для запроса из (0)

(13) Да я понял

(14) ты пробовал?

(16) Первоначально с этого и начинал. Для этого варианта проблема в том, что не могу составить запрос чтобы запрос сам корректно сгруппировал данные ...

(17) чего-то я не понимаю... ты хочешь, у тебя вложенность больше, чем 2?

(18)* без "ты хочешь"...

(19) Количество уровней неопределено.

тады ой... тут уже думать надо...

>>Как проще всего построить дерево с произвольным количеством "подуровней"?

Я не особо понял, что городиться ниже этого вопроса, но на процитированный вопрос отвечу. Я пришел к мысли (хз правильной ли), что кароче всего код при выводе произвольного кол-ва уровней - рекурсивная процедура.

рыба примерно такая:

ДЗ = запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией)

Для каждого ТекСтр Из ДЗ.Строки Цикл
 ПостроитьДерево(ТекСтр,0);
КонецЦикла;

В построить дерево пишешь цикл, который смотрит какие-то твои условия. Если енто группа, иерархия или хз что тебе надо - продолжаешь вызов этой процедуры с уровнем +1, када дошел до конца - выводишь свои листики. Я делаю всегда так - код получается очень коротким. А то что ты там сортировать вздумал - я не особо втыкнул :)

(22) ну дык почитал бы сначала...

ну дык почитал :) Как сам делаю - написал. Про сортировку я не понял.

(24) ну дык не только про сортировку не понял, почитай еще :)

// Решение для Табличной части и Дерева значений.

// Загрузка из ТЧ в ДеревоЗначений

Перем НомерСтрокиТЧ;

Функция ДобавитьСтрокуИзТЧ(РодительскаяСтрокаТабличногоПоля,СтрокаТЧ)
   НоваяСтрока=РодительскаяСтрокаТабличногоПоля.Строки.Добавить();
   КопироватьТЧ(НоваяСтрока,СтрокаТЧ);
   НоваяСтрока.СтрокаРодитель=СтрокаТЧ.СтрокаРодитель;
   НоваяСтрока.НомерСтроки=НомерСтрокиТЧ;
   НомерСтрокиТЧ=НомерСтрокиТЧ+1;
   Возврат НоваяСтрока;
КонецФункции

Процедура СчитыватьСтрокиИзТЧ(РодительскаяСтрокаТабличногоПоля, ТекущийРодительТЧ)
   Пока НомерСтрокиТЧ<=Операции.Количество() Цикл
       СтрокаТЧ=Операции[НомерСтрокиТЧ-1];
       Если СтрокаТЧ.СтрокаРодитель=ТекущийРодительТЧ Тогда
           НоваяСтрока=ДобавитьСтрокуИзТЧ(РодительскаяСтрокаТабличногоПоля,СтрокаТЧ);
       Иначе
           Если СтрокаТЧ.СтрокаРодитель<ТекущийРодительТЧ Тогда
               Возврат;
           Иначе    
               СчитыватьСтрокиИзТЧ(НоваяСтрока, СтрокаТЧ.СтрокаРодитель);
           КонецЕсли;    
       КонецЕсли;
   КонецЦикла;    
КонецПроцедуры

Функция СоздатьДЗ()
// тут создаем само дерево значений
   КЧ = Новый КвалификаторыЧисла(10,0);
   Массив = Новый Массив;
   Массив.Добавить(Тип("Число"));
   ОписаниеТиповЧ = Новый ОписаниеТипов(Массив, КЧ);
   ТП = Новый ДеревоЗначений;
   ТП.Колонки.Добавить("СтрокаРодитель",ОписаниеТиповЧ,"СтрокаРодитель");
   ТП.Колонки.Добавить("НомерСтроки",ОписаниеТиповЧ,"НомерСтроки");
// и так далее..
   Возврат ТП;
КонецФункции    

Процедура ТабличноеПолеЗагрузитьИзТЧ(ТП) Экспорт
   ТП=СоздатьДЗ();
   НомерСтрокиТЧ=1;
   СчитыватьСтрокиИзТЧ(ТП, 0);
КонецПроцедуры


// Сохрание из ДереваЗначений в ТЧ

Функция ДобавитьСтрокуВТЧ(ТЧ, СтрокаТЧ,НомерСтрокиРодителя)
   НоваяСтрока=ТЧ.Добавить();
   КопироватьТЧ(НоваяСтрока,СтрокаТЧ);
   НоваяСтрока.СтрокаРодитель=НомерСтрокиРодителя;
   Возврат НоваяСтрока;
КонецФункции

Процедура ЗаписатьСтрокиВТЧ(ТЧ, КорневаяСтрока, НомерСтрокиРодителя)
   Для каждого СтрокаТЧ из КорневаяСтрока.Строки Цикл
       НоваяСтрока=ДобавитьСтрокуВТЧ(СтрокаТЧ,НомерСтрокиРодителя);
       Если СтрокаТЧ.Строки.Количество()<>0 Тогда
           ЗаписатьСтрокиВТЧ(ТЧ,СтрокаТЧ,НоваяСтрока.НомерСтроки);
       КонецЕсли;    
   КонецЦикла;
КонецПроцедуры

Процедура ТабличноеПолеИнформацииСохранитьВТЧ(ТЧ)
   ТЧ.Очистить();
   ЗаписатьСтрокиВТЧ(ТЧ,ТабличноеПолеИнформации,0)
КонецПроцедуры