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