Добрый день. Форум техподдержки Атол склонен уговаривать вопрошающих перейти на их ПО, а я не готов. Поэтому вопрос сюда. Windows 10 64 бита. Access 2016 32 bit. Устройство АТОЛ FPrint-22ПТК.
Драйвер стоит, Access его видит, экземпляр драйвера создается и успешно открывается. Ссылка на библиотеку необходимую поставлена.
Public Sub DateTest()
Set fptr = CreateObject("AddIn.Fptr10")
fptr.setSingleSetting fptr.LIBFPTR_SETTING_MODEL, CStr(fptr.LIBFPTR_MODEL_ATOL_22F)
fptr.setSingleSetting fptr.LIBFPTR_SETTING_PORT, CStr(fptr.LIBFPTR_PORT_COM)
fptr.setSingleSetting fptr.LIBFPTR_SETTING_COM_FILE, "COM3"
fptr.setSingleSetting fptr.LIBFPTR_SETTING_BAUDRATE, CStr(fptr.LIBFPTR_PORT_BR_115200)
fptr.applySingleSettings

MsgBox fptr.Version() 'Версию драйвера возвращает!
fptr.Open
MsgBox fptr.isOpened 'Открытие подтверждает TRUE!
До сюда всё работает!

Дальше я пытаюсь запрашивать у аппарата информацию, например время:
Инструкция говорит:
"Для запроса текущих даты и времени в ККТ необходимо вызвать метод queryData() с типом запроса LIBFPTR_PARAM_DATA_TYPE равным LIBFPTR_DT_DATE_TIME"
Пример на Delphi:
var
dateTime: TDateTime;
begin
fptr.setParam(fptr.LIBFPTR_PARAM_DATA_TYPE, fptr.LIBFPTR_DT_DATE_TIME);
fptr.queryData;
dateTime := fptr.getParamDateTime(fptr.LIBFPTR_PARAM_DATE_TIME);
end;
Я его переписываю для VBA:
Dim dateTime As Date
fptr.setParam fptr.LIBFPTR_PARAM_DATA_TYPE, fptr.LIBFPTR_DT_DATE_TIME
fptr.queryData
dateTime = fptr.getParamDateTime(fptr.LIBFPTR_PARAM_DATE_TIME)

И не возвращается ничего, даже ошибки.
Однако, если попросить вот так: MsgBox dateTime - она возвращается (причём явно не помимо метода queryDate - если его закомментить - возвращается 01.01.1970, то есть 0).
Можно попросить и так: MsgBox fptr.getParamDateTime(fptr.LIBFPTR_PARAM_DATE_TIME) - тоже вернёт правильную дату...
Точно также происходит если запрашивать не время, а серийный номер.
Оно доступно, но не выводится.....
У меня есть две версии: возможно я не справился с изложением на VBA дельфийского кода...
А может быть моя версия Access не умеет вернуть данные в том виде, какой предполагается производителем кассы. Это должно выглядеть как результат запроса, как-то так:
Параметр Описание Тип
LIBFPTR_PARAM_DATE_TIME Текущие дата и время в ККТ datetime
Может для этого библиотеки какой не хватает?

booby, спасибо, но нет... не помогло. Кроме того строковый параметр serialNumber ведёт себя точно также.

Панург, спасибо. Неожиданно про дату пишет "Long"... и про серийник, который строка, тоже пишет Long... и про температуру, которая integer, тоже пишет Long. Если поставить Long - ничего не меняется... Что с таким принято делать?

И object browser все параметры аппарата считает Long, хотя они string, datetime, int и double

Панург, то я всё ещё вчера изучил:( Спасибо.

Панург, ага, а так вернул Date!!!

Панург, да, дату определяет как Date, серийный номер как String (так и должно быть), температуру как Long с типами выходит всё нормально

Таким образом, похоже, что код выполняется, значения вычисляются, но предполагаемая производителем аппарата форма вывода информации не выводится. А MsgBox - всё выдаёт...

Панург, буду рад иной интерпретации.
Код:
Dim serialNumber As String
fptr.setParam fptr.LIBFPTR_PARAM_DATA_TYPE, fptr.LIBFPTR_DT_SERIAL_NUMBER
fptr.queryData
serialNumber = fptr.getParamString(fptr.LIBFPTR_PARAM_SERIAL_NUMBER)
не возвращает ничего, а если сразу после него
MsgBox serialNumber
или
MsgBox fptr.getParamString(fptr.LIBFPTR_PARAM_SERIAL_NUMBER)
то возвращается серийный номер, причём правильный
и Debug.Print TypeName(fptr.getParamString(fptr.LIBFPTR_PARAM_SERIAL_NUMBER)) - возвращает string
То есть результат есть, но я его не вижу...

Панург, чуть подробней, я срамоучка.

Панург, с тегами оформления разберусь

Ага, спасибо огромное. Я разобрался... по пути сильно обогатился. Панург, я очень благодарен. А проблема была во мне. Я почему-то думал, что результат должен выводится в виде таблички, созданной производителем драйвера (ну так в инструкции нарисовано). А оно у меня всё правильно работает, просто по-умолчанию никуда не печатается. Рисую форму, туда всё выводится. Ещё раз спасибо.

Да, alecko, вы правильно догадались, сё у меня срабатывает и готово к использованию, а я ожидал визуализации.