Index: DOM/PM/Maatwerk/Calc/Common/GekoppeldeIK/MatVervolledigerVanMaatwerkProduct.cls.xml
===================================================================
diff -u -r50653 -r50656
--- DOM/PM/Maatwerk/Calc/Common/GekoppeldeIK/MatVervolledigerVanMaatwerkProduct.cls.xml	(.../MatVervolledigerVanMaatwerkProduct.cls.xml)	(revision 50653)
+++ DOM/PM/Maatwerk/Calc/Common/GekoppeldeIK/MatVervolledigerVanMaatwerkProduct.cls.xml	(.../MatVervolledigerVanMaatwerkProduct.cls.xml)	(revision 50656)
@@ -25,6 +25,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LadeUitsparingHelper">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingHelper</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>SpoelbakIngegevenKenmerkenAanpasser:DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.SpoelbakIngegevenKenmerkenAanpasser</FormalSpec>
 <Private>1</Private>
@@ -49,7 +54,7 @@
 	If ..MatIK.Type = "" {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Type van MATKenmerken is niet ingevuld vanuit '"_LadeIngegevenKenmerken_"'"))	
 	}
-	quit ..MatIK
+	Quit ..MatIK
 ]]></Implementation>
 </Method>
 
@@ -70,9 +75,9 @@
 	Set ..MatIK.Diepte = LBXKenmerken.LadeDiepte - 27 - AftrekVoorBinnenLade
 	#dim MatNettoBreedte As %String = ""
 	If ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI().IsSifonlade(LBXKenmerken) { 
-		Set LadeMetUitsparingAfmetingBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingHelper).%New()
-		Set ..IsSifonType3 = LadeMetUitsparingAfmetingBepaler.IsSifonType3(LBXKenmerken.UitsparingData)
-		Set MatNettoBreedte = ..GeefMatNettoBreedteVoorSifonlade(LBXKenmerken)
+		Set ..LadeUitsparingHelper = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingHelper).%New()
+		Set ..IsSifonType3 = ..LadeUitsparingHelper.IsSifonType3(LBXKenmerken.UitsparingData)
+		Set MatNettoBreedte = ..GeefMatNettoBreedteVoorLbxSifonlade(LBXKenmerken)
 		If (..GekoppeldMatType = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ1()) || (..GekoppeldMatType = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ2()) {
 			Set ..MatIK.Diepte = LBXKenmerken.LadeDiepte - ..GeefUitsparingDiepte() - AftrekVoorBinnenLade
 		}
@@ -109,30 +114,29 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="GeefMatNettoBreedteVoorSifonlade">
+<Method name="GeefMatNettoBreedteVoorLbxSifonlade">
 <FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
 	#dim AangepasteInterneBreedte As %Decimal = 0
 
-	Set LadeMetUitsparingAfmetingBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingHelper).%New()
 	#dim AftrekVoorSifonkap = $S(..IsSifonType3: ..#AftrekMatBreedteVoorSifonkap, 1: 0 )
 	
 	If ..GekoppeldMatType = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX() {
-		Set AangepasteInterneBreedte = ( LadeMetUitsparingAfmetingBepaler.GeefBreedteRugX(LBXKenmerken.UitsparingData) - (..GeefAftrekZijkantLBXVoorMat(LBXKenmerken)+AftrekVoorSifonkap) )
+		Set AangepasteInterneBreedte = ..LadeUitsparingHelper.GeefBreedteRugX(LBXKenmerken.UitsparingData) - (..GeefAftrekZijkantLBXVoorMat(LBXKenmerken)+AftrekVoorSifonkap)
 	}
 	ElseIf ..GekoppeldMatType = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY() {
-		Set AangepasteInterneBreedte = ( LadeMetUitsparingAfmetingBepaler.GeefBreedteRugY(LBXKenmerken.UitsparingData) - (..GeefAftrekZijkantLBXVoorMat(LBXKenmerken)+AftrekVoorSifonkap) )
+		Set AangepasteInterneBreedte = ..LadeUitsparingHelper.GeefBreedteRugY(LBXKenmerken.UitsparingData) - (..GeefAftrekZijkantLBXVoorMat(LBXKenmerken)+AftrekVoorSifonkap)
 	}
 	ElseIf ..GekoppeldMatType = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatM() {
-		Set AangepasteInterneBreedte = LadeMetUitsparingAfmetingBepaler.GeefBreedteRugM(LBXKenmerken.UitsparingData) - (2*AftrekVoorSifonkap) - $S(..IsSifonType3 : 0.5, 1:0)
+		Set AangepasteInterneBreedte = ..LadeUitsparingHelper.GeefBreedteRugM(LBXKenmerken.UitsparingData) - (2*AftrekVoorSifonkap) - $S(..IsSifonType3 : 0.5, 1:0)
 	}
 	ElseIf ..GekoppeldMatType = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ1() {
-		Set AangepasteInterneBreedte = LadeMetUitsparingAfmetingBepaler.GeefBreedteUitsparingZ1(LBXKenmerken.UitsparingData) + (2*AftrekVoorSifonkap)
+		Set AangepasteInterneBreedte = ..LadeUitsparingHelper.GeefBreedteUitsparingZ1(LBXKenmerken.UitsparingData) + (2*AftrekVoorSifonkap)
 	}
 	ElseIf ..GekoppeldMatType = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ2() {
-		Set AangepasteInterneBreedte = LadeMetUitsparingAfmetingBepaler.GeefBreedteUitsparingZ2(LBXKenmerken.UitsparingData) + (2*AftrekVoorSifonkap)
+		Set AangepasteInterneBreedte = ..LadeUitsparingHelper.GeefBreedteUitsparingZ2(LBXKenmerken.UitsparingData) + (2*AftrekVoorSifonkap)
 	}
 	Quit AangepasteInterneBreedte
 ]]></Implementation>