Собственно появилась недавно необходимость получить из внешнего источника данные и отображать их в виде дерева, для редактирования и дальнейшей загрузки в справочник. Внешний источник имеет следующую структуру данных:
КодРодителя|КодЭлемента|ПризнакГруппы|Наименование и т.д.
КодРодителя это  элемент из этой же таблицы. Вот приблизительно пример:
2|3|0|GeForce GTX560
0|1|1|Видеокарты
1|2|1|Видеокарты NVIDIA
и тд.
Помню на js делал методом вложенных массивов и хэш-таблицы, кода было строк на 10 максимум и работало весьма шустро. С деревом же так не выйдет, так как строки его переподчинить нельзя:(. Попытки написать более менее нормальный алгоритм успехом не увенчались. Выходит какой-то дикий костыль. Может у кого-то уже есть наработки в данной области?

рекурсия спасет отца js

Курс 1С - базовые объекты.

запрос не предлагать?

закинуть тз в СКД как внешний источник, создать двумая пальцами няшную групировку(дерево) и выгрузить в коллекцию дерево стандартными средствами в обработчике ПриКомпоновке....

все остальные мегаметоды буду расценивать как верх цинизма и непрофессонализма - у меня все

(4) нахрена в СКД? просто в запрос быстрее

Stim, Рекурсия полность здесь не спасёт здесь. Внимательно посмотрите на структуру данных.
ProProg, Это нужно посетить сначала вам, чтобы помочь мне.)
x86. Да любые решения годятся, лишь бы более менее оптимально по скорости выполнения было. Мой костылятор обрабатывает около 6000 записей вместе с запросом за 10-12 сек. Из той же таблицы через js за 4 сек.
vmv. Я бы и рад сделать группировку в запросе, но у группы могут быть такие же реквизиты как и у элемента. При группировке эти реквизиты мы теряем, и чтобы их дозаполнить нужно заново рыскать по ТЗ. Посмотрите на структуру данных. Группа храниться в той же таблице. Может я чего не понял?

По-моему запросом тут не получиться всё-таки. Покрутил внешний источник в конструкторе и удобоваримого результата не получил. Может есть у кого пример реализации?

(7) Я тоже в школе учебник по химии в руках покрутил, но выше трояка не видал никогда :)

Goggy. Видимо поэтому, ничего конкретного и здесь сказать не можешь. Слабо решение предложить?

(6) Всем подходит, а тебе вдруг рекурсия не подойдет. Ты думаешь 2 поля (родитель-элемент) тз такой уникальный случай сворачивания дз ?

Рекурсия так или иначе в решении данного вопроса у меня используеться, но "костылятор" в красивое решение она не превращает, так как кроме неё там присутствует например поиск по дереву и ТЗ некислое кол-во раз, что алгоритм быстрым и красивым не делает.

(11) И что ? проиндексируй таблицу и будет тебе быстрый алгоритм


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


ТЗ.Индексы.Добавить("КодРодителя");

РазвернутьТЗ(ТЗ, ДЗ, 0);

С индексированием всё понятно и так.
А вот с рекурсией не всё так просто.
У меня например родителя с кодом 0 просто нет и поэтому предложенный алгоритм не сработает. Что на вход подать?

Посмотри тут:
http://help1c.com/faq8/view/1051.html

Спасибо. Сейчас посмотрю.

(13) Как это может быть ? У тебя нет точки отсчета структуры дерева ?

А откуда у меня точка отсчёта возьмётся? У меня голая ТЗ, никак не упорядоченная. Структура в 1 сообщении. Есть только признак, который говорит, что это элемент или группа и код родителя, по которому можно построить иерархическую цепочку. Верхний уровень худо белно можно определить по пустому полю КодРодителя.

(17) Странный ты человек. Пустое поле числового типа это какое число то ?

(13)
Ну так добавь строку с кодом 0. Будет тебе точка отсчета

Под пустым я подразумевал 0.

(19) Да не надо ничего добавлять.

(20) Молодец, а теперь еще раз внимательно посмотри что делает код в (12)

(12)
Циклы не учитываешь

(23) Какие циклы ?

1/2/1
2/1/1

(25) Приборы

Автор не гарантирует, что ТЗ из дерева получалась:)

ТЗ образуется из запроса к внешнему источнику данных.
+Еще нужно учитывать что если есть код родителя это не значит, что есть сам родитель, поэтому алгоритм предложенный в (14) на таких позициях "двоит".

(27) Признак группы (третье число) никакой роли вообще не играет в построении иерархии. Важен код элемента и код родителя.

