Voorbeeld klasse om locking e.d. op te testen. persistent TECH.Concurrency TECH.Error 1 TECH.Concurrency.VhPersistent 0 %String Data:%String="" %Status 1 ID:%Integer,NieuweVoorbeeldData:%String 1 %String 1 %String %Boolean %Boolean %Boolean %Library.CacheStorage ^vhUnitTestA29.VoorbeeldPer7D3D VoorbeeldPersistentDefaultData ^vhUnitTestA29.VoorbeeldPer7D3D ^vhUnitTestA29.VoorbeeldPer7D3I ^vhUnitTestA29.VoorbeeldPer7D3S %%CLASSNAME InstanceVersion VoorbeeldData