Index: vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml
===================================================================
diff -u -r54658 -r54661
--- vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml	(.../SelectieKenmerken.cls.xml)	(revision 54658)
+++ vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml	(.../SelectieKenmerken.cls.xml)	(revision 54661)
@@ -33,21 +33,22 @@
 <Method name="VoerUit">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ..HerberekenStandaardLaden()
+	Do ..BerekenStandaardLaden()
 	
 	Quit (..GeefAantalMeldingen()=0)
 ]]></Implementation>
 </Method>
 
-<Method name="HerberekenStandaardLaden">
+<Method name="BerekenStandaardLaden">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ClassDefinition As TECH.ClassInfo.ClassDefinition
 	#dim MethodDefinition As TECH.ClassInfo.MethodDefinition
+	#dim StandaardLadeKlasseIterator As TECH.Iterator = ..GeefStandaardLadeKlasseIterator()
 	#dim MethodIterator As TECH.Iterator
 	#dim IsMethodPublic As %Boolean
 	#dim ClassName, MethodName As %String
-		
+	
 	Set ClassName = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).%ClassName(1)
 	Set ClassDefinition = ##class(TECH.ClassInfo.ClassDefinition).%New(ClassName)
 	Set MethodIterator = ClassDefinition.GeefMethods()
@@ -73,7 +74,7 @@
 	
 	Set ParameterIterator = MethodDefinition.GeefParameters()
 	If ..HeeftMethodVerpakkingParameter(ParameterIterator) {
-		Set VerpakkingIterator = ##class(DOM.PM.enu.LBXVerpakkingType).ValueListIterator()
+		Set VerpakkingIterator = ..GeefVerpakkingIterator(ParameterIterator)
 		While VerpakkingIterator.HasNext() {
 			Set Verpakking = VerpakkingIterator.Next()
 			Set IngegevenKenmerken = $ClassMethod(ClassName, MethodName, Verpakking)
@@ -106,16 +107,16 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefStandaardLadeKlasseLijst">
+<Method name="GeefStandaardLadeKlasseIterator">
 <Private>1</Private>
-<ReturnType>%ListOfDataTypes</ReturnType>
+<ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	Set StandaardLadeKlasseLijst = ##class(%ListOfDataTypes).%New()
+	#dim StandaardLadeKlasseLijst = ##class(%ListOfDataTypes).%New()
 	
 	Do StandaardLadeKlasseLijst.Insert(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).%ClassName(1))
 	Do StandaardLadeKlasseLijst.Insert(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%ClassName(1))
 	
-	Quit StandaardLadeKlasseLijst
+	Quit ##class(TECH.ListIterator).%New(StandaardLadeKlasseLijst)
 ]]></Implementation>
 </Method>
 
@@ -135,23 +136,30 @@
 <FormalSpec>ParameterIterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..GeefIteratorCount(..GeefVerpakkingIterator(ParameterIterator)) > 0)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingIterator">
+<FormalSpec>ParameterIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	#dim HeeftMethodVerpakkingParameter As %Boolean = $$$False
-	#dim IteratorCount As %Integer = ..GeefIteratorCount(ParameterIterator)
-	#dim ParameterType As %String
+	#dim VerpakkingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New())
+	#dim Parameter As TECH.ClassInfo.ParameterDefinition
 	
-	If (IteratorCount = 1) {
-		Set ParameterType = ParameterIterator.Next().GeefType()
-		If ((ParameterType = "DOM.PM.enu.LBXVerpakkingType") || (ParameterType = "DOM.PM.enu.TAORVerpakkingType")) {
-			Set HeeftMethodVerpakkingParameter = $$$True
-		} Else {
-			Do ..VoegMeldingToe("In de vhTest.Utils.DOM-StandaardLade-klassen (LBX en TAOR) zijn methods gevonden met niet-herkende Verpakking-parameter. Deze uitbreiding is niet voorzien in deze check! De voorziene werking van de check komt daardoor niet in het gedrang.")
+	Do ParameterIterator.Reset()
+	While ParameterIterator.HasNext() {
+		Set Parameter = ParameterIterator.Next()
+		If ($$$Not(Parameter.GeefType() = "DOM.PM.enu.LBXVerpakkingType") && $$$Not(Parameter.GeefType() = "DOM.PM.enu.TAORVerpakkingType")) {
+			Do ..VoegMeldingToe("In de vhTest.Utils.DOM-StandaardLade-klassen (LBX en TAOR) zijn methods gevonden die, naast de Verpakking-parameter, nog meer parameters hebben. Deze uitbreiding is niet voorzien in deze check! De voorziene werking van de check komt daardoor niet in het gedrang.")
+		} ElseIf ((Parameter.GeefType() = "DOM.PM.enu.LBXVerpakkingType") || (Parameter.GeefType() = "DOM.PM.enu.TAORVerpakkingType")) {
+			Set VerpakkingIterator = $classmethod(Parameter.GeefType(),"ValueListIterator")
+			Continue
 		}
-	} ElseIf (IteratorCount > 1) {
-		Do ..VoegMeldingToe("In de vhTest.Utils.DOM-StandaardLade-klassen (LBX en TAOR) zijn methods gevonden die naast de Verpakking-parameter nog meer parameters hebben. Deze uitbreiding is niet voorzien in deze check! De voorziene werking van de check komt daardoor niet in het gedrang.")
 	}
 	
-	Quit HeeftMethodVerpakkingParameter
+	Quit VerpakkingIterator
 ]]></Implementation>
 </Method>