Príklad 4 - Práca so zásadnou opravou firmy v Adresári

Nasledujúci príklad demonštruje zásadné opravy vykonávané nad objektmi Firm.

Sub FirmChange()
Dim mApplication As New AbraOLE.Application

' Vytvorenie objektu, ktorý dokáže pracovať s objektmi systému
Dim FirmObject As AbraOLE.Firm

' Vytvorenie objektu dát
Dim FirmData As ObjectData
Dim mOldID As String
Dim mID As String

' Vytvorenie riadiaceho objektu pre objekty firma
Set FirmObject = mApplication.CreateObject("@Firm")

' Vytvorenie objektu, ktorý obsahuje dáta objektu firma
Set FirmData = mApplication.CreateValues("@Firm")

' ID firmy, ktorej chceme vykonať zásadnú opravu
mOldID = "AB00000101"
mID = FirmObject.CreateFirmDescendant(mOldID)

' Načítame novú firmu
Set FirmData = FirmObject.GetValues(mID)

' Opravíme pri nej, čo je potrebné
FirmData.ValueByName("Name") = FirmData.ValueByName("Name") + "X"

' Zmeny uložíme
FirmObject.UpdateValues mID, FirmData
End Sub