2|3|0|GeForce GTX560
0|1|1|Видеокарты
1|2|1|Видеокарты NVIDIA

В примере 0 у автора иерархия получилась вполне нормальная
Видеокарты
- Видеокарты НВИДИА
- - GeForce GTX560

(28) Ясно, досвиданье. Попробовать смотрю ума не хватает

(29)
В примере да, но выход из рекурсии задавать все-таки надо.
Тем более в свете (14)

Точнее в свете (28)

(31) Блин и это после 7 лет на форуме

(33)
Еще раз. Что твой алгоритм выдаст на ТЗ
1/2
2/1

(34) Выдаст ровно ничего, нет точки отсчета - нет верхнего уровня. Такая иерархия висит в воздухе и смысла не имеет.

(35) Алгоритм в (12) не работает в моём случае. Если не веришь, могу дать исходную ТЗ.

(36) В твоем случае ДНК не работает. С алгоритмом все отлично.

(37) Эээ. Ты полегче. Умей конструктивно вести диалог и чужой ДНК не трогай, работай над своим. Еще раз посмотри в (36). Таблицу давать????

(38) Давай посмотрим на твой уникальный случай

Секунду..

Вот например, выдрал характерный кусок. Родителя 2644 кстати не существует. Что выдаст твой алгоритм? Что будешь подавать на вход? Алгоритм из (14) выдаст две корневые группы, хотя должна быть одна, а уже в ней другая.
ЭтоГруппа    РодительИД    Идентификатор    ВнешнееНаименование
Да    2 598    2 649    0Асtrahan2
Да    2 644    2 598    0АСtrahan
Нет    2 598    2 597    0АСTRA_01
Нет    2 649    7 875    0АСTRA_RS_LC_14
Нет    2 649    7 932    0АСTRA_АСГ_3
Нет    2 649    2 650    0АСTRA_АСГ_2
Нет    2 649    2 651    0АСTRA_АСГ_1

(41) Где точка входа ? Какая код родителя соотвествует группе максимального уровня или может нужно ли его сначала рассчитать ?

Код в (12) красивый. Хоть и не рабочий. Мне кажется, он прирзван продемонстрировать идею, а не использоваться тупым копипастом.

+(41) Если код несуществующего кода родителя и соотвествует верхнему уровню тогда РазвернутьТЗ(ТЗ, ДЗ, 2644);

СтрокиУровня = ТЗ.НайтиСтроки(Новый Структура("КодРодителя", 0<<Тут по идее должен быть УровеньРодителя>>));

(45) О точно, не заметил !

(45) Спасибо Азерноту, первый осмысленно оценил алгоритм и заметил явную очепятку. Итого:
Процедура РазвернутьТЗ(ТЗ, Коллекция, УровеньРодителя)
   СтрокиУровня = ТЗ.НайтиСтроки(Новый Структура("КодРодителя", УровеньРодителя));
   Для каждого Стр из СтрокиУровня Цикл
       НоваяВетко = Коллекция.Строки.Добавить();
       ЗаполнитьЗначенияСвойств(НоваяВетко, Стр);
       РазвернутьТЗ(ТЗ, НоваяВетко, Стр.КодЭлемента);
   КонецЦикла;
КонецПроцедуры

(47) Ну и как справедливо замечено в (23) ситуация, когда данные нкеорректны и родителем элемента явялется элемент, сам в свою очередь являющийся родителем первого элемента, данный код уйдёт в глухую рекурсию.

(48) В ТОЧКУ!

Кроме того точки входа просто нет. Фрагмент таблицы, который я привёл, полностью автономный.

(48) В (23) автор кода не предложил точку входа. Не будет глухой рекурсии с заданной точкой входа даже для замкнутых элементов.

(50) Так а рассчитать что мешает ?

(50) В этом случае, тебе сначала нужно найти все строки, родителей которых нет в исходной ТЗ и сделать их строками дерева 1-го уровня.

(51) Хотя нет - все же с кривой точкой входа глухая все же будет. Однако тут тогда будет вопрос к тому кто подал некорректного родителя на вход.

+(54) Путем несложных махинаций можно перестраховаться от замкнутых элементов с подачей кривого родителя в кольце:


Процедура РазвернутьТЗ(ТЗ, Коллекция, УровеньРодителя)
   СтрокиУровня = ТЗ.НайтиСтроки(Новый Структура("КодРодителя, Использован", УровеньРодителя, Ложь));
   Для каждого Стр из СтрокиУровня Цикл
Стр.Использован = Истина;
       НоваяВетко = Коллекция.Строки.Добавить();
       ЗаполнитьЗначенияСвойств(НоваяВетко, Стр);
       РазвернутьТЗ(ТЗ, НоваяВетко, Стр.КодЭлемента);
   КонецЦикла;
КонецПроцедуры


ТЗ.Колонки.Добавить("Использован", Новый ОписаниеТипов("Булево"));
ТЗ.Индексы.Добавить("КодРодителя, Использован");

РазвернутьТЗ(ТЗ, ДЗ, 0);

Всем спасибо! Чуть допилил для универсальности и получилось что-то такое:


&НаСервере
Процедура РазвернутьТЗ(ТЗ, Коллекция, УровеньРодителя=0,Структура, КлючСвязи)
   Структура.Использован=Ложь;
   Структура[КлючСвязи]=УровеньРодителя;
   СтрокиУровня = ТЗ.НайтиСтроки(Структура);
   Для каждого Стр из СтрокиУровня Цикл
       Стр.Использован = Истина;
       НоваяВетко = Коллекция.Строки.Добавить();
       ЗаполнитьЗначенияСвойств(НоваяВетко, Стр);
       РазвернутьТЗ(ТЗ, НоваяВетко, Стр.Идентификатор, Структура, КлючСвязи);
   КонецЦикла;
КонецПроцедуры

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


\\ВЫЗОВ
ТаблицаВДерево(ТаблицаЗначений, ДеревоЗначений, "Идентификатор","РодительИД");

(56) Ты наверно так задумывал
СтруктураОтбора=Новый Структура(КлючПоля);

Ага. Всё верно. Ошибочка закралась.

Спасибо.

(59) С точки зрения эстетики этот код лучше смотрится:


&НаСервере
Процедура РазвернутьТЗ(ТЗ, Коллекция, Структура, КлючСвязи, КлючПоля)
   СтрокиУровня = ТЗ.НайтиСтроки(Структура);
   Для каждого Стр из СтрокиУровня Цикл
       Стр.Использован = Истина;
       Структура[КлючСвязи] = Стр[КлючПоля];
       НоваяВетко = Коллекция.Строки.Добавить();
       ЗаполнитьЗначенияСвойств(НоваяВетко, Стр);
       РазвернутьТЗ(ТЗ, НоваяВетко, Структура, КлючСвязи, КлючПоля);
   КонецЦикла;
КонецПроцедуры

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


\\ВЫЗОВ
ТаблицаВДерево(ТаблицаЗначений, ДеревоЗначений, "Идентификатор","РодительИД");

(60) с точки зрения эстетики нужно получать плоскую таблицу запросом в СКД со всеми необходимыми для нужной группировки в дерево дополнительными полями и потом верти деревяхи как буратина мальвину до упаду, а подобные (60) алгоритмы да хороши, но я хачу канструктор и хачу чтобы в нем открылся запрос и мне плевать на эститику если этого нет

Согласен. Такой код более читаемый. По производительности правда не сравнивал, что будет предпочтительнее, но наверно тоже самое.

(61) А пример в студию? Человек в (60) готовый кусок кода привёл. Что касается СКД, то что-то я пример реализации подобной задачи на СКД так и не нашёл.

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

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

На счет параметризации согласен. Хотя запрос маленький и всё видно. Вот когда запрос страниц на 5, а там еще 5-6 вставок, вот где жесть и "добрые" слова, когда его конструктором пытешся пнуть.
Если уже говорить о СКД, то интересует пример построения дерева на основе плоской таблицы типа(1) только средствами СКД. Вот тут например есть нечто похожее, давно еще читал, но еще не разбирался http://nashe1c.ru/materials-view.jsp?id=362

(65) и чо там разбираться - прочитать до диагонали и все понятно.

дальше все советы платные, ибо ты ленив не в меру)

(61) Тащить за собой воз СКД ради собственной иерархии лениво и не вижу особой целесообразности.

(65) Тебе метод по ссылке не подойдет - он заточен под ограниченную глубиной иерархии. Почитай "Разработку сложных отчетов" Хрусталевой, раздел вывода собственной иерархии.

(66) Что-то не убедил. Если я ленив не в меру, то ты жаден не в меру, либо всего вероятнее еще более ленив.
Пока солидарен с (67).
(68) Да, действитель, я уже это просёк. С неограниченным уровнем иерархии будет сложнее. У Хрусталёвой действительно что-то такое читал, но по-моему там тоже не совсем то было, надо посмотреть...