Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r64409 -r64703
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 64409)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 64703)
@@ -313,6 +313,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..Mail.VoegToeOntvanger("jwi@vanhoecke.be")
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..Mail.VoegToeOntvanger("jwi@vanhoecke.be")
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkSeefelder">
 <FormalSpec>SeefelderPersonality:DOM.common.SeefelderPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..Mail.VoegToeOntvanger("christian.zierer@seefelder.net")
Index: vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml
===================================================================
diff -u -r64409 -r64703
--- vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 64409)
+++ vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 64703)
@@ -158,6 +158,44 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Winkelkar voor klant van HäfeleFR">
+<Implementation><![CDATA[
+	Set HDEVerzendwijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
+	Do HDEVerzendwijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze","FR",95157).DanReturn("HD2")
+	
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).HaefeleFR())
+		
+	Set PartijApiStub = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+	Do PartijApiStub.IndienMethodCall("GeefPartij",$$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij())
+	
+	Set VerzendWijzeBepaler = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New(..VerkoopApiStub, PartijApiStub,HDEVerzendwijzeBepalerMock)
+	#dim LeverAdresDummy as DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Frans()
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar,LeverAdresDummy)
+
+	Do HDEVerzendwijzeBepalerMock.Verifieer()	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"HD2")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Winkelkar voor klant van HäfeleDK">
+<Implementation><![CDATA[
+	Set HDEVerzendwijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
+	Do HDEVerzendwijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze","DK",7800).DanReturn("HD2")
+	
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).HaefeleDK())
+		
+	Set PartijApiStub = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+	Do PartijApiStub.IndienMethodCall("GeefPartij",$$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij())
+	
+	Set VerzendWijzeBepaler = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New(..VerkoopApiStub, PartijApiStub,HDEVerzendwijzeBepalerMock)
+	#dim LeverAdresDummy as DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Deens()
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar,LeverAdresDummy)
+
+	Do HDEVerzendwijzeBepalerMock.Verifieer()	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"HD2")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Winkelkar voor Luxemburgse klant van HäfeleDE">
 <Implementation><![CDATA[
 	Set HDEVerzendwijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
Index: APPS/VKP/Korting/impl/EDIVerwerker.cls.xml
===================================================================
diff -u -r64269 -r64703
--- APPS/VKP/Korting/impl/EDIVerwerker.cls.xml	(.../EDIVerwerker.cls.xml)	(revision 64269)
+++ APPS/VKP/Korting/impl/EDIVerwerker.cls.xml	(.../EDIVerwerker.cls.xml)	(revision 64703)
@@ -38,6 +38,16 @@
 <Default>fiHAFELE</Default>
 </Parameter>
 
+<Parameter name="DomeinCodeHaefeleFR">
+<Type>%String</Type>
+<Default>frHAFELE</Default>
+</Parameter>
+
+<Parameter name="DomeinCodeHaefeleDK">
+<Type>%String</Type>
+<Default>dkHAFELE</Default>
+</Parameter>
+
 <Property name="KortingFactory">
 <Type>APPS.VKP.Korting.KortingFactory</Type>
 <Private>1</Private>
@@ -128,6 +138,10 @@
 		Set Personality = ##class(DOM.common.enu.Personality).HaefeleIT()
 	}ElseIf KlantNaam = ..#DomeinCodeHaefeleAT {
 		Set Personality = ##class(DOM.common.enu.Personality).HaefeleAT()
+	}ElseIf KlantNaam = ..#DomeinCodeHaefeleFR {
+		Set Personality = ##class(DOM.common.enu.Personality).HaefeleFR()
+	}ElseIf KlantNaam = ..#DomeinCodeHaefeleDK {
+		Set Personality = ##class(DOM.common.enu.Personality).HaefeleDK()
 	}Else{
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Bestand '"_BestandNaam_"' wordt niet ondersteund voor verwerking."))
 	}
Index: PRGACNTs.inc.rou
===================================================================
diff -u -r64409 -r64703
--- PRGACNTs.inc.rou	(.../PRGACNTs.inc.rou)	(revision 64409)
+++ PRGACNTs.inc.rou	(.../PRGACNTs.inc.rou)	(revision 64703)
@@ -139,6 +139,8 @@
 	#define HafeleITKey				   "<p+S+d5bhM~'5QSx"
 	#define HafeleATKey				   "Y$n7;6s?DQy72($;"
 	#define OPOKey					   "{y,26me!}U\UnWFc"
+	#define HafeleFRKey				   "RjD4eAQXH99!n(*G"
+	#define HafeleDKKey				   "z#7D6:yZ^/VwS!zZ"
 	
 	; Toegang voor OptimaFIX page : beperkt via controle op IP-adres 
 	;   !!! Te compileren in routines :           
Index: APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml
===================================================================
diff -u -r64627 -r64703
--- APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 64627)
+++ APPS/EC/impl/HaefeleDEVerzendwijzeBepaler.cls.xml	(.../HaefeleDEVerzendwijzeBepaler.cls.xml)	(revision 64703)
@@ -67,6 +67,32 @@
 		}		
 	}
 
+	if ((LandCode = "FR") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
+		#dim PostcodeText as %String = ##class(TECH.StringUtils).AddLeadingChar(Postcode,"0",5)
+		Set Regio = +$Extract(PostcodeText,1,2)
+		If (Regio < 2) {
+			Set Verzendwijze = "HD2"
+		} Elseif((Regio > 1) && (Regio < 40)) {
+			Set Verzendwijze = "HD4"
+		} Elseif((Regio > 39) && (Regio < 67)) {
+			Set Verzendwijze = "HD3"
+		} Elseif((Regio > 66) && (Regio < 78)) {
+			Set Verzendwijze = "HD2"
+		} Elseif((Regio > 77) && (Regio < 88)) {
+			Set Verzendwijze = "HD4"
+		} Elseif((Regio > 87) && (Regio < 96)) {
+			Set Verzendwijze = "HD2"
+		} Else {
+			Set Verzendwijze = ""
+		}		
+	}
+	
+	if ((LandCode = "DK") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
+		Set Verzendwijze="DA2"
+	}
+
+
+
 	if $$$Not($$$HasLength(Verzendwijze)){
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige landcode ("_LandCode_") / postcode ("_Postcode_")  combinatie voor Haefele DE"))
 	} 
