Index: vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml
===================================================================
diff -u -r54632 -r54657
--- vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml	(.../SelectieKenmerken.cls.xml)	(revision 54632)
+++ vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml	(.../SelectieKenmerken.cls.xml)	(revision 54657)
@@ -3,6 +3,13 @@
 <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";
+
+]]></Content>
+</UDLText>
+
 <Property name="BerekeningServiceProduct">
 <Type>APPS.PM.Maatwerk.impl.BerekeningServiceProduct</Type>
 </Property>
@@ -40,6 +47,7 @@
 	#dim ClassDefinition As TECH.ClassInfo.ClassDefinition
 	#dim MethodDefinition As TECH.ClassInfo.MethodDefinition
 	#dim MethodIterator As TECH.Iterator
+	#dim ParameterIterator As TECH.Iterator
 	#dim VerpakkingIterator As TECH.Iterator
 	#dim Verpakking As DOM.PM.enu.LBXVerpakkingType
 	#dim IsMethodPublic, HeeftMethodVerpakkingParameter As %Boolean
@@ -54,8 +62,8 @@
 		Set MethodName = MethodDefinition.GeefNaam()
 		Set IsMethodPublic = $$$Not(MethodDefinition.IsPrivate())
 		If (IsMethodPublic && $$$Not(##class(TECH.ListUtils).Contains(..GeefMethodExcludeLijst(), MethodName))) {
-			Set HeeftMethodVerpakkingParameter = (MethodDefinition.GeefParameters().HasNext() > 0)
-			If HeeftMethodVerpakkingParameter {
+			Set ParameterIterator = MethodDefinition.GeefParameters()
+			If ..HeeftMethodVerpakkingParameter(ParameterIterator) {
 				Set VerpakkingIterator = ##class(DOM.PM.enu.LBXVerpakkingType).ValueListIterator()
 				While VerpakkingIterator.HasNext() {
 					Set Verpakking = VerpakkingIterator.Next()
@@ -82,16 +90,12 @@
 		Do ##class(Tools.Wlip).%New(191).String("Gelukt voor: '"_ClassName_"' - '"_MethodName_"'")
 	} catch {
 		Do ##class(Tools.Wlip).%New(191).String("Niet gelukt voor: '"_ClassName_"' - '"_MethodName_"'")
-		/*
+		
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		#dim ExceptieData As %String = ""
+		#dim ExceptieData As %String = Exception.GeefErrorInformatie()
 		
-		Set ExceptieData = ExceptieData _Exception.GeefOmschrijving()
-		Set ExceptieData = ExceptieData _Exception.GeefExtraInfo()
-		Set ExceptieData = ExceptieData _Exception.GeefSpecifiekeData()
+		Do ..VoegMeldingToe(ExceptieData)
 		
-		Do ..VoegMeldingToe(""_ExceptieData)
-		*/
 	}
 ]]></Implementation>
 </Method>
@@ -120,6 +124,47 @@
 	Quit MethodExcludeLijst
 ]]></Implementation>
 </Method>
+
+<Method name="HeeftMethodVerpakkingParameter">
+<FormalSpec>ParameterIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim HeeftMethodVerpakkingParameter As %Boolean = $$$False
+	#dim IteratorCount As %Integer = ..GeefIteratorCount(ParameterIterator)
+	#dim ParameterType As %String
+	
+	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.")
+		}
+	} 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
+]]></Implementation>
+</Method>
+
+<Method name="GeefIteratorCount">
+<FormalSpec>Iterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Count As %Integer = 0
+	
+	While Iterator.HasNext() {
+		Do Iterator.Next()
+		Set Count = Count + 1
+	}
+	Do Iterator.Reset()
+	
+	Quit Count
+]]></Implementation>
+</Method>
 </Class>