Príklad 16 - Práca s definovateľnými BO - založenie nového záznamu v definovateľnom číselníku
S definovateľnými Business objektmi, ktoré vzniknú vďaka definícii užívateľsky definovateľných číselníkov, je možné pracovať rovnako ako s pevnými Business objektmi. Tzn. v príslušných metódach sa ako parameter CLSID zadáva CLSID triedy Business objektu daného číselníka alebo s použitím "@" jeho názov zadaný v definícii číselníka. Viz položky CLSID a Název na záložce Business objekt v nástroji DeffRollEditor.exe. Pokiaľ trieda nie je v systéme nájdená, je vyvolaná výnimka.
Pre nasledujúci príklad predpokladajme, že v systéme je nadefinovaný užívateľský číselník na evidenciu áut pre dopravu, kde názov Business objektu bol zadaný "TransportationCar".
' Definícia premenných
Dim mApplication
Dim TransCarObject
Dim TransCarData
' Prihlásenie
Set mApplication = CreateObject("AbraOLE.Application")
mApplication.LogIn "Supervisor", ""
' Vyrobenie nového auta na dopravu
Set TransCarObject = mApplication.CreateObject("@TransportationCar")
Set TransCarData = mApplication.CreateValues("@TransportationCar")
' Naplnenie kódu a názvu
TransCarData.ValueByName("Code") = "PriTandem"
TransCarData.ValueByName("Name") = "Přívěs tandemový"
' Uloženie auta
TransCarObject.CreateNewFromValues TransCarData