Index: DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml
===================================================================
diff -u -r29059 -r31361
--- DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 31361)
@@ -62,6 +62,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantOrderInstellingen">
+<Type>DOM.VKP.KlantOrderInstellingen</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="GeprobeerdeSelectieKenmerkenPerRol">
 <Description>
 Array van List Of DOM.PM.Maatwerk.Calc.Common.Probleem.GeprobeerdeSelectieKenmerken</Description>
@@ -80,6 +85,7 @@
 	Set ..Familie = Familie
 	Set ..Variant = Variant
 	Set ..BerekeningsSpecificatie = BerekeningsSpecificatie
+	Set ..KlantOrderInstellingen = ##class(DOM.VKP.impl.DataM.KlantOrderInstellingenImpl).%New(BerekeningsSpecificatie.GeefKlantID())
 	Try {
 		Set HalffabRepository = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New()
 		If (..BerekeningsSpecificatie.GeefBerekenTag() '= "") {
@@ -107,6 +113,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantOrderInstellingen">
+<ReturnType>DOM.VKP.KlantOrderInstellingen</ReturnType>
+<Implementation><![CDATA[	Quit ..KlantOrderInstellingen
+]]></Implementation>
+</Method>
+
 <Method name="GeefBerekenDatum">
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[
Index: DOM/VKP/impl/DataM/KlantOrderInstellingenImpl.cls.xml
===================================================================
diff -u -r30598 -r31361
--- DOM/VKP/impl/DataM/KlantOrderInstellingenImpl.cls.xml	(.../KlantOrderInstellingenImpl.cls.xml)	(revision 30598)
+++ DOM/VKP/impl/DataM/KlantOrderInstellingenImpl.cls.xml	(.../KlantOrderInstellingenImpl.cls.xml)	(revision 31361)
@@ -88,6 +88,12 @@
 <Implementation><![CDATA[	Quit ..KlantID = ##class(DOM.VKP.enu.Klant).HoutenLaden()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefMinimaleBreedteVoorBevestigingBodemFront">
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	Quit $Select(..KlantID=##class(DOM.VKP.enu.Klant).NevesBelgium():0,1:660)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv001/TestBuilderMoetWerken.cls.xml
===================================================================
diff -u -r31309 -r31361
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv001/TestBuilderMoetWerken.cls.xml	(.../TestBuilderMoetWerken.cls.xml)	(revision 31309)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv001/TestBuilderMoetWerken.cls.xml	(.../TestBuilderMoetWerken.cls.xml)	(revision 31361)
@@ -36,14 +36,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestWerkenIndienLade DanBereken">
-<Implementation><![CDATA[
-	#dim LBXIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefIngegevenKenmerken(##class(DOM.PM.enu.LBXKlasse).Lade())
-	Do ..BevestigingBodemFrontBuilderv000Mock.VerwachtMethodCall("Bereken",LBXIngegevenKenmerken,..Context)
-	Do ..AssertBereken(LBXIngegevenKenmerken)
-]]></Implementation>
-</Method>
-
 <Method name="TestNietWerkenIndienSpoelbaklade DanGeenBereken">
 <Implementation><![CDATA[
 	#dim LBXIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefIngegevenKenmerken(##class(DOM.PM.enu.LBXKlasse).Spoelbak())
@@ -57,8 +49,9 @@
 	#dim LBXIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefIngegevenKenmerken(##class(DOM.PM.enu.LBXKlasse).Lade())
 	Set LBXIngegevenKenmerken.InterneBreedte = 660
 	
-	Set DummyBerekeningsSpecificatie = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New()
-	Do ..Context.ZetBerekeningsSpecificatie(DummyBerekeningsSpecificatie)
+	Set KlantOrderInstellingenMock = ##class(vhTest.Mock.DOM.VKP.KlantOrderInstellingen).%New()
+	Do KlantOrderInstellingenMock.IndienMethodCall("GeefMinimaleBreedteVoorBevestigingBodemFront").DanReturn(660)
+	Do ..Context.ZetKlantOrderInstellingen(KlantOrderInstellingenMock)
 	
 	Do ..BevestigingBodemFrontBuilderv000Mock.VerwachtMethodCall("Bereken",LBXIngegevenKenmerken,..Context).ExactAantalKeer(0)
 	Do ..AssertBereken(LBXIngegevenKenmerken)
@@ -70,9 +63,9 @@
 	#dim LBXIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefIngegevenKenmerken(##class(DOM.PM.enu.LBXKlasse).Lade())
 	Set LBXIngegevenKenmerken.InterneBreedte = 660
 	
-	Set DummyBerekeningsSpecificatie = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New()
-	Do DummyBerekeningsSpecificatie.ZetKlantID(##class(DOM.VKP.enu.Klant).NevesBelgium())
-	Do ..Context.ZetBerekeningsSpecificatie(DummyBerekeningsSpecificatie)
+	Set KlantOrderInstellingenMock = ##class(vhTest.Mock.DOM.VKP.KlantOrderInstellingen).%New()
+	Do KlantOrderInstellingenMock.IndienMethodCall("GeefMinimaleBreedteVoorBevestigingBodemFront").DanReturn(0)
+	Do ..Context.ZetKlantOrderInstellingen(KlantOrderInstellingenMock)
 	
 	Do ..BevestigingBodemFrontBuilderv000Mock.VerwachtMethodCall("Bereken",LBXIngegevenKenmerken,..Context)
 	Do ..AssertBereken(LBXIngegevenKenmerken)
Index: DOM/VKP/KlantOrderInstellingen.cls.xml
===================================================================
diff -u -r29059 -r31361
--- DOM/VKP/KlantOrderInstellingen.cls.xml	(.../KlantOrderInstellingen.cls.xml)	(revision 29059)
+++ DOM/VKP/KlantOrderInstellingen.cls.xml	(.../KlantOrderInstellingen.cls.xml)	(revision 31361)
@@ -43,6 +43,11 @@
 <Abstract>1</Abstract>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="GeefMinimaleBreedteVoorBevestigingBodemFront">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Integer</ReturnType>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/VKP/KlantOrderInstellingen.cls.xml
===================================================================
diff -u -r29059 -r31361
--- vhTest/Mock/DOM/VKP/KlantOrderInstellingen.cls.xml	(.../KlantOrderInstellingen.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/VKP/KlantOrderInstellingen.cls.xml	(.../KlantOrderInstellingen.cls.xml)	(revision 31361)
@@ -20,6 +20,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefMinimaleBreedteVoorBevestigingBodemFront">
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefMinimaleBreedteVoorBevestigingBodemFront")
+]]></Implementation>
+</Method>
+
 <Method name="GeefPickingGroeperingManierTBXOrder">
 <ReturnType>DOM.VKP.enu.PickingGroeperingManier</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPickingGroeperingManierTBXOrder")
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder/Bereken/DummyContext.cls.xml
===================================================================
diff -u -r31309 -r31361
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder/Bereken/DummyContext.cls.xml	(.../DummyContext.cls.xml)	(revision 31309)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder/Bereken/DummyContext.cls.xml	(.../DummyContext.cls.xml)	(revision 31361)
@@ -16,6 +16,12 @@
 <Implementation><![CDATA[	Set ..BerekeningsSpecificatie = BerekeningsSpecificatie
 ]]></Implementation>
 </Method>
+
+<Method name="ZetKlantOrderInstellingen">
+<FormalSpec>KlantOrderInstellingen:DOM.VKP.KlantOrderInstellingen</FormalSpec>
+<Implementation><![CDATA[	Set ..KlantOrderInstellingen = KlantOrderInstellingen
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv001.cls.xml
===================================================================
diff -u -r31309 -r31361
--- DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv001.cls.xml	(.../HFBevestigingBodemFrontv001.cls.xml)	(revision 31309)
+++ DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv001.cls.xml	(.../HFBevestigingBodemFrontv001.cls.xml)	(revision 31361)
@@ -46,25 +46,9 @@
 <Implementation><![CDATA[
 	Quit ##super(IngegevenKenmerken,Context) &&
 			$$$Not(..IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken)) &&
-			(..IsBredeLade(IngegevenKenmerken) || ..IsKlantDieAltijdFrontBevestigingWil(Context.GeefBerekeningsSpecificatie().GeefKlantID()))
+			(IngegevenKenmerken.InterneBreedte > Context.GeefKlantOrderInstellingen().GeefMinimaleBreedteVoorBevestigingBodemFront())
 ]]></Implementation>
 </Method>
-
-<Method name="IsBredeLade">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit IngegevenKenmerken.InterneBreedte > 660
-]]></Implementation>
-</Method>
-
-<Method name="IsKlantDieAltijdFrontBevestigingWil">
-<FormalSpec>KlantID:DOM.common.PartijID</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit KlantID = ##class(DOM.VKP.enu.Klant).NevesBelgium()
-]]></Implementation>
-</Method>
 </Class>