Печать требования

"Проблема в следующем. При выписке требования-накладной на передачу материала в производство программа не дает печатать требование, если оно не проведено(т.к. при проведении считается цена материала). Однако теперь требуется, чтобы требования выписывали не те, кто получает материалы, а работники склада. Но, поскольку фин.директор может и не подписать требование, то возникла необходимость печати требования БЕЗ его предварительного проведения, чтобы не делать лищнюю работу по отмене проведения.

Я попытался решить проблеиу следующим образом. Если требование непроведено, то я в начле процедуры печати его провожу, а затем (после того, как выполнил все нужные действия) снова делаю его непроведенным.

Но... Провестись требование проводится, а отмена проведения не проходит.

ПОЧЕМУ???



Вот, собственно, сама процедура. Подскажите, что в ней не так.



Процедура Печать()

Рез = 0;

Если Проведен() = 0 Тогда

Рез = Вопрос("Вы ДЕЙСТВИТЕЛЬНО хотите напечатать НЕпроведенный документ?",4);

//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Если Рез = 6 Тогда

Провести();//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Иначе

Возврат;

КонецЕсли;

КонецЕсли;

Таб = СоздатьОбъект("Таблица");

Таб.ВывестиСекцию("Шапка");

Оп = Операция;

Оп.ВыбратьПроводки();

Ном = 1;

Пока Оп.ПолучитьПроводку() = 1 Цикл

Если оп.кредит.счет = СчетПоКоду("Мат") тогда

Ном = Ном + 1;

_материал = Оп.Кредит.Материалы;

_количество = Оп.Количество;

Сумма = Оп.Сумма;

Цена = ?(Количество=0,0,Окр(Сумма/Количество,2));

Таб.ВывестиСекцию("Строка");

КонецЕсли;

КонецЦикла;                

//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Если Рез = 6 Тогда

Сделатьнепроведенным();//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

КонецЕсли;

Таб.ВывестиСекцию("Подвал");

Таб.Опции(0,0,0,0,"ОпцииПечатиТр");

Таб.Показать("Требование");

КонецПроцедуры

"

"Сделатьнепроведенным();//

Метод может применяться ТОЛЬКО для объектов,созданных функцией

СоздатьОбъект()."