Вид оплаты кредит отражается в фискальном отчете как плата картой
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Раньше было только два вида оплаты в обработке обслуживания фискального регистратора, либо нал, либо безнал. Если ничего не поменялось, то надо переписывать обработку практически целиком, т.к. придётся создавать другой объект драйвера с другими полями, функциями и т.д.
Вы совсем-то человека не пугайте:)
Действительно, стандартный драйвер 1С поддерживает только два вида оплаты: нал и безнал.
Но данная тема много раз поднималась ранее, на примере тех же бонусных баллов.
В свое время было скопипастено с мисты, кажется:
Действительно, стандартный драйвер 1С поддерживает только два вида оплаты: нал и безнал.
Но данная тема много раз поднималась ранее, на примере тех же бонусных баллов.
В свое время было скопипастено с мисты, кажется:
Функция ЗакрытьЧек(Объект, СуммаНал, СуммаБезнал, СуммаБонусов, МассивСтрокБонусы = Неопределено) Экспорт
Попытка
ПрогИД = "AddIn.FPrnM45";
//ПодключитьВнешнююКомпоненту(ПрогИД);
Драйвер = Новый (ПрогИД);
Исключение
Попытка
ПодключитьВнешнююКомпоненту(ПрогИД);
Драйвер = Новый (ПрогИД);
Исключение
Результат = мОшибкаЗагрузкиДрайвера;
ОписаниеОшибки = "Невозможно подключить внешнюю компоненту AddIn.FPrnM45.
| Попытайтесь зарегистрировать драйвер ККМ FprnM1C.dll в системе
| командой regsvr32.";
Сообщить(ОписаниеОшибки);
Возврат Результат;
КонецПопытки;
КонецПопытки;
Результат = мНетОшибки;
Ответ = 0;
Если СуммаНал > 0 Тогда
Драйвер.Summ = СуммаНал;
Драйвер.TypeClose = 0;
Драйвер.Payment();
Ответ = Драйвер.Результат;
КонецЕсли;
Если Ответ = 0 Тогда
Если СуммаБезнал > 0 Тогда
Драйвер.Summ = СуммаБезнал;
Драйвер.TypeClose = 1;
Драйвер.Payment();
Ответ = Драйвер.Результат;
КонецЕсли;
КонецЕсли;
Если Ответ = 0 Тогда
Если СуммаБонусов > 0 Тогда
Драйвер.Summ = СуммаБонусов;
Драйвер.TypeClose = 2;
Драйвер.Payment();
Ответ = Драйвер.Результат;
КонецЕсли;
КонецЕсли;
Если МассивСтрокБонусы <> Неопределено Тогда
Сообщить(МассивСтрокБонусы[0]);
Сообщить(МассивСтрокБонусы[1]);
НапечататьСтроки(Объект, МассивСтрокБонусы, 80);
КонецЕсли;
Если Ответ = 0 Тогда
Драйвер.CloseCheck(); // Закрыть чек
КонецЕсли;
Если Ответ = 0 Тогда
//Объект.Удалить("ЭтоВозврат");
Иначе
Результат = мОшибкаНеизвестно;
Объект.ОписаниеОшибки = Драйвер.ОписаниеРезультата;
ОтменитьЧек(Объект);
КонецЕсли;
Возврат Результат;
КонецФункции // ЗакрытьЧек()
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот