Dit stelt een applicatie-level klasse voor. TECH.ExcHandling,zTryout.PRA TECH.Error 1 %RegisteredObject 0 zTryout.PRA.Concurrency.WachtObject WachtObject:zTryout.PRA.Concurrency.WachtObject 1 1 %Status 1 RekeningNummer:%String,InitieelSaldo:%Integer RekeningNummer:%String %Integer RekeningNummer:%String %Integer ID en InstanceVersion worden meegegeven. RekeningNummer:%String SaldoDto Pas X-lock bij save. RekeningNummer:%String,Bedrag:%Integer Onmiddellijk X-lock. RekeningNummer:%String,Bedrag:%Integer RekeningNummer:%String,Bedrag:%Integer RekeningNummer:%String,Bedrag:%Integer 1 RekeningNummer:%String,Bedrag:%Integer 1 Rekening:BankRekening,Bedrag:%Integer 1 = Bedrag) { Do Rekening.SetSaldo(Rekening.Saldo - Bedrag) Do Rekening.Save() } Else { $$$ThrowError($$$errGeneralError,"Saldo ontoereikend...") } ]]> RekeningNummer:%String,Bedrag:%Integer RekeningNummer:%String,Bedrag:%Integer RekeningNummer:%String,Bedrag:%Integer 1 BronRekeningNummer:%String,DoelRekeningNummer:%String,Bedrag:%Integer RekeningNummer:%String,Bedrag:%Integer N.B. De naam van deze method is uiteraard niet goed. SaldoData:SaldoDto Bericht:%String="Klik ENTER om de transactie verder te zetten." 1