Index: vhUnitTest/DOM/PM/Upgrade/impl/upg/UTKenmerkenv01v02Upgrader.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Upgrade/impl/upg/UTKenmerkenv01v02Upgrader.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Upgrade/impl/upg/UTKenmerkenv01v02Upgrader.cls.xml	(revision 3391)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmerkenv01v02Upgrader">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.IngegevenKenmerkenUpgrader</Super>
+
+<Method name="GeefVerwachteVersieNr">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Quit 1   ; VerwachteVersie
+
+]]></Implementation>
+</Method>
+
+<Method name="Upgrade">
+<Description>
+De Default conversiestijl is UpgradeViaCopy. 
+Alternatief kan je deze overriden om UpgradeViaInherit() of UpgradeViaWrapper() te implementeren </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set NewVersionClassName=..GeefNewVersionClassName(Kenmerken)
+	Quit ..UpgradeViaInherit(Kenmerken,NewVersionClassName)
+
+]]></Implementation>
+</Method>
+
+<Method name="UpgradeViaInherit">
+<Description>
+De method Upgrade() moet overschreven worden om deze method op te roepen 
+De NewVersionClassName is de ClassName van de nieuwe versie van de IngegevenKenmeken </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,NewVersionClassName:%String</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	// Copy maken van alle overeenkomstige properties 
+	Set NewVersionIK=..ConstructCloneToNewVersion(Kenmerken,NewVersionClassName)
+	
+	// Properties aan te passen 
+	Set NewVersionIK.ProptB=Kenmerken.ProptB_"+B.v2"
+	Set NewVersionIK.ProptC="C.v2"
+	
+	Quit NewVersionIK
+
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/DOM/PM/Upgrade/impl/upg/UTKenmerkenv02v03Upgrader.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Upgrade/impl/upg/UTKenmerkenv02v03Upgrader.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Upgrade/impl/upg/UTKenmerkenv02v03Upgrader.cls.xml	(revision 3391)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmerkenv02v03Upgrader">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.IngegevenKenmerkenUpgrader</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefVerwachteVersieNr">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 2   ; VerwachteVersie
+]]></Implementation>
+</Method>
+
+<Method name="Upgrade">
+<Description>
+De Default conversiestijl is UpgradeViaCopy. 
+Alternatief kan je deze overriden om UpgradeViaInherit() of UpgradeViaWrapper() te implementeren </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set WrapperClassName="vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmUpgradeWrapperv02v03"   ; De conversie van de properties vind je in deze Wrapper-klasse 
+	Quit ..UpgradeViaWrapper(Kenmerken,WrapperClassName)                                   ; De method UpgradeViaWrapper() moet niet overschreven worden
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/DOM/PM/Upgrade/IngegevenKenmUpgradeUTMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Upgrade/IngegevenKenmUpgradeUTMock.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Upgrade/IngegevenKenmUpgradeUTMock.cls.xml	(revision 3391)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeUTMock">
+<Description>
+Mock-klasse voor de UnitTest-upgraders, deze zitten in een aparte package. </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeMock</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefUpgraderPackageName">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "vhUnitTest.DOM.PM.Upgrade.impl.upg"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 3391 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/TestIngegevenKenmUpgrader.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WV PM Maatwerk.prj.xml
===================================================================
diff -u -r3356 -r3391
--- WV PM Maatwerk.prj.xml	(.../WV PM Maatwerk.prj.xml)	(revision 3356)
+++ WV PM Maatwerk.prj.xml	(.../WV PM Maatwerk.prj.xml)	(revision 3391)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV PM Maatwerk" LastModified="2011-12-01 16:28:05">
+<Project name="WV PM Maatwerk" LastModified="2011-12-02 13:07:36">
   <Items>
     <ProjectItem name="APPS.PM.IKenmerkBuilder" type="CLS"/>
     <ProjectItem name="APPS.PM.KenmMWFPlugin" type="CLS"/>
@@ -25,7 +25,6 @@
     <ProjectItem name="APPS.PM.Maatwerk.Framework.impl.HelperUtils" type="CLS"/>
     <ProjectItem name="APPS.PM.Maatwerk.Framework.impl.KostSpecificatieHelper" type="CLS"/>
     <ProjectItem name="APPS.PM.Maatwerk.Framework.impl.SpecificatieHelper" type="CLS"/>
-    <ProjectItem name="APPS.PM.Maatwerk.IngegevenKenmUpgrade" type="CLS"/>
     <ProjectItem name="APPS.PM.Maatwerk.IngegevenKenmerkenVisitor" type="CLS"/>
     <ProjectItem name="APPS.PM.Maatwerk.KAD.Conversie.KenmerkConvertor" type="CLS"/>
     <ProjectItem name="APPS.PM.Maatwerk.KenmerkConversie" type="CLS"/>
