Index: vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml
===================================================================
diff -u -r54675 -r54676
--- vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml	(.../SelectieKenmerken.cls.xml)	(revision 54675)
+++ vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml	(.../SelectieKenmerken.cls.xml)	(revision 54676)
@@ -3,13 +3,11 @@
 <Class name="vhConsistency.Checks.DOM.PM.SelectieKenmerken">
 <Super>vhConsistency.Check</Super>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Parameter StuurMailNaar As %String = "PM_Administratie@vanhoecke.be;ICT_meldingen@vanhoecke.be";
+<Parameter name="StuurMailNaar">
+<Type>%String</Type>
+<Default>PM_Administratie@vanhoecke.be;ICT_meldingen@vanhoecke.be</Default>
+</Parameter>
 
-]]></Content>
-</UDLText>
-
 <Property name="BerekeningServiceProduct">
 <Type>APPS.PM.Maatwerk.impl.BerekeningServiceProduct</Type>
 </Property>
@@ -49,59 +47,20 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ClassDefinition As TECH.ClassInfo.ClassDefinition
-	#dim StandaardLadeKlasseIterator As TECH.Iterator = ..GeefStandaardLadeKlasseIterator()
+	#dim StandaardLadenKlasseIterator As TECH.Iterator = ..GeefStandaardLadenKlasseIterator()
 	#dim ClassName As %String
 	
