Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml
===================================================================
diff -u -r56386 -r61243
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 56386)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 61243)
@@ -90,7 +90,7 @@
 		Do DOMLeverAdres.ZetToenaam(LeverAdres.Toenaam)
 		Do DOMLeverAdres.ZetStraat(LeverAdres.StraatNrBus)
 		Do DOMLeverAdres.ZetPostcode(LeverAdres.PostCode)
-		Do DOMLeverAdres.ZetLandNr(##class(DOM.common.enu.Land).Belgie()) //voorlopig voldoende, want enkel voor Dupont. GEEN definitieve oplossing
+		Do DOMLeverAdres.ZetLandNr(##class(DOM.DomeinContext).Instance().GeefLocatieAPI().GeefLandVoorLandCode(LeverAdres.Land).GeefID())
 		Do DOMLeverAdres.ZetGemeente(LeverAdres.Woonplaats)
 		Do DOMLeverAdres.ZetTaal(LeverAdres.Taal)
 		Do DOMLeverAdres.ZetID(LeverAdres.Id)
@@ -114,7 +114,9 @@
 <FormalSpec>KlantPartijID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ((KlantPartijID = ##class(DOM.VKP.enu.Klant).DuPont()) || (##class(TECH.StringUtils).StartsWith(KlantPartijID,"dupont")))
+<Implementation><![CDATA[
+	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	Quit ((KlantPartijID = Klant.DuPont) || (##class(TECH.StringUtils).StartsWith(KlantPartijID,"dupont")) || (KlantPartijID = Klant.HaefeleDuitsland) || (##class(TECH.StringUtils).StartsWith(KlantPartijID,"hfleDE")))
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r58718 -r61243
--- vhTest/Fake/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 58718)
+++ vhTest/Fake/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 61243)
@@ -67,12 +67,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHahleOy">
+<FormalSpec>HahleOyPersonality:DOM.common.HahleOyPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkJBarth">
 <FormalSpec>JBarthPersonality:DOM.common.JBarthPersonality</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkPierard">
 <FormalSpec>PierardPersonality:DOM.common.PierardPersonality</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r58718 -r61243
--- APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 58718)
+++ APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 61243)
@@ -28,15 +28,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HaefeleDEVerzendwijzeBepaler">
+<Type>APPS.EC.impl.HaefeleDEVerzendwijzeBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI=""</FormalSpec>
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",HaefeleDEVerzendwijzeBepaler:APPS.EC.impl.HaefeleDEVerzendwijzeBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	Set ..PartijApi = $$$Inject(PartijApi, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
+	Set ..HaefeleDEVerzendwijzeBepaler = $$$Inject(HaefeleDEVerzendwijzeBepaler,##class(APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New())
 	Set ..LegacyPartijApi = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
 	
 	Quit $$$OK
@@ -50,7 +56,6 @@
 	#dim VerzendWijze As APPS.VKP.VerzendWijze
 	
 	If (LeverAdres="") || (LeverAdres.GeefVerzendingWijze()="") || (Winkelkar.HeeftHerbestellingBijProbleem()) {
-	
 		If Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).VanHoecke() {
 			If Winkelkar.HeeftHerbestellingBijProbleem() {
 				#dim KlantID As DOM.common.PartijID = Winkelkar.GeefKlantID()
@@ -78,7 +83,8 @@
 			} ElseIf Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).HaefeleDE(){
 				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleDuitsland()
 				Set Partij = ..PartijApi.GeefPartij(KlantID)
-				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+				#dim VerzendWijzeID as %String = ..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() = ##class(DOM.common.enu.Personality).Dupont() {
 					If ($$$Not($IsObject(LeverAdres)) || $$$HasLength(LeverAdres.GeefID()) || (Winkelkar.ExterneId = "")) {
 						Set VerzendWijze = ..GeefVerzendWijzeVanKlantID(##class(DOM.VKP.enu.Klant).DuPont())
Index: vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml
===================================================================
diff -u -r59055 -r61243
--- vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 59055)
+++ vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 61243)
@@ -85,15 +85,20 @@
 
 <Method name="Test: Winkelkar voor klant van HäfeleDE">
 <Implementation><![CDATA[
+	Set HDEVerzendwijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.HaefeleDEVerzendwijzeBepaler).%New()
+	Do HDEVerzendwijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze","DE",32791).DanReturn("HD2")
+	
 	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).HaefeleDE())
 		
 	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)
-	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar)
-	
-	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"DI1")
+	Set VerzendWijzeBepaler = ##class(APPS.EC.impl.VerzendWijzeBepaler).%New(..VerkoopApiStub, PartijApiStub,HDEVerzendwijzeBepalerMock)
+	#dim LeverAdresDummy as DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Duits()
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar,LeverAdresDummy)
+
+	Do HDEVerzendwijzeBepalerMock.Verifieer()	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"HD2")
 ]]></Implementation>
 </Method>
 
Index: vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r58718 -r61243
--- vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 58718)
+++ vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 61243)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI=""</FormalSpec>
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",HaefeleDEVerzendwijzeBepaler:APPS.EC.impl.HaefeleDEVerzendwijzeBepaler=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
@@ -124,6 +124,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkHahleOy">
+<FormalSpec>HahleOyPersonality:DOM.common.HahleOyPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHahleOy",HahleOyPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHein">
 <FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHein",HeinPersonality)
@@ -142,6 +148,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkKleiner">
+<FormalSpec>KleinerPersonality:DOM.common.KleinerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKleiner",KleinerPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLayer">
+<FormalSpec>LayerPersonality:DOM.common.LayerPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkLayer",LayerPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkNoteborn">
 <FormalSpec>NotebornPersonality:DOM.common.NotebornPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkNoteborn",NotebornPersonality)