СправочникМенеджер.<Имя справочника>.ВыбратьПоСсылкам

Обойти дерево товаров и выбрать только существующие ссылки

Проверяем, что каждая группа прочитана перед своими товарами и уровни равны 0/1. Затем массив содержит две действительные ссылки, строку и собственную ссылку без записи.

Подготовка

1. Создайте НОВУЮ пустую файловую базу на точной платформе 8.5.1.1343. Имя конфигурации УчебныеВыборкиКаталога85, совместимость НеИспользовать. Это не копия рабочих УТ/КА/УНФ/БП; исходные конфигурации и рабочие базы не трогайте. Здесь код не запускался: runtimeVerifiedScenarios=0.

2. Создайте единственный справочник УчебныеТовары: иерархия групп и элементов, владельцы не назначены, предопределенных данных нет, код Строка длиной 10, автонумерация выключена, контроль уникальности включён, наименование длиной 100. Других объектов хранения данных не добавляйте.

3. Добавьте единственный реквизит Артикул: Строка длиной 20, использование для групп и элементов, Индексировать. Индекс обязателен для отбора Выбрать по этому реквизиту. Табличных частей нет. Модули справочника/менеджера, подписки, регламентные задания, разделители и расширения должны быть пустыми/отсутствовать.

4. Создайте два неглобальных общих модуля: УчебныйКаталог85 и УчебныеПримерыКаталога85, Сервер=Да, клиентские флаги=Нет, Вызов сервера=Да, привилегированный режим=Нет. В первый вставьте полный общий модуль подготовки ниже; во второй — полный основной код только одного выбранного урока. Не склеивайте разные процедуры ВыполнитьПример.

5. Создайте собственную обработку УчебныйПульт85, управляемую форму Пульт, команду Выполнить и кнопку этой команды. В модуль формы вставьте полный отдельный модуль запуска ниже и назначьте действие команды Выполнить. Обновите конфигурацию базы, проверьте F7; до запуска вручную сверяйте настройки справочника.

6. Данные создаёт сам урок: G01 Основной и G02 Архив в корне; A01 Книга/BOOK-A и A02 Ручка/PEN-A в Основной; B01 Книга/BOOK-B в Архив. Все пять записей существуют лишь внутри собственной транзакции. При успехе и ошибке выполняется откат; фиксации нет.

7. Будущий ручной запуск вызывает настоящую запись пяти собственных строк в учебной базе до отката. Откат не отменяет внешние действия неизвестных обработчиков, поэтому рабочая конфигурация или её копия здесь недопустима. Запускайте одним пользователем, вне чужой транзакции; существующие данные код не удаляет.

Процедура ВыполнитьПример() Экспорт
    УчебныйКаталог85.ПроверитьСвойСтенд();
    НачатьТранзакцию();
    Попытка
        Данные = УчебныйКаталог85.ПодготовитьСвоиТовары();
        Менеджер = Справочники.УчебныеТовары;
        Посещённые = Новый Соответствие;
        Выборка = Менеджер.ВыбратьИерархически(, , , "Код Возр");
        Пока Выборка.Следующий() Цикл
            Если Не Данные.Свойство(Выборка.Код, ОжидаемаяСсылка) Или Выборка.Ссылка <> ОжидаемаяСсылка
                Или Посещённые.Получить(Выборка.Ссылка) <> Неопределено Тогда
                ВызватьИсключение "Чужая или повторная строка в собственном дереве";
            КонецЕсли;
            Если Выборка.Родитель.Пустая() Тогда
                ОжидаемыйУровень = 0;
            Иначе
                ОжидаемыйУровень = 1;
                Если Посещённые.Получить(Выборка.Родитель) <> Истина Тогда
                    ВызватьИсключение "Потомок прочитан раньше своей группы";
                КонецЕсли;
            КонецЕсли;
            Если Выборка.УровеньВВыборке() <> ОжидаемыйУровень Тогда
                ВызватьИсключение "Неверный уровень своего двухуровневого дерева";
            КонецЕсли;
            Сообщить(Выборка.Код + ": уровень " + Строка(Выборка.УровеньВВыборке()));
            Посещённые.Вставить(Выборка.Ссылка, Истина);
        КонецЦикла;
        Если Посещённые.Количество() <> 5 Тогда
            ВызватьИсключение "Собственное дерево должно содержать пять записей";
        КонецЕсли;
        Источники = Новый Массив;
        Источники.Добавить(Данные.A01);
        Источники.Добавить("BOOK-A — это строка, а не ссылка");
        Источники.Добавить(Данные.A02);
        Несуществующая = Менеджер.ПолучитьСсылку(Новый УникальныйИдентификатор);
        Если Несуществующая.ПолучитьОбъект() <> Неопределено Тогда
            ВызватьИсключение "Для проверки нужна собственная ссылка без записи";
        КонецЕсли;
        Источники.Добавить(Несуществующая);
        ПоСсылкам = Менеджер.ВыбратьПоСсылкам(Источники);
        Найденные = Новый Соответствие;
        Пока ПоСсылкам.Следующий() Цикл
            Если ПоСсылкам.Ссылка <> Данные.A01 И ПоСсылкам.Ссылка <> Данные.A02 Тогда
                ВызватьИсключение "В выборке по ссылкам оказался посторонний объект";
            КонецЕсли;
            Найденные.Вставить(ПоСсылкам.Ссылка, Истина);
        КонецЦикла;
        Если Найденные.Количество() <> 2 Или Найденные.Получить(Данные.A01) <> Истина
            Или Найденные.Получить(Данные.A02) <> Истина Тогда
            ВызватьИсключение "Ожидались ровно две существующие собственные ссылки";
        КонецЕсли;
        ОтменитьТранзакцию();
    Исключение
        Если ТранзакцияАктивна() Тогда
            ОтменитьТранзакцию();
        КонецЕсли;
        ВызватьИсключение;
    КонецПопытки;
    УчебныйКаталог85.ПроверитьОткат(Данные);
    Сообщить("Собственные пять строк отменены; учебный справочник снова пуст");