@@ -135,6 +161,28 @@
 			Set Verzendwijze = "HD4"
 		}		
 	}
+	if ((LandCode = "FR") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
+		Set Regio = +$Extract(Postcode,1,2)
+		If (Regio < 2) {
+			Set Verzendwijze = "HD2"
+		} Elseif((Regio > 1) && (Regio < 40)) {
+			Set Verzendwijze = "HD4"
+		} Elseif((Regio > 39) && (Regio < 67)) {
+			Set Verzendwijze = "HD3"
+		} Elseif((Regio > 66) && (Regio < 78)) {
+			Set Verzendwijze = "HD2"
+		} Elseif((Regio > 77) && (Regio < 88)) {
+			Set Verzendwijze = "HD4"
+		} Elseif((Regio > 87) && (Regio < 96)) {
+			Set Verzendwijze = "HD2"
+		} Else {
+			Set Verzendwijze = ""
+		}		
+	}
+	
+	if ((LandCode = "DK") && ($$$HasLength(Postcode)) & (##class(TECH.StringUtils).RemoveAllWhitespaces(##class(TECH.StringUtils).StripAllNumeric(Postcode))="")) {
+		Set Verzendwijze="DA2"
+	}
 
 	if $$$Not($$$HasLength(Verzendwijze)){
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige landcode ("_LandCode_") / postcode ("_Postcode_")  combinatie voor Haefele DE"))
Index: CHUI/VKP/OrderIngave/OrderSluiterv01.cls.xml
===================================================================
diff -u -r64269 -r64703
--- CHUI/VKP/OrderIngave/OrderSluiterv01.cls.xml	(.../OrderSluiterv01.cls.xml)	(revision 64269)
+++ CHUI/VKP/OrderIngave/OrderSluiterv01.cls.xml	(.../OrderSluiterv01.cls.xml)	(revision 64703)
@@ -132,7 +132,7 @@
 <Implementation><![CDATA[
 	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
  	Set KlantID = ..LegacyPartijAPI.GeefKlantPartijID(KLNr)
- 	Set IsKlantMetIntegratieVrijgaveInHandelErp = ( (KlantID = Klant.HaefeleBelgie) || (KlantID = Klant.HaefeleNederland)|| (KlantID = Klant.HaefeleDuitsland)|| (KlantID = Klant.HaefeleItalie) || (KlantID = Klant.HaefeleOostenrijk)  ) 
+ 	Set IsKlantMetIntegratieVrijgaveInHandelErp = ( (KlantID = Klant.HaefeleBelgie) || (KlantID = Klant.HaefeleNederland)|| (KlantID = Klant.HaefeleDuitsland)|| (KlantID = Klant.HaefeleItalie) || (KlantID = Klant.HaefeleOostenrijk) || (KlantID = Klant.HaefeleFrankrijk) || (KlantID = Klant.HaefeleDenemarken)  ) 
  	If IsKlantMetIntegratieVrijgaveInHandelErp {
 	 	Set Oorsprong = $P(OrderNode1,"\",53)
 	 	If (##class(BL.Flow.Offerte.enu.Oorsprong).UniShop() = Oorsprong) {
Index: cspBasis/TBX/Lib.mac.rou
===================================================================
diff -u -r64409 -r64703
--- cspBasis/TBX/Lib.mac.rou	(.../Lib.mac.rou)	(revision 64409)
+++ cspBasis/TBX/Lib.mac.rou	(.../Lib.mac.rou)	(revision 64703)
@@ -163,6 +163,8 @@
 	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).HaefeleItalie() $$$HafeleITKey
 	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).HaefeleOostenrijk() $$$HafeleATKey
 	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).OPO() $$$OPOKey
+	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).HaefeleFrankrijk() $$$HafeleFRKey
+	Quit:DomeinVerwerker=##class(APPS.EC.enu.WebShopVerwerker).HaefeleDenemarken() $$$HafeleDKKey
 	Quit "DummyKey"
 	
 
Index: vhTest/Mock/APPS/EC/impl/WebshopSessieFactory.cls.xml
===================================================================
diff -u -r64409 -r64703
--- vhTest/Mock/APPS/EC/impl/WebshopSessieFactory.cls.xml	(.../WebshopSessieFactory.cls.xml)	(revision 64409)
+++ vhTest/Mock/APPS/EC/impl/WebshopSessieFactory.cls.xml	(.../WebshopSessieFactory.cls.xml)	(revision 64703)
@@ -51,12 +51,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleDK",HaefeleDKPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleFI">
 <FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleFI",HaefeleFIPersonality)
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleFR",HaefeleFRPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleIT">
 <FormalSpec>HaefeleITPersonality:DOM.common.HaefeleITPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleIT",HaefeleITPersonality)
Index: BL/FOP/Proxy/enu/HoofdingType.cls.xml
===================================================================
diff -u -r64409 -r64703
--- BL/FOP/Proxy/enu/HoofdingType.cls.xml	(.../HoofdingType.cls.xml)	(revision 64409)
+++ BL/FOP/Proxy/enu/HoofdingType.cls.xml	(.../HoofdingType.cls.xml)	(revision 64703)
@@ -65,6 +65,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="HaefeleFR">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.FOP.Proxy.enu.HoofdingType</ReturnType>
+<Implementation><![CDATA[	Quit "HAEFELEFR"
+]]></Implementation>
+</Method>
+
+<Method name="HaefeleDK">
+<ClassMethod>1</ClassMethod>
+<ReturnType>BL.FOP.Proxy.enu.HoofdingType</ReturnType>
+<Implementation><![CDATA[	Quit "HAEFELEDK"
+]]></Implementation>
+</Method>
+
 <Method name="HaefeleSE">
 <ClassMethod>1</ClassMethod>
 <ReturnType>BL.FOP.Proxy.enu.HoofdingType</ReturnType>
Index: APPS/EC/impl/KlantDataReferentieBepaler.cls.xml
===================================================================
diff -u -r64409 -r64703
--- APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 64409)
+++ APPS/EC/impl/KlantDataReferentieBepaler.cls.xml	(.../KlantDataReferentieBepaler.cls.xml)	(revision 64703)
@@ -275,6 +275,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..GeefKlantIDVoorInfoVanOfferte(..Offerte)			
+	#dim KlantData As DOM.VKP.impl.KlantData = ..DataService.GeefKlantData(HaefeleFRPersonality.GeefID(), KlantID)
+	
+	#dim Naam As %String = KlantData.Naam
+	Do ..VoegToeIndienNodig(Naam)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..GeefKlantIDVoorInfoVanOfferte(..Offerte)			
+	#dim KlantData As DOM.VKP.impl.KlantData = ..DataService.GeefKlantData(HaefeleDKPersonality.GeefID(), KlantID)
+	
+	#dim Naam As %String = KlantData.Naam
+	Do ..VoegToeIndienNodig(Naam)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleSE">
 <FormalSpec>HaefeleSEPersonality:DOM.common.HaefeleSEPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: BL/FOP/Proxy/enu/HoofdingType/AutoComplete.cls.xml
===================================================================
diff -u -r64409 -r64703
--- BL/FOP/Proxy/enu/HoofdingType/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 64409)
+++ BL/FOP/Proxy/enu/HoofdingType/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 64703)
@@ -51,13 +51,27 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="HaefeleDK">
+<Type>%String</Type>
+<InitialExpression>"HAEFELEDK"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="HaefeleFI">
 <Type>%String</Type>
 <InitialExpression>"HAEFELEFI"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="HaefeleFR">
