v7: 1С БУП Печать чека

В документе Реализация материалов пытаюсь сделать печать чека как в приходном ордере. При печать чека пишет : Фискальный регистратор: ошибка при печати чека
Неверное количество и на чеке  пишет чек аннулирован. Вот процедура
Процедура ПечатьЧека()
    Если НомерЧекаККМ <> 0 Тогда
        Предупреждение("Чек уже пробит на фискальном регистраторе!",60);
        Возврат;
    ИначеЕсли глФРВкл=0 Тогда
        Предупреждение("Фискальный регистратор не подключен!",60);
        Возврат;
    ИначеЕсли (УчитыватьНП=1) и (СтавкаНП.Ставка<>0) Тогда
        Предупреждение("Чтобы распечатать чек на фискальном регистраторе" + РазделительСтрок +
                       "необходимо, чтобы ставка НП была равна 0!",60);
        Возврат;
    ИначеЕсли ПометкаУдаления()=1 Тогда
        Предупреждение("Документ помечен на удаление, поэтому" + РазделительСтрок +
                       "нельзя пробить чек на фискальном регистраторе!",60);
        Возврат;
    ИначеЕсли Проведен()=0 Тогда
        Если Вопрос("Провести документ и пробить чек на фискальном регистраторе?","Да+Нет")="Нет" Тогда
            Возврат;
        КонецЕсли;
        Попытка
            Записать();
            Провести();
        Исключение
            Возврат;
        КонецПопытки;
        Если Проведен()=0 Тогда
            Возврат;
        КонецЕсли;
    ИначеЕсли Модифицированность()=1 Тогда
        Если Вопрос("Сохранить документ и пробить чек на фискальном регистраторе?","Да+Нет")="Нет" Тогда
            Возврат;
        КонецЕсли;
        Попытка
            Записать();
        Исключение
            Возврат;
        КонецПопытки;
    КонецЕсли;

    Список = СоздатьОбъект("ТаблицаЗначений");
    Список.НоваяКолонка("ТовНаим"   , "Строка");
    Список.НоваяКолонка("Цена"      , "Число");
    Список.НоваяКолонка("Количество", "Число");
    Список.НоваяКолонка("НДС"       , "Число");

    ВыбратьСтроки();
    СуммаЧека = 0;
    Пока ПолучитьСтроку() = 1 Цикл
        Список.НоваяСтрока();
        Список.ТовНаим = Товар;
        Список.Цена = Цена;
        Список.НДС = СтавкаНДС.Ставка;
        СуммаЧека = СуммаЧека + Сумма;
    КонецЦикла;

    Получено          = СуммаЧека;
    Скидка            = 0;
    ПризнВозврата     = 0;
    НомерСекции       = 1;
    НомерЧека         = 0;

    Если глФРПечататьЧек(Список, СуммаЧека, Получено, Скидка, ПризнВозврата, НомерСекции, НомерЧека) = 1 Тогда
        НомерЧекаККМ = ?(НомерЧека = 0, -1, НомерЧека);
        ПриЗаписиПерепроводить(0);
        Записать();
        ПриЗаписиПерепроводить(1);
    КонецЕсли;

КонецПроцедуры

Помогите разобраться