Сообщения без ответов | Активные темы Текущее время: Пн дек 09, 2019 3:29 am



Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней.  [ Сообщений: 32 ]  На страницу Пред.  1, 2, 3  След.
Печать QR code в ФР Ярус 01К 
Автор Сообщение
Новичок

Зарегистрирован: Пт апр 24, 2009 12:28 pm
Сообщения: 98
Откуда: Штрих-М
Сообщение Re: Печать QR code в ФР Ярус 01К
stoi писал(а):
Цитата:
BlockType
ТипБлокаДанных
Тип: Integer / Целое
Свойство используется методом LoadBlockData.



Добрый день! Была действительно обнаружена проблема при печати методом LoadAndPrint2DBarcode для модели Retail-01K. В ближайшее время будет выложен рабочий драйвер.
По поводу кодировки. Лучше всего использовать UTF-8:
Код:
  DriverFR := TDrvFR.Create(nil);
  try
    DriverFR.BarcodeType := 3;
    DriverFR.BarcodeStartBlockNumber := 0;
    DriverFR.BarCode := AnsiToUtf8('Привет!');
    DriverFR.BarcodeAlignment := 0;
    DriverFR.BarcodeParameter1 := 0;
    DriverFR.BarcodeParameter2 := 0;
    DriverFR.BarcodeParameter3 := 5;
    DriverFR.BarcodeParameter4 := 0;
    DriverFR.BarcodeParameter5 := 0;
    DriverFR.BarcodeFirstLine := 0;

    DriverFR.LoadAndPrint2DBarcode;
    ShowMessage(DriverFR.ResultCodeDescription);
  finally
    DriverFR.F ree;
  end;


Цитата:
А какие бывают типы, и что они значат?

На данный момент это свойство может принимать только нулевое значение.


Вт дек 22, 2015 7:04 pm
Профиль
Новичок
Аватара пользователя

Зарегистрирован: Чт май 17, 2007 11:14 am
Сообщения: 63
Откуда: 1С-Рарус
Сообщение Re: Печать QR code в ФР Ярус 01К
Цитата:
LoadAndPrint2DBarcode для модели Retail-01K

