Получить подчиненные документы

• БП 2.0

• БП 3.0

&НаСервереБезКонтекстаФункция ПолучитьПодчиненныеДокументы(ТекущийДокумент)

РезультатФункции = Новый Массив; Если Метаданные.КритерииОтбора.СвязанныеДокументы.Тип.СодержитТип(ТипЗнч(ТекущийДокумент)) Тогда

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

КонецФункции