Index: vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml
===================================================================
diff -u -r54662 -r54663
--- vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml	(.../SelectieKenmerken.cls.xml)	(revision 54662)
+++ vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml	(.../SelectieKenmerken.cls.xml)	(revision 54663)
@@ -90,27 +90,24 @@
 		While VerpakkingIterator.HasNext() {
 			Set Verpakking = VerpakkingIterator.Next()
 			Set IngegevenKenmerken = $ClassMethod(ClassName, MethodName, Verpakking)
-			Do ..Bereken(IngegevenKenmerken, ClassName, MethodName)
+			Do ..Bereken(IngegevenKenmerken)
 		}
 	} Else {
 		Set IngegevenKenmerken = $ClassMethod(ClassName, MethodName)
-		Do ..Bereken(IngegevenKenmerken, ClassName, MethodName)
+		Do ..Bereken(IngegevenKenmerken)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="Bereken">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,ClassName:%String,MethodName:%String</FormalSpec>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</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 ##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 = Exception.GeefErrorInformatie()