Коллеги, всем доброго дня.

Задача: вытянуть из удаленной базы иеррахический справочник, не потеряв при этом иерархию.
В голову приходит только рекурсия выборки по родителю.
Может быть, есть варианты проще, а я их не знаю?

=) ну и хрен с ним... рекурсия так рекурсия

Для того, чтобы не потерять иерархию, достаточно вытянуть родителя.

Или ты хочешь по ссылкам вытаскивать только используемые элементы и их родителей, а не весь справочник?

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

Можно одним пакетом с временными таблицами и объединением.

а тупо в выборке указать по иерархии?

Хм... Я почему-то сразу решил, что речь не об 1С.

(6) +1

(6) запрос выполняется в OLE, возвращается таблица с данными простых типов. Выгружаются только наименования элементов. Как тут указать "по иерархии" ?

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

(9) ну, поле наименование родителя?

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


ВЫБРАТЬ
    Номенклатура.Ссылка КАК Ссылка
ИЗ
    Справочник.Номенклатура КАК Номенклатура
ГДЕ
    Номенклатура.Ссылка = &Ссылка
ИТОГИ ПО Номенклатура.Ссылка ИЕРАРХИЯ


(13) может так?

ВЫБРАТЬ
    Номенклатура.Родитель.Код,
    Номенклатура.Родитель.Наименование,
    Номенклатура.Код,
    Номенклатура.Наименование,
    Номенклатура.ЭтоГруппа
ИЗ
    Справочник.Номенклатура КАК Номенклатура

УПОРЯДОЧИТЬ ПО
    Номенклатура.Ссылка ИЕРАРХИЯ

(14) с фильтром по товару не взлетит

(15) с чего бы?

(15) и где у ТСа про фильтр?

(16) проверь
(17) см (10)

(18) про несколько баз вижу, про то что из этих баз выбирается что то хоть убей не вижу

(13) еще раз, выгружаю через ОЛЕ, ссылка не канает, выборка не канает. Только выгрузка в таблицу значений. Если запрос с итогами, то выгрузятся дополнительно строки с итогами. Потом эту таблицу в сводном запросе как обрабатывать?

Может быть, есть смысл в постообработке запроса в удаленной базе, чтобы засунуть в итоговую таблицу уровень элемента...

(20) не впиливаешь
как ты "рекурсию по родителю" (0) будешь делать без ссылки? ))

(20)

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


(21) ссылка которая будет везде COMObject? Много она ему поможет

(23) еще 1 не впиливает

(24) поясни с учетом (23)

ссылка она и есть ссылка хоть ком, хоть обычная - получай реквизиты, используй в фильтрах, ...

метаданные в цикле получи куда-нить в ТЗ, потом будет понятно что используется чего вообще в другой базе нет

(26) а вон ты про что, что тянуть все через ссылку? нах тогда Запрос?

Тогда
Выборка = Справочники.Номенклатура.ВыбратьИерархически... и епись с ними...

выгружать все сразу
родитель - это ссылка по гуиду
потом родитель когда загрузится он проставится

(29) /родитель - это ссылка по гуиду /

что есть гуид, в запросе?

(26) Возможно, при выборке из одной базы такой вариант прокатит...

(26) Если собрать ТЗ из нескольких баз, потом засунуть ее в обобщающий запрос, то таблица с колонкой типа "COMОбъект" просто туда не полезет...

(21) Если получу Уровень элемента, то построить иерархическое дерево не такая уж большая проблема.

(32) а какую ты хочешь построить иерархию, если
товар1 есть в базе А, но его нет в базе Б
товар2 есть в базе Б, но его нет в базе А

В моем случае иерархия по справочнику будет после группировки по организациям - это раз. Справочники идентичны - это два.

(32) Выгрузи ТЗ в строку и загрузи на стороне COM

СериализаторXDTO.ЗаписатьXML(

ВнСоед.СериализаторXDTO.ПрочитатьXML

v8: Можно ли так.COMConnector в приемнике вывести таб док источника

"Справочники идентичны" = совпадают УИДы?

(34) И какая тут связь с иерархией? пока не понял...
(38) нет, УИДы разные. Давай забудем про идентичность справочников, а то предложишь иерерхию построить по справочнику из основной базы, а из удаленных через соединение выстроить =)

(34) = (36)

В общем, попробую как-нибудь ссылку выгрузить, посмотрю, что там за иерархия получится...

(40) Так собери данные в ТЗ и использую ее в Запросе. Для того, что бы передать эту ТЗ в COM передавай её как строку

(42) Ничего не понял, пошел курить XDTO...

(42) Либо как тут многие используют ЗначениеВСтрокуВнутр
ЗначениеИзСтрокиВнутр

Но XDTO знать надо т.к. внутри 1С используют XML сериализацию и например для ТЗ написано

Сериализуется. Данный объект может быть сериализован в/из XDTO. Тип XDTO, соответствующий данному объекту, определяется в пространстве имен {http://v8.1c.ru/8.1/data/core}. Имя типа XDTO: ValueTable.

(43) чем (22) не подходит?

(45) при таком подходе, как я понимаю, надо строго следить за сортировкой результата. Если, не дай бог, пересортировал, то метод не работает, а значит он ненадежный. Конечно, информация о родителе останется, но, чтобы построить иерархию придется проанализировать, всю таблицу - кто там кому родитель и на каком уровне...

(45) таблицу можно и без XDTO получить. Не понял, как при такой передаче можно сохранить иерархию. Как уже посмеялись в (21) иерархию без ссылки штатно не восстановить.

(47) У тебя должно же быть ключевое поле

(48) что ты имеешь ввиду под ключевым полем и как оно поможет?

(46) почему это? сортируй как хочешь, но вот загружать начинай с тех где родитель код/наимменование пустые, потом тех, для кого они являются родителями и т.д.

(49) Код, Ссылка, уникальный реквизит.
Делаешь соединение по справочнику

(51) какая Ссылка через КОМ?

(49) как ты понимаешь что товар1 в Базе1 это товар2 в Базе2?
как сопоставляешь? по наименованию / коду / ...?

(52) Легко, если базы синхронизируются по ссылке и имеют одинаковое наименование справочников можно обмениваться ТЗ через строку где полем будет являться "СправочникСсылка.ХХХ

(54) откуда в запросе через КОМ получишь "СправочникСсылка.ХХХ"???

(55) Если выгружу запрос в ТЗ а тз сериализую в строку и обратно  из строки десериализую.

(49) так на "коленке":


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

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


(57) поиск существующих, сам добавить думаю сможешь, если нужно

(57) про...еп:

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

(53) допустим по коду
(54) базы не синхронизируются по ссылке
(58) это я понял, примерно такое решение изначально и пришло в голову. Только пустых родителей нет, т.к. я не выгребаю весь справочник, а лишь небольшую часть. Но в целом работает.

(60) как это пустых нет, если иерархия вплоть до корня справочника то все равно самый верхний уровень будет иметь пустого родителя

Коллеги, я предлагаю тему зарыть. Решение в принципе есть, похоже на (57).
Насчет ссылок, XDTO и прочего - я как-нибудь обязательно попробую!
Спасибо участвующим!

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

(62) Попробуй. Соединиться со справочником с тз по Коду и
УПОРЯДОЧИТЬ ПО Номенклатура.Ссылка ИЕРАРХИЯ самый простой способ