FishEye: Tag 3356 refers to a dead (removed) revision in file `APPS/PM/Maatwerk/IngegevenKenmUpgrade.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: DOM/PM/IngegevenKenmerkenUpgrader.cls.xml
===================================================================
diff -u
--- DOM/PM/IngegevenKenmerkenUpgrader.cls.xml	(revision 0)
+++ DOM/PM/IngegevenKenmerkenUpgrader.cls.xml	(revision 3356)
@@ -0,0 +1,162 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.IngegevenKenmerkenUpgrader">
+<Description>
+Een upgrader van ingegeven kenmerken converteert de kenmerken die als parameter zijn opgegeven naar een hogere versie. Geeft een object terug van de hogere versie.
+
+Elke upgrader kan slechts 1 versie als invoer aanvaarden.  Als de versie van de ingegeven kenmerken niet overeenkomt met de verwachte versie, wordt een error gegeven.
+
+Mogelijke conversiestijlen:
+- Copy: de hogere versie is een apart object bekomen door kopieën en converteren van de kenmerken uit de lagere versie.
+- Wrap: de conversie gebeurt lazily door een wrapper afgeleid van de hogere versie en wrapped rond de lagere versie.
+- Inherit: de hogere versie leidt af van de lagere versie.
+
+Elke Upgrader beslist zelf welke stijl gebruikt wordt.
+
+Copy is interessant wanneer je de bekomen versie wil persisteren.  De upgrader code is straightforward en heel leesbaar en je bekomt een
+kant en klaar proper objectje van de nieuwe versie.
+
+Wrap is interessant voor ad hoc conversies waarbij je niet op voorhand weet welke kenmerken zullen worden gebruikt, zeker als je
+vermoedt dat slechts een paar kenmerken gebruikt zullen worden.
+
+Inherit is handig als er geen echte conversie moet gebeuren, bv. als er enkel kenmerken bijkomen. Upgrade kan dan met weinig code een
+object maken van de nieuwe klasse: clone + invullen defaults voor de nieuwe kenmerken.
+</Description>
+<Abstract>1</Abstract>
+<IncludeCode>vhLib.Macro,TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefVerwachteVersieNr">
+<Abstract>1</Abstract>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit 0   ; Verwachte VersieNr invullen
+]]></Implementation>
+</Method>
+
+<Method name="GeefNewVersionClassName">
+<Description>
+Geeft de ClassName van de nieuwe versie van de Kenmerken (of de classname van de Wrapper in geval van UpgradeViaWrapper) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade).AnalyseerKenmerkenClassName(Kenmerken, .PackageName, .BaseName, .Version, .VersiePrefix)
+	Set NewVersion=##class(DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade).VersieNrAlsString(Version+1)
+	
+	Quit PackageName_"."_BaseName_VersiePrefix_NewVersion
+]]></Implementation>
+</Method>
+
+<Method name="UpgradeIngegevenKenmerken">
+<Description>
+</Description>
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Do ..ValideerVerwachteVersie(Kenmerken)
+	Quit ..Upgrade(Kenmerken)
+]]></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 ..UpgradeViaCopy(Kenmerken,NewVersionClassName)
+]]></Implementation>
+</Method>
+
+<Method name="UpgradeViaCopy">
+<Description>
+De NewVersionClassName is de ClassName van de nieuwe versie van de IngegevenKenmeken </Description>
+<Abstract>1</Abstract>
+<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.proptX=BewerkingOp(Kenmerken.proptX)
+	; ... 
+	
+	Quit NewVersionIK
+]]></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>
+<Abstract>1</Abstract>
+<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.proptX=BewerkingOp(Kenmerken.proptX)
+	; ... 
+	
+	Quit NewVersionIK
+]]></Implementation>
+</Method>
+
+<Method name="UpgradeViaWrapper">
+<Description>
+De method Upgrade() moet overschreven worden om deze method op te roepen en de WrapperClassName aan te passen (var NewVersionClassName vervalt) 
+De WrapperClassName is de ClassName van de Wrapper Class voor de nieuwe versie van de IngegevenKenmeken </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,WrapperClassName:%String</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	// Wrapper rond de input-Kenmerken maken.  De conversie van de properties vind je in deze Wrapper-klasse. 
+	Set NewVersionIK=$zobjclassmethod(WrapperClassName,"%New",Kenmerken)
+
+	Quit NewVersionIK
+]]></Implementation>
+</Method>
+
+<Method name="ValideerVerwachteVersie">
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$Not(Kenmerken.VersieNr=..GeefVerwachteVersieNr()) {
+		$$$ThrowError($$$errInvalidInput,"De versie van I.K. is ongeldig (v "_Kenmerken.VersieNr_").")
+	}
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="ConstructCloneToNewVersion">
+<Description>
+Copy maken van de IngegevenKenmerken naar de nieuwe versie en alle 'bestaande' properties exact overnemen </Description>
+<Final>1</Final>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,ClassNameNew:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	// Copy maken van alle overeenkomstige properties 
+	Set lbSkipProperties=$LB("VersieNr")
+	Set NewVersionIK=$$ConstructClone^vhLib.Class(Kenmerken,ClassNameNew,,lbSkipProperties)
+	Quit NewVersionIK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/PM/Maatwerk/impl/upg/TBXKenmerkenv00v01Upgrader.cls.xml
===================================================================
diff -u -r1073 -r3356
--- APPS/PM/Maatwerk/impl/upg/TBXKenmerkenv00v01Upgrader.cls.xml	(.../TBXKenmerkenv00v01Upgrader.cls.xml)	(revision 1073)
+++ APPS/PM/Maatwerk/impl/upg/TBXKenmerkenv00v01Upgrader.cls.xml	(.../TBXKenmerkenv00v01Upgrader.cls.xml)	(revision 3356)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="APPS.PM.Maatwerk.impl.upg.TBXKenmerkenv00v01Upgrader">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>APPS.PM.Maatwerk.IngegevenKenmUpgrader</Super>
+<Super>DOM.PM.IngegevenKenmerkenUpgrader</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <UDLText name="T">
FishEye: Tag 3356 refers to a dead (removed) revision in file `APPS/PM/Maatwerk/IngegevenKenmUpgrader.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: DOM/PM/IngegevenKenmerkenAPI.cls.xml
===================================================================
diff -u -r1803 -r3356
--- DOM/PM/IngegevenKenmerkenAPI.cls.xml	(.../IngegevenKenmerkenAPI.cls.xml)	(revision 1803)
+++ DOM/PM/IngegevenKenmerkenAPI.cls.xml	(.../IngegevenKenmerkenAPI.cls.xml)	(revision 3356)
@@ -16,5 +16,11 @@
 <FormalSpec>IKID:DOM.PM.Maatwerk.Calc.Common.IKID</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
 </Method>
