Index: DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml
===================================================================
diff -u -r61686 -r62171
--- DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 61686)
+++ DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 62171)
@@ -449,6 +449,10 @@
 	If (..GeefKlantID() = ##class(DOM.VKP.enu.Klant).HaefeleNederland()) || (..GeefKlantID() = ##class(DOM.VKP.enu.Klant).HaefeleDuitsland()) {
 		Set Resultaat = $$$True
 	}
+	If (..GeefKlantID() = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()) && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefHaefeleBENaarEindklant() {
+		Set Resultaat = $$$True
+	}
+	
 	If ((..GeefKlantID() = ##class(DOM.VKP.enu.Klant).DuPont()) && ($Piece(..NodeAdres,"\",29)="")) {
 		Set Resultaat = $$$True
 	}
Index: vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/IsRechtstreeksTeLeveren/Test.cls.xml
===================================================================
diff -u -r58718 -r62171
--- vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/IsRechtstreeksTeLeveren/Test.cls.xml	(.../Test.cls.xml)	(revision 58718)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/IsRechtstreeksTeLeveren/Test.cls.xml	(.../Test.cls.xml)	(revision 62171)
@@ -42,6 +42,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Hafele Belgie -&gt; altijd rechtstreeks">
+<Implementation><![CDATA[
+	#dim KlantNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).HaefeleBelgie())
+	
+	Set $P(^KU1(..#Uitlevering,"F"),"\",1) = KlantNummer
+	
+	Set $P(^KUL(KlantNummer,"F",..#Uitlevering,3),"\",29) = ""
+	
+	#dim ProjectSettingsAPIMock = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).MockInstance()
+	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsActiefHaefeleBENaarEindklant").DanReturn($$$True)
+	Set DataMBonAbstract = ##class(DOM.VKP.impl.DataM.DataMBon).%New(..#Uitlevering)
+	
+	Do $$$AssertTrue(DataMBonAbstract.IsRechtstreeksTeLeveren())
+	Do ProjectSettingsAPIMock.Verifieer()
+	
+	K ^KUL(KlantNummer,"F",..#Uitlevering,1)
+	K ^KU1(..#Uitlevering,"F")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Hafele Duitsland -&gt; altijd rechtstreeks">
 <Implementation><![CDATA[
 	#dim KlantNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).HaefeleDuitsland())