Процедура ПроверитьДПД(док)                   
	Проведен = док.Проведен();  
	Удален = док.ПометкаУдаления();
	Если (док.датаДок >= выбДатаОбрезки) тогда
		        НовоеПримечание = "[ОБ-автомат]";
	                Если (Проведен = да) тогда
				док.СделатьНеПроведенным();
			ИначеЕсли (Удален = Да) тогда
				док.СнятьПометкуУдаления();
			КонецЕсли;
			док.Примечание = НовоеПримечание;
			док.Основание = "";     
			док.Записать();
			Если (Удален = да) тогда
				док.Удалить(0);
			ИначеЕсли (Проведен = Да) тогда
				док.Провести(,"обрезка");
			КонецЕсли;
	Иначе
		если (Удален = Нет) тогда
			Если (Проведен = да) тогда
				док.СделатьНеПроведенным();
			КонецЕсли;
			док.Удалить(0);  
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры

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