|
v7: 1С БУП Печать чека | ☑ | ||
---|---|---|---|---|
0
hawk1
20.02.15
✎
10:54
|
В документе Реализация материалов пытаюсь сделать печать чека как в приходном ордере. При печать чека пишет : Фискальный регистратор: ошибка при печати чека
Неверное количество и на чеке пишет чек аннулирован. Вот процедура Процедура ПечатьЧека() Если НомерЧекаККМ <> 0 Тогда Предупреждение("Чек уже пробит на фискальном регистраторе!",60); Возврат; ИначеЕсли глФРВкл=0 Тогда Предупреждение("Фискальный регистратор не подключен!",60); Возврат; ИначеЕсли (УчитыватьНП=1) и (СтавкаНП.Ставка<>0) Тогда Предупреждение("Чтобы распечатать чек на фискальном регистраторе" + РазделительСтрок + "необходимо, чтобы ставка НП была равна 0!",60); Возврат; ИначеЕсли ПометкаУдаления()=1 Тогда Предупреждение("Документ помечен на удаление, поэтому" + РазделительСтрок + "нельзя пробить чек на фискальном регистраторе!",60); Возврат; ИначеЕсли Проведен()=0 Тогда Если Вопрос("Провести документ и пробить чек на фискальном регистраторе?","Да+Нет")="Нет" Тогда Возврат; КонецЕсли; Попытка Записать(); Провести(); Исключение Возврат; КонецПопытки; Если Проведен()=0 Тогда Возврат; КонецЕсли; ИначеЕсли Модифицированность()=1 Тогда Если Вопрос("Сохранить документ и пробить чек на фискальном регистраторе?","Да+Нет")="Нет" Тогда Возврат; КонецЕсли; Попытка Записать(); Исключение Возврат; КонецПопытки; КонецЕсли; Список = СоздатьОбъект("ТаблицаЗначений"); Список.НоваяКолонка("ТовНаим" , "Строка"); Список.НоваяКолонка("Цена" , "Число"); Список.НоваяКолонка("Количество", "Число"); Список.НоваяКолонка("НДС" , "Число"); ВыбратьСтроки(); СуммаЧека = 0; Пока ПолучитьСтроку() = 1 Цикл Список.НоваяСтрока(); Список.ТовНаим = Товар; Список.Цена = Цена; Список.НДС = СтавкаНДС.Ставка; СуммаЧека = СуммаЧека + Сумма; КонецЦикла; Получено = СуммаЧека; Скидка = 0; ПризнВозврата = 0; НомерСекции = 1; НомерЧека = 0; Если глФРПечататьЧек(Список, СуммаЧека, Получено, Скидка, ПризнВозврата, НомерСекции, НомерЧека) = 1 Тогда НомерЧекаККМ = ?(НомерЧека = 0, -1, НомерЧека); ПриЗаписиПерепроводить(0); Записать(); ПриЗаписиПерепроводить(1); КонецЕсли; КонецПроцедуры Помогите разобраться |
|||
1
Ёпрст
20.02.15
✎
11:00
|
(0)
>>>Неверное количество |
|||
2
Ёпрст
20.02.15
✎
11:01
|
ты же в параметрах..нигде количество товара не передаешь вообще
|
|||
3
Ёпрст
20.02.15
✎
11:02
|
так хотя бы, что ле
Список.НоваяСтрока(); Список.ТовНаим = Товар; Список.Количество = Количество; |
|||
4
Svetka
20.02.15
✎
11:16
|
(0)Сообщение Фискальный регистратор: ошибка при печати чека формируется в процедуре: глФРПечататьЧек(),
смотри при каком условии так информирует. |
|||
5
hawk1
24.02.15
✎
11:49
|
С этим разобрался. Теперь там где должно быть наименование товара, выводит какие то непонятные цифры.
|
|||
6
PuhUfa
24.02.15
✎
11:51
|
(5) бывает
|
|||
7
hawk1
24.02.15
✎
12:00
|
Понять бы что это за цифры и как сделать чтобы выводилось название товара.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |