ник: час
Чеки печатаются, отчёты тоже.
Вопрос - как получать параметры от функций???
Public Function IDENT_KKM() As Boolean
' Идентификация ККМ
Dim res
Set DX = CreateObject("DynamicWrapperX")
DX.Register App.Path & "\DrvMercFR.dll", "QueryEcrIdent", "i=uus", "r=UUS"
res = DX.QueryEcrIdent
MsgBox res
End Function
Эта конструкция выдаёт ошибку - не верные параметры или аргументы....
никак не пойму - как быть когда что то вернуть надо........
|