Príklad 27 - Práca s chránenými položkami

Nasledujúci príklad ilustruje základnú prácu s business objektom, obsahujúcim položky chránené systémom ochrany dát.

Dim mApplication, PersonObject, PersonData, mID 

' Prihlásenie
Set mApplication = CreateObject("AbraOLE.Application")
mApplication.LogIn "Supervisor", "" 

' Vytvorenie objektu - osoba
Set PersonObject = mApplication.CreateObject("@Person")
Set PersonData = mApplication.CreateValues("@Person") 

' Načítanie osoby "B000000101" a nastavenie titulu
mID = "B000000101"
Set PersonData = PersonObject.GetValues(mID)
if PersonData.Accessible("FirstName") then
    if (PersonData.ValueByName("FirstName") = "Vlastimil") then
        if PersonData.Accessible("Title") then
            PersonData.ValueByName("Title") = "Mgr."
        else
' nasledujúci riadok by skončil výnimkou
            PersonData.ValueByName("Title") = "Ing."
        end if
    end if
end if

' Validácia osoby'
PersonObject.ValidateValues mID, PersonData

' Uloženie osoby
PersonObject.UpdateValues mID, PersonData

Set mApplication = nothing