+<Type>%String</Type>
+<InitialExpression>"HAEFELEFR"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="HaefeleIT">
 <Type>%String</Type>
 <InitialExpression>"HAEFELEIT"</InitialExpression>
Index: APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml
===================================================================
diff -u -r64409 -r64703
--- APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml	(.../PersonalityEnVerwerkerLinker.cls.xml)	(revision 64409)
+++ APPS/EC/impl/WebshopSessionService/impl/PersonalityEnVerwerkerLinker.cls.xml	(.../PersonalityEnVerwerkerLinker.cls.xml)	(revision 64703)
@@ -54,6 +54,10 @@
 		Set PersonalityID = ##class(DOM.common.enu.Personality).HaefeleSE()
 	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).HaefeleFinland() {
 		Set PersonalityID = ##class(DOM.common.enu.Personality).HaefeleFI()
+	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).HaefeleFrankrijk() {
+		Set PersonalityID = ##class(DOM.common.enu.Personality).HaefeleFR()
+	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).HaefeleDenemarken() {
+		Set PersonalityID = ##class(DOM.common.enu.Personality).HaefeleDK()
 	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).Destil() {
 		Set PersonalityID = ##class(DOM.common.enu.Personality).Destil()
 	} ElseIf DomeinVerwerker = ##class(APPS.EC.enu.WebShopVerwerker).BiemarBois() {
@@ -139,6 +143,10 @@
 		Set Verwerker =  ##class(APPS.EC.enu.WebShopVerwerker).HaefeleZweden()
 	} ElseIf PersonalityID = ##class(DOM.common.enu.Personality).HaefeleFI() {
 		Set Verwerker =  ##class(APPS.EC.enu.WebShopVerwerker).HaefeleFinland()
+	} ElseIf PersonalityID = ##class(DOM.common.enu.Personality).HaefeleFR() {
+		Set Verwerker =  ##class(APPS.EC.enu.WebShopVerwerker).HaefeleFrankrijk()
+	} ElseIf PersonalityID = ##class(DOM.common.enu.Personality).HaefeleDK() {
+		Set Verwerker =  ##class(APPS.EC.enu.WebShopVerwerker).HaefeleDenemarken()
 	} ElseIf PersonalityID = ##class(DOM.common.enu.Personality).Destil() {
 		Set Verwerker =  ##class(APPS.EC.enu.WebShopVerwerker).Destil()
 	} ElseIf PersonalityID = ##class(DOM.common.enu.Personality).BiemarBois() {
Index: cspBasis/TBX/enu/Verwerker/AutoComplete.cls.xml
===================================================================
diff -u -r64409 -r64703
--- cspBasis/TBX/enu/Verwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 64409)
+++ cspBasis/TBX/enu/Verwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 64703)
@@ -30,6 +30,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="HaefeleDenemarken">
+<Type>%String</Type>
+<InitialExpression>"HFLDK"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="HaefeleDuitsland">
 <Type>%String</Type>
 <InitialExpression>"HFLD"</InitialExpression>
@@ -44,6 +51,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="HaefeleFrankrijk">
+<Type>%String</Type>
+<InitialExpression>"HFLFR"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="HaefeleItalie">
 <Type>%String</Type>
 <InitialExpression>"HFLIT"</InitialExpression>
