Подскажите, почему не выводится печ.форма...
|
deefm
10.03.2009 - 07:24
|
Здравствуйте, подскажите пожалуйста, где у меня ошибка. Пишу обработку, которая копирует документы из одного месяца и создает их в другом. На форме обработки есть флажок - если он поставлен, то созданные документы - проводятся, если нет - то просто записываются. В конце обработки выходит печатная форма. Так вот, если флажок не поставлен, то печ.форма выводится, а если поставлен, то выходит сообщение об ошибке и печ.форма не создается и не выводится: Таб.ИсходнаяТаблица("Старые"); {C:\обработка.ERT(133)}: Неверное имя Старые Ниже мой текст, помогите разобраться, в чем может быть причина!!! Процедура Сформировать() ТЗ=СоздатьОбъект("Таблицазначений"); ... Символ = "1"; Док = СоздатьОбъект("Документ.ОказаниеУслуг"); Док.ВыбратьДокументы(НачДата, КонДата); Пока Док.ПолучитьДокумент() = 1 Цикл Если (Док.Проведен()=0) ИЛИ (Док.ПометкаУдаления()=1) Тогда Прервать; КонецЕсли; // выбираем только док-ты, у которых НомерДок начинается с 1 Если Лев(Строка(Док.НомерДок),1) = Символ Тогда ТЗ.НоваяСтрока(); ... Док1 = СоздатьОбъект("Документ.ОказаниеУслуг"); Док1.Новый(); Док1.ДатаДок = ДобавитьМесяц(Док.ДатаДок,1); ... Док1.УстановитьНовыйНомер("1"); Док1.Комментарий = "Загружено в автоматическом режиме !!!"; Док1.Записать(); Если Пров=1 Тогда Док1.Провести(); КонецЕсли; Иначе Продолжить; КонецЕсли; КонецЦикла; Если ТЗ.КоличествоСтрок()>0 Тогда Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Старые"); Таб.ВывестиСекцию("Заголовок"); Таб.ВывестиСекцию("Шапка"); ТЗ.ВыбратьСтроки(); Пока ТЗ.ПолучитьСтроку() = 1 Цикл Таб.ВывестиСекцию("Строки"); КонецЦикла; КонецЕсли; КонецПроцедуры |