Index: APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml
===================================================================
diff -u -r64299 -r64732
--- APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 64299)
+++ APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 64732)
@@ -55,7 +55,7 @@
 		If (LeverAdres.GeefAxLeveradresId() = ""){ 
 			If (Klant.GeefID() = ##class(DOM.VKP.enu.Klant).DuPont()) {
 				Do LeverAdres.ZetVerzendingWijze(##class(DOM.VKP.VerzendwijzeUtils).EnumWaardeToTrimmedString(##class(DOM.VKP.enu.VerzendWijze).Distributeur1()))
-			} elseif (Klant.GeefID() = KlantEnum.HaefeleDuitsland ) || (Klant.GeefID() = KlantEnum.HaefeleItalie )||(Klant.GeefID() = KlantEnum.HaefeleOostenrijk){
+			} elseif (Klant.GeefID() = KlantEnum.HaefeleDuitsland ) || (Klant.GeefID() = KlantEnum.HaefeleItalie )||(Klant.GeefID() = KlantEnum.HaefeleOostenrijk)||(Klant.GeefID() = KlantEnum.HaefeleFrankrijk)||(Klant.GeefID() = KlantEnum.HaefeleDenemarken){
 				Do LeverAdres.ZetVerzendingWijze(..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(Adres.GeefLand().GeefCode(),Adres.GeefPostcode()))
 			} ElseIf (Klant.GeefID() = ##class(DOM.VKP.enu.Klant).VanRaemdonck()) {
 				Do LeverAdres.ZetVerzendingWijze(##class(DOM.VKP.VerzendwijzeUtils).EnumWaardeToTrimmedString(##class(DOM.VKP.enu.VerzendWijze).Distributeur1()))