Index: vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml	(revision 0)
+++ vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml	(revision 54631)
@@ -0,0 +1,113 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhConsistency.Checks.DOM.PM.SelectieKenmerken">
+<Super>vhConsistency.Check</Super>
+
+<Property name="BerekeningServiceProduct">
+<Type>APPS.PM.Maatwerk.impl.BerekeningServiceProduct</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,1,"vhConsistency.Checks.DOM.PM.SelectieKenmerken")</Description>
+<FormalSpec>BerekeningServiceProduct:APPS.PM.Maatwerk.impl.BerekeningServiceProduct=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..BerekeningServiceProduct = $$$Inject(BerekeningServiceProduct, ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUit">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..HerberekenStandaardLaden()
+	
+	Quit (..GeefAantalMeldingen()=0)
+]]></Implementation>
+</Method>
+
+<Method name="HerberekenStandaardLaden">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken
+	#dim KlasseInstance As TECH.RegisteredObject
+	#dim ClassDefinition As TECH.ClassInfo.ClassDefinition
+	#dim MethodDefinition As TECH.ClassInfo.MethodDefinition
+	#dim MethodIterator As TECH.Iterator
+	#dim VerpakkingIterator As TECH.Iterator
+	#dim Verpakking As DOM.PM.enu.LBXVerpakkingType
+	#dim IsMethodPublic, HeeftMethodVerpakkingParameter 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()
+	
+	While MethodIterator.HasNext() {
+		Set MethodDefinition = MethodIterator.Next()
+		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 VerpakkingIterator = ##class(DOM.PM.enu.LBXVerpakkingType).ValueListIterator()
+				While VerpakkingIterator.HasNext() {
+					Set Verpakking = VerpakkingIterator.Next()
+					Set IngegevenKenmerken = $ClassMethod(ClassName, MethodName, Verpakking)
+					Do ..Bereken(IngegevenKenmerken, ClassName, MethodName)
+				}
+			} Else {
+				Set IngegevenKenmerken = $ClassMethod(ClassName, MethodName)
+				Do ..Bereken(IngegevenKenmerken, ClassName, MethodName)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Bereken">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,ClassName:%String,MethodName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.VKP.enu.Klant).TestklantVanHoecke()
+	
+	try {
+		Do ##class(Tools.Wlip).%New(191).String("Gelukt voor: '"_ClassName_"' - '"_MethodName_"'")
+		Do ..BerekeningServiceProduct.BerekenHalffabItemsBoomEnKostItem(IngegevenKenmerken, KlantID, 1)	
+	} 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 = ""
+		
+		Set ExceptieData = ExceptieData _Exception.GeefOmschrijving()
+		Set ExceptieData = ExceptieData _Exception.GeefExtraInfo()
+		Set ExceptieData = ExceptieData _Exception.GeefSpecifiekeData()
+		
+		Do ..VoegMeldingToe(""_ExceptieData)
+		*/
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefMethodExcludeLijst">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set MethodExcludeLijst = ##class(%ListOfDataTypes).%New()
+	
+	Do MethodExcludeLijst.Insert("LegeKenmerken")
+	
+	Quit MethodExcludeLijst
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>