@@ -344,21 +343,8 @@
     <ProjectItem name="TECH.Graph.DependencyGraph" type="CLS"/>
     <ProjectItem name="TECH.Graph.Node" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.Framework.TestConfiguratieService" type="CLS"/>
-    <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMock" type="CLS"/>
-    <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMockUT" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.OLM.TestOpMaatFactory" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.TBX.Probox.TestCalculator" type="CLS"/>
-    <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.TestIngegevenKenmUpgradeV" type="CLS"/>
-    <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.TestIngegevenKenmUpgrader" type="CLS"/>
-    <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv00" type="CLS"/>
-    <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv01" type="CLS"/>
-    <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv02" type="CLS"/>
-    <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv03" type="CLS"/>
-    <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.impl.upg.UTKenmUpgradeWrapperv02v03" type="CLS"/>
-    <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.impl.upg.UTKenmerkenv00v01Upgrader" type="CLS"/>
-    <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.impl.upg.UTKenmerkenv01v02Upgrader" type="CLS"/>
-    <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.impl.upg.UTKenmerkenv02v03Upgrader" type="CLS"/>
-    <ProjectItem name="vhUnitTest.APPS.PM.Maatwerk.impl.upg.UTKenmerkenv02v03bisUpgrad" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.PM.TestKenmMWFPlugin" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenMockv01" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.HalffabImport" type="CLS"/>
@@ -417,6 +403,19 @@
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.TBXProduct.TestTBXLade" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.Maatwerk.TestData" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.TestProductAPI" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeMock" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeUTMock" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Upgrade.TestIngegevenKenmUpgradeV" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Upgrade.TestIngegevenKenmUpgrader" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv00" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv01" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv02" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv03" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmUpgradeWrapperv02v03" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmerkenv00v01Upgrader" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmerkenv01v02Upgrader" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmerkenv02v03Upgrader" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmerkenv02v03bisUpgrad" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.impl.TestIKCanonischeWaarde" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.PM.impl.TestIngegevenKenmerkenAPI" type="CLS"/>
     <ProjectItem name="zTryout.CSC.PM.Maatwerk.HF.DataGeneratie" type="CLS"/>
