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