Проблема в следующем. При выписке требования-накладной на передачу материала в производство программа не дает печатать требование, если оно не проведено(т.к. при проведении считается цена материала). Однако теперь требуется, чтобы требования выписывали не те, кто получает материалы, а работники склада. Но, поскольку фин.директор может и не подписать требование, то возникла необходимость печати требования БЕЗ его предварительного проведения, чтобы не делать лищнюю работу по отмене проведения.
Я попытался решить проблеиу следующим образом. Если требование непроведено, то я в начле процедуры печати его провожу, а затем (после того, как выполнил все нужные действия) снова делаю его непроведенным.
Но... Провестись требование проводится, а отмена проведения не проходит.
ПОЧЕМУ???
Вот, собственно, сама процедура. Подскажите, что в ней не так.
Процедура Печать()
Рез = 0;
Если Проведен() = 0 Тогда
Рез = Вопрос("Вы ДЕЙСТВИТЕЛЬНО хотите напечатать НЕпроведенный документ?",4);
//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Если Рез = 6 Тогда
Провести();//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Иначе
Возврат;
КонецЕсли;
КонецЕсли;
Таб = СоздатьОбъект("Таблица");
Таб.ВывестиСекцию("Шапка");
Оп = Операция;
Оп.ВыбратьПроводки();
Ном = 1;
Пока Оп.ПолучитьПроводку() = 1 Цикл
Если оп.кредит.счет = СчетПоКоду("Мат") тогда
Ном = Ном + 1;
_материал = Оп.Кредит.Материалы;
_количество = Оп.Количество;
Сумма = Оп.Сумма;
Цена = ?(Количество=0,0,Окр(Сумма/Количество,2));
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;
//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Если Рез = 6 Тогда
Сделатьнепроведенным();//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
КонецЕсли;
Таб.ВывестиСекцию("Подвал");
Таб.Опции(0,0,0,0,"ОпцииПечатиТр");
Таб.Показать("Требование");
КонецПроцедуры