В связи с очередным злоебучим (по моему мнению) законом 54-ФЗ пришлось клиентам резко обновлять кассы и выкидывать из своего кармана 40 штук, что бы поменять шило на полноценный анальный зонд.
Я бы да же этому был бы рад из-за возможности заработать на обновлении, но вот что-то радоваться чужому горю вообще не фонтан.
В общем, подключаем приблуду по микро USB (ком-порта у меня в ноуте нет), заходим на оф. сайт, качаем и драйвер «USB VCOM«.
В дальнейшем оттуда нас будет так же интересовать руководство программиста, почитайте.
С драйвером мы будем работать через ActiveX (старовато, ну а херли делать. Радует немного, что Qt поддерживает эту технологию).
Создаём новый проект (у меня консольное приложение), создаём в проекте папку activex, в неё кидаем саму либо. В неё же в дальнейшем сгенерируем заголовочник и исходник.
C:\Projects\KKT-PAYONLINE-01-FA\KKT-PAYONLINE-01-FA\activex
C:\Qt\5.9.2\mingw53_32\bin\dumpcpp DrvFR.dllПути замените на свои. Кстати, в путях не используйте кириллицу. Если есть пробелы, то возьмите в кавычки.
В папке должно появится два файла: «drvfrlib.h» и «drvfrlib.cpp» — они то нам и нужны, добавляем их в проект.
В настройках проекта («*.pro» файле) подключаем пару модулей
QT += axcontainer widgetsОни нам нужны для работы с ActiveX.
Наша цель сейчас подключиться к фискальнику, проверить кассовую смену (если истекла — печатаем z-отчёт, если закрыта — открываем, иначе нам ничего не сделать больше), делаем продажу, отключаемся.
#include <QCoreApplication>
#include <QApplication>
#include <QDebug>
#include "activex/drvfrlib.h" //-- Подключаем заголовочник либы
using namespace DrvFRLib; //-- Сразу задаём в каком пространстве имён будем работать
int main(int argc, char *argv[])
{
QApplication a(argc, argv);
qDebug()<<"Started!";
DrvFR * fr = new DrvFR(0, 0); //-- Создаём класс драйвера
//-- Подключаемся к поебени
fr->SetConnectionType(0); //-- Метод её подключения к нам, 0-локально
fr->SetProtocolType(0); //-- Вервия протокола, 0-стандартная
fr->SetComputerName("HCSTerminal"); //-- Задаём имя, под которым она нас будет знать
fr->SetTimeout(0); //-- Сколько будет ждать ответа (рекомендую 0, иначе будут сюрпризы)
fr->SetComNumber(3); //-- Устанавливаем на каком com-порту висит (COM3 - в моём случае)
fr->SetBaudRate(115200); //-- Устанавливаем скорость подключения (115200 - дефолтная)
fr->SetPassword(30); //-- Задаём пароль оператора (30 - админ по дефолту)
qDebug()<<"Connect"<<fr->Connect();
//-- Проверим состояние
fr->SetPassword(30); //-- Задаём пароль оператора (30 - админ)
qDebug()<<"EcrStatus"<< fr->GetECRStatus();
qDebug()<<"EcrMode"<< fr->ECRMode(); //-- Подробнее на стр. 64. Сейчас нас интересует: 4-смена закрыта, 3-смена открыта, но кончилась (нужно напечатать Z-отчёт с гашением)
qDebug()<<fr->ECRModeDescription();
//-- Печатаем z-отчёт с гашением
fr->SetPassword(30); //-- Задаём пароль оператора (30 - админ)
fr->PrintReportWithCleaning();
//-- Откроем новую смену
fr->SetPassword(30); //-- Задаём пароль оператора (30 - админ)
fr->OpenSession(); //-- открывает смену
//-- Начинаем формирование нового чека
fr->SetCheckType(0); //-- Устанавливаем тип нового чека, 0-продажа
fr->SetPassword(30); //-- Задаём пароль оператора (30 - админ)
qDebug()<<"OpenCheck"<<fr->OpenCheck();
qDebug()<<"Result"<<fr->ResultCode()<<fr->ResultCodeDescription();
//-- Добавляем позиции продажи
fr->SetQuantity(1.0); //-- Устанавливаем количество
fr->SetPrice(3); //-- Устанавливаем цену
fr->SetStringForPrinting("Проверка печати"); //-- Описание товара
fr->SetPassword(30); //-- Задаём пароль оператора (30 - админ)
fr->SetDepartment(1); //-- Задаём отдел продажи (если хуёвин несколько, что бы отличать)
qDebug()<<"Sale result"<<fr->Sale();
//-- Завершаем формирование чека, после закрытия выйдет на печать
fr->SetSumm1(3); //-- Сумма оплаты наличными, если несколько типов оплат, то соответственно fr->setSumm2(); Если сумма по всем позициям будет не совпадать, то на чеке автоматически будет выведена сдача.
fr->SetStringForPrinting("==="); //-- В чеке будет двойная линия
fr->SetPassword(30); //-- Задаём пароль оператора (30 - админ)
qDebug()<<"Check status"<<fr->CloseCheck();
//-- Отключаемся
fr->Disconnect();
delete fr;
qDebug()<<"Ended!";
return a.exec();
}
Вот как-то так выглядит алгоритм печати чека (продажи). Если какой-то метод вернёт что-то отличное от 0, значит произошла ошибка.
Разумеется каждый раз печатать z-отчёт и открывать смену не нужно, как и писал выше, нужно проверять сначала, но для примера не стал (лень).
А вот теперь попробуем продать товар с ценой, где есть копейки:
....
fr->SetPrice(3.23);
....
fr->SetSumm1(3.23);
....Облом, да? Дробная часть у цена откинулась наглухо. Дело в том, что в документации у цены стоит тип «Cyrrency» (Денежный).
Так как в C++ явно такого типа нет, то Qt преобразовал его в qlonglong.
Currency широко используется в Delphi для хранения денежных единиц. Представляет он из себя, по сути, тип с фиксированной точкой, а храниться как 8 байтное целое, где 4 младших разряда — неявная дробная часть. Подробнее.
Перевод из double (c++) в Currency (Delphi) прост:
double d = 12.3456;
qlonglong currency = (round(d*10000)/10000)*10000;Пояснение:
(round(d*10000)/10000) так как у Currency значащими являются только 4 знака после запятой, то так мы округляем до них.
*10000 — тем самым приводим к виду Currency.
Кстати, здесь не используется банковское округление (когда 0.5 считается в меньшую сторону).
Что бы каждый раз не возиться, предлагаю создать простенький класс TCurrency, в котором заодно перегрузим основные операции сложение, вычитания:
#ifndef TCURRENCY_H
#define TCURRENCY_H
#include <cmath>
#include <QVariant>
class TCurrency
{
public:
TCurrency() { _val = 0; }
TCurrency(const TCurrency &c) { _val = c._val; }
TCurrency(double d) { _val = fromDouble(d); }
TCurrency(qlonglong ll) { _val = ll; }
~TCurrency() {}
static inline qlonglong fromDouble(double d) { return (round(d*10000)/10000)*10000; }
TCurrency& operator =(double d) { _val = fromDouble(d); return *this; }
const TCurrency operator +(double d) { return TCurrency(_val+fromDouble(d)); }
const TCurrency operator +(const TCurrency &tc) { return TCurrency(_val+tc._val); }
TCurrency& operator +=(double d) { _val += fromDouble(d); return *this; }
TCurrency& operator +=(const TCurrency &tc) { _val += tc._val; return *this; }
const TCurrency operator -(double d) { return TCurrency(_val-fromDouble(d)); }
const TCurrency operator -(const TCurrency &tc) { return TCurrency(_val-tc._val); }
TCurrency& operator -=(double d) { _val -= fromDouble(d); return *this; }
TCurrency& operator -=(const TCurrency &tc) { _val -= tc._val; return *this; }
explicit operator qlonglong() const { return toLongLong(); }
explicit operator QString() const { return toString(); }
explicit operator double() const { return toDouble(); }
explicit operator QVariant() const { return QVariant::fromValue(TCurrency(*this)); }
static void registTypes() { QMetaType::registerConverter<TCurrency, qlonglong>(&TCurrency::toLongLong); QMetaType::registerConverter<TCurrency, QString>(&TCurrency::toString); }
qlonglong toLongLong() const { return _val; }
QString toString() const { return QString::number((double)_val/10000, 'f', 4); }
double toDouble() const { return (double)_val/10000; }
private:
qlonglong _val;
};
Q_DECLARE_METATYPE(TCurrency)
#endif // TCURRENCY_H
В итоге:
fr->SetPrice(TCurrency(3.23));
или
TCurrency cr;
cr = 2.23;
cr += 0.1;
fr->SetPrice(cr);Упс…
Тут нас ждёт облом и вылезет чек на 22400 !
Почему? Дело в том, что в Qt это то-ли бага, то ли фича.
Подробнее: https://bugreports.qt.io/browse/QTBUG-26683
В общем, нужно немного подправить модуль QtActiveQt.
У меня Qt 5.14.1, думаю для других версий аналогично.
Надеюсь, при установке Qt Вы отметили установку исходников (иначе в MaintenanceTool.exe доустановите. ВАЖНО такой же версии, как и Qt).
Дальше в QtCreator открываем проект
«<QtDir>\<version>\Src\qtactiveqt\qtactiveqt.pro«
Проблема в том, что в файле «<QtDir>\<version>\Src\qtactiveqt\src\activeqt\shared\qaxtypes.cpp»
В блоке: «case QVariant::LongLong:» не срабатывает условие «if (out && arg.vt == (VT_CY|VT_BYREF)) {«, так как arg.vt равно VT_ERROR.
Ноги этой проблемы, по-моему, в «<QtDir>\<version>\Src\qtactiveqt\src\activeqt\container\qaxbase.cpp» в блоке «case QMetaObject::WriteProperty:».
Для решения этой проблемы предлагаю:
1. Что бы dumpcpp сразу для типа Currency выставлял наш класс «TCurrency», для этого правим файл «<QtDir>\<version>\Src\qtactiveqt\src\activeqt\container\qaxbase.cpp»
case VT_CY:
str = "TCurrency"; //-- "qlonglong"
break;2. Что бы теперь QVariant сконвертировать в Виндовый VARIANT правим файл «<QtDir>\<version>\Src\qtactiveqt\src\activeqt\shared\qaxtypes.cpp»
case QVariant::UserType:
.....
if ( !qstrcmp(qvar.typeName(), "TCurrency") ) {
arg.vt = VT_CY;
arg.cyVal.int64 = qvar.toLongLong();
} else
....Нус, запускаем проект QtActiveQt на компиляция в режиме релиза, курим пару минут.
Теперь нужно скопировать либы из папки:
«<QtDir>\<version>\Src\build-qtactiveqt-Desktop_Qt_5_14_1_MinGW_32_bit-Release\lib\» в папку «<QtDir>\<version>\mingw73_32\lib\«.
А также «<QtDir>\<version>\Src\build-qtactiveqt-Desktop_Qt_5_14_1_MinGW_32_bit-Release\bin\» в папку «<QtDir>\<version>\mingw73_32\bin\«.
Теперь заново запускаем dumpcpp, что бы сгенерировались новые исходник и заголовочник.
В заголовочник только потом не забудьте подключить tcurrency.h
Так же не забудьте где-нить зарегистрировать каст типов:
TCurrency::registTypes();
Компилим и запускаем наш тестовый проект, радуемся!
Вот как-то так.
2 комментария