Příklad 4 - Práce se zásadní opravou firmy v Adresáři

Následující příklad demonstruje zásadní opravy prováděné nad objekty Firm.

Sub FirmChange()
Dim mApplication As New AbraOLE.Application

' Vytvoření objektu, který umí pracovat s objekty systému
Dim FirmObject As AbraOLE.Firm

' Vytvoření objektu dat
Dim FirmData As ObjectData
Dim mOldID As String
Dim mID As String

' Vytvoření řídícího objektu pro objekty firma
Set FirmObject = mApplication.CreateObject("@Firm")

' Vytvoření objektu, který obsahuje data objektu firma
Set FirmData = mApplication.CreateValues("@Firm")

' ID firmy, u které chceme provést zásadní opravu
mOldID = "AB00000101"
mID = FirmObject.CreateFirmDescendant(mOldID)

' Načteme novou firmu
Set FirmData = FirmObject.GetValues(mID)

' Opravíme u ní, co je potřeba
FirmData.ValueByName("Name") = FirmData.ValueByName("Name") + "X"

' Změny uložíme
FirmObject.UpdateValues mID, FirmData
End Sub