PS Документы все либо проведены, либо записаны. Помеченных на удаление нет, поэтому проверка на исключение удаленных не проводится !
Процедура УстРН()
ЧР = Формат(06,"Ч2.0");
МР = Формат(10,"Ч2.0");
СР = Формат(00,"Ч2.0");
Фирм=СоздатьОбъект("Справочник.Фирмы");
Рн=СоздатьОбъект("Документ.Т_РасходнаяНакладная");
РН.ВыбратьДокументы(Дата1,Дата2);
Пока РН.ПолучитьДокумент()=1 цикл
Если (РН.Проведен()=1) тогда
Продолжить;
КонецЕсли;
// РН.УстановитьВремя(06,10,00);
РН.УстановитьВремя(ЧР,МР,СР);
РН.Фирма=Константа.БазФирма;
РН.ВидНДС=Константа.БазНДС;
РН.Склад=Константа.ОсновнойСклад;
РН.ВидТары=Перечисление.ВидыТары.Покупная;
РН.Записать();
РН.Провести();
Сообщить ("Проведена"+ " "+РН+" "+РН.Контрагент);
СР=СР+10;
КонецЦикла;
КонецПроцедуры //УстРН()