+
+<Method name="GeefIngegevenKenmerkenVersie">
+<Abstract>1</Abstract>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,OutputVersieNr:%Integer</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+</Method>
 </Class>
 </Export>
Index: vhUnitTest/APPS/PM/Maatwerk/TestIngegevenKenmUpgradeV.cls.xml
===================================================================
diff -u -r1074 -r3356
--- vhUnitTest/APPS/PM/Maatwerk/TestIngegevenKenmUpgradeV.cls.xml	(.../TestIngegevenKenmUpgradeV.cls.xml)	(revision 1074)
+++ vhUnitTest/APPS/PM/Maatwerk/TestIngegevenKenmUpgradeV.cls.xml	(.../TestIngegevenKenmUpgradeV.cls.xml)	(revision 3356)
@@ -15,7 +15,7 @@
 <Method name="TestAnalyseerKenmClassName">
 <Implementation><![CDATA[
 	Set UTKenmVersie02=##class(vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv02).%New()
-	Do ##class(APPS.PM.Maatwerk.IngegevenKenmUpgrade).AnalyseerKenmerkenClassName(UTKenmVersie02, .PackageName, .BaseName, .InputVersieNr, .VersiePrefix)
+	Do ##class(DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade).AnalyseerKenmerkenClassName(UTKenmVersie02, .PackageName, .BaseName, .InputVersieNr, .VersiePrefix)
 	
 	Do $$$AssertEquals(PackageName,"vhUnitTest.APPS.PM.Maatwerk.impl","De PackageName is correct")
 	Do $$$AssertEquals(BaseName,"UTKenmerken","De BaseName is correct")
@@ -24,7 +24,7 @@
 
 	// Klassenaam is niet volgens de naming-conventie --> VersieNr is 0 
 	Set UTKenmVersie02=##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
-	Do ##class(APPS.PM.Maatwerk.IngegevenKenmUpgrade).AnalyseerKenmerkenClassName(UTKenmVersie02, .PackageName, .BaseName, .InputVersieNr, .VersiePrefix)
+	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")
@@ -37,32 +37,34 @@
 <Implementation><![CDATA[
 	Set ..ErrorMsg=""
 	Set GeenIngegevenKenmerkenObj=##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New("","","")
-		
+	
 	$$$LocalErrorTrapOn
-	Do ##class(APPS.PM.Maatwerk.IngegevenKenmUpgrade).AnalyseerKenmerkenClassName(GeenIngegevenKenmerkenObj, .BaseName, .InputVersieNr, .VersiePrefix)
+	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 UTKenmVersie02=##class(vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv02).%New()
+	;Set UTKenmVersie02=##class(vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv02).%New()
 	Set FromVersieNr="9"
 	Set NextVersieNr="10"
 	Set BaseName="DummyBaseName"
 	Set VersiePrefix="UTvp"
 
-	Set UpgraderClassName=##class(APPS.PM.Maatwerk.IngegevenKenmUpgrade).GeefUpgraderClassName(FromVersieNr,NextVersieNr,BaseName,VersiePrefix)
+	Set IKUpgrade=##class(vhUnitTest.APPS.PM.Maatwerk.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 UpgraderClassName=##class(vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMock).GeefUpgraderClassName(FromVersieNr,NextVersieNr,BaseName,VersiePrefix)
+	Set IKUpgrade=##class(vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMockUT).%New("")
+	Set UpgraderClassName=IKUpgrade.GeefUpgraderClassName(FromVersieNr,NextVersieNr,BaseName,VersiePrefix)
 	Do $$$AssertEquals(UpgraderClassName,"vhUnitTest.APPS.PM.Maatwerk.impl.upg.DummyBaseNameUTvp09UTvp10Upgrader","De UpgraderClassName (via Mock) is correct opgebouwd")
 ]]></Implementation>
 </Method>
@@ -74,7 +76,8 @@
 	Set BaseName="UTKenmerken"
 	Set VersiePrefix="v"
 	
-	Set UTKenmVersie01=##class(vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMock).GeefVolgendeVersieKenmerken(UTKenmVersie00,.UpgradeVersieNr,BaseName,VersiePrefix)
+	Set IKUpgrade=##class(vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMockUT).%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")
@@ -91,7 +94,8 @@
 	Set VersiePrefix="v"
 	
 	$$$LocalErrorTrapOn
-	Set UTKenmVersie01=##class(vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMock).GeefVolgendeVersieKenmerken(UTKenmVersie00,.UpgradeVersieNr,BaseName,VersiePrefix)
+	Set IKUpgrade=##class(vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMockUT).%New(UTKenmVersie00)
+	Set UTKenmVersie01=IKUpgrade.GeefVolgendeVersieKenmerken(UTKenmVersie00,.UpgradeVersieNr,BaseName,VersiePrefix)
 	$$$ClearError
 	$$$LocalErrorTrapOff
 	
@@ -107,17 +111,18 @@
 	Set UTKenmVersie00=##class(vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv00).%New()
 	Set UTKenmVersie00.ProptA="A.v0"
 	Set UTKenmVersie00.ProptB="B.v0"
-
+	
 	// Upgraden naar versie 01 
-	Set UTKenmVersie01=##class(vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMock).GeefIngegevenKenmerkenVersie(UTKenmVersie00, 1)
+	Set IKUpgrade=##class(vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMockUT).%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 UTKenmVersie02=##class(vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMock).GeefIngegevenKenmerkenVersie(UTKenmVersie00, "02")
+	Set IKUpgrade=##class(vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMockUT).%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")
@@ -126,7 +131,8 @@
 
 	
 	// Nog een versie verder upgraden, maar wel terug beginnen van de oorspronkelijke versie (v00) 
-	Set UTKenmVersie03=##class(vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMock).GeefIngegevenKenmerkenVersie(UTKenmVersie00, 3)
+	Set IKUpgrade=##class(vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMockUT).%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 
@@ -141,7 +147,8 @@
 	Set UTKenmVersie01.ProptA="A.v1"
 	Set UTKenmVersie01.ProptB="B.v1"
 
-	Set OutputKenmerken=##class(APPS.PM.Maatwerk.IngegevenKenmUpgrade).GeefIngegevenKenmerkenVersie(UTKenmVersie01, 1)
+	Set IKUpgrade=##class(vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMockUT).%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")
@@ -158,7 +165,8 @@
 	Set UTKenmVersie01=##class(vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv01).%New()
 		
 	$$$LocalErrorTrapOn
-	Set OutputKenmerken=##class(APPS.PM.Maatwerk.IngegevenKenmUpgrade).GeefIngegevenKenmerkenVersie(UTKenmVersie01, 0)
+	Set IKUpgrade=##class(vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMockUT).%New(UTKenmVersie01)
+	Set OutputKenmerken=IKUpgrade.GeefIngegevenKenmerkenVersie(0)
 	$$$ClearError
 	$$$LocalErrorTrapOff
 
@@ -184,5 +192,10 @@
 	Quit $P(ErrorMsg,"`",2)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefIngegevenKenmerkenAPI">
+<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv02v03bisUpgrad.cls.xml
===================================================================
diff -u -r1074 -r3356
--- vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv02v03bisUpgrad.cls.xml	(.../UTKenmerkenv02v03bisUpgrad.cls.xml)	(revision 1074)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv02v03bisUpgrad.cls.xml	(.../UTKenmerkenv02v03bisUpgrad.cls.xml)	(revision 3356)
@@ -5,7 +5,7 @@
 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>APPS.PM.Maatwerk.IngegevenKenmUpgrader</Super>
+<Super>DOM.PM.IngegevenKenmerkenUpgrader</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefVerwachteVersieNr">
Index: vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv01v02Upgrader.cls.xml
===================================================================
diff -u -r1074 -r3356
--- vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv01v02Upgrader.cls.xml	(.../UTKenmerkenv01v02Upgrader.cls.xml)	(revision 1074)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv01v02Upgrader.cls.xml	(.../UTKenmerkenv01v02Upgrader.cls.xml)	(revision 3356)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="vhUnitTest.APPS.PM.Maatwerk.impl.upg.UTKenmerkenv01v02Upgrader">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>APPS.PM.Maatwerk.IngegevenKenmUpgrader</Super>
+<Super>DOM.PM.IngegevenKenmerkenUpgrader</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefVerwachteVersieNr">
Index: vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv02v03Upgrader.cls.xml
===================================================================
diff -u -r1074 -r3356
--- vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv02v03Upgrader.cls.xml	(.../UTKenmerkenv02v03Upgrader.cls.xml)	(revision 1074)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv02v03Upgrader.cls.xml	(.../UTKenmerkenv02v03Upgrader.cls.xml)	(revision 3356)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="vhUnitTest.APPS.PM.Maatwerk.impl.upg.UTKenmerkenv02v03Upgrader">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>APPS.PM.Maatwerk.IngegevenKenmUpgrader</Super>
+<Super>DOM.PM.IngegevenKenmerkenUpgrader</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefVerwachteVersieNr">
Index: vhUnitTest/APPS/PM/Maatwerk/IngegevenKenmUpgradeMock.cls.xml
===================================================================
diff -u -r1074 -r3356
--- vhUnitTest/APPS/PM/Maatwerk/IngegevenKenmUpgradeMock.cls.xml	(.../IngegevenKenmUpgradeMock.cls.xml)	(revision 1074)
+++ vhUnitTest/APPS/PM/Maatwerk/IngegevenKenmUpgradeMock.cls.xml	(.../IngegevenKenmUpgradeMock.cls.xml)	(revision 3356)
@@ -1,16 +1,28 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMock">
+<Description>
+Mock-klasse om de Private methods public te maken </Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>APPS.PM.Maatwerk.IngegevenKenmUpgrade</Super>
+<Super>DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="GeefUpgraderPackageName">
-<ClassMethod>1</ClassMethod>
-<Private>1</Private>
+<Method name="GeefUpgraderClassName">
+<Description>
+Public </Description>
+<FormalSpec>FromVersieNr:%String,ToVersieNr:%String,BaseName:%String,VersiePrefix:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "vhUnitTest.APPS.PM.Maatwerk.impl.upg"
+<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/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv00v01Upgrader.cls.xml
===================================================================
diff -u -r1074 -r3356
--- vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv00v01Upgrader.cls.xml	(.../UTKenmerkenv00v01Upgrader.cls.xml)	(revision 1074)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/upg/UTKenmerkenv00v01Upgrader.cls.xml	(.../UTKenmerkenv00v01Upgrader.cls.xml)	(revision 3356)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="vhUnitTest.APPS.PM.Maatwerk.impl.upg.UTKenmerkenv00v01Upgrader">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>APPS.PM.Maatwerk.IngegevenKenmUpgrader</Super>
+<Super>DOM.PM.IngegevenKenmerkenUpgrader</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefVerwachteVersieNr">
Index: WV PM Maatwerk.prj.xml
===================================================================
diff -u -r3224 -r3356
--- WV PM Maatwerk.prj.xml	(.../WV PM Maatwerk.prj.xml)	(revision 3224)
+++ WV PM Maatwerk.prj.xml	(.../WV PM Maatwerk.prj.xml)	(revision 3356)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV PM Maatwerk" LastModified="2011-11-24 12:21:44">
+<Project name="WV PM Maatwerk" LastModified="2011-12-01 16:28:05">
   <Items>
     <ProjectItem name="APPS.PM.IKenmerkBuilder" type="CLS"/>
     <ProjectItem name="APPS.PM.KenmMWFPlugin" type="CLS"/>
@@ -26,7 +26,6 @@
     <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.IngegevenKenmUpgrader" 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"/>
@@ -59,6 +58,7 @@
     <ProjectItem name="BL.PR.GA.TandemBox" type="CLS"/>
     <ProjectItem name="BL.PR.GA.Verlichting" type="CLS"/>
     <ProjectItem name="DOM.PM.IngegevenKenmerkenAPI" type="CLS"/>
+    <ProjectItem name="DOM.PM.IngegevenKenmerkenUpgrader" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken" type="CLS"/>
     <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie" type="CLS"/>
@@ -324,6 +324,7 @@
     <ProjectItem name="DOM.PM.impl.ProductKenmerken" type="CLS"/>
     <ProjectItem name="DOM.PM.impl.ProductKenmerkenSet" type="CLS"/>
     <ProjectItem name="DOM.PM.impl.ProductKenmerkenSets" type="CLS"/>
+    <ProjectItem name="DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade" type="CLS"/>
     <ProjectItem name="DOM.common.Personality" type="CLS"/>
     <ProjectItem name="DOM.common.VanHoeckePersonality" type="CLS"/>
     <ProjectItem name="Prod.GAData.TBXLade" type="CLS"/>
@@ -344,6 +345,7 @@
     <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"/>
Index: vhUnitTest/APPS/PM/Maatwerk/TestIngegevenKenmUpgrader.cls.xml
===================================================================
diff -u -r1074 -r3356
--- vhUnitTest/APPS/PM/Maatwerk/TestIngegevenKenmUpgrader.cls.xml	(.../TestIngegevenKenmUpgrader.cls.xml)	(revision 1074)
+++ vhUnitTest/APPS/PM/Maatwerk/TestIngegevenKenmUpgrader.cls.xml	(.../TestIngegevenKenmUpgrader.cls.xml)	(revision 3356)
@@ -16,7 +16,7 @@
 <Implementation><![CDATA[
 	Set UTKenmVersie02=##class(vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv02).%New()
 
-	Set NewVersionClassName=##class(APPS.PM.Maatwerk.IngegevenKenmUpgrader).GeefNewVersionClassName(UTKenmVersie02)
+	Set NewVersionClassName=##class(DOM.PM.IngegevenKenmerkenUpgrader).GeefNewVersionClassName(UTKenmVersie02)
 	
 	Do $$$AssertEquals(NewVersionClassName,"vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenv03","De classname van de nieuwe versie is correct")
 ]]></Implementation>
Index: vhUnitTest/APPS/PM/Maatwerk/IngegevenKenmUpgradeMockUT.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/IngegevenKenmUpgradeMockUT.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/IngegevenKenmUpgradeMockUT.cls.xml	(revision 3356)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMockUT">
+<Description>
+Mock-klasse voor de UnitTest-upgraders, deze zitten in een aparte package. </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.APPS.PM.Maatwerk.IngegevenKenmUpgradeMock</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefUpgraderPackageName">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "vhUnitTest.APPS.PM.Maatwerk.impl.upg"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/impl/Upgrade/IngegevenKenmerkenUpgrade.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/Upgrade/IngegevenKenmerkenUpgrade.cls.xml	(revision 0)
+++ DOM/PM/impl/Upgrade/IngegevenKenmerkenUpgrade.cls.xml	(revision 3356)
@@ -0,0 +1,198 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade">
+<Description>
+Deze klasse kan gebruikt worden om ingegeven kenmerken van een bepaalde versie te bekomen.  
+Geef kenmerken mee (aan de constructor) plus de versie die je nodig hebt.
+
+Als de ingegeven kenmerken niet kunnen geconverteerd worden, wordt een error teruggegeven.</Description>
+<IncludeCode>vhLib.Macro,TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Kenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VersiePrefix">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Kenmerken=IngegevenKenmerken
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerkenVersie">
+<Description>
+Dit is de hoofdfunctionaliteit van deze klasse:
+Converteert de IngegevenKenmerken naar de gevraagde OutputVersie van de Kenmerken </Description>
+<FormalSpec>OutputVersieNr:%Integer</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Do ..AnalyseerKlasseNaam(.BaseName, .InputVersieNr, .VersiePrefix)
+	
+	// Validatie van de method-arguments 
+	If BaseName="" {
+		$$$ThrowError($$$errGeneralError,"BaseName is niet ingevuld")
+	}
+	If VersiePrefix="" {
+		$$$ThrowError($$$errGeneralError,"De VersiePrefix is leeg")
+	} 
+	If $$$Not($IsValidNum(InputVersieNr))||(InputVersieNr<0) {
+		$$$ThrowError($$$errGeneralError,"InputVersieNr is ongeldig ("_InputVersieNr_")")
+	} 
+	If $$$Not($IsValidNum(OutputVersieNr)) {
+		$$$ThrowError($$$errGeneralError,"OutputVersieNr is ongeldig ("_OutputVersieNr_")")
+	} 
+	
+	// Kenmerken converteren naar de gevraagde versie 
+	Set OutputKenmerken=""
+	If OutputVersieNr=InputVersieNr {
+		// Versie is O.K. 
+		Set OutputKenmerken=..Kenmerken
+	}
+	ElseIf OutputVersieNr<InputVersieNr {
+		// Niet mogelijk om te downgraden naar lagere versie  (backward compatible ?) 
+		$$$ThrowError($$$errGeneralError,"OutputVersieNr is lager dan de versie van de IngegevenKenmerken")
+	}
+	Else {
+		// Upgraden naar hogere versie 
+		Set OutputKenmerken=..GeefUpgradedKenmerken(InputVersieNr,OutputVersieNr,BaseName,VersiePrefix)
+	}
+	
+	Quit OutputKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefUpgradedKenmerken">
+<FormalSpec>InputVersieNr:%String,OutputVersieNr:%String,BaseName:%String,VersiePrefix:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set FromIK=..Kenmerken
+	Set FromVersieNr=InputVersieNr
+
+	Set UpgradeVersieNr=InputVersieNr
+	While (UpgradeVersieNr<OutputVersieNr) {
+	
+		Set NextIK=""   ; Forceer unswizzle van de Oref 
+		Set NextIK=..GeefVolgendeVersieKenmerken(FromIK,.UpgradeVersieNr,BaseName,VersiePrefix)   ; UpgradeVersieNr wordt mee verhoogd met de versie van NextIK (ByRef doorgeven) 
+
+		If $$$Not($IsObject(NextIK)) {
+			$$$ThrowError($$$errGeneralError,"UpgradeIngegevenKenmerken() heeft geen object teruggegeven")
+		}
+		If $$$Not(UpgradeVersieNr>FromVersieNr) { 
+			// Als de VersieNr niet verhoogd is, dan zou dit leiden tot een oneindige lus --> throw error 
+			$$$ThrowError($$$errGeneralError,"UpgradeVersieNr is niet verhoogd na GeefVolgendeVersieKenmerken()")
+		}
+	
+		// Prep voor volgende iteratie 
+		Set FromIK=NextIK
+		Set FromVersieNr=UpgradeVersieNr
+	
+	}
+	Quit NextIK
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolgendeVersieKenmerken">
+<FormalSpec><![CDATA[FromIK:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&UpgradeVersieNr:%String,BaseName:%String,VersiePrefix:%String]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#define ClassExists(%v)  (##class(%Library.CompiledClass).%ExistsId(%v))
+	
+	Set NextVersieNr=UpgradeVersieNr+1
+	Set UpgraderClassName=..GeefUpgraderClassName(UpgradeVersieNr,NextVersieNr,BaseName,VersiePrefix)
+	
+	Set NextIK=""
+	If $$$ClassExists(UpgraderClassName) {
+		Set NextIK=$zobjclassmethod(UpgraderClassName,"UpgradeIngegevenKenmerken",FromIK)
+		Set UpgradeVersieNr=NextVersieNr
+	}
+	Else {
+		$$$ThrowError($$$errGeneralError,"De Upgrader klasse "_UpgraderClassName_" bestaat niet")
+	}
+	
+	Quit NextIK
+]]></Implementation>
+</Method>
+
+<Method name="GeefUpgraderClassName">
+<FormalSpec>FromVersieNr:%String,ToVersieNr:%String,BaseName:%String,VersiePrefix:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set UpgraderPackageName=..GeefUpgraderPackageName()
+	Quit UpgraderPackageName_"."_BaseName_VersiePrefix_..VersieNrAlsString(FromVersieNr)_VersiePrefix_..VersieNrAlsString(ToVersieNr)_"Upgrader"
+]]></Implementation>
+</Method>
+
+<Method name="GeefUpgraderPackageName">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "APPS.PM.Maatwerk.impl.upg"
+]]></Implementation>
+</Method>
+
+<Method name="AnalyseerKlasseNaam">
+<FormalSpec><![CDATA[&BaseName:%String,&VersieNr:%String,&VersiePrefix:%String]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##class(DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade).AnalyseerKenmerkenClassName(..Kenmerken, , .BaseName, .VersieNr, .VersiePrefix)   ; 2e param is de KenmerkPackageName, is NIET gelijk aan UpgraderPackageName
+]]></Implementation>
+</Method>
+
+<Method name="AnalyseerKenmerkenClassName">
+<Description>
+Deze classmethod wordt ook gebruikt door de klasse DOM.PM.IngegevenKenmerkenUpgrader; moet dus als classmethod blijven staan, NIET wijzigen naar een private method (WimV 30/11/2011). </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&KenmerkPackageName:%String,&BaseName:%String,&VersieNr:%String,&VersiePrefix:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	#define VersiePrefix   "v"
+
+	Set VersiePrefix=$$$VersiePrefix   ; VersiePrefix zou ook dynamisch kunnen bepaald worden op basis van de %ClassName (behalve versie 0) 
+
+	If Kenmerken.%Extends("DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken") {
+		Set KenmerkPackageName=Kenmerken.%PackageName()
+		Set ClassName=Kenmerken.%ClassName(0)
+		If ClassName?1(.E1"v"0.2N) {
+			// ClassName is volgens de naming-conventie  <BaseName>v<VersieNr> 
+			Set BaseName=$P(ClassName,VersiePrefix,1,$L(ClassName,VersiePrefix)-1)
+			Set VersieNr=+$$$LastPiece(ClassName,VersiePrefix)
+		}
+		Else {
+			// ClassName is NIET volgens de naming-conventie --> VersieNr is 0 
+			Set BaseName=ClassName
+			Set VersieNr=0
+		}
+	}
+	Else {
+		Set BaseName=""
+		$$$ThrowError($$$errInvalidInput,"ClassName van Kenmerken is ongeldig")
+	}
+	Quit //
+]]></Implementation>
+</Method>
+
+<Method name="VersieNrAlsString">
+<Description>
+Geeft het VersieNr terug als opgemaakte tekst, i.e. met de nodige voorloopnullen. 
+
+Deze classmethod wordt ook gebruikt door de klasse DOM.PM.IngegevenKenmerkenUpgrader; moet dus als classmethod blijven staan, NIET wijzigen naar een private method (WimV 30/11/2011). </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>VersieNr:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $S(VersieNr<10:"0"_(+VersieNr), 1:VersieNr)   ; Veronderstelt dat de Versie slechts 2 characters bevat. Indien anders, dan meer generieke implementatie maken.
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml
===================================================================
diff -u -r2444 -r3356
--- DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 2444)
+++ DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 3356)
@@ -51,5 +51,14 @@
 	Quit IKIDHash.GeefIngegevenKenmerken(IKID.GeefOverflowID())
 ]]></Implementation>
 </Method>
+
+<Method name="GeefIngegevenKenmerkenVersie">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,OutputVersieNr:%Integer</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set IKUpgrade=##class(DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade).%New(Kenmerken)
+	Quit IKUpgrade.GeefIngegevenKenmerkenVersie(OutputVersieNr)
+]]></Implementation>
+</Method>
 </Class>
 </Export>