Сообщения без ответов | Активные темы Текущее время: Чт мар 28, 2024 8:11 pm



Ответить на тему  [ Сообщений: 3 ] 
dll для отправки XML-файлов в УТМ с ответной распеч. QR-чека 
Автор Сообщение
Новичок

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


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

дистрибутив для свободного распространения: http://minimarket.at.ua/new/egais.zip

или здесь:
Вложение:
Комментарий к файлу: дистрибутив
egais.zip [176.54 КБ]
Скачиваний: 650


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


Последний раз редактировалось alessand Пн фев 29, 2016 8:30 pm, всего редактировалось 1 раз.



Пн фев 29, 2016 7:16 pm
Профиль
Новичок

Зарегистрирован: Пт янв 22, 2016 9:34 pm
Сообщения: 8
Сообщение Re: dll для отправки XML-файлов в УТМ с ответной распеч. QR-
Пример использования библиотеки: функция отправляет на УТМ одну еденицу алкоголя, и получает данные для печати QR-слипа

Function EgaisOK(ByVal pdf, price, ean, num, smn As String) As Boolean
'pdf - штрихкод марки
'ean - товарный штрихкод
'price - цена в формате "125.00"
'num - номер чека
'smn - номер смены
Dim Egais As Object
Dim Doc As Object
Dim Bar As String
Dim Kep As String
Dim XMLstr As String
Dim Tov() As String

Set Egais = CreateObject("RRC_EgaisDll.RRC_Egais") 'подключаемся к .DLL

ReDim Tov(0, 0 To 3)
Tov(0, 0) = "Bottle" 'массив Tov() содержит всего 1 строку алкоголя
Tov(0, 1) = pdf
Tov(0, 2) = price
Tov(0, 3) = ean

XMLstr = Egais.QueryRetail_(smn, num, "", Tov()) 'отправляем данные и ответ записываем в XMLstr

Set Doc = CreateObject("MSXML2.DOMDocument")
Doc.loadXML (XMLstr) 'загружаем XMLstr в DOMDocument и извлекаем:
Bar = Doc.documentElement.childNodes.Item(0).Text 'ссылку для QR-кода
Kep = Doc.documentElement.childNodes.Item(1).Text 'отпечаток КЭП
Set Doc = Nothing

If Egais.PrintType_(0) = True Then 'если печать QR-слипа в .DLL отключена
Egais.PrintQRsleep_(Bar, Kep, smn, num, "") 'то можно отправить на печать QR-слип
End If
Set Egais = Nothing
EgaisOK = True
End Function


описание .dll здесь:


Вложения:
описание_dll.zip [130.32 КБ]
Скачиваний: 525
Пн фев 29, 2016 8:27 pm
Профиль
Новичок

Зарегистрирован: Пт янв 22, 2016 9:34 pm
Сообщения: 8
Сообщение Re: dll для отправки XML-файлов в УТМ с ответной распеч. QR-
Внимание!

Объект DrvFR 4.12 (драйвер Штрих-ПТК), к сожалению, не даёт возможности для одновременного к нему подключения нескольких программ (при попытке двойного подключения получаем сообщение от него "Нет связи")
Поэтому если объект DrvFR 4.12 в данный момент уже открыт в Вашей Кассовой программе (для печати фискальных чеков) , то попытка открыть его ещё раз с помощью RRC_EgaisDll (для печати QR-слипа) потерпит неудачу.
Следовательно Вам придётся либо всякий раз разрушать и создавать объекты заново, либо организовать печать QR-слипа непосредственно из Вашей Кассовой программы самостоятельно (используя данные, возвращаемые RRC_EgaisDll от УТМ).

как-то так


Пн апр 18, 2016 8:44 pm
Профиль
Показать сообщения за:  Поле сортировки  
Ответить на тему   [ Сообщений: 3 ] 

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


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

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