Index: vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/IsRechtstreeksTeLeveren/Test.cls.xml
===================================================================
diff -u -r64280 -r64705
--- vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/IsRechtstreeksTeLeveren/Test.cls.xml	(.../Test.cls.xml)	(revision 64280)
+++ vhUnitTest/DOM/VKP/impl/DataM/DataMBonAbstract/IsRechtstreeksTeLeveren/Test.cls.xml	(.../Test.cls.xml)	(revision 64705)
@@ -96,6 +96,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Hafele Frankrijk -&gt; altijd rechtstreeks">
+<Implementation><![CDATA[
+	#dim KlantNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).HaefeleFrankrijk())
+	
+	Set $P(^KU1(..#Uitlevering,"F"),"\",1) = KlantNummer
+	
+	Set $P(^KUL(KlantNummer,"F",..#Uitlevering,3),"\",29) = ""
+	
+	Set DataMBonAbstract = ##class(DOM.VKP.impl.DataM.DataMBon).%New(..#Uitlevering)
+	
+	Do $$$AssertTrue(DataMBonAbstract.IsRechtstreeksTeLeveren())
+	
+	K ^KUL(KlantNummer,"F",..#Uitlevering,1)
+	K ^KU1(..#Uitlevering,"F")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Hafele Denemarken -&gt; altijd rechtstreeks">
+<Implementation><![CDATA[
+	#dim KlantNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).HaefeleDenemarken())
+	
+	Set $P(^KU1(..#Uitlevering,"F"),"\",1) = KlantNummer
+	
+	Set $P(^KUL(KlantNummer,"F",..#Uitlevering,3),"\",29) = ""
+	
+	Set DataMBonAbstract = ##class(DOM.VKP.impl.DataM.DataMBon).%New(..#Uitlevering)
+	
+	Do $$$AssertTrue(DataMBonAbstract.IsRechtstreeksTeLeveren())
+	
+	K ^KUL(KlantNummer,"F",..#Uitlevering,1)
+	K ^KU1(..#Uitlevering,"F")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Hafele oostenrijk -&gt; altijd rechtstreeks">
 <Implementation><![CDATA[
 	#dim KlantNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).HaefeleOostenrijk())
Index: DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml
===================================================================
diff -u -r64280 -r64705
--- DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 64280)
+++ DOM/VKP/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 64705)
@@ -447,7 +447,7 @@
 <Implementation><![CDATA[
 	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
 	#dim Resultaat As %Boolean = $$$False
-	If (..GeefKlantID() = Klant.HaefeleNederland) || (..GeefKlantID() = Klant.HaefeleDuitsland) || (..GeefKlantID() = Klant.HaefeleOostenrijk)|| (..GeefKlantID() = Klant.HaefeleItalie){
+	If (..GeefKlantID() = Klant.HaefeleNederland) || (..GeefKlantID() = Klant.HaefeleDuitsland) || (..GeefKlantID() = Klant.HaefeleOostenrijk)|| (..GeefKlantID() = Klant.HaefeleItalie)|| (..GeefKlantID() = Klant.HaefeleFrankrijk)|| (..GeefKlantID() = Klant.HaefeleDenemarken){
 		Set Resultaat = $$$True
 	}
 	If (..GeefKlantID() = Klant.HaefeleBelgie) && ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefHaefeleBENaarEindklant() {