Index: vhUnitTest/APPS/PM/Maatwerk/End2End/LBX/TestMatAfmetingenVoorSifonladeMetOudeSifonkap.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/PM/Maatwerk/End2End/LBX/TestMatAfmetingenVoorSifonladeMetOudeSifonkap.cls.xml	(revision 0)
+++ vhUnitTest/APPS/PM/Maatwerk/End2End/LBX/TestMatAfmetingenVoorSifonladeMetOudeSifonkap.cls.xml	(revision 50654)
@@ -0,0 +1,133 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.PM.Maatwerk.End2End.LBX.TestMatAfmetingenVoorSifonladeMetOudeSifonkap">
+<Super>vhUnitTest.APPS.PM.Maatwerk.End2End.LBX.TestBasisLBX</Super>
+
+<Method name="TestMatBijSifonLade">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefIngegevenKenmerkenSifonlade()
+	#dim VerwachteDiepteXIndienBewerkt As %Decimal = ""
+	#dim VerwachteDiepteBijUitsparing As %Decimal  = 250   ; = 500 - 250
+
+	Do ..AssertSifonladeMetDubbeleUitsparing(IngegevenKenmerken,VerwachteDiepteXIndienBewerkt,VerwachteDiepteBijUitsparing)
+]]></Implementation>
+</Method>
+
+<Method name="TestMatBijSifonBinnenlade">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefIngegevenKenmerkenSifonBinnenlade()
+	#dim VerwachteDiepteXIndienBewerkt As %Decimal = 460   ; = 500 -  27 - 13
+	#dim VerwachteDiepteBijUitsparing As %Decimal  = 237   ; = 500 - 250 - 13
+
+	Do ..AssertSifonladeMetDubbeleUitsparing(IngegevenKenmerken,VerwachteDiepteXIndienBewerkt,VerwachteDiepteBijUitsparing)
+]]></Implementation>
+</Method>
+
+<Method name="AssertSifonladeMetDubbeleUitsparing">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,VerwachteDiepteXIndienBewerkt:%Decimal,VerwachteDiepteBijUitsparing:%Decimal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim VerwachteBreedteMatX  As %Decimal = 99    ; = 120 - 21
+	#dim VerwachteBreedteMatZ1 As %Decimal = 300   ; = 300 - 0 
+	#dim VerwachteBreedteMatM  As %Decimal = 125   ; = 125 - 0 
+	#dim VerwachteBreedteMatZ2 As %Decimal = 150   ; = 150 - 0 
+	#dim VerwachteBreedteMatY  As %Decimal = 108   ; = 129 - 21
+
+	Do ..BerekenHalffabDetails(IngegevenKenmerken)
+	
+	Do ..AssertMat(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX(), VerwachteBreedteMatX, VerwachteDiepteXIndienBewerkt)
+	Do ..AssertMat(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY(), VerwachteBreedteMatY, VerwachteDiepteXIndienBewerkt)
+	Do ..AssertMat(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatM(), VerwachteBreedteMatM, VerwachteDiepteXIndienBewerkt)
+	Do ..AssertMat(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ1(), VerwachteBreedteMatZ1, VerwachteDiepteBijUitsparing)
+	Do ..AssertMat(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ2(), VerwachteBreedteMatZ2, VerwachteDiepteBijUitsparing)
+]]></Implementation>
+</Method>
+
+<Method name="AssertMat">
+<Description>
+Controleert Breedte, Diepte en Lengte is BewerkteDimensies </Description>
+<FormalSpec>GekoppeldIKType:DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType,VerwachteBreedte:%Decimal,VerwachteDiepteIndienBewerkt:%Decimal=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim HalffabRolBepaler As DOM.PM.Maatwerk.Calc.Common.GekoppeldeIK.HalffabRolBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.GekoppeldeIK.HalffabRolBepaler).%New()
+	#dim HalffabRol As %String = HalffabRolBepaler.GeefRolNaamVoorGekoppeldeIK(##class(DOM.PM.enu.Variant).LogicalToDisplay(##class(DOM.PM.enu.Variant).MatStandaard()),GekoppeldIKType)
+	#dim MatProduct As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ..HalffabContext.HalffabItemsBoom.GeefHalffabItem(HalffabRol)
+	
+	If $$$AssertTrue($IsObject(MatProduct),"Rol: " _ HalffabRol) {
+		#dim HFItemMat As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = MatProduct.GeefHalffabItem("Mat")
+		
+		If $$$AssertTrue($IsObject(HFItemMat), "Rol: " _ HalffabRol) {
+			Do $$$AssertEquals(HFItemMat.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte()), VerwachteBreedte,"Breedte Rol: " _ HalffabRol)
+			Do $$$AssertFalse(HFItemMat.IsBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Lengte()), "LengteBewerkt Rol: " _ HalffabRol)
+
+			#dim IsHFItemDiepteBewerkt As %Boolean = (HFItemMat.IsBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte()))
+			#dim IsBewerkteDiepteVerwacht As %Boolean = (VerwachteDiepteIndienBewerkt > 0)
+			
+			If (IsBewerkteDiepteVerwacht) {
+				If $$$AssertTrue(IsHFItemDiepteBewerkt,"DiepteBewerkt Rol: "_HalffabRol) {
+					Do $$$AssertEquals(HFItemMat.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte()), VerwachteDiepteIndienBewerkt, "Diepte Rol: " _ HalffabRol)
+				}
+			} Else {
+				Do $$$AssertFalse(IsHFItemDiepteBewerkt, "DiepteNietBewerkt Rol: " _ HalffabRol)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerkenSifonBinnenlade">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefIngegevenKenmerkenSifonlade()
+	
+	Set IngegevenKenmerken.IsBinnenlade = $$$True
+	Set IngegevenKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
+	Set IngegevenKenmerken.VoorWandVerhogingHoogte = ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Laag()
+	Set IngegevenKenmerken.VoorWandVerhogingMateriaal = ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant()
+	
+	Quit IngegevenKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerkenSifonlade">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	
+	Set IngegevenKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon()
+	Set IngegevenKenmerken.UitsparingData = ..GeefLadeUitsparingDubbeleSifon()
+	Set IngegevenKenmerken.InterneBreedte = 824   ; --> geeft totale MatBreedte=782
+
+	Do IngegevenKenmerken.GekoppeldeIngegevenKenmerken.SetAt(##class(vhUnitTest.APPS.PM.Maatwerk.End2End.common.MatHelper).GeefBasisType(),##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX())
+	Do IngegevenKenmerken.GekoppeldeIngegevenKenmerken.SetAt(##class(vhUnitTest.APPS.PM.Maatwerk.End2End.common.MatHelper).GeefBasisType(),##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY())
+	Do IngegevenKenmerken.GekoppeldeIngegevenKenmerken.SetAt(##class(vhUnitTest.APPS.PM.Maatwerk.End2End.common.MatHelper).GeefBasisType(),##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatM())
+	Do IngegevenKenmerken.GekoppeldeIngegevenKenmerken.SetAt(##class(vhUnitTest.APPS.PM.Maatwerk.End2End.common.MatHelper).GeefBasisType(),##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ1())
+	Do IngegevenKenmerken.GekoppeldeIngegevenKenmerken.SetAt(##class(vhUnitTest.APPS.PM.Maatwerk.End2End.common.MatHelper).GeefBasisType(),##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ2())
+	
+	Quit IngegevenKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeUitsparingDubbeleSifon">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData</ReturnType>
+<Implementation><![CDATA[
+	#dim UitsparingData As DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData).%New()
+	
+	Set UitsparingData.AantalUitsparingen=##class(DOM.PM.enu.AantalUitsparingen).Dubbel()
+	Set UitsparingData.UitsparingZ1 = ##class(DOM.PM.enu.UitsparingCode).Breed()
+	Set UitsparingData.UitsparingZ2 = ##class(DOM.PM.enu.UitsparingCode).Smal()
+	Set UitsparingData.RugDeelX = 120
+	Set UitsparingData.RugDeelY = 129
+	Set UitsparingData.RugDeelM = 125
+	Set UitsparingData.UitsparingZ2 = ##class(DOM.PM.enu.UitsparingCode).Smal()
+	
+	Quit UitsparingData
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>