Класс для API АТОЛ «Драйвер ККТ версии 10»

[Игорь Столяров]

Привет всем !

Класс работы с драйвером ККТ АТОЛ 10 на основе JSON заданий.
(форк класса ADMIN'а 2019 г.)

Класс рабочий, в комплекте примеры использования. Любые замечания и дополнения - приветствуются.
В FTP разделе форума создана папка: /_Books/Atol.KKT со всей сопутствующей документацией.

ВНИМАНИЕ !
Для работы с КМ (кодами маркировки) через JSON задания требуется прошивка ККТ 5.12 и выше (двухлетней давности).
На старых прошивках будет ошибка: Объекту 0x05C1E828 присвоен код ошибки 148 [Ошибка программирования реквизита 1023]

[finsoftrz]

В доке у них пример для дельфи. И там написано, что создается обычный Ole (ActiveX) и все должно работать. Предварительно стандартным образом этот activeX зарегистрировав в системе. Я правильно понял, что попробовали и не работает из клариона? Именно в последней версии драйвера 10.05.

[Игорь Столяров]

Именно в последней версии драйвера 10.05.

Нет. Я пробовал пол-года назад. Потом админ сказал, что такие дела делаются летом. Ну летом - значит летом …
Надо и мне посмотреть. Может действительно добавили обвязку OLE для ДТО10 и это всё упрощает ?

[Игорь Столяров]

Ну у меня вот такой незамысловатый тест коннекта к OLE драйверу не проходит. А у Вас ?

Код: Выделить всё

  MyFRS.Object                       = Create(0,Create:Ole)
  MyFRS.Object{Prop:Create}          = 'AddIn.Fptr10'
  MyFRS.Object{Prop:ReportException} = True

  If Int(MyFRS.Object{Prop:Ole})

     MyFRS.Object{'DeviceEnabled'} = True

     If Int(MyFRS.Object{'ResultCode'}) = 0
        Message(MyFRS.Object{'version'})  ! Хотелось бы увидеть ...
     else
        Message('Ошибка: ' & MyFRS.Object{'ResultDescription'})
     end

     MyFRS.Object{Prop:Deactivate}
     Destroy(MyFRS.Object)
  else
     Message('Ошибка инициализации драйвера «АТОЛ» ДТО 10 !')
  end

[Admin]

Вот сейчас полдня бьюсь с libfptr_get_param_bytearray, вот это да...

Вопрос решен.
Сам сглупил, когда с массивом байт работаешь незачем использовать CSTRING
Спешка мать ее и копипаста.

[finsoftrz]

Ну у меня вот такой незамысловатый тест коннекта к OLE драйверу не проходит. А у Вас ?

На днях спрошу аппарат для тестирования. Судя по всему, не будет через ole работать. Там com объект...
Придется выбирать из других вариантов. Кроме работы через их dll напрямую, можно еще посмотреть на web сервер и vbscript. Как я понял, мэйнстрим у них это web сервер. Некая унификация, ставишь с ккм и можешь бить чеки откуда угодно через http запросы, передавая задания в формате json. Vbsript, в отличии от клашиного ole, должен спокойно работать с com объектом. Должны подойти примеры из дельфи с поправкой на синтаксис. Работа напрямую через dll позволяет обойтись без дополнительных слоев. Но тут такое дело, что никто такую связку не тестировал и тестировать никогда не будет. Кроме тех из нас, кто пойдет по этому пути. То есть по пальцам руки посчитать можно. У меня был пару раз отрицательный опыт, когда приложение, к которому линковались сторонние сишные библиотеки, валилось в gpf, причем не всегда, а, например, на некоторых версиях винды или при использовании на том же компьютере другого софта, работающего с другой версией той же библиотеки. Будем смотреть и думать...

[Игорь Столяров]

Судя по всему, не будет через ole работать.

У меня есть уже другая информация, но нет девайса, что бы проверить.
Похоже, что АТОЛ добавил в последний релиз ДТО10.5 OLE обёртку, причем совместимую с ДТО8 по наименованию.
Видимо крупные юзеры не заценили потрясающую возможность печати чеков с iPhone и потребовали совместимость.
Только там какой-то разнобой номера налога с ДТО8- но это мелочи. Если будет девайс - проверьте пожалуйста.

Оптимальным вариантом работы с драйвером АТОЛ, конечно является загружаемая DLL.
Но для отработки нужны девайс и мозги, что бы разобраться с примерами на сях. У меня нет ни того, ни другого …

[finsoftrz]

Я что-то подобного ожидаю. Есть ведь много всякого софта, работающего через их opos драйвер. И просто так взять и обрубить без каких-то объяснимых причин, заставив всех переписывать годами отлаженные алгоритмы, выглядит как-то слишком неразумно...

[Игорь Столяров]

АТОЛ вообще немного странная фирма. Достаточно почитать их форум тех. поддержки - это боги с Олимпа общаются с быдлом.
Последние принимаемые решения вроде отказа от старых ДТО и введение подписки видимо принимаются с борта яхты,
где русский телек не работает и не в теме, что бизнес и так уже не тянет все эти он-лайн кассы, ОФД и прочие подписки.

Очень порадовала возможность в ДТО10 печати чеков с iPhone - видимо там менеджмент АТОЛ'а и видит свою клиентскую базу.
А результат уже есть - у нас в городе крупные сети вроде Магнита и Ашана начали переезжать обратно на ШТРИХ'и …

[finsoftrz]

В списке изменений по ДТО10.5 что-то ничего про это не сказано. Откуда инфа?

[Игорь Столяров]

Откуда инфа?

"Глухой" юзер чек прислал с неправильной ставкой НДС.
Ему сказали установить ДТО8, а он установил, что нашёл на сайте, т.е. последний ДТО10 и всё распечаталось …
Но есть вероятность, что у него какая-то мешанина из старых драйверов на компьютере была, поэтому нужно проверить.

[Admin]

Оптимальным вариантом работы с драйвером АТОЛ, конечно является загружаемая DLL.

Вот мой говнокод. Писал на коленке, не ругайтесь
Там еще куча моментов но чеки печатаются и т.д.
Тут для подключения исправить. Или выше что бы окно настроек вызывалось.

Код: Выделить всё

SELF.SetParam(LIBFPTR_SETTING_MODEL, LIBFPTR_MODEL_ATOL_22F)
SELF.SetParam(LIBFPTR_SETTING_PORT, LIBFPTR_PORT_COM)
SELF.SetParam(LIBFPTR_SETTING_COM_FILE, 'COM17')
SELF.SetParam(LIBFPTR_SETTING_BAUDRATE, LIBFPTR_PORT_BR_115200)

[Игорь Столяров]

Ура ! Да это просто праздник какой-то сегодня ! Спасибо !

[finsoftrz]

Тоже скажу спасибо. Полистал этот класс и документацию. В принципе, все более менее понятно. Вариант с com практически идентичен сишному, с поправкой на синтаксис. То есть используется та же библиотека. Вариант с веб сервером, как я понял, на вин хп не взлетит, а таких компов у пользователей немало. Наверно, если обратную совместимость с дто8 не обеспечат, тоже придется в сторону этой библиотеки смотреть.

[Игорь Столяров]

если обратную совместимость с дто8 не обеспечат

Ну будет девайс - это надо проверить.
OLE прост и удобен, но это уже рудиментная технология, да она работает, но развиваться не будет. От неё потихоньку отказываются.
Поэтому в перспективе нужно смотреть либо COM интерфейс, либо загружаемую библиотеку (и вообще учиться такое делать).

[finsoftrz]

Еще есть вариант работы напрямую с протоколом обмена. У штриха и атола описание лежит в свободеом доступе. Там просто на каждую команду отправка строки в ком порт или через сокеты. Самый чистый вариант, без заморочек с драйверами. Недавно общался с одним профи, который много лет только кассовой прогаммой занимается (если информация верна, у него порядка 2000 кассовых проходов). Он поскреб затылок, говорит, таки да, драйвера напрягают своими ограничениями и то, что ближе к железу, работает стабильнее. Но драйвера поддерживают разные модели ккм, на уровне протокола обмена это обеспечивать затратнее будет. Так что палка с двумя концами. В принципе, одно другого не исключает.