Index: DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFRugv001.cls.xml
===================================================================
diff -u -r31848 -r50500
--- DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 31848)
+++ DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFRugv001.cls.xml	(.../HFRugv001.cls.xml)	(revision 50500)
@@ -55,27 +55,32 @@
 	If (..BuilderMoetWerken(IngegevenKenmerken, Context)) {
 		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(Context, ..GeefRol())
 		#dim SubHFItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ""
-		#dim AftrekVoorRugWandHouder As %Decimal = 19
+		#dim AftrekRugVerbindingMetZijkant As %Decimal = 19
 
 		If (..API.IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)) {
 			#dim SubRol As %String = ""
+			#dim AftrekRugVerbindingMetSifonkap As %Decimal = 0
+			#dim IsSifonType3 As %Boolean = (IngegevenKenmerken.UitsparingData.UitsparingZ1 = ##class(DOM.PM.enu.UitsparingCode).Smal160())   ; LadeUitsparingHelper.IsSifonType3(IngegevenKenmerken.UitsparingData)
+			If IsSifonType3 {
+				Set AftrekRugVerbindingMetSifonkap = 8.5
+			}
 			
-			Set ..TeBekomenRugLengte = IngegevenKenmerken.UitsparingData.RugDeelX - (1 * AftrekVoorRugWandHouder)
+			Set ..TeBekomenRugLengte = IngegevenKenmerken.UitsparingData.RugDeelX - (AftrekRugVerbindingMetZijkant + AftrekRugVerbindingMetSifonkap)
 			Set SubHFItem = ##super(IngegevenKenmerken,Context)
 			Do ..VoegToeSubItemVoorSifonlade("X",SubHFItem,HalffabItem)
 
 			If IngegevenKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel() {
-				Set ..TeBekomenRugLengte = IngegevenKenmerken.UitsparingData.RugDeelM - 0
+				Set ..TeBekomenRugLengte = IngegevenKenmerken.UitsparingData.RugDeelM - (2 * AftrekRugVerbindingMetSifonkap)
 				Set SubHFItem = ##super(IngegevenKenmerken,Context)
 				Do ..VoegToeSubItemVoorSifonlade("M",SubHFItem,HalffabItem)
 			}
 
-			Set ..TeBekomenRugLengte = IngegevenKenmerken.UitsparingData.RugDeelY - (1 * AftrekVoorRugWandHouder)
+			Set ..TeBekomenRugLengte = IngegevenKenmerken.UitsparingData.RugDeelY - (AftrekRugVerbindingMetZijkant + AftrekRugVerbindingMetSifonkap)
 			Set SubHFItem = ##super(IngegevenKenmerken,Context)
 			Do ..VoegToeSubItemVoorSifonlade("Y",SubHFItem,HalffabItem)
 		}
 		Else {
-			Set ..TeBekomenRugLengte = IngegevenKenmerken.InterneBreedte - (2 * AftrekVoorRugWandHouder)
+			Set ..TeBekomenRugLengte = IngegevenKenmerken.InterneBreedte - (2 * AftrekRugVerbindingMetZijkant)
 			Set SubHFItem = ##super(IngegevenKenmerken,Context)
 			Do ..VoegToeSubItem("X",SubHFItem,HalffabItem)
 		}