Используя метаданные и возможность объединения запросов:
|
1 2 3 4 5 6 7 |
Запрос=Новый Запрос; Текст=""; Для Каждого Документ Из Метаданные.Документы Цикл Текст=Текст+"ВЫБРАТЬ Ссылка ИЗ Документ."+Документ.Имя+" ОБЪЕДИНИТЬ "; КонецЦикла; Запрос.Текст=Лев(Текст,СтрДлина(Текст)-СтрДлина(" ОБЪЕДИНИТЬ ")); Выборка=Запрос.Выполнить().Выбрать(); |
Пример от Ненавижу 1С
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
ТекстЗапроса = ""; Для каждого Вид Из Метаданные.Документы Цикл Если ТекстЗапроса<>"" Тогда ТекстЗапроса=ТекстЗапроса+" |ОБЪЕДИНИТЬ ВСЕ"; КонецЕсли; ТекстЗапроса = ТекстЗапроса+" |ВЫБРАТЬ Ссылка |ИЗ Документ."+Вид.Имя; КонецЦикла; Запрос = Новый Запрос(ТекстЗапроса); Выборка = Запрос.Выполнить().Выбрать(); Пока Выборка.Следующий() Цикл Сообщить(Выборка.Ссылка); КонецЦикла; |
About the Author
