gifts2017

Печать QR кода

Опубликовал Алексей Палтусов (Paltusov) в раздел Оборудование - Фискальный регистратор

Печать QR кода на фискальных регистраторах компании Штрих-М

Использовать только драйвер 4.12.439, все остальные драйвера создают нагрузку на процессор компьютера 100% (ошибка разработчика Штрих-М).

Поддерживаются ФР:

  • ШТРИХ-950-К;
  • ШТРИХ-КОМБО-ФР-К;
  • ШТРИХ-МИНИ-ФР-К;
  • ШТРИХ-ФР-К;
  • ШТРИХ-М-ФР-К;
  • ШТРИХ-КИОСК-ФР-К;
  • ЭЛВЕС-ФР-К;
  • ШТРИХ-LIGHT-ФР-К;
  • ШТРИХ-ФР-Ф исп.03;
  • ШТРИХ-МИНИ-ПТК.

Для переделанных ФР, например Штрих-ФР-К, необходимо выбрать в настройке "Печатать двухмерный штрихкод как графику". Для ПТК - "Загружать и печать двумерный штрихкод."

Скачать файлы

Наименование Файл Версия Размер
Обработка 15
.epf 35,12Kb
06.07.16
15
.epf 35,12Kb Скачать

См. также

Подписаться Добавить вознаграждение
Комментарии
3. Александр Омельянов (proger1c81) 13.07.16 09:28
4. Евгений Абдуразаков (asdfgcom) 10.09.16 11:29
Слабовато описание...
УТ 10.3?
Код открыт?
Скачаю, в понедельник проверю на Штрих Мини, с доработкой под печать 2-мерных ШК.
5. Евгений Абдуразаков (asdfgcom) 11.09.16 16:56
(4) asdfgcom, Отвечу сам себе.
Код полностью открыт.
УТ 10.3 - как раз для нее и для розницы в.1. В рознице 2 и так, вроде, печатает.
В качестве драйвера используется не "AddIn.DrvFR1C" а стандартный "AddIn.DrvFR" в новых версиях которого реализована команда непосредственной печати 2D штрихкода.

Объект.Драйвер.LoadAndPrint2DBarcode()

Вроде, должно работать!
Спасибо Автору за работу! У меня рука не поднималась ради одного клиента с Штрих-Мини перелопатить всю обработку обслуживания.
6. Евгений Абдуразаков (asdfgcom) 14.09.16 10:46
Модуль обработки строка 276
Ошибка:
// Функция осуществляет подключение устройства.
// (API v2.0)
//
// Параметры:
//  Объект                         - <*>
//                                 - Объект драйвера торгового оборудования.
//
// Возвращаемое значение:
//  <ПеречислениеСсылка.ТООшибки*> - Результат работы функции.
//
Функция Подключить(Объект) Экспорт

	Результат = мНетОшибки;

	Объект.Драйвер.ДобавитьЛУ();
	Объект.Драйвер.Password         = Объект.Параметры.ПарольПользователя;
	Объект.ИДУстройства 			= Объект.Драйвер.НомерЛУ;
	Объект.Драйвер.ИмяЛУ            = Объект.Модель;
	Объект.Драйвер.COMПортЛУ        = Объект.Параметры.Порт;
	Объект.Драйвер.СкоростьОбменаЛУ = Объект.Параметры.Скорость;
	Объект.Драйвер.ТаймаутЛУ        = Объект.Параметры.Таймаут;
	
	Объект.Драйвер.ComNumber        = Объект.Параметры.Порт;
//Здесь задано значение скорости аппарата равное 115200
//	Объект.Драйвер.BaudRate        	= 6;	
//Если скорость иная, то следует указать таким образом:
        Объект.Драйвер.BaudRate        	= Объект.Параметры.Скорость;

	Объект.Драйвер.Timeout        	= Объект.Параметры.Таймаут;
...Показать Скрыть

В моем случае скорость равнялась 3 (19200) и обработка выдавала ошибку при подключении:
"Закончилась или оборвана чековая лента."
7. Евгений Абдуразаков (asdfgcom) 14.09.16 11:25
Попробуем "доточить" до версии УТ 10.3.32.1 и выше.
Функция ОткрытьЧек(Объект, Пароль, ЭтоВозврат, НомерЧека, НомерСмены) Экспорт

Не хватает параметра фискальности документа. Должно быть так:
Функция ОткрытьЧек(Объект, Пароль, ЭтоВозврат, НомерЧека, НомерСмены, ФискальныйЧек = Истина) Экспорт


Далее попробуем научить печатать нефискальные документы. (На руках аппарат клиента, не хочется проверяя регистрировать суммы)
8. Евгений Абдуразаков (asdfgcom) 14.09.16 18:28
Некорректная ширина ленты для модели Штрих-мини-ФР-К.
Исправить так, чтобы печатал ширину 50 символов.

			ИначеЕсли Модель = 7 Тогда
			Ширина = 50;

9. Евгений Абдуразаков (asdfgcom) 14.09.16 18:56
Подтверждаю. Реально работает! Немного подшлифовать пришлось для новой УТшки.
Печатает даже на аппарате не поддерживающем печать QRCode без его доработки под ЕГАИС через графику. Задержка QRCode в графике 2-3 секунды на скорости 19200.
Автору спасибо.
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа