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")