0
DenisVich
08.08.17
✎
19:31
|
Здравствуйте столкнулся с такой проблемой. Штрихм онлайн распределяет сумму чека пополам. Т.е. если пробили 100 рублей, то 50 рублей у нас наличными, 50 картой. в коде кроме как . Вот что в коде:
Объект.CheckType = 0;//Продажа
Процедура ПродажаЧекШтрих(НомерПоз, Цена,Количество,Название) Экспорт;
ФискальныйРегистраторОбъект.Password=30;
ФискальныйРегистраторОбъект.Quantity=Количество;
ФискальныйРегистраторОбъект.Price=Цена;
//ФискальныйРегистраторОбъект.Department=Секция;
ФискальныйРегистраторОбъект.StringForPrinting=Строка(НомерПоз)+". "+Название;
ФискальныйРегистраторОбъект.Sale();
ОтветДрайвера();
КонецПроцедуры
Процедура ЗакрытьЧекПоКарте(Сумма,ПечатьСтроки) Экспорт
ФискальныйРегистраторОбъект.Password=30;
ФискальныйРегистраторОбъект.Summ4=Сумма;
ФискальныйРегистраторОбъект.StringForPrinting=ПечатьСтроки;
ФискальныйРегистраторОбъект.CloseCheck();
ОтветДрайвера();
КонецПроцедуры
Функция ОтветДрайвера() Экспорт;
//НеПечататьЧек=0;
ResultCode=ФискальныйРегистраторОбъект.ResultCode;
ОшибкаПараметра=ФискальныйРегистраторОбъект.ResultCodeDescription;
Если (СокрЛП(Строка(ОшибкаПараметра))<>"Ошибок нет")
ИЛИ (СокрЛП(ОшибкаПараметра)="Нет связи") Тогда
Предупреждение("Штрих "+Строка(ОшибкаПараметра),10,"Сообщение от фискального регистратора");
Иначе
КонецЕсли;
Возврат ОшибкаПараметра;
КонецФункции
|
|