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