КонецПроцедуры

Процедура ПроверитьСвойСтенд() Экспорт
    Если Метаданные.Справочники.Количество() <> 1 Или Метаданные.Документы.Количество() <> 0 Или Метаданные.Перечисления.Количество() <> 0 Или Метаданные.РегистрыСведений.Количество() <> 0 Или Метаданные.РегистрыНакопления.Количество() <> 0 Или Метаданные.РегистрыБухгалтерии.Количество() <> 0 Или Метаданные.РегистрыРасчета.Количество() <> 0 Или Метаданные.ПланыВидовХарактеристик.Количество() <> 0 Или Метаданные.ПланыВидовРасчета.Количество() <> 0 Или Метаданные.ПланыСчетов.Количество() <> 0 Или Метаданные.ПланыОбмена.Количество() <> 0 Или Метаданные.Последовательности.Количество() <> 0 Или Метаданные.БизнесПроцессы.Количество() <> 0 Или Метаданные.Задачи.Количество() <> 0 Или Метаданные.ОбщиеРеквизиты.Количество() <> 0 Или Метаданные.ПодпискиНаСобытия.Количество() <> 0 Или Метаданные.РегламентныеЗадания.Количество() <> 0 Или Метаданные.ВнешниеИсточникиДанных.Количество() <> 0 Тогда
        ВызватьИсключение "Нужен только свой новый пустой учебный стенд";
    КонецЕсли;
    Каталог = Метаданные.Справочники[0];
    Если Каталог.Имя <> "УчебныеТовары" Или Не Каталог.Иерархический
        Или Каталог.Реквизиты.Количество() <> 1 Или Каталог.Реквизиты.Найти("Артикул") = Неопределено Тогда
        ВызватьИсключение "Нужен собственный иерархический справочник с единственным реквизитом Артикул";
    КонецЕсли;
    Если Метаданные.ЕстьИзмененияРасширениямиКонфигурации() Тогда
        ВызватьИсключение "Свой сеанс не должен изменяться расширениями";
    КонецЕсли;
    Источники = Новый Массив;
    Источники.Добавить(ИсточникРасширенийКонфигурации.БазаДанных);
    Источники.Добавить(ИсточникРасширенийКонфигурации.СеансАктивные);
    Источники.Добавить(ИсточникРасширенийКонфигурации.СеансОтключенные);
    Для Каждого Источник Из Источники Цикл
        Расширения = РасширенияКонфигурации.Получить(, Источник);
        Если ТипЗнч(Расширения) <> Тип("Массив") Тогда
            ВызватьИсключение "Native список расширений должен иметь тип Массив";
        КонецЕсли;
        Если Расширения.Количество() <> 0 Тогда
            ВызватьИсключение "В своём новом стенде нет расширений базы или сеанса";
        КонецЕсли;
    КонецЦикла;
    Если ТранзакцияАктивна() Тогда
        ВызватьИсключение "Чужая или вложенная активная транзакция не допускается";
    КонецЕсли;
КонецПроцедуры