Index: BL/Legacy/FactuurMailAfzenderBepaler.cls.xml
===================================================================
diff -u -r64409 -r64703
--- BL/Legacy/FactuurMailAfzenderBepaler.cls.xml	(.../FactuurMailAfzenderBepaler.cls.xml)	(revision 64409)
+++ BL/Legacy/FactuurMailAfzenderBepaler.cls.xml	(.../FactuurMailAfzenderBepaler.cls.xml)	(revision 64703)
@@ -117,6 +117,14 @@
 <FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+</Method>
+
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+</Method>
+
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml
===================================================================
diff -u -r64619 -r64703
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 64619)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 64703)
@@ -203,6 +203,8 @@
 				Set:(..Winkelkar.GeefPersonality().GeefID()=Personality.HaefeleAT) ..OfferteDto.Vestiging = "HAU"
 				Set:(..Winkelkar.GeefPersonality().GeefID()=Personality.HaefeleSE) ..OfferteDto.Vestiging = "HDE" ; SE = salesoffice of subsidiary DE
 				Set:(..Winkelkar.GeefPersonality().GeefID()=Personality.HaefeleFI) ..OfferteDto.Vestiging = "HDE" ; FI = salesoffice of subsidiary DE
+				Set:(..Winkelkar.GeefPersonality().GeefID()=Personality.HaefeleFR) ..OfferteDto.Vestiging = "HFR"
+				Set:(..Winkelkar.GeefPersonality().GeefID()=Personality.HaefeleDK) ..OfferteDto.Vestiging = "HDK"
 				
 				Set Leveradres = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.Leveradres).%New()
 				#dim OfferteLeveradres as DOM.VKP.LeverAdres = Offerte.GeefLeverAdres()
@@ -374,7 +376,7 @@
 <Implementation><![CDATA[
 	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
 	#dim IsVersie002Compliant As %Boolean = $$$False
-	If (##class(TECH.StringUtils).Equals(..Winkelkar.GeefPersonalityID() , Personality.HaefeleBE, Personality.HaefeleNL,Personality.HaefeleDE,Personality.HaefeleSE,Personality.HaefeleFI,Personality.HaefeleIT,Personality.HaefeleAT, Personality.Daro,Personality.Galimberti, Personality.Dupont, Personality.Kisch,Personality.OPO )) {
+	If (##class(TECH.StringUtils).Equals(..Winkelkar.GeefPersonalityID() , Personality.HaefeleBE, Personality.HaefeleNL,Personality.HaefeleDE,Personality.HaefeleSE,Personality.HaefeleFI,Personality.HaefeleIT,Personality.HaefeleAT, Personality.Daro,Personality.Galimberti, Personality.Dupont, Personality.Kisch,Personality.OPO,Personality.HaefeleFR,Personality.HaefeleDK )) {
 		Set IsVersie002Compliant = $$$True
 	}
 	Quit IsVersie002Compliant
Index: APPS/VKP/Offerte/impl/OfferteKopieerder.cls.xml
===================================================================
diff -u -r64269 -r64703
--- APPS/VKP/Offerte/impl/OfferteKopieerder.cls.xml	(.../OfferteKopieerder.cls.xml)	(revision 64269)
+++ APPS/VKP/Offerte/impl/OfferteKopieerder.cls.xml	(.../OfferteKopieerder.cls.xml)	(revision 64703)
@@ -63,7 +63,7 @@
 	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
 	#dim IsBestelOpmerkingTeKopieren As %Boolean = $$$True
 	
-	If ##class(TECH.StringUtils).Equals(Offerte.GeefPersonalityID(), Personality.HaefeleBE, Personality.HaefeleNL,Personality.HaefeleDE,Personality.HaefeleSE,Personality.HaefeleFI,Personality.HaefeleIT,Personality.HaefeleAT ) {   ; , ##class(DOM.common.enu.Personality).SFS() 
+	If ##class(TECH.StringUtils).Equals(Offerte.GeefPersonalityID(), Personality.HaefeleBE, Personality.HaefeleNL,Personality.HaefeleDE,Personality.HaefeleSE,Personality.HaefeleFI,Personality.HaefeleIT,Personality.HaefeleAT,Personality.HaefeleDK,Personality.HaefeleFR ) {   ; , ##class(DOM.common.enu.Personality).SFS() 
 		// Handel Bevestigt ViaWebService, dus de bestelopmerking niet overnemen. 
 		Set IsBestelOpmerkingTeKopieren = $$$False
 	}
Index: APPS/VKP/impl/KlantDataBewaarder.cls.xml
===================================================================
diff -u -r64409 -r64703
--- APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 64409)
+++ APPS/VKP/impl/KlantDataBewaarder.cls.xml	(.../KlantDataBewaarder.cls.xml)	(revision 64703)
@@ -156,6 +156,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, HaefeleFRPersonality)
+	
+	Do ..ValideerKlantId(..KlantDataDto.ID, HaefeleFRPersonality)
+	Do ..ConverteerKlantData(..KlantData, ..KlantDataDto)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KlantData = ..GeefKlantData(..KlantDataDto.ID, HaefeleDKPersonality)
+	
+	Do ..ValideerKlantId(..KlantDataDto.ID, HaefeleDKPersonality)
+	Do ..ConverteerKlantData(..KlantData, ..KlantDataDto)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHein">
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhDeploy/Deploy20210621xHaefeleFRenDKLogo.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20210621xHaefeleFRenDKLogo.cls.xml	(revision 0)
+++ vhDeploy/Deploy20210621xHaefeleFRenDKLogo.cls.xml	(revision 64703)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20210621xHaefeleFRenDKLogo">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Logo voor Haefele FR en DK</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	;Haefele FR
+	Set ^IPCom("CS","LOGO35698",0) = "Logo Haefele NL 2671.jpg"
+	Set ^IPCom("CS","LOGO35698",0,"LogoOpAlleBeslagEtiketten")=1
+	;Haefele DK
+	Set ^IPCom("CS","LOGO35697",0) = "Logo Haefele NL 2671.jpg"
+	Set ^IPCom("CS","LOGO35697",0,"LogoOpAlleBeslagEtiketten")=1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/impl/WebshopSessieFactory.cls.xml
===================================================================
diff -u -r64409 -r64703
--- APPS/EC/impl/WebshopSessieFactory.cls.xml	(.../WebshopSessieFactory.cls.xml)	(revision 64409)
+++ APPS/EC/impl/WebshopSessieFactory.cls.xml	(.../WebshopSessieFactory.cls.xml)	(revision 64703)
@@ -79,6 +79,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..ToonExceptie(HaefeleFRPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..ToonExceptie(HaefeleDKPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleSE">
 <FormalSpec>HaefeleSEPersonality:DOM.common.HaefeleSEPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..ToonExceptie(HaefeleSEPersonality)
Index: vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r64269 -r64703
--- vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 64269)
+++ vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 64703)
@@ -124,12 +124,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleDK",HaefeleDKPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleFI">
 <FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleFI",HaefeleFIPersonality)
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleFR",HaefeleFRPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleIT">
 <FormalSpec>HaefeleITPersonality:DOM.common.HaefeleITPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleIT",HaefeleITPersonality)