Index: vhUnitTest/DOM/PM/Upgrade/impl/UTKenmerkenv03.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Upgrade/impl/UTKenmerkenv03.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Upgrade/impl/UTKenmerkenv03.cls.xml	(revision 3391)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv03">
+<Description>
+.</Description>
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+/// Property A As %String // voor de unittest is deze property weggelaten. 
+*/
+
+]]></Content>
+</UDLText>
+
+<Property name="ProptB">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProptC">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Quit ##super()
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefVersieNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Quit 3
+
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>UTKenmerkenv03DefaultData</DefaultData>
+<Data name="UTKenmerkenv03DefaultData">
+<Subscript>"UTKenmerkenv03"</Subscript>
+<Value name="1">
+<Value>ProptB</Value>
+</Value>
+<Value name="2">
+<Value>ProptC</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: vhUnitTest/DOM/PM/Upgrade/impl/UTKenmerkenv02.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Upgrade/impl/UTKenmerkenv02.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Upgrade/impl/UTKenmerkenv02.cls.xml	(revision 3391)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv02">
+<Description>
+.</Description>
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv01</Super>
+
+<Property name="ProptC">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Quit ##super()
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefVersieNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Quit 2
+
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>UTKenmerkenv02DefaultData</DefaultData>
+<Data name="UTKenmerkenv02DefaultData">
+<Subscript>"UTKenmerkenv02"</Subscript>
+<Value name="1">
+<Value>ProptC</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: vhUnitTest/DOM/PM/Upgrade/TestIngegevenKenmUpgrader.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Upgrade/TestIngegevenKenmUpgrader.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Upgrade/TestIngegevenKenmUpgrader.cls.xml	(revision 3391)
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Upgrade.TestIngegevenKenmUpgrader">
+<Description>
+Oproepen via 
+  do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Upgrade.TestIngegevenKenmUpgrader") </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase,TECH.Error.ErrorAdaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ErrorMsg">
+<Type>%String</Type>
+</Property>
+
+<Method name="TestGeefNewVersionClassName">
+<Implementation><![CDATA[
+	Set UTKenmVersie02=##class(vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv02).%New()
+
+	Set NewVersionClassName=##class(DOM.PM.IngegevenKenmerkenUpgrader).GeefNewVersionClassName(UTKenmVersie02)
+	
+	Do $$$AssertEquals(NewVersionClassName,"vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv03","De classname van de nieuwe versie is correct")
+]]></Implementation>
+</Method>
+
+<Method name="TestUpgraderv00ViaCopy">
+<Implementation><![CDATA[
+	Set UTKenmVersie00=##class(vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv00).%New()
+	Set UTKenmVersie00.ProptA="A.v0"
+	Set UTKenmVersie00.ProptB="B.v0"
+	
+	Set UTKenmVersie01=##class(vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmerkenv00v01Upgrader).UpgradeIngegevenKenmerken(UTKenmVersie00)
+	
+	Do $$$AssertTrue($IsObject(UTKenmVersie01),"UTKenmVersie01 is een object")
+	Do $$$AssertEquals(UTKenmVersie01.VersieNr,1,"Het versieNr is 1")
+	Do $$$AssertEquals(UTKenmVersie01.ProptA,"A.v0","ProptA is niet gewijzigd")
+	Do $$$AssertEquals(UTKenmVersie01.ProptB,"B.v0+B.v1","ProptB is gewijzigd naar B.v0+B.v1")
+]]></Implementation>
+</Method>
+
+<Method name="TestUpgraderv01ViaInherit">
+<Implementation><![CDATA[
+	Set UTKenmVersie01=##class(vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv01).%New()
+	Set UTKenmVersie01.ProptA="A.v1"
+	Set UTKenmVersie01.ProptB="B.v1"
+	
+	Set UTKenmVersie02=##class(vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmerkenv01v02Upgrader).UpgradeIngegevenKenmerken(UTKenmVersie01)
+	
+	Do $$$AssertTrue($IsObject(UTKenmVersie02),"UTKenmVersie02 is een object")
+	Do $$$AssertEquals(UTKenmVersie02.VersieNr,2,"Het versieNr is 2")
+	Do $$$AssertEquals(UTKenmVersie02.ProptA,"A.v1","ProptA is niet gewijzigd")
+	Do $$$AssertEquals(UTKenmVersie02.ProptB,"B.v1+B.v2","ProptB is gewijzigd naar B.v1+B.v2")
+	Do $$$AssertEquals(UTKenmVersie02.ProptC,"C.v2","ProptC is ingevuld met C.v2")
+]]></Implementation>
+</Method>
+
+<Method name="TestUpgraderv02ViaWrapper">
+<Implementation><![CDATA[
+	Set UTKenmVersie02=##class(vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv02).%New()
+	Set UTKenmVersie02.ProptA="A.v2"
+	Set UTKenmVersie02.ProptB="B.v2"
+	Set UTKenmVersie02.ProptC="C.v2"
+	
+	Set UTKenmVersie03=##class(vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmerkenv02v03Upgrader).UpgradeIngegevenKenmerken(UTKenmVersie02)
+	
+	Do $$$AssertTrue($IsObject(UTKenmVersie03),"UTKenmVersie03 is een object")
+	Do $$$AssertEquals(UTKenmVersie03.VersieNr,3,"Het versieNr is 3")
+	;                                 ProptA bestaat niet in v3 
+	Do $$$AssertEquals(UTKenmVersie03.ProptB,"B.v2","ProptB is niet gewijzigd")
+	Do $$$AssertEquals(UTKenmVersie03.ProptC,"C.v2+A.v2+C.v3","ProptC is ingevuld met C.v2+A.v2+C.v3")
+]]></Implementation>
+</Method>
+
+<Method name="TestUpgraderv02ViaCopy">
+<Implementation><![CDATA[
+	Set UTKenmVersie02=##class(vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv02).%New()
+	Set UTKenmVersie02.ProptA="A.v2"
+	Set UTKenmVersie02.ProptB="B.v2"
+	Set UTKenmVersie02.ProptC="C.v2"
+	
+	Set UTKenmVersie03=##class(vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmerkenv02v03bisUpgrad).UpgradeIngegevenKenmerken(UTKenmVersie02)
+	
+	Do $$$AssertTrue($IsObject(UTKenmVersie03),"UTKenmVersie03 is een object")
+	Do $$$AssertEquals(UTKenmVersie03.VersieNr,3,"Het versieNr is 3")
+	;                                 ProptA bestaat niet in v3 
+	Do $$$AssertEquals(UTKenmVersie03.ProptB,"B.v2+A.v2+B.v3","ProptB is ingevuld met B.v2+B.v2+B.v3")
+	Do $$$AssertEquals(UTKenmVersie03.ProptC,"C.v2","ProptC is niet gewijzigd")
+]]></Implementation>
+</Method>
+
+<Method name="TestzUpgradeVerwachteVersieFout">
+<Implementation><![CDATA[
+	Set ..ErrorMsg=""
+	Set UTKenmVersie02=##class(vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv02).%New()
+		
+	$$$LocalErrorTrapOn
+	Set UTKenmVersie01=##class(vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmerkenv00v01Upgrader).UpgradeIngegevenKenmerken(UTKenmVersie02)
+	$$$ClearError
+	$$$LocalErrorTrapOff
+
+	Set ExpectedErrorType=$$$errInvalidInput   ; ExpectedErrorMsg="`"_ExpectedErrorType_"`"_"Verwachte versie van IK is ongeldig"_"`"
+	Do $$$AssertEquals(..GeefErrorType(..ErrorMsg),ExpectedErrorType,"De error van het type InvalidInput is gethrowed")
+
+	Set ..ErrorMsg=""
+]]></Implementation>
+</Method>
+
+<Method name="TrapHandler">
+<FormalSpec>Label,Options</FormalSpec>
+<Implementation><![CDATA[
+	Set:(..ErrorMsg="") ..ErrorMsg=$ECODE
+	$$$ClearLocalError
+]]></Implementation>
+</Method>
+
+<Method name="GeefErrorType">
+<FormalSpec>ErrorMsg:%String</FormalSpec>
+<Implementation><![CDATA[
+	// dit moet eigenlijk aan de ErrorAdaptor gevraagd worden (is nog niet aanwezig) 
+	Quit $P(ErrorMsg,"`",2)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 3391 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/TestIngegevenKenmUpgradeV.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/DOM/PM/Upgrade/TestIngegevenKenmUpgradeV.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Upgrade/TestIngegevenKenmUpgradeV.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Upgrade/TestIngegevenKenmUpgradeV.cls.xml	(revision 3391)
@@ -0,0 +1,200 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Upgrade.TestIngegevenKenmUpgradeV">
+<Description>
+Oproepen via 
+  do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Upgrade.TestIngegevenKenmUpgradeV") </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase,TECH.Error.ErrorAdaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ErrorMsg">
+<Type>%String</Type>
+</Property>
+
+<Method name="TestAnalyseerKenmClassName">
+<Implementation><![CDATA[
+	Set UTKenmVersie02=##class(vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv02).%New()
+	Do ##class(DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade).AnalyseerKenmerkenClassName(UTKenmVersie02, .PackageName, .BaseName, .InputVersieNr, .VersiePrefix)
+	
+	Do $$$AssertEquals(PackageName,"vhUnitTest.DOM.PM.Upgrade.impl","De PackageName is correct")
+	Do $$$AssertEquals(BaseName,"UTKenmerken","De BaseName is correct")
+	Do $$$AssertEquals(InputVersieNr,2,"InputVersieNr is correct")
+	Do $$$AssertEquals(VersiePrefix,"v","VersiePrefix is correct")
+
+	// Klassenaam is niet volgens de naming-conventie --> VersieNr is 0 
+	Set UTKenmVersie02=##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Do ##class(DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade).AnalyseerKenmerkenClassName(UTKenmVersie02, .PackageName, .BaseName, .InputVersieNr, .VersiePrefix)
+	
+	Do $$$AssertEquals(PackageName,"DOM.PM.Maatwerk.Calc.Common.impl","De PackageName is correct")
+	Do $$$AssertEquals(BaseName,"TBXKenmerken","De BaseName is correct")
+	Do $$$AssertEquals(InputVersieNr,0,"InputVersieNr is correct")
+	Do $$$AssertEquals(VersiePrefix,"v","VersiePrefix is correct")
+]]></Implementation>
+</Method>
+
+<Method name="TestAnalyseerKenmClassNameFout">
+<Implementation><![CDATA[
+	Set ..ErrorMsg=""
+	Set GeenIngegevenKenmerkenObj=##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New("","","")
+	
+	$$$LocalErrorTrapOn
+	Do ##class(DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade).AnalyseerKenmerkenClassName(GeenIngegevenKenmerkenObj, , .BaseName, .InputVersieNr, .VersiePrefix)
+	$$$ClearError
+	$$$LocalErrorTrapOff
+	
+	Set ExpectedErrorType=$$$errInvalidInput   ; ExpectedErrorMsg="`"_ExpectedErrorType_"`"_"ClassName van Kenmerken is ongeldig"_"`"
+	Do $$$AssertEquals(..GeefErrorType(..ErrorMsg),ExpectedErrorType,"De error van het type InvalidInput is gethrowed")
+	
+	Set ..ErrorMsg=""
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefUpgraderClassName">
+<Implementation><![CDATA[
+	Set FromVersieNr="9"
+	Set NextVersieNr="10"
+	Set BaseName="DummyBaseName"
+	Set VersiePrefix="UTvp"
+
+	Set IKUpgrade=##class(vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeMock).%New("")
+	Set UpgraderClassName=IKUpgrade.GeefUpgraderClassName(FromVersieNr,NextVersieNr,BaseName,VersiePrefix)
+	Do $$$AssertEquals(UpgraderClassName,"APPS.PM.Maatwerk.impl.upg.DummyBaseNameUTvp09UTvp10Upgrader","De UpgraderClassName is correct opgebouwd")
+
+	// Zelfde, maar met de UnitTest-klasse 
+	Set IKUpgrade=##class(vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeUTMock).%New("")
+	Set UpgraderClassName=IKUpgrade.GeefUpgraderClassName(FromVersieNr,NextVersieNr,BaseName,VersiePrefix)
+	Do $$$AssertEquals(UpgraderClassName,"vhUnitTest.DOM.PM.Upgrade.impl.upg.DummyBaseNameUTvp09UTvp10Upgrader","De UpgraderClassName (via Mock) is correct opgebouwd")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefVolgendeVersieKenm">
+<Implementation><![CDATA[
+	Set UTKenmVersie00=##class(vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv00).%New()
+	Set UpgradeVersieNr="0"
+	Set BaseName="UTKenmerken"
+	Set VersiePrefix="v"
+	
+	Set IKUpgrade=##class(vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeUTMock).%New(UTKenmVersie00)
+	Set UTKenmVersie01=IKUpgrade.GeefVolgendeVersieKenmerken(UTKenmVersie00,.UpgradeVersieNr,BaseName,VersiePrefix)
+	
+	Do $$$AssertTrue($IsObject(UTKenmVersie01),"UTKenmVersie01 is een object")
+	Do $$$AssertEquals(UTKenmVersie01.VersieNr,1,"Het versieNr is 1")
+	Do $$$AssertEquals(UpgradeVersieNr,1,"UpgradeVersieNr is verhoogd")
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefVolgendeVersieKenmFout">
+<Implementation><![CDATA[
+	Set ..ErrorMsg=""
+	Set UTKenmVersie00=##class(vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv00).%New()
+	Set UpgradeVersieNr="0"
+	Set BaseName="NonExistingKenmerken"
+	Set VersiePrefix="v"
+	
+	$$$LocalErrorTrapOn
+	Set IKUpgrade=##class(vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeUTMock).%New(UTKenmVersie00)
+	Set UTKenmVersie01=IKUpgrade.GeefVolgendeVersieKenmerken(UTKenmVersie00,.UpgradeVersieNr,BaseName,VersiePrefix)
+	$$$ClearError
+	$$$LocalErrorTrapOff
+	
+	Set ExpectedErrorType=$$$errGeneralError   ; ExpectedErrorMsg="`"_ExpectedErrorType_"`"_"De Upgrader klasse ... bestaat niet"_"`"
+	Do $$$AssertEquals(..GeefErrorType(..ErrorMsg),ExpectedErrorType,"De error van het type GeneralError is gethrowed")
+	
+	Set ..ErrorMsg=""
+]]></Implementation>
+</Method>
+
+<Method name="TestUpgrade">
+<Implementation><![CDATA[
+	Set UTKenmVersie00=##class(vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv00).%New()
+	Set UTKenmVersie00.ProptA="A.v0"
+	Set UTKenmVersie00.ProptB="B.v0"
+	
+	// Upgraden naar versie 01 
+	Set IKUpgrade=##class(vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeUTMock).%New(UTKenmVersie00)
+	Set UTKenmVersie01=IKUpgrade.GeefIngegevenKenmerkenVersie(1)
+	Do $$$AssertTrue($IsObject(UTKenmVersie01),"UTKenmVersie01 is een object")
+	Do $$$AssertEquals(UTKenmVersie01.VersieNr,1,"Het versieNr is 1")
+	Do $$$AssertEquals(UTKenmVersie01.ProptA,"A.v0","ProptA is niet gewijzigd")
+	Do $$$AssertEquals(UTKenmVersie01.ProptB,"B.v0+B.v1","ProptB is gewijzigd")
+	
+	// Upgraden naar versie 02, maar wel beginnen van de oorspronkelijke versie (v00) 
+	Set IKUpgrade=##class(vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeUTMock).%New(UTKenmVersie00)
+	Set UTKenmVersie02=IKUpgrade.GeefIngegevenKenmerkenVersie("02")
+	Do $$$AssertTrue($IsObject(UTKenmVersie02),"UTKenmVersie02 is een object")
+	Do $$$AssertEquals(UTKenmVersie02.VersieNr,2,"Het versieNr is 2")
+	Do $$$AssertEquals(UTKenmVersie02.ProptA,"A.v0","ProptA is niet gewijzigd")
+	Do $$$AssertEquals(UTKenmVersie02.ProptB,"B.v0+B.v1+B.v2","ProptB is gewijzigd (in alle afgelopen versies)")
+	Do $$$AssertEquals(UTKenmVersie02.ProptC,"C.v2","ProptC is ingevuld met C.v2")
+
+	
+	// Nog een versie verder upgraden, maar wel terug beginnen van de oorspronkelijke versie (v00) 
+	Set IKUpgrade=##class(vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeUTMock).%New(UTKenmVersie00)
+	Set UTKenmVersie03=IKUpgrade.GeefIngegevenKenmerkenVersie(3)
+	Do $$$AssertTrue($IsObject(UTKenmVersie03),"UTKenmVersie03 is een object")
+	Do $$$AssertEquals(UTKenmVersie03.VersieNr,3,"Het versieNr is 3")
+	;                                 ProptA bestaat niet in v3 
+	Do $$$AssertEquals(UTKenmVersie03.ProptB,"B.v0+B.v1+B.v2","ProptB is gewijzigd (in alle afgelopen versies)")
+	Do $$$AssertEquals(UTKenmVersie03.ProptC,"C.v2+A.v0+C.v3","ProptC is gewijzigd (in alle afgelopen versies)")
+]]></Implementation>
+</Method>
+
+<Method name="TestUpgradeNaarZelfdeVersie">
+<Implementation><![CDATA[
+	Set UTKenmVersie01=##class(vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv01).%New()
+	Set UTKenmVersie01.ProptA="A.v1"
+	Set UTKenmVersie01.ProptB="B.v1"
+
+	Set IKUpgrade=##class(vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeUTMock).%New(UTKenmVersie01)
+	Set OutputKenmerken=IKUpgrade.GeefIngegevenKenmerkenVersie(1)
+
+	// OutputKenmerken zal hetzelfde object zijn als de input; de waarden van de properties zijn NIET gewijzigd.
+	Do $$$AssertTrue($IsObject(OutputKenmerken),"UTKenmVersie01 is een object")
+	Do $$$AssertEquals(OutputKenmerken,UTKenmVersie01,"De OutputKenmerken is hetzelfde object als de input")
+	Do $$$AssertEquals(OutputKenmerken.VersieNr,1,"Het versieNr is niet gewijzigd")
+	Do $$$AssertEquals(OutputKenmerken.ProptA,"A.v1","ProptA is niet gewijzigd")
+	Do $$$AssertEquals(OutputKenmerken.ProptB,"B.v1","ProptB is niet gewijzigd")
+]]></Implementation>
+</Method>
+
+<Method name="TestUpgradeNaarLagereVersie">
+<Implementation><![CDATA[
+	Set ..ErrorMsg=""
+	Set UTKenmVersie01=##class(vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv01).%New()
+		
+	$$$LocalErrorTrapOn
+	Set IKUpgrade=##class(vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeUTMock).%New(UTKenmVersie01)
+	Set OutputKenmerken=IKUpgrade.GeefIngegevenKenmerkenVersie(0)
+	$$$ClearError
+	$$$LocalErrorTrapOff
+
+	Set ExpectedErrorType=$$$errGeneralError   ; ExpectedErrorMsg="`"_ExpectedErrorType_"`"_"OutputVersieNr is lager dan de versie van de IngegevenKenmerken"_"`"
+	Do $$$AssertEquals(..GeefErrorType(..ErrorMsg),ExpectedErrorType,"De error van het type GeneralError is gethrowed")
+
+	Set ..ErrorMsg=""
+]]></Implementation>
+</Method>
+
+<Method name="TrapHandler">
+<FormalSpec>Label,Options</FormalSpec>
+<Implementation><![CDATA[
+	Set:(..ErrorMsg="") ..ErrorMsg=$ECODE
+	$$$ClearLocalError
+]]></Implementation>
+</Method>
+
+<Method name="GeefErrorType">
+<FormalSpec>ErrorMsg:%String</FormalSpec>
+<Implementation><![CDATA[
+	// dit moet eigenlijk aan de ErrorAdaptor gevraagd worden (is nog niet aanwezig) 
+	Quit $P(ErrorMsg,"`",2)
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerkenAPI">
+<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/DOM/PM/Upgrade/impl/upg/UTKenmerkenv02v03bisUpgrad.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Upgrade/impl/upg/UTKenmerkenv02v03bisUpgrad.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Upgrade/impl/upg/UTKenmerkenv02v03bisUpgrad.cls.xml	(revision 3391)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmerkenv02v03bisUpgrad">
+<Description>
+Deze Upgrader is de bis-versie van de vorige.
+M.a.w. een upgrade voor dezelfde versie, maar via een andere conversiestijl, met name UpgradeViaCopy() </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.IngegevenKenmerkenUpgrader</Super>
+
+<Method name="GeefVerwachteVersieNr">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Quit 2   ; VerwachteVersie
+
+]]></Implementation>
+</Method>
+
+<Method name="UpgradeViaCopy">
+<Description>
+De NewVersionClassName is de ClassName van de nieuwe versie van de IngegevenKenmeken </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,NewVersionClassName:%String</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	// Copy maken van alle overeenkomstige properties 
+	Set NewVersionIK=..ConstructCloneToNewVersion(Kenmerken,NewVersionClassName)
+		
+	// Properties aan te passen 
+	Set NewVersionIK.ProptB=Kenmerken.ProptB_"+"_Kenmerken.ProptA_"+B.v3"
+
+	; ProptA bestaat niet meer in v03 
+	; ProptC blijft ongewijzigd 
+	
+	Quit NewVersionIK
+
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 3391 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/IngegevenKenmUpgradeMockUT.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/DOM/PM/Upgrade/impl/upg/UTKenmUpgradeWrapperv02v03.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Upgrade/impl/upg/UTKenmUpgradeWrapperv02v03.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Upgrade/impl/upg/UTKenmUpgradeWrapperv02v03.cls.xml	(revision 3391)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmUpgradeWrapperv02v03">
+<Description>
+Deze wrapper doet zich in alles voor als TBXKenmerkenV02.
+
+Wanneer de waarde van een kenmerk (property) wordt opgevraagd, kijkt
+de wrapper of het kenmerk al een waarde heeft in het basisobject van
+klasse TBXKenmerkenV2. Indien dit het geval is, wordt deze waarde
+teruggegeven.  Indien dit niet het geval is, wordt de waarde berekend
+uit een of meerdere kenmerken van het gewrapte object van klasse
+TBXKenmerkenV1, en opgeslagen in het basisobject.  De volgende keer
+dat de waarde wordt gevraagd kan deze meteen gegeven worden vermits
+ze al eens berekend is.  Op deze manier wordt on the fly een
+conversie gedaan.
+
+Een wrapper-object kan niet gesaved worden !</Description>
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv03</Super>
+
+<Property name="UTKenmerkenv02">
+<Type>vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv02</Type>
+<Transient>1</Transient>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..UTKenmerkenv02=Kenmerken
+	Quit ##super()
+
+]]></Implementation>
+</Method>
+
+<Method name="%OnBeforeSave">
+<FormalSpec>insert:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Quit $$$ERROR($$$GeneralError,"Een wrapper-object mag niet gesaved worden.")
+
+]]></Implementation>
+</Method>
+
+<Method name="ProptBGet">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit ..UTKenmerkenv02.ProptB
+
+]]></Implementation>
+</Method>
+
+<Method name="ProptCGet">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit ..UTKenmerkenv02.ProptC_"+"_..UTKenmerkenv02.ProptA_"+C.v3"
+
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+</Export>
Index: vhUnitTest/DOM/PM/Upgrade/impl/UTKenmerkenv01.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Upgrade/impl/UTKenmerkenv01.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Upgrade/impl/UTKenmerkenv01.cls.xml	(revision 3391)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv01">
+<Description>
+.</Description>
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Super>
+
+<Property name="ProptA">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProptB">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Quit ##super()
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefVersieNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Quit 1
+
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>UTKenmerkenv01DefaultData</DefaultData>
+<Data name="UTKenmerkenv01DefaultData">
+<Subscript>"UTKenmerkenv01"</Subscript>
+<Value name="1">
+<Value>ProptA</Value>
+</Value>
+<Value name="2">
+<Value>ProptB</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: vhUnitTest/DOM/PM/Upgrade/impl/upg/UTKenmerkenv00v01Upgrader.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Upgrade/impl/upg/UTKenmerkenv00v01Upgrader.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Upgrade/impl/upg/UTKenmerkenv00v01Upgrader.cls.xml	(revision 3391)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Upgrade.impl.upg.UTKenmerkenv00v01Upgrader">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.IngegevenKenmerkenUpgrader</Super>
+
+<Method name="GeefVerwachteVersieNr">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Quit 0
+
+]]></Implementation>
+</Method>
+
+<Method name="UpgradeViaCopy">
+<Description>
+De NewVersionClassName is de ClassName van de nieuwe versie van de IngegevenKenmeken </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,NewVersionClassName:%String</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	// Copy maken van alle overeenkomstige properties 
+	Set NewVersionIK=..ConstructCloneToNewVersion(Kenmerken,NewVersionClassName)
+		
+	// Properties aan te passen 
+	Set NewVersionIK.ProptB=Kenmerken.ProptB_"+B.v1"
+	
+	Quit NewVersionIK
+
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/ITestDataSetIngegevenKenmerken.cls.xml
===================================================================
diff -u -r1184 -r3391
--- vhUnitTest/DOM/PM/Maatwerk/HF/ITestDataSetIngegevenKenmerken.cls.xml	(.../ITestDataSetIngegevenKenmerken.cls.xml)	(revision 1184)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/ITestDataSetIngegevenKenmerken.cls.xml	(.../ITestDataSetIngegevenKenmerken.cls.xml)	(revision 3391)
@@ -84,7 +84,8 @@
 	$$$LocalErrorTrapOn
 	
 	Set VersieNr=Context.GeefHalffabSpec().GeefVersieNrIngegevenKenmerken()
-	Set CorrecteVersieIK=##class(APPS.PM.Maatwerk.IngegevenKenmUpgrade).GeefIngegevenKenmerkenVersie(TestItem.IngegevenKenmerken,VersieNr)
+	Set IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
+	Set CorrecteVersieIK=IngegevenKenmerkenAPI.GeefIngegevenKenmerkenVersie(TestItem.IngegevenKenmerken,VersieNr)
 	Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context,CorrecteVersieIK)
 
 	$$$ClearError
Index: APPS/VKP/Maatwerk/ConfiguratorService.cls.xml
===================================================================
diff -u -r2302 -r3391
--- APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 2302)
+++ APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 3391)
@@ -196,7 +196,8 @@
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er zijn geen kenmerken opgeslagen in dit pad onder de naam "_Naam))
 	}
 	Set BewaardeKenmerken = PadImpl.GeefBewaardeKenmerken(Naam)
-	Set IngegevenKenmerken = ##class(APPS.PM.Maatwerk.IngegevenKenmUpgrade).GeefIngegevenKenmerkenVersie(BewaardeKenmerken.GeefIngegevenKenmerken(), GevraagdeVersie)
+	Set IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
+	Set IngegevenKenmerken = IngegevenKenmerkenAPI.GeefIngegevenKenmerkenVersie(BewaardeKenmerken.GeefIngegevenKenmerken(), GevraagdeVersie)
 	
 	Set KenmerkNaarDtoVisitor = ##class(APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor).%New()
 	Do IngegevenKenmerken.Accept(KenmerkNaarDtoVisitor)