Я использую ФР Штрих-М-ПТК - то же самое ((
Или это - общая проблема в драйвере ФР?

_________________
С уважением, Стовпец Игорь,
Департамент разработки,
Внедренческий центр "1С-Рарус"
+7 (495) 223-0404


Вт дек 22, 2015 7:26 pm
Профиль WWW
Новичок

Зарегистрирован: Пт апр 24, 2009 12:28 pm
Сообщения: 98
Откуда: Штрих-М
Сообщение Re: Печать QR code в ФР Ярус 01К
stoi писал(а):
Цитата:
LoadAndPrint2DBarcode для модели Retail-01K

Я использую ФР Штрих-М-ПТК - то же самое ((
Или это - общая проблема в драйвере ФР?

А можете в тесте драйвера посмотреть "Запросы" - "Параметры модели"
Должна быть такая строка: "59. Поддержка печати 2D штрихкода : 1"
У Вас там 1 или 0 стоит?


Вт дек 22, 2015 7:49 pm
Профиль
Новичок
Аватара пользователя

Зарегистрирован: Чт май 17, 2007 11:14 am
Сообщения: 63
Откуда: 1С-Рарус
Сообщение Re: Печать QR code в ФР Ярус 01К
Посмотрю.
Но командой Print2DBarcode (без Load) - QR код печатается.
ПТК свежий совсем. Специально брали под тестирование с ЕГАИС

_________________
С уважением, Стовпец Игорь,
Департамент разработки,
Внедренческий центр "1С-Рарус"
+7 (495) 223-0404


Вт дек 22, 2015 7:54 pm
Профиль WWW
Новичок

Зарегистрирован: Пт апр 24, 2009 12:28 pm
Сообщения: 98
Откуда: Штрих-М
Сообщение Re: Печать QR code в ФР Ярус 01К
stoi писал(а):
Посмотрю.
Но командой Print2DBarcode (без Load) - QR код печатается.
ПТК свежий совсем. Специально брали под тестирование с ЕГАИС

Сейчас нету под рукой аппарата, но правильность работы зависит от этого параметра "Поддержка печати 2D штрихкода"
В зависимости от того, что возвращается, будем решать, как исправлять.


Вт дек 22, 2015 7:58 pm
Профиль
Новичок
Аватара пользователя

Зарегистрирован: Чт май 17, 2007 11:14 am
Сообщения: 63
Откуда: 1С-Рарус
Сообщение Re: Печать QR code в ФР Ярус 01К
59. Поддержка печати 2D штрихкода : 0
ШТРИХ-М-ПТК № 020913
----------------------------------------
Версия ПО : A.4
Сборка ПО : 40263
Дата ПО : 05.07.2013

При этом, с закладки 2D штрихкод - QR-код печатается!
Также он печатается командой Print2DBarcode. Правда русские символы потом при считывании сканером - не распознаются.
а LoadAndPrint2DBarcode всегда выдает ошибку - "некорректные параметры команды"

ФР был получен от вас буквально неделю назад, новый совершенно.

_________________
С уважением, Стовпец Игорь,
Департамент разработки,
Внедренческий центр "1С-Рарус"
+7 (495) 223-0404


Ср дек 23, 2015 5:39 pm
Профиль WWW
Новичок
Аватара пользователя

Зарегистрирован: Чт май 17, 2007 11:14 am
Сообщения: 63
Откуда: 1С-Рарус
Сообщение Re: Печать QR code в ФР Ярус 01К
Специально заказывал новый ФР. А у него получается - старая прошивка ((((
Бардак...

_________________
С уважением, Стовпец Игорь,
Департамент разработки,
Внедренческий центр "1С-Рарус"
+7 (495) 223-0404


Ср дек 23, 2015 5:40 pm
Профиль WWW
Новичок

Зарегистрирован: Пт апр 24, 2009 12:28 pm
Сообщения: 98
Откуда: Штрих-М
Сообщение Re: Печать QR code в ФР Ярус 01К
stoi писал(а):
59. Поддержка печати 2D штрихкода : 0
ШТРИХ-М-ПТК № 020913
----------------------------------------
Версия ПО : A.4
Сборка ПО : 40263
Дата ПО : 05.07.2013

При этом, с закладки 2D штрихкод - QR-код печатается!
Также он печатается командой Print2DBarcode. Правда русские символы потом при считывании сканером - не распознаются.
а LoadAndPrint2DBarcode всегда выдает ошибку - "некорректные параметры команды"

ФР был получен от вас буквально неделю назад, новый совершенно.


Будем разбираться. Попробую решить эту проблему средствами драйвера.
Распознаваемость сиволов зависит от того, какую кодировку поддерживает сканер. Скажем, смартфоны не распознают Win-1251. Наиболее универсальный способ - работать с кодировкой UTF-8


Пт дек 25, 2015 9:09 pm
Профиль
Новичок
Аватара пользователя

Зарегистрирован: Чт май 17, 2007 11:14 am
Сообщения: 63
Откуда: 1С-Рарус
Сообщение Re: Печать QR code в ФР Ярус 01К
stoi писал(а):
Наиболее универсальный способ - работать с кодировкой UTF-8

Я всё пробовал.
Этот же сканер прекрасно читает QR-коды с русским текстом, напечатанные ФР Атол

_________________
С уважением, Стовпец Игорь,
Департамент разработки,
Внедренческий центр "1С-Рарус"
+7 (495) 223-0404


Сб дек 26, 2015 2:02 pm
Профиль WWW
Новичок

Зарегистрирован: Пт апр 24, 2009 12:28 pm
Сообщения: 98
Откуда: Штрих-М
Сообщение Re: Печать QR code в ФР Ярус 01К
Добрый день! В драйвере ФР была исправлена ошибка, теперь он должен корректно работать с ШТРИХ-М-ПТК при печати QR Code. В ближайшее время драйвер будет выложен


Пн дек 28, 2015 6:12 pm
Профиль
Новичок
Аватара пользователя

Зарегистрирован: Чт май 17, 2007 11:14 am
Сообщения: 63
Откуда: 1С-Рарус
Сообщение Re: Печать QR code в ФР Ярус 01К
Спасибо!

_________________
С уважением, Стовпец Игорь,
Департамент разработки,
Внедренческий центр "1С-Рарус"
+7 (495) 223-0404


Пн дек 28, 2015 7:22 pm
Профиль WWW
Постоянный участник
Аватара пользователя

Зарегистрирован: Пт май 19, 2006 6:26 pm
Сообщения: 10424
Откуда: Штрих-М
Сообщение Re: Печать QR code в ФР Ярус 01К
Исправленная версия драйвера 4.12.422: ftp://ftp.shtrih-m.ru/download/FR/Software/Drivers/

_________________
С уважением, Селихов Дмитрий Юрьевич
Инженер технической поддержки ЗАО "Штрих-М"
mailto: support@shtrih-m.ru
тел. (495) 787-60-96
ВНИМАНИЕ:
Работает Официальный Интернет-Магазин от компании Штрих-М
Shels-m.ru


Вт дек 29, 2015 9:37 am
Профиль
Постоянный участник
Аватара пользователя

Зарегистрирован: Пт май 19, 2006 6:26 pm
Сообщения: 10424
Откуда: Штрих-М
Сообщение Re: Печать QR code в ФР Ярус 01К
Клиент просил запостить.
Текст письма:
Цитата:
Спасибо за документацию - всё получилось

Во вложении пример кода на VisualBasic для печати QR
Залейте пожалуйста куда-нибудь на форум, может кому пригодится
(у ШТРИХов печать QR на порядок сложнее чем у АТОЛов)

Текст вложения:
Цитата:
Sub PrintQRcodeEgais_(bar As String)
Dim i, j As Byte
Dim DataHex As String
Const size As Byte = 128
On Error Resume Next
DataHex = Trim(TextToHex(bar))
i = 1
j = 0
Do 'загрузка блоков данных по 128 байт
OleFP.BlockType = 0
OleFP.BlockNumber = j
OleFP.BlockDataHex = Mid(DataHex, i, size)
OleFP.Password = 30
fp = OleFP.LoadBlockData()
If OleFP.ResultCode <> 0 Then MsgBox "LoadBlockData: " + OleFP.ResultCodeDescription
i = i + size
j = j + 1
Loop While Len(Mid(DataHex, i, size)) > 0
'------------------------------
OleFP.Password = 30
fp = OleFP.OpenNonFiscalDocument()
OleFP.UseReceiptRibbon = True
OleFP.UseJournalRibbon = False
OleFP.StringForPrinting = ""
fp = OleFP.PrintString()
OleFP.StringForPrinting = " Тest QR-code:"
fp = OleFP.PrintString()
'------------------------------
OleFP.BarcodeType = 3
OleFP.BarcodeDataLength = Len(DataHex) / 2
OleFP.BarcodeStartBlockNumber = 0
OleFP.BarcodeParameter1 = 0
OleFP.BarcodeParameter2 = 0
OleFP.BarcodeParameter3 = 8
OleFP.BarcodeParameter4 = 0
OleFP.BarcodeParameter5 = 0
OleFP.BarcodeAlignment = 0
OleFP.Password = 30
fp = OleFP.Print2DBarcode()
If OleFP.ResultCode <> 0 Then MsgBox "Print2DBarcode: " + OleFP.ResultCodeDescription
'------------------------------
For i = 1 To 3
OleFP.StringForPrinting = ""
fp = OleFP.PrintString()
Next
fp = OleFP.CloseNonFiscalDocument()
End Sub

Private Function TextToHex(ByVal strText As String) As String ' © BV (Boris Vorontsov, borisbox@mail.ru)
Dim strOut As String
Dim strTmp As String
Dim i As Long
On Error GoTo Error:
For i = 1 To Len(strText)
strTmp = Hex$(Asc(Mid$(strText, i, 1)))
strOut = strOut & IIf(Len(strTmp) = 1, "0" & strTmp, strTmp)
Next i
TextToHex = Trim$(strOut)
Error:
If Err.Number <> 0 Then
MsgBox Err.Description, vbOKOnly Or vbCritical Or vbApplicationModal, "Error #" & Err.Number
End If
End Function


_________________
С уважением, Селихов Дмитрий Юрьевич
Инженер технической поддержки ЗАО "Штрих-М"
mailto: support@shtrih-m.ru
тел. (495) 787-60-96
ВНИМАНИЕ:
Работает Официальный Интернет-Магазин от компании Штрих-М
Shels-m.ru


Пт фев 12, 2016 10:09 am
Профиль
Новичок

Зарегистрирован: Пт янв 22, 2016 9:34 pm
Сообщения: 8
Сообщение Re: Печать QR code в ФР Ярус 01К
Код на VB6 для печати QRкода:

Sub PrintQRcodeEgais_(bar As String)
Dim i, j As Byte
Dim DataHex As String
Const size As Byte = 128
On Error Resume Next
DataHex = Trim(TextToHex(bar))
i = 1
j = 0
Do 'загрузка блоков данных по 128 байт
OleFP.BlockType = 0
OleFP.BlockNumber = j
OleFP.BlockDataHex = Mid(DataHex, i, size)
OleFP.Password = 30
fp = OleFP.LoadBlockData()
If OleFP.ResultCode <> 0 Then MsgBox "LoadBlockData: " + OleFP.ResultCodeDescription
i = i + size
j = j + 1
Loop While Len(Mid(DataHex, i, size)) > 0
'------------------------------
OleFP.Password = 30
fp = OleFP.OpenNonFiscalDocument()
OleFP.UseReceiptRibbon = True 
OleFP.UseJournalRibbon = False 
OleFP.StringForPrinting = ""
fp = OleFP.PrintString()
OleFP.StringForPrinting = " Тest QR-code:"
fp = OleFP.PrintString()
'------------------------------
OleFP.BarcodeType = 3 
OleFP.BarcodeDataLength = Len(DataHex) / 2
OleFP.BarcodeStartBlockNumber = 0
OleFP.BarcodeParameter1 = 0
OleFP.BarcodeParameter2 = 0
OleFP.BarcodeParameter3 = 8 
OleFP.BarcodeParameter4 = 0
OleFP.BarcodeParameter5 = 0
OleFP.BarcodeAlignment = 0
OleFP.Password = 30
fp = OleFP.Print2DBarcode()
If OleFP.ResultCode <> 0 Then MsgBox "Print2DBarcode: " + OleFP.ResultCodeDescription
'------------------------------
For i = 1 To 3
OleFP.StringForPrinting = ""
fp = OleFP.PrintString()
Next
fp = OleFP.CloseNonFiscalDocument()
End Sub

Private Function TextToHex(ByVal strText As String) As String ' © BV (Boris Vorontsov,borisbox@mail.ru)
Dim strOut As String
Dim strTmp As String
Dim i As Long
On Error GoTo Error:
For i = 1 To Len(strText)
strTmp = Hex$(Asc(Mid$(strText, i, 1)))
strOut = strOut & IIf(Len(strTmp) = 1, "0" & strTmp, strTmp)
Next i
TextToHex = Trim$(strOut)
Error:
If Err.Number <> 0 Then
MsgBox Err.Description, vbOKOnly Or vbCritical Or vbApplicationModal, "Error #" & Err.Number
End If
End Function


Пт фев 12, 2016 5:46 pm
Профиль
Новичок

Зарегистрирован: Пт янв 22, 2016 9:34 pm
Сообщения: 8
Сообщение Re: Печать QR code в ФР Ярус 01К
Внешняя библиотека для формирования и отправки XML-файлов розничных
чеков на УТМ ЕГАИС с распечаткой слипа с QR-кодом на ПТК


Назначение: формирование и отправка XML-файлов в УТМ алкогольных и пивных чеков с помощью штатного объекта "MSXML2.ServerXMLHTTP" (без использования утилиты "cUrl") и , при поступлении ответа от УТМ, распечатка слипа с QR-кодом на ПТК, или получение XML-файла квитанции ответа УТМ для дальнейшего самостоятельного формирования слипа с QR-кодом Внешней Программой. Методы библиотеки позволяют также распечатывать слип с QR-кодом и из Внешней Программы.

дистрибутив для свободного распространения.
описание здесь: viewtopic.php?f=20&t=31862

Александр Мельников © 2016


Сб мар 12, 2016 12:38 pm
Профиль
Показать сообщения за:  Поле сортировки  
Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней.   [ Сообщений: 32 ]  На страницу Пред.  1, 2, 3  След.

Кто сейчас на конференции

Сейчас этот форум просматривают: Google [Bot] и гости: 19


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Designed by STSoftware for PTF.
Русская поддержка phpBB