Имя: Пароль:
1C
1C 7.7
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
Понять бы что это за цифры и как сделать чтобы выводилось название товара.