@@ -241,8 +242,9 @@
 	}
 	
 	Set Visitor = ##class(APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor).%New()
+	Set IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
 	Set IngegevenKenmerken = Product.GeefProductSpecificatie().GeefIngegevenKenmerken()
-	Set IngegevenKenmerken = ##class(APPS.PM.Maatwerk.IngegevenKenmUpgrade).GeefIngegevenKenmerkenVersie(IngegevenKenmerken, GevraagdeVersie)
+	Set IngegevenKenmerken = IngegevenKenmerkenAPI.GeefIngegevenKenmerkenVersie(IngegevenKenmerken, GevraagdeVersie)
 	Do IngegevenKenmerken.Accept(Visitor)
 	
 	Quit Visitor.GeefIngegevenKenmerken()
FishEye: Tag 3391 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/IngegevenKenmUpgradeMock.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/DOM/PM/Upgrade/IngegevenKenmUpgradeMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Upgrade/IngegevenKenmUpgradeMock.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Upgrade/IngegevenKenmUpgradeMock.cls.xml	(revision 3391)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeMock">
+<Description>
+Mock-klasse om de Private methods public te maken </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade</Super>
+
+<Method name="GeefUpgraderClassName">
+<Description>
+Public </Description>
+<FormalSpec>FromVersieNr:%String,ToVersieNr:%String,BaseName:%String,VersiePrefix:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit ##super(.FromVersieNr, .ToVersieNr, .BaseName, .VersiePrefix)
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolgendeVersieKenmerken">
+<Description>
+Public </Description>
+<FormalSpec><![CDATA[FromIK:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&UpgradeVersieNr:%String,BaseName:%String,VersiePrefix:%String]]></FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Quit ##super(.FromIK, .UpgradeVersieNr, .BaseName, .VersiePrefix)
+
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/DOM/PM/Upgrade/impl/UTKenmerkenv00.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Upgrade/impl/UTKenmerkenv00.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Upgrade/impl/UTKenmerkenv00.cls.xml	(revision 3391)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv00">
+<Description>
+.</Description>
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Super>
+
+<Property name="ProptA">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProptB">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Quit ##super()
+
+]]></Implementation>
+</Method>
+
+<Method name="GeefVersieNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Quit 0
+
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>UTKenmerkenv00DefaultData</DefaultData>
+<Data name="UTKenmerkenv00DefaultData">
+<Subscript>"UTKenmerkenv00"</Subscript>
+<Value name="1">
+<Value>ProptA</Value>
+</Value>
+<Value name="2">
+<Value>ProptB</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
FishEye: Tag 3391 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv03.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 3391 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv00.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 3391 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv02.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 3391 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/impl/UTKenmerkenv01.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 3391 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv00v01Upgrader.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 3391 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv02v03Upgrader.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 3391 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmUpgradeWrapperv02v03.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 3391 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv01v02Upgrader.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 3391 refers to a dead (removed) revision in file `vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv02v03bisUpgrad.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?