Внешняя библиотека для формирования и отправки XML-файлов розничных
чеков на УТМ ЕГАИС с распечаткой слипа с QR-кодом на ПТК

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

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

или здесь:

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

Пример использования библиотеки: функция отправляет на УТМ одну еденицу алкоголя, и получает данные для печати 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 здесь:

Внимание!

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

как-то так