1cпредприятие 7.70.027. Конфигурация Торговля и склад 7.70.101 beta, Разработчик конфигурации Lexoftech 2006.
Не могу найти форму печати фискального чека прро, нужно обновить данные фирмы. Подскажите пожалуйста если сталкивались с настройкой таких вещей. Заранее благодарен.
denis84 @ 11.11.22, 15:15 Теперь не могу найти форму печати фискального чека прро, нужно обновить данные фирмы. Подскажите пожалуйста если сталкивались с настройкой таких вещей.
denis84 @ Сегодня, 8:33
, Ошибка ушла, похоже я делал изменения в базе с не открытым периодом. Сейчас сразу открыл период и начал редактировать, вроде ошибок пока нет.
Еще вопросик возник, если не трудно, подскажите как редактировать шапку печатной формы. Сами формы похоже встроены в базу, отдельно я их не нашел. Спасибо за ответы!
Фирма.ИспользоватьДату(ДатаДок,1); Таб.ВывестиСекцию("Шапка"); Ном = 1; ВСоставе = 0; ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл Если Набор.Выбран()=1 Тогда Если ПустоеЗначение(ВСоставе)=1 Тогда Таб.ВывестиСекцию("ВСоставе"); ВСоставе=Набор; ИначеЕсли ВСоставе<>Набор Тогда Таб.ВывестиСекцию("ВСоставе"); ВСоставе=Набор; КонецЕсли; Иначе Если ПустоеЗначение(ВСоставе)=0 Тогда ВСоставе=0; КонецЕсли; КонецЕсли; //beg******ALEX 23.06.2006 //ПечЦена = глФРМ(глПересчет(ЦенаБезНДС,Валюта,Курс,ВП,ДатаДок),ВП,0); //ПечСумма = глФРМ(глПересчет(СуммаБезСкидки,Валюта,Курс,ВП,ДатаДок),ВП,0); //Таб.ВывестиСекцию("Строка"); //Ном = Ном+1; мояСкидка = глПересчет(СуммаСкидки,Валюта,Курс,ВП,ДатаДок); ПечЦена = глФРМ(глПересчет(ЦенаБезНДС,Валюта,Курс,ВП,ДатаДок) - (мояСкидка / Количество),ВП,0); ПечСумма = глФРМ(глПересчет(СуммаБезСкидки,Валюта,Курс,ВП,ДатаДок) - мояСкидка,ВП,0); Таб.ВывестиСекцию("Строка"); Ном = Ном+1; //end******ALEX 23.06.2006 КонецЦикла; //beg******ALEX 23.06.2006 //Если Итог("СуммаСкидки")<>0 Тогда // ПечСкидка = глФРМ(глПересчет(Итог("СуммаСкидки"),Валюта,Курс,ВП,ДатаДок),ВП,0); // Таб.ВывестиСекцию("Скидка"); //КонецЕсли; //end******ALEX 23.06.2006 ПечБезНДС = глФРМ(глПересчет(Итог("СуммаБезНДС"),Валюта,Курс,ВП,ДатаДок),ВП,0); ПечНДС = глФРМ(глПересчет(Итог("СуммаСНДС") - Итог("СуммаБезНДС"),Валюта,Курс,ВП,ДатаДок),ВП,0); ПечСНДС = глФРМ(глПересчет(Итог("СуммаСНДС"),Валюта,Курс,ВП,ДатаДок),ВП,0); ПечНДСПропись = " "+Формат(глПересчет(Итог("СуммаСНДС") - Итог("СуммаБезНДС"),Валюта,Курс,ВП,ДатаДок),"Ч12.2")+" "+ВП.Кратко; ПечСНДСПропись = глСуммаПрописью(глПересчет(Итог("СуммаСНДС"),Валюта,Курс,ВП,ДатаДок),ВП); ПечБезНДСПропись = глСуммаПрописью(глПересчет(Итог("СуммаБезНДС"),Валюта,Курс,ВП,ДатаДок),ВП); Таб.ВывестиСекцию("Дно"); Если БыстраяПечать = 1 Тогда Таб.ПараметрыСтраницы(,,,,,,,,,1,,); Таб.КоличествоЭкземпляров(Константа.ПечКолЭкзНакладнойПриБыстройПродаже); Таб.Напечатать(глОтладка); Иначе Таб.Защита(Константа.ФлагЗащитыТаблиц); Таб.ТолькоПросмотр(1); Таб.Опции(0,0,,); //beg******ALEX 23.06.2006 //Таб.Показать("ПЕЧАТЬ: Расходная накладная",""); Если ИмяТабл = "Накладная" Тогда Таб.Показать("ПЕЧАТЬ: Расходная накладная",""); ИначеЕсли ИмяТабл = "Акт" Тогда Таб.Показать("ПЕЧАТЬ: Акт выполненных работ",""); Иначе Таб.Показать("ПЕЧАТЬ: Гарантийный талон",""); КонецЕсли; //end******ALEX 23.06.2006 КонецЕсли; КонецПроцедуры
// =============================== Процедура Печать(БыстраяПечать=0) Варианы= СоздатьОбъект("СписокЗначений"); Варианы.ДобавитьЗначение("накладной"); Варианы.ДобавитьЗначение("акта выполненных работ"); Варианы.ДобавитьЗначение("гарантийного талона"); Варианы.ДобавитьЗначение("товарного чека"); Результат = 0; Если Варианы.ВыбратьЗначение(,,Результат,,1)=1 Тогда Если Результат = 1 Тогда ПечатьНАГ(БыстраяПечать,"Накладная") ИначеЕсли Результат = 2 Тогда ПечатьНАГ(БыстраяПечать,"Акт") ИначеЕсли Результат = 3 Тогда ПечатьНАГ(БыстраяПечать,"Гарантия") ИначеЕсли Результат = 4 Тогда ПечатьНАГ(БыстраяПечать,"Товарный чек") КонецЕсли; КонецЕсли;
denis84 @ Вчера, 20:56
, Форма печати открывалась до открытия нового периода. Как только открыл сразу перестала. Интересно что теперь подключаю эту базу с не открытым периодом а ошибка остается.
1cпредприятие 7.70.027. Конфигурация Торговля и склад 7.70.101 beta, Разработчик конфигурации Lexoftech 2006. Когда перенес базу на другой компьютер, после открытия периода перестал печататься товарный чек, сразу выдает ошибку "Файл товарный чек не найден". После в окне сообщений пишет "Таб.ИсходнаяТаблица(ПечФорма);{Документ.РасходнаяНакладная.Форма.Модуль(693)}: Неверное имя Товарный чеку Подскажите пожалуйста в чем причина и как с этим побороться.
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!