Příklad 16 - Práce s definovatelnými BO - založení nového záznamu v definovatelném číselníku

S definovatelnými Business objekty, které vzniknou díky definici uživatelsky definovatelných číselníků, lze pracovat shodně jako s pevnými Business objekty. Tj. v příslušných metodách se jako parametr CLSID zadává CLSID třídy Business objektu daného číselníku nebo s použitím "@" jeho název zadaný v definici číselníku. Viz položky CLSID a Název na záložce Business objekt v nástroji DeffRollEditor.exe. Pokud třída není v systému nalezena, je vyvolána výjimka.

Pro následující příklad předpokládejme, že v systému je nadefinován uživatelský číselník pro evidenci aut pro dopravu, kde název Business objektu byl zadán "TransportationCar".

' Definice proměnných
Dim mApplication 
Dim TransCarObject 
Dim TransCarData 
' Přihlášení
Set mApplication = CreateObject("AbraOLE.Application")
mApplication.LogIn "Supervisor", ""
' Vyrobení nového auta pro dopravu
Set TransCarObject = mApplication.CreateObject("@TransportationCar")
Set TransCarData = mApplication.CreateValues("@TransportationCar")
' Naplnění kódu a názvu 
TransCarData.ValueByName("Code") = "PriTandem"
TransCarData.ValueByName("Name") = "Přívěs tandemový"
' Uložení auta
TransCarObject.CreateNewFromValues TransCarData