1 DOM.EC.OL.Verlanglijst.Visitor.VerlanglijstVisitor %Boolean 1 %Integer 1 ProductLijn:ProductLijn %Status 0) { Set ProductLijn.Aantal = ProductLijn.Aantal + 1 Set ..AantalVerhogingen = ..AantalVerhogingen - 1 if (..Save) { Set rc = ProductLijn.%Save() Do DecomposeStatus^%apiOBJ(rc,.Err) Write:'rc !, "Fout bij bewaren productlijn: ",Err(Err) } } Quit $$$OK ]]> Save:%Boolean,AantalVerhogingen:%Integer 1 1 %Status