Index: DOM/PM/impl/Upgrade/IngegevenKenmerkenUpgrade.cls.xml
===================================================================
diff -u -r3356 -r3430
--- DOM/PM/impl/Upgrade/IngegevenKenmerkenUpgrade.cls.xml	(.../IngegevenKenmerkenUpgrade.cls.xml)	(revision 3356)
+++ DOM/PM/impl/Upgrade/IngegevenKenmerkenUpgrade.cls.xml	(.../IngegevenKenmerkenUpgrade.cls.xml)	(revision 3430)
@@ -16,8 +16,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlasseNaamZonderVersie">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VanVersieNr">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="VersiePrefix">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
@@ -27,6 +38,8 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Kenmerken=IngegevenKenmerken
+	Do ..AnalyseerKlasseNaam()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -38,54 +51,42 @@
 <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 {
+	If OutputVersieNr=..VanVersieNr {
 		// Versie is O.K. 
 		Set OutputKenmerken=..Kenmerken
 	}
-	ElseIf OutputVersieNr<InputVersieNr {
+	ElseIf OutputVersieNr<..VanVersieNr {
 		// 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)
+		Set OutputKenmerken=..GeefUpgradedKenmerken(OutputVersieNr)
 	}
 	
 	Quit OutputKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="GeefUpgradedKenmerken">
-<FormalSpec>InputVersieNr:%String,OutputVersieNr:%String,BaseName:%String,VersiePrefix:%String</FormalSpec>
+<FormalSpec>OutputVersieNr:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
 	Set FromIK=..Kenmerken
-	Set FromVersieNr=InputVersieNr
+	Set FromVersieNr=..VanVersieNr
 
-	Set UpgradeVersieNr=InputVersieNr
+	Set UpgradeVersieNr=..VanVersieNr
 	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) 
+		Set NextIK=..GeefVolgendeVersieKenmerken(FromIK,.UpgradeVersieNr)   ; UpgradeVersieNr wordt mee verhoogd met de versie van NextIK (ByRef doorgeven) 
 
 		If $$$Not($IsObject(NextIK)) {
 			$$$ThrowError($$$errGeneralError,"UpgradeIngegevenKenmerken() heeft geen object teruggegeven")
@@ -105,14 +106,14 @@
 </Method>
 
 <Method name="GeefVolgendeVersieKenmerken">
-<FormalSpec><![CDATA[FromIK:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&UpgradeVersieNr:%String,BaseName:%String,VersiePrefix:%String]]></FormalSpec>
+<FormalSpec><![CDATA[FromIK:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&UpgradeVersieNr:%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 UpgraderClassName=..GeefUpgraderClassName(UpgradeVersieNr,NextVersieNr)
 	
 	Set NextIK=""
 	If $$$ClassExists(UpgraderClassName) {
@@ -128,12 +129,12 @@
 </Method>
 
 <Method name="GeefUpgraderClassName">
-<FormalSpec>FromVersieNr:%String,ToVersieNr:%String,BaseName:%String,VersiePrefix:%String</FormalSpec>
+<FormalSpec>FromVersieNr:%String,ToVersieNr:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set UpgraderPackageName=..GeefUpgraderPackageName()
-	Quit UpgraderPackageName_"."_BaseName_VersiePrefix_..VersieNrAlsString(FromVersieNr)_VersiePrefix_..VersieNrAlsString(ToVersieNr)_"Upgrader"
+	Quit UpgraderPackageName_"."_..KlasseNaamZonderVersie_..VersiePrefix_..VersieNrAlsString(FromVersieNr)_..VersiePrefix_..VersieNrAlsString(ToVersieNr)_"Upgrader"
 ]]></Implementation>
 </Method>
 
@@ -145,17 +146,31 @@
 </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><![CDATA[
+	Do ##class(DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade).AnalyseerKenmerkenClassName(..Kenmerken, , .KlasseNaamZonderVersie, .VanVersieNr, .VersiePrefix)   ; 2e param is de KenmerkPackageName, is NIET gelijk aan UpgraderPackageName
+	Set ..KlasseNaamZonderVersie=KlasseNaamZonderVersie
+	Set ..VanVersieNr=VanVersieNr
+	Set ..VersiePrefix=VersiePrefix
+
+	// Validatie van de method-arguments 
+	If ..KlasseNaamZonderVersie="" {
+		$$$ThrowError($$$errGeneralError,"KlasseNaamZonderVersie is niet ingevuld")
+	}
+	If ..VersiePrefix="" {
+		$$$ThrowError($$$errGeneralError,"De VersiePrefix is leeg")
+	} 
+	If $$$Not($IsValidNum(..VanVersieNr))||(..VanVersieNr<0) {
+		$$$ThrowError($$$errGeneralError,"VersieNr van de IngegevenKenmerken-klasse is ongeldig ("_..VanVersieNr_")")
+	}
 ]]></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>
+<FormalSpec><![CDATA[Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&KenmerkPackageName:%String,&KlasseNaamZonderVersie:%String,&VanVersieNr:%String,&VersiePrefix:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	#define VersiePrefix   "v"
 
@@ -165,21 +180,20 @@
 		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)
+			// ClassName is volgens de naming-conventie  <KlasseNaamZonderVersie>v<VersieNr> 
+			Set KlasseNaamZonderVersie=$P(ClassName,VersiePrefix,1,$L(ClassName,VersiePrefix)-1)
+			Set VanVersieNr=+$$$LastPiece(ClassName,VersiePrefix)
 		}
 		Else {
 			// ClassName is NIET volgens de naming-conventie --> VersieNr is 0 
-			Set BaseName=ClassName
-			Set VersieNr=0
+			Set KlasseNaamZonderVersie=ClassName
+			Set VanVersieNr=0
 		}
 	}
 	Else {
-		Set BaseName=""
+		Set KlasseNaamZonderVersie=""
 		$$$ThrowError($$$errInvalidInput,"ClassName van Kenmerken is ongeldig")
 	}
-	Quit //
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/PM/Upgrade/IngegevenKenmUpgradeMock.cls.xml
===================================================================
diff -u -r3391 -r3430
--- vhUnitTest/DOM/PM/Upgrade/IngegevenKenmUpgradeMock.cls.xml	(.../IngegevenKenmUpgradeMock.cls.xml)	(revision 3391)
+++ vhUnitTest/DOM/PM/Upgrade/IngegevenKenmUpgradeMock.cls.xml	(.../IngegevenKenmUpgradeMock.cls.xml)	(revision 3430)
@@ -5,26 +5,32 @@
 Mock-klasse om de Private methods public te maken </Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefUpgraderClassName">
 <Description>
 Public </Description>
-<FormalSpec>FromVersieNr:%String,ToVersieNr:%String,BaseName:%String,VersiePrefix:%String</FormalSpec>
+<FormalSpec>FromVersieNr:%String,ToVersieNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Quit ##super(.FromVersieNr, .ToVersieNr, .BaseName, .VersiePrefix)
-
+<Implementation><![CDATA[	Quit ##super(.FromVersieNr, .ToVersieNr)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVolgendeVersieKenmerken">
 <Description>
 Public </Description>
-<FormalSpec><![CDATA[FromIK:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&UpgradeVersieNr:%String,BaseName:%String,VersiePrefix:%String]]></FormalSpec>
+<FormalSpec><![CDATA[FromIK:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&UpgradeVersieNr:%String]]></FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[
-	Quit ##super(.FromIK, .UpgradeVersieNr, .BaseName, .VersiePrefix)
+<Implementation><![CDATA[	Quit ##super(.FromIK, .UpgradeVersieNr)
+]]></Implementation>
+</Method>
 
+<Method name="SetPrivateProperties">
+<FormalSpec><![CDATA[VersiePrefix:%String,&KlasseNaamZonderVersie:%String,VanVersieNr:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	Set:($D(VersiePrefix)) ..VersiePrefix=VersiePrefix
+	Set:($D(KlasseNaamZonderVersie)) ..KlasseNaamZonderVersie=KlasseNaamZonderVersie
+	Set:($D(VanVersieNr)) ..VanVersieNr=VanVersieNr
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/Upgrade/TestIngegevenKenmUpgradeV.cls.xml
===================================================================
diff -u -r3391 -r3430
--- vhUnitTest/DOM/PM/Upgrade/TestIngegevenKenmUpgradeV.cls.xml	(.../TestIngegevenKenmUpgradeV.cls.xml)	(revision 3391)
+++ vhUnitTest/DOM/PM/Upgrade/TestIngegevenKenmUpgradeV.cls.xml	(.../TestIngegevenKenmUpgradeV.cls.xml)	(revision 3430)
@@ -15,19 +15,19 @@
 <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 ##class(DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade).AnalyseerKenmerkenClassName(UTKenmVersie02, .PackageName, .KlasseNaamZonderVersie, .InputVersieNr, .VersiePrefix)
 	
 	Do $$$AssertEquals(PackageName,"vhUnitTest.DOM.PM.Upgrade.impl","De PackageName is correct")
-	Do $$$AssertEquals(BaseName,"UTKenmerken","De BaseName is correct")
+	Do $$$AssertEquals(KlasseNaamZonderVersie,"UTKenmerken","De KlasseNaamZonderVersie 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 ##class(DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade).AnalyseerKenmerkenClassName(UTKenmVersie02, .PackageName, .KlasseNaamZonderVersie, .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(KlasseNaamZonderVersie,"TBXKenmerken","De KlasseNaamZonderVersie is correct")
 	Do $$$AssertEquals(InputVersieNr,0,"InputVersieNr is correct")
 	Do $$$AssertEquals(VersiePrefix,"v","VersiePrefix is correct")
 ]]></Implementation>
@@ -39,7 +39,7 @@
 	Set GeenIngegevenKenmerkenObj=##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New("","","")
 	
 	$$$LocalErrorTrapOn
-	Do ##class(DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade).AnalyseerKenmerkenClassName(GeenIngegevenKenmerkenObj, , .BaseName, .InputVersieNr, .VersiePrefix)
+	Do ##class(DOM.PM.impl.Upgrade.IngegevenKenmerkenUpgrade).AnalyseerKenmerkenClassName(GeenIngegevenKenmerkenObj, , .KlasseNaamZonderVersie, .InputVersieNr, .VersiePrefix)
 	$$$ClearError
 	$$$LocalErrorTrapOff
 	
@@ -52,32 +52,37 @@
 
 <Method name="TestGeefUpgraderClassName">
 <Implementation><![CDATA[
+	Set DummyKenmerken=##class(vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv00).%New()
 	Set FromVersieNr="9"
 	Set NextVersieNr="10"
-	Set BaseName="DummyBaseName"
+	Set KlasseNaamZonderVersie="DummyBaseName"
 	Set VersiePrefix="UTvp"
 
-	Set IKUpgrade=##class(vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeMock).%New("")
-	Set UpgraderClassName=IKUpgrade.GeefUpgraderClassName(FromVersieNr,NextVersieNr,BaseName,VersiePrefix)
+	Set IKUpgrade=##class(vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeMock).%New(DummyKenmerken)
+	Do IKUpgrade.SetPrivateProperties(VersiePrefix,KlasseNaamZonderVersie,)
+	Set UpgraderClassName=IKUpgrade.GeefUpgraderClassName(FromVersieNr,NextVersieNr)
 	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)
+	Set IKUpgrade=##class(vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeUTMock).%New(DummyKenmerken)
+	Do IKUpgrade.SetPrivateProperties(VersiePrefix,KlasseNaamZonderVersie,)
+	Set UpgraderClassName=IKUpgrade.GeefUpgraderClassName(FromVersieNr,NextVersieNr)
 	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 IKUpgrade=##class(vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeUTMock).%New(UTKenmVersie00)
+
+	Set KlasseNaamZonderVersie="UTKenmerken"
 	Set VersiePrefix="v"
+	Do IKUpgrade.SetPrivateProperties(VersiePrefix,KlasseNaamZonderVersie,)
+
+	Set UpgradeVersieNr="0"
+	Set UTKenmVersie01=IKUpgrade.GeefVolgendeVersieKenmerken(UTKenmVersie00,.UpgradeVersieNr)
 	
-	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")
@@ -88,13 +93,15 @@
 <Implementation><![CDATA[
 	Set ..ErrorMsg=""
 	Set UTKenmVersie00=##class(vhUnitTest.DOM.PM.Upgrade.impl.UTKenmerkenv00).%New()
-	Set UpgradeVersieNr="0"
-	Set BaseName="NonExistingKenmerken"
+	Set IKUpgrade=##class(vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeUTMock).%New(UTKenmVersie00)
+
+	Set KlasseNaamZonderVersie="NonExistingKenmerken"
 	Set VersiePrefix="v"
-	
+	Do IKUpgrade.SetPrivateProperties(VersiePrefix,KlasseNaamZonderVersie,)
+
 	$$$LocalErrorTrapOn
-	Set IKUpgrade=##class(vhUnitTest.DOM.PM.Upgrade.IngegevenKenmUpgradeUTMock).%New(UTKenmVersie00)
-	Set UTKenmVersie01=IKUpgrade.GeefVolgendeVersieKenmerken(UTKenmVersie00,.UpgradeVersieNr,BaseName,VersiePrefix)
+	Set UpgradeVersieNr="0"
+	Set UTKenmVersie01=IKUpgrade.GeefVolgendeVersieKenmerken(UTKenmVersie00,.UpgradeVersieNr)
 	$$$ClearError
 	$$$LocalErrorTrapOff
 	
@@ -162,9 +169,9 @@
 <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)
+
+	$$$LocalErrorTrapOn
 	Set OutputKenmerken=IKUpgrade.GeefIngegevenKenmerkenVersie(0)
 	$$$ClearError
 	$$$LocalErrorTrapOff