@@ -190,6 +202,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkOPO">
+<FormalSpec>OPOPersonality:DOM.common.OPOPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkOPO",OPOPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkPavanello">
 <FormalSpec>PavanelloPersonality:DOM.common.PavanelloPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkPavanello",PavanelloPersonality)
Index: APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml
===================================================================
diff -u -r64409 -r64703
--- APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml	(.../KlantRapporteurVhisie4.cls.xml)	(revision 64409)
+++ APPS/EC/Rapporteur/impl/KlantRapporteurVhisie4.cls.xml	(.../KlantRapporteurVhisie4.cls.xml)	(revision 64703)
@@ -121,6 +121,14 @@
 <FormalSpec>HaefeleATPersonality:DOM.common.HaefeleATPersonality</FormalSpec>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+</Method>
+
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+</Method>
+
 <Method name="VerwerkHaefeleSE">
 <FormalSpec>HaefeleSEPersonality:DOM.common.HaefeleSEPersonality</FormalSpec>
 </Method>
Index: vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml
===================================================================
diff -u -r64281 -r64703
--- vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 64281)
+++ vhUnitTest/APPS/EC/impl/HaefeleDEVerzendwijzeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 64703)
@@ -72,6 +72,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test geldige postcodes in Denemarken">
+<Implementation><![CDATA[
+	#dim LandCode as %String = "DK"
+	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
+	
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"1000"),"DA2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"9999"),"DA2")
+]]></Implementation>
+</Method>
+
+<Method name="Test geldige postcodes in Frankrijk">
+<Implementation><![CDATA[
+	#dim LandCode as %String = "FR"
+	Set Bepaler = ##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
+	
+	
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,1000),"HD2")
+ 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,1999),"HD2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"01000"),"HD2")
+ 	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,"01999"),"HD2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,02000),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,39999),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,40000),"HD3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,66999),"HD3")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,67000),"HD2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,77999),"HD2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,78000),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,87999),"HD4")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,88000),"HD2")
+	Do $$$AssertEquals(Bepaler.GeefVerzendWijze(LandCode,95999),"HD2")
+]]></Implementation>
+</Method>
+
 <Method name="Test Zweden">
 <Implementation><![CDATA[
 	#dim LandCode as %String = "SE"
Index: APPS/VKP/impl/OfferteKlantDataBepaler.cls.xml
===================================================================
diff -u -r64409 -r64703
--- APPS/VKP/impl/OfferteKlantDataBepaler.cls.xml	(.../OfferteKlantDataBepaler.cls.xml)	(revision 64409)
+++ APPS/VKP/impl/OfferteKlantDataBepaler.cls.xml	(.../OfferteKlantDataBepaler.cls.xml)	(revision 64703)
@@ -89,6 +89,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..StelInDummyKlantData()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..StelInDummyKlantData()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkVanRaemdonck">
 <FormalSpec>VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..StelInDummyKlantData()
Index: APPS/EC/impl/WebshopSessieGenerator/LoginParametersNaarSessieConverter.cls.xml
===================================================================
diff -u -r64409 -r64703
--- APPS/EC/impl/WebshopSessieGenerator/LoginParametersNaarSessieConverter.cls.xml	(.../LoginParametersNaarSessieConverter.cls.xml)	(revision 64409)
+++ APPS/EC/impl/WebshopSessieGenerator/LoginParametersNaarSessieConverter.cls.xml	(.../LoginParametersNaarSessieConverter.cls.xml)	(revision 64703)
@@ -110,6 +110,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..WebshopSessie = ##class(APPS.EC.impl.HaefeleDEWebshopSessie).%New(..LoginParameters.GebruikerID)
+	Do ..BewaarKlant(HaefeleFRPersonality,..GeefKlantData())
+	Do ..WebshopSessie.ZetKlant(..LoginParameters.KlantID,..LoginParameters.KlantNaam)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..WebshopSessie = ##class(APPS.EC.impl.HaefeleDEWebshopSessie).%New(..LoginParameters.GebruikerID)
+	Do ..BewaarKlant(HaefeleDKPersonality,..GeefKlantData())
+	Do ..WebshopSessie.ZetKlant(..LoginParameters.KlantID,..LoginParameters.KlantNaam)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkSFS">
 <FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: BL/FOP/Proxy/enu/HoofdingType/Verwerker.cls.xml
===================================================================
diff -u -r64409 -r64703
--- BL/FOP/Proxy/enu/HoofdingType/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 64409)
+++ BL/FOP/Proxy/enu/HoofdingType/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 64703)
@@ -24,8 +24,12 @@
 		Do ..VerwerkHaefeleBE()
 	} ElseIf HoofdingType = "HAEFELEDE" {
 		Do ..VerwerkHaefeleDE()
+	} ElseIf HoofdingType = "HAEFELEDK" {
+		Do ..VerwerkHaefeleDK()
 	} ElseIf HoofdingType = "HAEFELEFI" {
 		Do ..VerwerkHaefeleFI()
+	} ElseIf HoofdingType = "HAEFELEFR" {
+		Do ..VerwerkHaefeleFR()
 	} ElseIf HoofdingType = "HAEFELEIT" {
 		Do ..VerwerkHaefeleIT()
 	} ElseIf HoofdingType = "HAEFELENL" {
@@ -89,12 +93,24 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleFI">
 <Abstract>1</Abstract>
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleIT">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhTest/Mock/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r64409 -r64703
--- vhTest/Mock/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 64409)
+++ vhTest/Mock/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 64703)
@@ -131,12 +131,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleDK",HaefeleDKPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleFI">
 <FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleFI",HaefeleFIPersonality)
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleFR",HaefeleFRPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleIT">
 <FormalSpec>HaefeleITPersonality:DOM.common.HaefeleITPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleIT",HaefeleITPersonality)
