Index: DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenLadeMetUitsparingHelper.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenLadeMetUitsparingHelper.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenLadeMetUitsparingHelper.cls.xml	(revision 63476)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenLadeMetUitsparingHelper">
+<Super>TECH.RegisteredObject,DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</Super>
+
+<Property name="IsLadeMetUitsparing">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="IsLadeMetUitsparing">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ..IsLadeMetUitsparing = $$$False
+	
+	If (##class(TECH.CompiledClassUtils).PropertyExists($classname(IngegevenKenmerken), "UitsparingData")) {
+		Do IngegevenKenmerken.Accept($this)
+	}
+	
+	Quit ..IsLadeMetUitsparing
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLBXKenmerken">
+<FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
+<Implementation><![CDATA[
+	If LBXKenmerken.GeefVersieNr() > 0 {
+		Set ..IsLadeMetUitsparing = (LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMVXKenmerken">
+<FormalSpec>MVXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
+<Implementation><![CDATA[	Set ..IsLadeMetUitsparing = ((MVXKenmerken.Toepassing = ##class(DOM.PM.enu.MVXToepassing).Sifon()) || (MVXKenmerken.Toepassing = ##class(DOM.PM.enu.MVXToepassing).Spoelbak()))
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTAORKenmerken">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Implementation><![CDATA[	Set ..IsLadeMetUitsparing = (TAORKenmerken.Toepassing = ##class(DOM.PM.enu.TAORToepassing).Sifon())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTBXKenmerken">
+<FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<Implementation><![CDATA[
+	// TBX-Kenmerken hebben geen UitsparingData-property, dus geen implementatie nodig. Anders zou die er als volgt uitgezien hebben:
+	// Set ..IsLadeMetUitsparing = ((TBXKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3()) || (TBXKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()))
+	// De belangrijkste gebruiker van deze impl is de IKCanonischeWaardeGenerator. Het wijzigen van de impl kan dus zeer zware gevolgen hebben voor de IKIDHash!
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsLadeMetUitsparing/TestVoorAlleKenmerkenKlassen.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsLadeMetUitsparing/TestVoorAlleKenmerkenKlassen.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsLadeMetUitsparing/TestVoorAlleKenmerkenKlassen.cls.xml	(revision 63476)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI.IsLadeMetUitsparing.TestVoorAlleKenmerkenKlassen">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="DummyTrigger">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenLadeMetUitsparingHelper</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test: SifonLades voor alle IngegevenKenmerken-klassen">
+<Description>
+Dit is een smoketest, waarvan de assert verwarrend geïmplementeerd is.
+De IsLadeMetUitsparing-test is als dusdanig nu opgevangen in een andere TestCase: vhUnitTest.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI.IsLadeMetUitsparing.TestVoorAlleLadeTypes</Description>
+<Implementation><![CDATA[
+	#dim ClassNameIterator As TECH.Iterator = ##class(vhTest.Utils.ClassUtils).GetDerivedClassIterator("DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken")
+	While (ClassNameIterator.HasNext()) {
+		#dim ClassName As %String = ClassNameIterator.Next()
+		Continue:(ClassName="DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenBasisv000")
+		Do ..AssertLadeMetUitsparing(..GeefIngegevenKenmerkenSifonLade(ClassName))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertLadeMetUitsparing">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim IsLadeMetUitsparing As %Boolean = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New().IsLadeMetUitsparing(IngegevenKenmerken)
+	#dim IKHeeftUitsparingData As %Boolean = ##class(%Dictionary.CompiledProperty).%ExistsId(IngegevenKenmerken.%ClassName(1)_"||"_"UitsparingData")
+	Set IKHeeftUitsparingData = IKHeeftUitsparingData && IngegevenKenmerken.UitsparingData.%Extends(##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData).%ClassName(1))
+	
+	Do $$$AssertEquals(IsLadeMetUitsparing,IKHeeftUitsparingData,"IK: "_IngegevenKenmerken.%ClassName(1))
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerkenSifonLade">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = $classmethod(ClassName,"%New")
+	
+	If IngegevenKenmerken.%Extends("DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01") {
+		Set IngegevenKenmerken.Klasse=##class(DOM.PM.enu.LBXKlasse).Sifon()
+	}
+	If IngegevenKenmerken.%Extends("DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken") {
+		Set IngegevenKenmerken.Toepassing=##class(DOM.PM.enu.MVXToepassing).Sifon()
+	}
+	If IngegevenKenmerken.%Extends("DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken") {
+		Set IngegevenKenmerken.Toepassing=##class(DOM.PM.enu.TAORToepassing).Sifon()
+	}
+
+	Quit IngegevenKenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsLadeMetUitsparing/Test.cls.xml
===================================================================
diff -u -r62274 -r63476
--- vhUnitTest/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsLadeMetUitsparing/Test.cls.xml	(.../Test.cls.xml)	(revision 62274)
+++ vhUnitTest/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsLadeMetUitsparing/Test.cls.xml	(.../Test.cls.xml)	(revision 63476)
@@ -3,45 +3,81 @@
 <Class name="vhUnitTest.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI.IsLadeMetUitsparing.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test">
+<Property name="DummyTrigger">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenLadeMetUitsparingHelper</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test: LBX SifonLade">
 <Implementation><![CDATA[
-	#dim ClassNameIterator As TECH.Iterator = ##class(vhTest.Utils.ClassUtils).GetDerivedClassIterator("DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken")
-	While (ClassNameIterator.HasNext()) {
-		#dim ClassName As %String = ClassNameIterator.Next()
-		Continue:(ClassName="DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenBasisv000")
-		Do ..AssertLadeMetUitsparing(..GeefIngegevenKenmerken(ClassName))
-	}
+	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardSifonLade()
+	Do ..AssertLadeMetUitsparing(LbxKenmerken, $$$True)
 ]]></Implementation>
 </Method>
 
-<Method name="AssertLadeMetUitsparing">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
-<Private>1</Private>
+<Method name="Test: LBX SpoelbakLade">
 <Implementation><![CDATA[
-	#dim IsLadeMetUitsparing As %Boolean = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New().IsLadeMetUitsparing(IngegevenKenmerken)
-	#dim IKHeeftUitsparingData As %Boolean = ##class(%Dictionary.CompiledProperty).%ExistsId(IngegevenKenmerken.%ClassName(1)_"||"_"UitsparingData")
-	Set IKHeeftUitsparingData = IKHeeftUitsparingData && IngegevenKenmerken.UitsparingData.%Extends(##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData).%ClassName(1))
+	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardSpoelbakLade()
+	Do ..AssertLadeMetUitsparing(LbxKenmerken, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="Test: MVX SifonLade">
+<Implementation><![CDATA[
+	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardSifonlade()
+	Do ..AssertLadeMetUitsparing(MvxKenmerken, $$$True)
+]]></Implementation>
+</Method>
+
+<Method name="Test: MVX SpoelbakLade">
+<Implementation><![CDATA[
+	#dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardSpoelbaklade()
+	Do ..AssertLadeMetUitsparing(MvxKenmerken, $$$True)
+]]></Implementation>
+</Method>
+
+<Method name="Test: TAX SifonLade">
+<Implementation><![CDATA[
+	#dim TaxKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardSifonlade()
 	
-	Do $$$AssertEquals(IsLadeMetUitsparing,IKHeeftUitsparingData,"IK: "_IngegevenKenmerken.%ClassName(1))
+	Do ..AssertLadeMetUitsparing(TaxKenmerken, $$$True)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefIngegevenKenmerken">
-<FormalSpec>ClassName:%String</FormalSpec>
+<Method name="Test: TAX SpoelbakLade">
+<Implementation><![CDATA[
+	#dim TaxKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	Set TaxKenmerken.Toepassing = "Spoelbak" // Enumeratiewaarde bestaat nog niet!
+	
+	Do ..AssertLadeMetUitsparing(TaxKenmerken, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="Test: TBX SifonLade">
+<Implementation><![CDATA[
+	#dim TbxKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).LegeKenmerken()
+	Set TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3()
+	
+	Do ..AssertLadeMetUitsparing(TbxKenmerken, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="Test: TBX SpoelbakLade">
+<Implementation><![CDATA[
+	#dim TbxKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).LegeKenmerken()
+	Set TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()
+	
+	Do ..AssertLadeMetUitsparing(TbxKenmerken, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="AssertLadeMetUitsparing">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,VerwachteWaarde:%Boolean</FormalSpec>
 <Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = $classmethod(ClassName,"%New")
-	If IngegevenKenmerken.%Extends("DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01") {
-		Set IngegevenKenmerken.Klasse=##class(DOM.PM.enu.LBXKlasse).Sifon()
-	}
-	If IngegevenKenmerken.%Extends("DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken") {
-		Set IngegevenKenmerken.Toepassing=##class(DOM.PM.enu.TAORToepassing).Sifon()
-	}
-	If IngegevenKenmerken.%Extends("DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken") {
-		Set IngegevenKenmerken.Toepassing=##class(DOM.PM.enu.MVXToepassing).Sifon()
-	}
-	Quit IngegevenKenmerken
+	#dim IsLadeMetUitsparing As %Boolean = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New().IsLadeMetUitsparing(IngegevenKenmerken)
+	
+	Do $$$AssertEquals(IsLadeMetUitsparing, VerwachteWaarde, "IK: "_IngegevenKenmerken.%ClassName(1))
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/impl/IngegevenKenmerkenTypeAPI.cls.xml
===================================================================
diff -u -r62008 -r63476
--- DOM/PM/Maatwerk/impl/IngegevenKenmerkenTypeAPI.cls.xml	(.../IngegevenKenmerkenTypeAPI.cls.xml)	(revision 62008)
+++ DOM/PM/Maatwerk/impl/IngegevenKenmerkenTypeAPI.cls.xml	(.../IngegevenKenmerkenTypeAPI.cls.xml)	(revision 63476)
@@ -20,7 +20,7 @@
 <Method name="IsLadeMetUitsparing">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.CompiledClassUtils).PropertyExists($classname(IngegevenKenmerken), "UitsparingData") && (..IsSifonlade(IngegevenKenmerken))
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenLadeMetUitsparingHelper).%New().IsLadeMetUitsparing(IngegevenKenmerken)
 ]]></Implementation>
 </Method>