-	While StandaardLadeKlasseIterator.HasNext() {
-		Set ClassName = StandaardLadeKlasseIterator.Next()
+	While StandaardLadenKlasseIterator.HasNext() {
+		Set ClassName = StandaardLadenKlasseIterator.Next()
 		Set ClassDefinition = ##class(TECH.ClassInfo.ClassDefinition).%New(ClassName)
 		
-		Do ..BerekenStandaardLadenInKlasse(ClassDefinition, ClassName)
+		Do ..BerekenStandaardLadenInKlasse(ClassDefinition)
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="VoegVolgendeMeldingToe">
-<FormalSpec>Melding:%String=""</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set ..MeldingCounter = ..MeldingCounter + 1
-	
-	If (..MeldingCounter = 1) {
-		Do ..VoegToeVoorafgaandelijkeMelding()
-	}
-	
-	Do ..VoegMeldingToe(Melding)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeVoorafgaandelijkeMelding">
-<Private>1</Private>
-<Implementation><![CDATA[
-	Do ..VoegMeldingToe(" ")
-	Do ..VoegMeldingToe("DIT IS EEN CHECK DIE PROBEERT EEN AANTAL MAATWERKCONFIGURATIES DOOR CACHE TE LATEN HERBEREKENEN. DEZE MAIL WORDT GESTUURD NAAR ZOWEL ICT ALS PM. ")
-	Do ..VoegMeldingToe("ALS JE DEZE MAIL ONTVANGT, DAN BETEKENT DIT DAT MINSTENS 1 VAN DE GEPROBEERDE MAATWERKCONFIGURATIES DOOR CACHE NIET MEER BEREKEND KAN WORDEN. ")
-	Do ..VoegMeldingToe("MOGELIJKE REDENEN ZIJN: ")
-	Do ..VoegMeldingToe("- De selectiekenmerken zijn gewijzigd. ")
-	Do ..VoegMeldingToe("- Er is code gewijzigd in Cache. ")
-	Do ..VoegMeldingToe("  ")
-	Do ..VoegMeldingToe("- ALS HET GAAT OVER EEN GEVAL VAN GEWIJZIGDE SELECTIEKENMERKEN: ")
-	Do ..VoegMeldingToe("    Dan is PM het meest aangewezen om dit op te lossen, zij zijn mogelijks bezig geweest met aanpassingen hieraan. ")
-	Do ..VoegMeldingToe("    In dat geval dient deze mail dan ook als bijstand voor PM, zodat zij weten dat hun aanpassingen voor problemen gaan zorgen. ")
-	Do ..VoegMeldingToe("- IN ALLE ANDERE GEVALLEN ZAL DIT OPGELOST MOETEN WORDEN DOOR ICT: ")
-	Do ..VoegMeldingToe("    Momenteel worden voor deze check alle StandaardLaden herberekend uit volgende klassen: ")
-	Do ..VoegMeldingToe("        + "_##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).%ClassName(1)_" ")
-	Do ..VoegMeldingToe("        + "_##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%ClassName(1)_" ")
-	Do ..VoegMeldingToe("    Mogelijks is er daarin een aanpassing aangebracht. ")
-	Do ..VoegMeldingToe("    Anders logs checken (laatste GetLatest) en/of debuggen. ")
-	Do ..VoegMeldingToe("   ")
-	Do ..VoegMeldingToe("HET ONDERSTAANDE KAN EEN LICHT WERPEN OP WAT (bv. welk halffabrikaat) VERANTWOORDELIJK IS VOOR HET FALEN VAN DE TEST... ")
-	Do ..VoegMeldingToe("    ")
-]]></Implementation>
-</Method>
-
 <Method name="BerekenStandaardLadenInKlasse">
-<FormalSpec>ClassDefinition:TECH.ClassInfo.ClassDefinition,ClassName:%String</FormalSpec>
+<FormalSpec>ClassDefinition:TECH.ClassInfo.ClassDefinition</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim MethodIterator As TECH.Iterator
@@ -114,15 +73,15 @@
 		Set MethodDefinition = MethodIterator.Next()
 		Set MethodName = MethodDefinition.GeefNaam()
 		Set IsMethodPublic = $$$Not(MethodDefinition.IsPrivate())
-		If (IsMethodPublic && $$$Not(##class(TECH.ListUtils).Contains(..GeefMethodExcludeLijst(), MethodName))) {
-			Do ..HaalIngegevenKenmerkenOpEnBereken(MethodDefinition, ClassName, MethodName)
+		If (IsMethodPublic && $$$Not(##class(TECH.ListUtils).Contains(..GeefStandaardLadenKlassenMethodExcludeLijst(), MethodName))) {
+			Do ..HaalIngegevenKenmerkenOpEnBereken(MethodDefinition, ClassDefinition)
 		}
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="HaalIngegevenKenmerkenOpEnBereken">
-<FormalSpec>MethodDefinition:TECH.ClassInfo.MethodDefinition,ClassName:%String,MethodName:%String</FormalSpec>
+<FormalSpec>MethodDefinition:TECH.ClassInfo.MethodDefinition,ClassDefinition:TECH.ClassInfo.ClassDefinition</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken
@@ -131,27 +90,25 @@
 	
 	Set ParameterIterator = MethodDefinition.GeefParameters()
 	If ..HeeftMethodVerpakkingParameter(ParameterIterator) {
-		Set VerpakkingIterator = ..GeefVerpakkingIterator(ParameterIterator)
+		Set VerpakkingIterator = ..GeefVerpakkingIteratorVolgensMethodParameters(ParameterIterator)
 		While VerpakkingIterator.HasNext() {
 			Set Verpakking = VerpakkingIterator.Next()
-			Set IngegevenKenmerken = $ClassMethod(ClassName, MethodName, Verpakking)
+			Set IngegevenKenmerken = $ClassMethod(ClassDefinition.GeefNaam(), MethodDefinition.GeefNaam(), Verpakking)
 			Do ..Bereken(IngegevenKenmerken)
 		}
 	} Else {
-		Set IngegevenKenmerken = $ClassMethod(ClassName, MethodName)
+		Set IngegevenKenmerken = $ClassMethod(ClassDefinition.GeefNaam(), MethodDefinition.GeefNaam())
 		Do ..Bereken(IngegevenKenmerken)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="Bereken">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,KlantID:DOM.VKP.VanHoeckeKlantID=##class(DOM.VKP.enu.Klant).TestklantVanHoecke(),Aantal:%Integer=1</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.VKP.enu.Klant).TestklantVanHoecke()
-	
 	try {
-		Do ..BerekeningServiceProduct.BerekenHalffabItemsBoomEnKostItem(IngegevenKenmerken, KlantID, 1)
+		Do ..BerekeningServiceProduct.BerekenHalffabItemsBoomEnKostItem(IngegevenKenmerken, KlantID, Aantal)
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		#dim ExceptieData As %String = Exception.GeefErrorInformatie()
@@ -161,7 +118,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefStandaardLadeKlasseIterator">
+<Method name="GeefStandaardLadenKlasseIterator">
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
@@ -174,7 +131,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefMethodExcludeLijst">
+<Method name="GeefStandaardLadenKlassenMethodExcludeLijst">
 <Private>1</Private>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
@@ -190,11 +147,11 @@
 <FormalSpec>ParameterIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..GeefIteratorCount(..GeefVerpakkingIterator(ParameterIterator)) > 0)
+<Implementation><![CDATA[	Quit (..GeefIteratorCount(..GeefVerpakkingIteratorVolgensMethodParameters(ParameterIterator)) > 0)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVerpakkingIterator">
+<Method name="GeefVerpakkingIteratorVolgensMethodParameters">
 <FormalSpec>ParameterIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
@@ -233,6 +190,45 @@
 	Quit Count
 ]]></Implementation>
 </Method>
+
+<Method name="VoegVolgendeMeldingToe">
+<FormalSpec>Melding:%String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..MeldingCounter = ..MeldingCounter + 1
+	
+	If (..MeldingCounter = 1) {
+		Do ..VoegToeVoorafgaandelijkeMelding()
+	}
+	
+	Do ..VoegMeldingToe(Melding)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeVoorafgaandelijkeMelding">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegMeldingToe(" ")
+	Do ..VoegMeldingToe("DIT IS EEN CHECK DIE PROBEERT EEN AANTAL MAATWERKCONFIGURATIES DOOR CACHE TE LATEN HERBEREKENEN. DEZE MAIL WORDT GESTUURD NAAR ZOWEL ICT ALS PM. ")
+	Do ..VoegMeldingToe("ALS JE DEZE MAIL ONTVANGT, DAN BETEKENT DIT DAT MINSTENS 1 VAN DE GEPROBEERDE MAATWERKCONFIGURATIES DOOR CACHE NIET MEER BEREKEND KAN WORDEN. ")
+	Do ..VoegMeldingToe("MOGELIJKE REDENEN ZIJN: ")
+	Do ..VoegMeldingToe("- De selectiekenmerken zijn gewijzigd. ")
+	Do ..VoegMeldingToe("- Er is code gewijzigd in Cache. ")
+	Do ..VoegMeldingToe("  ")
+	Do ..VoegMeldingToe("- ALS HET GAAT OVER EEN GEVAL VAN GEWIJZIGDE SELECTIEKENMERKEN: ")
+	Do ..VoegMeldingToe("    Dan is PM het meest aangewezen om dit op te lossen, zij zijn mogelijks bezig geweest met aanpassingen hieraan. ")
+	Do ..VoegMeldingToe("    In dat geval dient deze mail dan ook als bijstand voor PM, zodat zij weten dat hun aanpassingen voor problemen gaan zorgen. ")
+	Do ..VoegMeldingToe("- IN ALLE ANDERE GEVALLEN ZAL DIT OPGELOST MOETEN WORDEN DOOR ICT: ")
+	Do ..VoegMeldingToe("    Momenteel worden voor deze check alle StandaardLaden herberekend uit volgende klassen: ")
+	Do ..VoegMeldingToe("        + "_##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).%ClassName(1)_" ")
+	Do ..VoegMeldingToe("        + "_##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%ClassName(1)_" ")
+	Do ..VoegMeldingToe("    Mogelijks is er daarin een aanpassing aangebracht. ")
+	Do ..VoegMeldingToe("    Anders logs checken (laatste GetLatest) en/of debuggen. ")
+	Do ..VoegMeldingToe("   ")
+	Do ..VoegMeldingToe("HET ONDERSTAANDE KAN EEN LICHT WERPEN OP WAT (bv. welk halffabrikaat) VERANTWOORDELIJK IS VOOR HET FALEN VAN DE TEST... ")
+	Do ..VoegMeldingToe("    ")
+]]></Implementation>
+</Method>
 </Class>