Index: vhTest/Fake/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r64409 -r64703
--- vhTest/Fake/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 64409)
+++ vhTest/Fake/APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 64703)
@@ -27,12 +27,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleFI">
 <FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleIT">
 <FormalSpec>HaefeleITPersonality:DOM.common.HaefeleITPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhTest/Utils/DOM/VKP/LeverAdres.cls.xml
===================================================================
diff -u -r64473 -r64703
--- vhTest/Utils/DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 64473)
+++ vhTest/Utils/DOM/VKP/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 64703)
@@ -134,6 +134,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Frans">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	Do LeverAdres.ZetNaam("Frans adres")
+	Do LeverAdres.ZetLandNr(1064)
+	Do LeverAdres.ZetPostcode("95157")
+	Do LeverAdres.ZetStraat("la rue")
+	Do LeverAdres.ZetGemeente("TAVERNY")
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+
+<Method name="Deens">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	Do LeverAdres.ZetNaam("Deens adres")
+	Do LeverAdres.ZetLandNr(1048)
+	Do LeverAdres.ZetPostcode("7800")
+	Do LeverAdres.ZetStraat("Elskjærbakken 3")
+	Do LeverAdres.ZetGemeente("Skive")
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+
 <Method name="NietEuLid">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
Index: vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r64409 -r64703
--- vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 64409)
+++ vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 64703)
@@ -124,12 +124,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleDK",HaefeleDKPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleFI">
 <FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleFI",HaefeleFIPersonality)
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleFR",HaefeleFRPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleIT">
 <FormalSpec>HaefeleITPersonality:DOM.common.HaefeleITPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleIT",HaefeleITPersonality)
