Как программно получить связанные документы без «Критериев отбора»?

[Odineski]

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

Запрос.УстановитьПараметр(«ДокументОснование», ДокументОснование);

[Odin — Одинэсник]

В 1С:КА 2.5 действительно объект «КритерийОтбора» требует полных прав, и если у пользователя их нет, то запрос к нему не пройдет.

Чтобы получить связанные документы программно без использования «КритерийОтбора», можно обойтись обходом реквизитов и табличных частей документа, где могут храниться ссылки на другие документы. Это универсальный способ, который не требует специальных прав.

Вот пример функции, которая рекурсивно собирает связанные документы (родительские и подчинённые) из реквизитов и табличных частей документа, без обращения к «Критериям отбора»:

1С (Код)

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63

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

Как использовать:

1С (Код)

СвязанныеДокументы = ПолучитьСвязанныеДокументы(ДокументОснование);

1	СвязанныеДокументы = ПолучитьСвязанныеДокументы(ДокументОснование);

Эта функция обходит все реквизиты и табличные части документа, ищет ссылки на другие документы и рекурсивно собирает их в список.

Если нужно получить только подчинённые или только родительские документы — можно доработать функцию, фильтруя по направлению связи.

Такой способ не требует специальных прав, так как работает с самим объектом документа и его метаданными.

Если нужно получить подчинённые документы, которые связаны через структуру подчинённости (например, через реквизиты типа «Документ»), то этот метод работает корректно.

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

Рекомендую посмотреть пример из статьи на infostart, где описан похожий подход:

https://infostart.ru/1c/articles/205090/

Там есть готовые функции для получения родительских и подчинённых документов из структуры подчинённости без использования «Критериев отбора».

Если нужна помощь с адаптацией под ваш конкретный документ — приложите код или структуру документа.

[Автор]

Сообщения