Príklad 19 - Použitie metódy Evaluate
Metóda Evaluate priamo v triede Application. Vyhodnotenie nie je závislé od konkrétneho objektu.
dim mApplication
set mApplication = CreateObject("AbraOLE.Application")
mApplication.Login "Supervisor", ""
MsgBox mApplication.Evaluate("NxGetCompanyName")
Metóda Evaluate na objekte DataObject. Pre vyhodnotenie je potrebné poznať ID konkrétneho objektu.
dim mApplication, mDataObject
set mApplication = CreateObject("AbraOLE.Application")
mApplication.Login "Supervisor", ""
set mDataObject = mApplication.CreateObject("@IssuedInvoice")
MsgBox mDataObject.Evaluate("1400000101","Firm_ID.Name")