Index: APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r64269 -r64703
--- APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 64269)
+++ APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 64703)
@@ -106,6 +106,16 @@
 				Set Partij = ..PartijApi.GeefPartij(KlantID)
 				Set VerzendWijzeID = ..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
 				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleFR){
+				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleFrankrijk()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijzeID = ..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleDK){
+				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleDenemarken()
+				Set Partij = ..PartijApi.GeefPartij(KlantID)
+				Set VerzendWijzeID = ..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
+				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
 			} ElseIf Winkelkar.GeefPersonalityID() = Personality.Dupont {
 				If ($$$Not($IsObject(LeverAdres)) || $$$HasLength(LeverAdres.GeefID()) || (Winkelkar.ExterneId = "")) {
 					Set VerzendWijze = ..GeefVerzendWijzeVanKlantID(KlantEnum.DuPont)
Index: APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml
===================================================================
diff -u -r64423 -r64703
--- APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 64423)
+++ APPS/EC/Verkoop/impl/OfferteVoorBestellingValidator.cls.xml	(.../OfferteVoorBestellingValidator.cls.xml)	(revision 64703)
@@ -196,6 +196,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ControleerReedsBesteld()
+	Do ..ControleerToegangEnPrijzen()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ControleerReedsBesteld()
+	Do ..ControleerToegangEnPrijzen()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkVanHoeckeVoorHalux">
 <FormalSpec>VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..VerwerkVanHoecke(VanHoeckVoorHaluxPersonality)
Index: APPS/EC/Winkelkar/impl/LijnPrijsBepaler.cls.xml
===================================================================
diff -u -r64409 -r64703
--- APPS/EC/Winkelkar/impl/LijnPrijsBepaler.cls.xml	(.../LijnPrijsBepaler.cls.xml)	(revision 64409)
+++ APPS/EC/Winkelkar/impl/LijnPrijsBepaler.cls.xml	(.../LijnPrijsBepaler.cls.xml)	(revision 64703)
@@ -138,6 +138,14 @@
 <FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+</Method>
+
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+</Method>
+
 <Method name="VerwerkVanHoecke">
 <FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
 <Implementation><![CDATA[	Set ..IsAdviesPrijsToegelaten = $$$True
Index: vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml
===================================================================
diff -u -r64409 -r64703
--- vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 64409)
+++ vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/MailVerzender/Handel.cls.xml	(.../Handel.cls.xml)	(revision 64703)
@@ -25,12 +25,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleFI">
 <FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleIT">
 <FormalSpec>HaefeleITPersonality:DOM.common.HaefeleITPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/VKP/Korting/impl/KortingFactory.cls.xml
===================================================================
diff -u -r64409 -r64703
--- APPS/VKP/Korting/impl/KortingFactory.cls.xml	(.../KortingFactory.cls.xml)	(revision 64409)
+++ APPS/VKP/Korting/impl/KortingFactory.cls.xml	(.../KortingFactory.cls.xml)	(revision 64703)
@@ -74,6 +74,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..KortingParser = ##class(APPS.VKP.Klantspecifiek.Haefele.KortingParser).%New()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleDK">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..KortingParser = ##class(APPS.VKP.Klantspecifiek.Haefele.KortingParser).%New()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkKisch">
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
Index: APPS/EC/Rapporteur/impl/KlantRapporteurVhisie3.cls.xml
===================================================================
diff -u -r64409 -r64703
--- APPS/EC/Rapporteur/impl/KlantRapporteurVhisie3.cls.xml	(.../KlantRapporteurVhisie3.cls.xml)	(revision 64409)
+++ APPS/EC/Rapporteur/impl/KlantRapporteurVhisie3.cls.xml	(.../KlantRapporteurVhisie3.cls.xml)	(revision 64703)
@@ -117,9 +117,16 @@
 <FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+</Method>
+
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+</Method>
+
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VerwerkSFS">
Index: BL/Legacy/DCPRINT2.cls.xml
===================================================================
diff -u -r64409 -r64703
--- BL/Legacy/DCPRINT2.cls.xml	(.../DCPRINT2.cls.xml)	(revision 64409)
+++ BL/Legacy/DCPRINT2.cls.xml	(.../DCPRINT2.cls.xml)	(revision 64703)
@@ -169,7 +169,7 @@
 	
 	If (PersonalityId = Personality.Noteborn) {
 		Set IsAfdrukOpBlancoPapier = $$$True
-	} ElseIf (PersonalityId = Personality.HaefeleNL) || (PersonalityId = Personality.HaefeleDE)|| (PersonalityId = Personality.HaefeleIT) || (PersonalityId = Personality.HaefeleAT)  || (PersonalityId = Personality.HaefeleSE) || (PersonalityId = Personality.HaefeleFI){
+	} ElseIf (PersonalityId = Personality.HaefeleNL) || (PersonalityId = Personality.HaefeleDE)|| (PersonalityId = Personality.HaefeleIT) || (PersonalityId = Personality.HaefeleAT)  || (PersonalityId = Personality.HaefeleSE) || (PersonalityId = Personality.HaefeleFI) || (PersonalityId = Personality.HaefeleFR) || (PersonalityId = Personality.HaefeleDK){
 		Set IsAfdrukOpBlancoPapier = $$$True
 	} ElseIf (PersonalityId = Personality.HaefeleBE) && (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefHaefeleBENaarEindklant()) {
 		Set IsAfdrukOpBlancoPapier = $$$True
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml
===================================================================
diff -u -r64409 -r64703
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 64409)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 64703)
@@ -265,6 +265,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+	;Do ..MailVerzenderHandel.Rapporteer(..Offerte)
+	Do ..HttpZenderHaefele.Verzend(..Offerte)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+	;Do ..MailVerzenderHandel.Rapporteer(..Offerte)
+	Do ..HttpZenderHaefele.Verzend(..Offerte)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHein">
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
 <Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
Index: cspBasis/TBX/enu/Verwerker.cls.xml
===================================================================
diff -u -r64409 -r64703
--- cspBasis/TBX/enu/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 64409)
+++ cspBasis/TBX/enu/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 64703)
@@ -7,11 +7,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;SFS;LMC;MBHO;HFLB;VHEPN;DUPO;KISCH;HELMY;HEIN;HFLE;RAEM;HFLD;HFLSE;HFLFI;HFLIT;HFLAT;OPO</Default>
+<Default>;SFS;LMC;MBHO;HFLB;VHEPN;DUPO;KISCH;HELMY;HEIN;HFLE;RAEM;HFLD;HFLSE;HFLFI;HFLIT;HFLAT;OPO;HFLFR;HFLDK</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;SFS;OptimaPack;MeubelBeslagHolland;HaefeleBelgie;VHEPN;Dupont;Kisch;Destil;Hein;HaefeleNederland;VanRaemdonck;HaefeleDuitsland;HaefeleZweden;HaefeleFinland;HaefeleItalie;HaefeleOostenrijk;OPO</Default>
+<Default>;SFS;OptimaPack;MeubelBeslagHolland;HaefeleBelgie;VHEPN;Dupont;Kisch;Destil;Hein;HaefeleNederland;VanRaemdonck;HaefeleDuitsland;HaefeleZweden;HaefeleFinland;HaefeleItalie;HaefeleOostenrijk;OPO;HaefeleFrankrijk;HaefeleDenemarken</Default>
 </Parameter>
 
 <Method name="SFS">
@@ -105,6 +105,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="HaefeleFrankrijk">
+<ClassMethod>1</ClassMethod>
+<ReturnType>cspBasis.TBX.enu.Verwerker</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.enu.WebShopVerwerker).HaefeleFrankrijk()
+]]></Implementation>
+</Method>
+
+<Method name="HaefeleDenemarken">
+<ClassMethod>1</ClassMethod>
+<ReturnType>cspBasis.TBX.enu.Verwerker</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.enu.WebShopVerwerker).HaefeleDenemarken()
+]]></Implementation>
+</Method>
+
 <Method name="HaefeleZweden">
 <ClassMethod>1</ClassMethod>
 <ReturnType>cspBasis.TBX.enu.Verwerker</ReturnType>
