ПодчДокументы = "";
ДокПодч = СоздатьОбъект("Документ");
Если ДокПодч.ВыбратьПодчиненныеДокументы(,,ВашДокумент) = 1 тогда
Пока ДокПодч.ПолучитьДокумент() = 1 Цикл
ДокПодч.СнятьПометкуУдаления();
КонецЦикла;
КонецЕсли;