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