Voorbeeld klasse om locking e.d. op te testen. persistent TECH.Concurrency,TECH.ExcHandling TECH.Concurrency.VhPersistent %String Data:%String="" %Status 1 ID:%Integer,NieuweVoorbeeldData:%String 1 %String 1 %String %Boolean %Boolean %Boolean %Library.CacheStorage ^vhUnitTestCA7.VoorbeeldPeDEC7D VoorbeeldPersistentDefaultData ^vhUnitTestCA7.VoorbeeldPeDEC7D ^vhUnitTestCA7.VoorbeeldPeDEC7I ^vhUnitTestCA7.VoorbeeldPeDEC7S %%CLASSNAME InstanceVersion VoorbeeldData