Příklad 19 - Použití metody Evaluate

Metoda Evaluate přímo ve třídě Application. Vyhodnocení není závislé na konkrétním objektu.

dim mApplication

set mApplication = CreateObject("AbraOLE.Application")
mApplication.Login "Supervisor", ""

MsgBox mApplication.Evaluate("NxGetCompanyName")

Metoda Evaluate na objektu DataObject. Pro vyhodnocení je potřeba znát ID konkrétního objektu.

dim mApplication, mDataObject

set mApplication = CreateObject("AbraOLE.Application")
mApplication.Login "Supervisor", ""

set mDataObject = mApplication.CreateObject("@IssuedInvoice")
MsgBox mDataObject.Evaluate("1400000101","Firm_ID.Name")