Příklad 26 - Příklad práce s Elektronickou evidencí tržeb

Následující příklad popisuje práci s EET (voláním metody Process na objektu TNxEETTurnover)

dim mApplication, mEETTurnover, mMessage, mResult
set mApplication = CreateObject("AbraOLE.Application")
mApplication.Login "Supervisor", ""
' Vyvoření objektu tržba EET 
set mEETTurnover = mApplication.CreateObject("@EETTurnover")
set mMessage = ""
' Zaevidování tržby s ID "1400000101" 
set mResult = mEETTurnover.Process("1400000101",mMessage)