Функция ПодготовитьСвоиТовары() Экспорт
    Если Не ТранзакцияАктивна() Тогда
        ВызватьИсключение "Подготовка допустима только внутри собственной отменяемой транзакции";
    КонецЕсли;
    ПроверкаПустоты = Справочники.УчебныеТовары.Выбрать();
    Если ПроверкаПустоты.Следующий() Тогда
        ВызватьИсключение "Учебный справочник должен быть пуст; чужие записи не изменяются";
    КонецЕсли;
    Пустая = Справочники.УчебныеТовары.ПустаяСсылка();
    Данные = Новый Структура;
    Данные.Вставить("G01", СоздатьСвоюСтроку("G01", "Основной", "GROUP-A", Пустая, Истина));
    Данные.Вставить("G02", СоздатьСвоюСтроку("G02", "Архив", "GROUP-B", Пустая, Истина));
    Данные.Вставить("A01", СоздатьСвоюСтроку("A01", "Книга", "BOOK-A", Данные.G01, Ложь));
    Данные.Вставить("A02", СоздатьСвоюСтроку("A02", "Ручка", "PEN-A", Данные.G01, Ложь));
    Данные.Вставить("B01", СоздатьСвоюСтроку("B01", "Книга", "BOOK-B", Данные.G02, Ложь));
    Данные.Вставить("Пустая", Пустая);
    Возврат Данные;
КонецФункции

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

Процедура ПроверитьОткат(Данные) Экспорт
    Если ТранзакцияАктивна() Тогда
        ВызватьИсключение "Собственная транзакция не завершена";
    КонецЕсли;
    Для Каждого Имя Из СтрРазделить("G01,G02,A01,A02,B01", ",") Цикл
        Если Данные[Имя].ПолучитьОбъект() <> Неопределено Тогда
            ВызватьИсключение "Собственная запись осталась после отката: " + Имя;
        КонецЕсли;
    КонецЦикла;
    ПроверкаПустоты = Справочники.УчебныеТовары.Выбрать();
    Если ПроверкаПустоты.Следующий() Тогда
        ВызватьИсключение "После отката справочник не пуст";
    КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура Выполнить(Команда)
    ВыполнитьНаСервере();
КонецПроцедуры

&НаСервереБезКонтекста
Процедура ВыполнитьНаСервере()
    УчебныеПримерыКаталога85.ВыполнитьПример();
КонецПроцедуры

Разбор по шагам

1. ВыбратьИерархически обходит потомков каждой группы перед переходом к следующей ветви. На своём наборе проверяем предшествование родителя, а не приписываем общий плоский порядок всему справочнику.

2. УровеньВВыборке имеет смысл только для иерархической выборки. Без отбора родителя свои группы дают 0, их товары 1. Если начать с поддерева, уровень относителен выбранному корню.

3. Соответствие посещённых ссылок обнаруживает повтор и потомка раньше родителя; количество пять подтверждает охват всего подготовленного дерева.

4. ВыбратьПоСсылкам принимает Массив; у него нет колонок, поэтому второй аргумент не задаём. Для ТаблицыЗначений или РезультатаЗапроса можно задать имя/индекс колонки, по умолчанию используется первая.

5. Неподходящая строка и ссылка на несуществующий объект игнорируются самим методом. Ссылку без записи получаем новым UUID и отдельно подтверждаем отсутствие через ПолучитьОбъект.

6. Результат проверяется как набор A01 и A02 через Соответствие. Порядок результата и поведение повторных ссылок контракт здесь не обещает; дубликаты во входе специально не добавлены.

7. Метод ВыбратьПоСсылкам доступен с 8.3.26, поэтому точная 8.5.1.1343 и отключённая совместимость существенны. Завершаем откатом собственного набора.

Как проверить результат

1. Ожидается пять сообщений уровней: G01/G02 имеют 0, A01/A02/B01 имеют 1; каждый товар после своей группы. Не требуйте глобального порядка A01,A02,B01,G01,G02.

2. В наборе по ссылкам только A01/A02; BOOK-A как строка и новый UUID без записи отсутствуют. После отката все пять учебных записей отсутствуют.

3. Для проверки контроля уровня в копии урока поменяйте ожидаемый уровень товара на 2: должно быть исключение и откат. Не меняйте реальное дерево ради прохождения проверки.

Ожидаемый результат

Подготовлены обход дерева с проверкой родителей/уровней и выбор существующих ссылок из смешанного массива. runtimeVerifiedScenarios=0.

На что обратить внимание

1. УровеньВВыборке не следует использовать для плоской Выбрать. Уровень поддерева не всегда совпадает с абсолютным уровнем элемента.

2. Игнорирование ошибочных значений — поведение API, не полноценная валидация входа интеграции. При импорте ошибки входных данных нужно сообщать отдельно.

3. Соответствие в этом уроке проверяет набор результатов, но не доказывает, что метод удаляет дубликаты в любом источнике.

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