Index: cspBasis/TBX/enu/Verwerker/Verwerker.cls.xml
===================================================================
diff -u -r64409 -r64703
--- cspBasis/TBX/enu/Verwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 64409)
+++ cspBasis/TBX/enu/Verwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 64703)
@@ -18,10 +18,14 @@
 		Do ..VerwerkDupont()
 	} ElseIf Verwerker = "HFLB" {
 		Do ..VerwerkHaefeleBelgie()
+	} ElseIf Verwerker = "HFLDK" {
+		Do ..VerwerkHaefeleDenemarken()
 	} ElseIf Verwerker = "HFLD" {
 		Do ..VerwerkHaefeleDuitsland()
 	} ElseIf Verwerker = "HFLFI" {
 		Do ..VerwerkHaefeleFinland()
+	} ElseIf Verwerker = "HFLFR" {
+		Do ..VerwerkHaefeleFrankrijk()
 	} ElseIf Verwerker = "HFLIT" {
 		Do ..VerwerkHaefeleItalie()
 	} ElseIf Verwerker = "HFLE" {
@@ -71,6 +75,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleDenemarken">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleDuitsland">
 <Abstract>1</Abstract>
 <Private>1</Private>
@@ -83,6 +93,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFrankrijk">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleItalie">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: vhTest/Fake/APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r64269 -r64703
--- vhTest/Fake/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 64269)
+++ vhTest/Fake/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 64703)
@@ -73,12 +73,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleFI">
 <FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleIT">
 <FormalSpec>HaefeleITPersonality:DOM.common.HaefeleITPersonality</FormalSpec>
 <Implementation><![CDATA[
@@ -115,6 +127,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkOPO">
+<FormalSpec>OPOPersonality:DOM.common.OPOPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkPierard">
 <FormalSpec>PierardPersonality:DOM.common.PierardPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml
===================================================================
diff -u -r64409 -r64703
--- BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 64409)
+++ BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 64703)
@@ -356,6 +356,62 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleFR()
+	
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+    Set ..LeverbonHoofding.ColRightWidth = "73mm"
+    
+	#dim URL As %String = ""
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleFRPersonality.GeefKlantID())
+	If Klant.HeeftEigenLogo(){
+    	Set URL = "\\fop\Resources\Media\KlantLogos\"
+		#dim Bestand As %String = Klant.GeefLogo()
+		#dim Extensie As %String = ##class(TECH.StringUtils).GetLastPart(Bestand,".")
+    	Set URL = ##class(TECH.Files).AppendFile(URL,Bestand)
+    	Set ..LeverbonHoofding.LOGO = ##class(BL.FOP.Basis.pxAttribType).Create(URL,##class(TECH.StringUtils).ToUpper(Extensie),,)
+	}	    
+    Set ..LeverbonHoofding.NAAM = "Häfele France SARL"
+    Set ..LeverbonHoofding.STRAATNRBUS = "10 allée Benoist Dubost"
+    Set ..LeverbonHoofding.WOONPLAATS = "TAVERNY"
+    Set ..LeverbonHoofding.POSTCODE = "95157"
+	Set ..LeverbonHoofding.TELEFOON = "01 30 40 54 50"
+	Set ..LeverbonHoofding.EMAIL = "Info@haefele.fr"
+	Set ..LeverbonHoofding.T1 = "N° TVA : FR 45 331 692 772"
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).HaefeleDK()
+	
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+    Set ..LeverbonHoofding.ColRightWidth = "73mm"
+    
+	#dim URL As %String = ""
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(HaefeleDKPersonality.GeefKlantID())
+	If Klant.HeeftEigenLogo(){
+    	Set URL = "\\fop\Resources\Media\KlantLogos\"
+		#dim Bestand As %String = Klant.GeefLogo()
+		#dim Extensie As %String = ##class(TECH.StringUtils).GetLastPart(Bestand,".")
+    	Set URL = ##class(TECH.Files).AppendFile(URL,Bestand)
+    	Set ..LeverbonHoofding.LOGO = ##class(BL.FOP.Basis.pxAttribType).Create(URL,##class(TECH.StringUtils).ToUpper(Extensie),,)
+	}	    
+    Set ..LeverbonHoofding.NAAM = "Häfele Danmark A/S"
+    Set ..LeverbonHoofding.STRAATNRBUS = "Elskjærbakken 3"
+    Set ..LeverbonHoofding.WOONPLAATS = "Skive"
+    Set ..LeverbonHoofding.POSTCODE = "7800"
+	Set ..LeverbonHoofding.TELEFOON = "+45 97 51 15 22"	
+	Set ..LeverbonHoofding.EMAIL = "Info@haefele.dk"
+	Set ..LeverbonHoofding.T1 = "CVR-nr.: 21 28 79 03"
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleSE">
 <FormalSpec>HaefeleSEPersonality:DOM.common.HaefeleSEPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: vhTest/Fake/APPS/EC/impl/WebshopSessieFactory.cls.xml
===================================================================
diff -u -r64409 -r64703
--- vhTest/Fake/APPS/EC/impl/WebshopSessieFactory.cls.xml	(.../WebshopSessieFactory.cls.xml)	(revision 64409)
+++ vhTest/Fake/APPS/EC/impl/WebshopSessieFactory.cls.xml	(.../WebshopSessieFactory.cls.xml)	(revision 64703)
@@ -31,12 +31,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleDK">
+<FormalSpec>HaefeleDKPersonality:DOM.common.HaefeleDKPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleFI">
 <FormalSpec>HaefeleFIPersonality:DOM.common.HaefeleFIPersonality</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHaefeleFR">
+<FormalSpec>HaefeleFRPersonality:DOM.common.HaefeleFRPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleIT">
 <FormalSpec>HaefeleITPersonality:DOM.common.HaefeleITPersonality</FormalSpec>
 <Implementation><![CDATA[