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