Index: vhDeploy/JBL/Deploy20110804x11122.cls.xml
===================================================================
diff -u
--- vhDeploy/JBL/Deploy20110804x11122.cls.xml	(revision 0)
+++ vhDeploy/JBL/Deploy20110804x11122.cls.xml	(revision 1747)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JBL.Deploy20110804x11122">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>InstanceVersion instellen voor alle DataDefinities.</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set $ZTRAP = "Catch"
+	TSTART
+	&SQL(Update Prod_Kenmerk.DataDefinitie Set InstanceVersion = 1 where InstanceVersion IS NULL)
+	TCOMMIT
+	w "Update is succesvol."
+	Quit 
+Catch
+	TROLLBACK
+	w "Update is NIET succesvol."
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Concurrency/VhPersistent.cls.xml
===================================================================
diff -u -r1745 -r1747
--- TECH/Concurrency/VhPersistent.cls.xml	(.../VhPersistent.cls.xml)	(revision 1745)
+++ TECH/Concurrency/VhPersistent.cls.xml	(.../VhPersistent.cls.xml)	(revision 1747)
@@ -1,12 +1,16 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="TECH.Concurrency.VhPersistent">
-<Description>
+<Description><![CDATA[
 Persistence methods die via inheritance overgenomen worden.
 Deze gebeuren volledig via delegatie naar DbUtils. 
 Daardoor kan er aan gesleuteld worden zonder alle classes te moeten hercompileren.
 
-Let op: gebruik geen %-methods rechtstreeks die met locking te maken hebben!</Description>
+Let op: gebruik geen %-methods rechtstreeks die met locking te maken hebben!
+
+Let op: Indien een bestaande klasse overerft van VhPersistent, moet een query worden uitgevoerd om
+alle instanceVersions van ieder object worden ingesteld.
+Voorbeeld query : &SQL(Update UwEigenKlasse Set InstanceVersion = 1 where InstanceVersion IS NULL)]]></Description>
 <Abstract>1</Abstract>
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>