Вид оплаты кредит отражается в фискальном отчете как плата картой

1. Alex3691 07.08.15 08:52 Сейчас в теме
Сейчас кредит запустили. И даже продажа в кредит на чеке ККМ отражается. Но только у драйвера фискальника есть "кредит", а 1С сваливает весь безнал на вариант банковскую карту.
Как исправить?
По теме из базы знаний
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. vdenu 07.08.15 09:07 Сейчас в теме
Раньше было только два вида оплаты в обработке обслуживания фискального регистратора, либо нал, либо безнал. Если ничего не поменялось, то надо переписывать обработку практически целиком, т.к. придётся создавать другой объект драйвера с другими полями, функциями и т.д.
3. CnupT 70 07.08.15 09:33 Сейчас в теме
Вы совсем-то человека не пугайте:)
Действительно, стандартный драйвер 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 Тогда
		//Объект.Удалить("ЭтоВозврат");
	Иначе
		Результат = мОшибкаНеизвестно;
		Объект.ОписаниеОшибки = Драйвер.ОписаниеРезультата;
		ОтменитьЧек(Объект);
	КонецЕсли;
	
	Возврат Результат;
				
КонецФункции // ЗакрытьЧек()
Показать
4. Alex3691 07.08.15 16:54 Сейчас в теме
(3) CnupT, я так понимаю, эту функцию еще редактировать надо для работы с кредитами.
А после таких вмешательств проблем с обновлениями не будет?
5. vdenu 07.08.15 17:32 Сейчас в теме
(4) Alex3691, вам ещё и 1С вероятно придётся править, т.е. все те места, которые в программе вызывают ЗакрытьЧек(), а на обновлении это безусловно скажется, но с другой стороны, а зачем вообще обновлять Розницу?
6. Alex3691 07.08.15 18:00 Сейчас в теме
(5) vdenu, вот если в новой версии это исправят, надо будет обновиться)
7. vdenu 10.08.15 16:33 Сейчас в теме
Не исправят никогда. )
8. Horoshaya 30.09.15 20:36 Сейчас в теме
Действительно не могу понять как вносить операции по кредитным картам, самой тяжело вести бухгалтерию.
9. Mishasik 01.10.15 04:59 Сейчас в теме
У вас платежный терминал к кассе или компьютеру привязан, у меня просто автоматически все настроено, обслуживаюсь в Банке Санкт-Петербург, проблем не было по кредиткам
10. Horoshaya 01.10.15 13:30 Сейчас в теме
У меня все подключено к компьютеру, но с бухгалтерской программой не пересекаются.
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот