Dit is een voorbeeld persistent object. Het kan als object, maar ook via SQL werken. persistent TECH.ExcHandling TECH.Error 1 TECH.Concurrency.VhPersistent 0 %String %Integer RekeningHistoriekItem list 1 1 Nummer 1 NieuwNummer:%String,InitieelSaldo:%Integer %Status Saldo:%Integer 1 Nummer:%String %Integer 1 Nummer:%String %Integer 1 Nummer:%String,Wijziging:%Integer = 0) If (0 = %ROWCOUNT) { $$$ThrowError($$$errGeneralError,"Saldo van Rekening met Nummer '" _ Nummer _ "' kan niet gewijzigd worden met '" _ Wijziging _ "'.") } ]]> 1 Nummer:%String,NieuwSaldo:%Integer 1 Nummer:%String,NieuwSaldo:%Integer,InstanceVersion:%Integer %Library.CacheStorage ^zTryout.PRA.Co8DB.BankRekeningD BankRekeningDefaultData ^zTryout.PRA.Co8DB.BankRekeningD ^zTryout.PRA.Co8DB.BankRekeningI ^zTryout.PRA.Co8DB.BankRekeningS listnode %%CLASSNAME Historiek InstanceVersion Saldo