Не получается пробить программно чек возврата на ФР Атол
Чек на возврат товара решили делать в 1С 7.7 своим кодом командами фискального регистратора.
Названия товаров печатаются, а чек не закрывается.
Не можем понять - где ошибка.
Вот модуль:
Названия товаров печатаются, а чек не закрывается.
Не можем понять - где ошибка.
Вот модуль:
Процедура ПробитьЧек()
// Сверяем сумму с таблицей
Если Итог("СуммаДляЧека")<>Сумма Тогда
Предупреждение("Не сходятся суммы таблицы и вводимая сумма");
КонецЕсли;
FR.DeviceEnabled = 1;
FR.Password = "30";
FR.Mode = 1;
// если есть открытый чек, то отменяем его
Если FR.CheckState <> 0 тогда
Если FR.CancelCheck() <> 0 тогда
Возврат;
КонецЕсли;
КонецЕсли;
// входим в режим регистрации
Если FR.SetMode() <> 0 тогда
Возврат;
КонецЕсли;
FR.CheckType = 2;
FR.OpenCheck();
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
FR.Quantity = КоличествоДляЧека;
FR.Price = ЦенаДляЧека;
FR.Department = 1;
FR.Name = СокрЛП(Товар);
Если FR.Return() <> 0 тогда
Возврат;
КонецЕсли;
КонецЦикла;
Если ПустоеЗначение(ЭлАдресПокупателя) = 0 Тогда
FR.AttrNumber = 1008;
FR.AttrValue = СокрЛП(ЭлАдресПокупателя); // передача почты
FR.WriteAttribute();
КонецЕсли;
FR.Summ = Сумма;
FR.Name = "";
FR.TypeClose = 0;
FR.StornoPayment();
Если FR.CloseCheck() <> 0 тогда
Возврат;
КонецЕсли;
ОтветДрайвера();
ЧекПробит = 1;
ДоступностьКнопкиПробитияЧека();
КонецПроцедуры
ПоказатьПо теме из базы знаний
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот