Index: DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFSifonkapv000.cls.xml
===================================================================
diff -u -r50469 -r50490
--- DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFSifonkapv000.cls.xml	(.../HFSifonkapv000.cls.xml)	(revision 50469)
+++ DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFSifonkapv000.cls.xml	(.../HFSifonkapv000.cls.xml)	(revision 50490)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IsSifonType3">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
 <Private>1</Private>
@@ -44,8 +49,9 @@
 	If (..BuilderMoetWerken(IngegevenKenmerken, Context)) {
 		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(Context, ..GeefRol())
 		
+		Set ..IsSifonType3 = (IngegevenKenmerken.UitsparingData.UitsparingZ1 = ##class(DOM.PM.enu.UitsparingCode).Smal160())   ; LadeUitsparingHelper.IsSifonType3(IngegevenKenmerken.UitsparingData)
 		#dim SifonkapKleur As TECH.String = ..GeefSifonkapKleur(IngegevenKenmerken)
-
+		
 		#dim SubItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem
 		Set ..TeSelecterenUitsparingCode = IngegevenKenmerken.UitsparingData.UitsparingZ1
 		Set SubItem = ##super(IngegevenKenmerken,Context)
@@ -77,8 +83,7 @@
 <Implementation><![CDATA[
 	#dim SifonkapKleur As TECH.String = ""
 
-	#dim IsSifonType3 As %Boolean = (IngegevenKenmerken.UitsparingData.UitsparingZ1 = ##class(DOM.PM.enu.UitsparingCode).Smal160())   ; LadeUitsparingHelper.IsSifonType3(IngegevenKenmerken.UitsparingData)
-	If IsSifonType3 {
+	If ..IsSifonType3 {
 		Set SifonkapKleur = ##class(DOM.PM.enu.LBXLadeKleur).LogicalToDisplay(IngegevenKenmerken.LadeKleur)   ; Deze moet vervangen worden door het PPS-kenmerk van het Halffab-product, want dit klopt o.a. niet voor Ladekleur Inox !!! 
 	}
 	Quit SifonkapKleur
@@ -92,19 +97,23 @@
 <Implementation><![CDATA[
 	#dim FreesPositie As TECH.String = ""
 	#dim LadeUitsparingType As TECH.String = ""
+	#dim FreesPositieCorrectie As TECH.Decimal = 17.5
+	If ..IsSifonType3 {
+		Set FreesPositieCorrectie = 3.5   ; Weeke frees  OF  Eko frees ??? 
+	}
 	
 	If (LadeUitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()) {
 		// (Rol = "Z1") 
-		Set FreesPositie = ..LadeUitsparingHelper.GeefBreedteRugY(LadeUitsparingData) - 17.5
+		Set FreesPositie = ..LadeUitsparingHelper.GeefBreedteRugY(LadeUitsparingData) - FreesPositieCorrectie
 		Set LadeUitsparingType = ##class(DOM.PM.enu.UitsparingCode).LogicalToDisplay(LadeUitsparingData.UitsparingZ1)
 	}
 	ElseIf (LadeUitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) {
 		If (Rol = "Z2") {
-			Set FreesPositie = ..LadeUitsparingHelper.GeefBreedteRugY(LadeUitsparingData) - 17.5
+			Set FreesPositie = ..LadeUitsparingHelper.GeefBreedteRugY(LadeUitsparingData) - FreesPositieCorrectie
 			Set LadeUitsparingType = ##class(DOM.PM.enu.UitsparingCode).LogicalToDisplay(LadeUitsparingData.UitsparingZ2)
 		} 
 		ElseIf (Rol = "Z1") {
-			Set FreesPositie = ..LadeUitsparingHelper.GeefBreedteRugY(LadeUitsparingData) - 17.5 + ..LadeUitsparingHelper.GeefBreedteUitsparingZ2(LadeUitsparingData) + ..LadeUitsparingHelper.GeefBreedteRugM(LadeUitsparingData)
+			Set FreesPositie = ..LadeUitsparingHelper.GeefBreedteRugY(LadeUitsparingData) - FreesPositieCorrectie + ..LadeUitsparingHelper.GeefBreedteUitsparingZ2(LadeUitsparingData) + ..LadeUitsparingHelper.GeefBreedteRugM(LadeUitsparingData)
 			Set LadeUitsparingType = ##class(DOM.PM.enu.UitsparingCode).LogicalToDisplay(LadeUitsparingData.UitsparingZ1)
 		}
 	}