понедельник, 12 мая 2014 г.

1с 8.2 запрос ко всем документам

Пример запроса КО ВСЕМ НЕ ПОМЕЧЕННЫМ на удаление ДОКУМЕНТАМ

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