Печать QR кода

8 Comments

1. proger1c81 13.07.2016 at 09:28

   какой логин и пароль к ftp://91.191.229.2/ ?

   Reply ↓
2. asdfgcom 10.09.2016 at 11:29

   Слабовато описание…
   
   УТ 10.3?
   
   Код открыт?
   
   Скачаю, в понедельник проверю на Штрих Мини, с доработкой под печать 2-мерных ШК.

   Reply ↓
3. asdfgcom 11.09.2016 at 16:56

   (4) asdfgcom, Отвечу сам себе.
   
   Код полностью открыт.
   
   УТ 10.3 — как раз для нее и для розницы в.1. В рознице 2 и так, вроде, печатает.
   
   В качестве драйвера используется не «AddIn.DrvFR1C» а стандартный «AddIn.DrvFR» в новых версиях которого реализована команда непосредственной печати 2D штрихкода.

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

   Вроде, должно работать!
   
   Спасибо Автору за работу! У меня рука не поднималась ради одного клиента с Штрих-Мини перелопатить всю обработку обслуживания.

   Reply ↓
4. asdfgcom 14.09.2016 at 10:46

   Модуль обработки строка 276
   
   Ошибка:
   

   // Функция осуществляет подключение устройства.
   // (API v2.0)
   //
   // Параметры:
   //  Объект                         — <*>
   //                                 — Объект драйвера торгового оборудования.
   //
   // Возвращаемое значение:
   //  <ПеречислениеСсылка.ТООшибки*> — Результат работы функции.
   //
   Функция Подключить(Объект) Экспорт
   
   Результат = мНетОшибки;
   
   Объект.Драйвер.ДобавитьЛУ();
   Объект.Драйвер.Password         = Объект.Параметры.ПарольПользователя;
   Объект.ИДУстройства    = Объект.Драйвер.НомерЛУ;
   Объект.Драйвер.ИмяЛУ            = Объект.Модель;
   Объект.Драйвер.COMПортЛУ        = Объект.Параметры.Порт;
   Объект.Драйвер.СкоростьОбменаЛУ = Объект.Параметры.Скорость;
   Объект.Драйвер.ТаймаутЛУ        = Объект.Параметры.Таймаут;
   
   Объект.Драйвер.ComNumber        = Объект.Параметры.Порт;
   //Здесь задано значение скорости аппарата равное 115200
   // Объект.Драйвер.BaudRate         = 6;
   //Если скорость иная, то следует указать таким образом:
   Объект.Драйвер.BaudRate         = Объект.Параметры.Скорость;
   
   Объект.Драйвер.Timeout         = Объект.Параметры.Таймаут;
   

   Показать

   В моем случае скорость равнялась 3 (19200) и обработка выдавала ошибку при подключении:
   
   «Закончилась или оборвана чековая лента.»

   Reply ↓
5. asdfgcom 14.09.2016 at 11:25

   Попробуем «доточить» до версии УТ 10.3.32.1 и выше.
   

   Функция ОткрытьЧек(Объект, Пароль, ЭтоВозврат, НомерЧека, НомерСмены) Экспорт
   

   Не хватает параметра фискальности документа. Должно быть так:
   

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

   Далее попробуем научить печатать нефискальные документы. (На руках аппарат клиента, не хочется проверяя регистрировать суммы)

   Reply ↓
6. asdfgcom 14.09.2016 at 18:28

   Некорректная ширина ленты для модели Штрих-мини-ФР-К.
   
   Исправить так, чтобы печатал ширину 50 символов.

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

   Reply ↓
7. asdfgcom 14.09.2016 at 18:56

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

   Reply ↓
8. Strange Device 03.07.2018 at 14:09

   А на современных драйверах печать штрихкода работает? А то на девятых Атоллах не работает, то, что работало на 8-ых 🙁

   Reply ↓