Index: vhTest/Fake/APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r54290 -r56004
--- vhTest/Fake/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 54290)
+++ vhTest/Fake/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 56004)
@@ -19,12 +19,29 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="VerwerkZweygart">
-<FormalSpec>ZweygartPersonality:DOM.common.ZweygartPersonality</FormalSpec>
+<Method name="VerwerkFerexpert">
+<FormalSpec>FerexpertPersonality:DOM.common.FerexpertPersonality</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkGalimberti">
+<FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkPavanello">
+<FormalSpec>PavanelloPersonality:DOM.common.PavanelloPersonality</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkZweygart">
+<FormalSpec>ZweygartPersonality:DOM.common.ZweygartPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
Index: vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r54290 -r56004
--- vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 54290)
+++ vhTest/Mock/APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 56004)
@@ -8,6 +8,13 @@
 <Super>APPS.EC.impl.VerzendWijzeBepaler,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",PartijApi:DOM.PARTIJ.PartijAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerzendWijze">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,LeverAdres:DOM.VKP.LeverAdres=""</FormalSpec>
 <ReturnType>APPS.VKP.VerzendWijze</ReturnType>
@@ -45,6 +52,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkFerexpert">
+<FormalSpec>FerexpertPersonality:DOM.common.FerexpertPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkFerexpert",FerexpertPersonality)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkGalimberti">
+<FormalSpec>GalimbertiPersonality:DOM.common.GalimbertiPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkGalimberti",GalimbertiPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkHaefeleBE">
 <FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkHaefeleBE",HaefeleBEPersonality)
@@ -75,6 +94,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkPavanello">
+<FormalSpec>PavanelloPersonality:DOM.common.PavanelloPersonality</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkPavanello",PavanelloPersonality)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkSFS">
 <FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkSFS",SFSPersonality)
Index: vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml
===================================================================
diff -u -r53794 -r56004
--- vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 53794)
+++ vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 56004)
@@ -23,6 +23,10 @@
 <Type>vhTest.Mock.DOM.VKP.VerkoopAPI</Type>
 </Property>
 
+<Property name="OnzeDienstenKlant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -35,6 +39,9 @@
 	Set ..DirecteLeveringKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
 	Do ..DirecteLeveringKlant.IndienMethodCall("GeefVerzendingWijze").DanReturn("DI1")
 	
+	Set ..OnzeDienstenKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do ..OnzeDienstenKlant.IndienMethodCall("GeefVerzendingWijze").DanReturn("OD3")
+	
 	Set ..ExpediteurKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
 	Do ..ExpediteurKlant.IndienMethodCall("GeefVerzendingWijze").DanReturn("EX`MA;EX1`WO")
 	
@@ -43,10 +50,11 @@
 	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||4321").DanReturn(..DirecteLeveringKlant)
 	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||12486").DanReturn(..ExpediteurKlant)
 	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||7833").DanReturn(..ExpediteurKlant)
+	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||1736").DanReturn(..OnzeDienstenKlant)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Winkelkar voor VanHoecke">
+<Method name="aTest: Winkelkar voor VanHoecke">
 <Implementation><![CDATA[
 	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
 	Do ..Winkelkar.ZetKlantID("K||1234")
@@ -61,7 +69,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Winkelkar voor klant van HäfeleNL">
+<Method name="aTest: Winkelkar voor klant van HäfeleNL">
 <Implementation><![CDATA[
 	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).HaefeleNL())
 		
@@ -75,7 +83,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Winkelkar voor handelsklant (niet HäfeleNL)">
+<Method name="aTest: Winkelkar voor handelsklant (niet HäfeleNL)">
 <Implementation><![CDATA[
 	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).SFS())
 		
@@ -89,7 +97,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Winkelkar voor Seefelder (niet HäfeleNL)">
+<Method name="aTest: Winkelkar voor Seefelder (niet HäfeleNL)">
 <Implementation><![CDATA[
 	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).Seefelder())
 		
@@ -103,7 +111,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Winkelkar voor Zweygart (niet HäfeleNL)">
+<Method name="aTest: Winkelkar voor Zweygart (niet HäfeleNL)">
 <Implementation><![CDATA[
 	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).Zweygart())
 		
@@ -117,7 +125,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Winkelkar voor VanHoecke met herbestellingbijprobleem">
+<Method name="aTest: Winkelkar voor VanHoecke met herbestellingbijprobleem">
 <Implementation><![CDATA[
 	Set ..Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).WinkelkarMetHerbestellingBijProbleem()
 	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
@@ -132,6 +140,74 @@
 	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"DI1")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Winkelkar van Dupont met adhoc adres">
+<Implementation><![CDATA[
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	Do ..Winkelkar.ZetKlantID("K||1736")
+	
+	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 LeverAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
+	Do LeverAdres.ZetID("")
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar, LeverAdres)
+	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"DI1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Winkelkar van Dupont zonder adhoc adres">
+<Implementation><![CDATA[
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	Do ..Winkelkar.ZetKlantID("K||1736")
+	
+	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 LeverAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
+	Do LeverAdres.ZetID("123456")
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar, LeverAdres)
+	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"OD3")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Winkelkar bij Dupont met adhoc adres">
+<Implementation><![CDATA[
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).Dupont())
+	Do ..Winkelkar.ZetKlantID("dupont_12345")
+	
+	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 LeverAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
+	Do LeverAdres.ZetID("")
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar, LeverAdres)
+	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"DI1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Winkelkar bij Dupont zonder adhoc adres">
+<Implementation><![CDATA[
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).Dupont())
+	Do ..Winkelkar.ZetKlantID("dupont_12345")
+	
+	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 LeverAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
+	Do LeverAdres.ZetID("123456")
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar, LeverAdres)
+	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"OD3")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml
===================================================================
diff -u -r44304 -r56004
--- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 44304)
+++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 56004)
@@ -8,6 +8,13 @@
 <Super>WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,MogelijkeLeverdatumsBepaler:APPS.common.VKP.MogelijkeLeverdatumsBepaler,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService,LeverAdresRepository:DOM.VKP.impl.LeverAdresRepository</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefIsAsapMogelijk">
 <FormalSpec>BereidVoorBestellingRequest:WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest,KlantPartijID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
Index: APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r54290 -r56004
--- APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 54290)
+++ APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 56004)
@@ -57,15 +57,32 @@
 				#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(KlantID)
 				Do ##class(vhLib.Logger).%New().Info("VerzendwijzeBepaler","Verzendwijze op DI1 gezet wegens HerbestellingBijProbleem.")
 				Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
-			} else {
-				Set VerzendWijze = ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefKlantID())		
+			} Else {
+				If Winkelkar.GeefKlantID() = ##class(DOM.VKP.enu.Klant).DuPont() {
+					If $$$HasLength(LeverAdres.GeefID()) {
+						Set VerzendWijze = ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefKlantID())
+					} Else {
+						Set KlantID = ##class(DOM.VKP.enu.Klant).DuPont()
+						Set Partij = ..PartijApi.GeefPartij(KlantID)
+						Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+					}
+				} Else {
+					Set VerzendWijze = ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefKlantID())
+				}
 			}
 		} Else {
-			
 			If Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).HaefeleNL(){
 				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleNederland()
 				Set Partij = ..PartijApi.GeefPartij(KlantID)
 				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+			} ElseIf Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Dupont() {
+					If $$$HasLength(LeverAdres.GeefID()) {
+						Set VerzendWijze = ..GeefVerzendWijzeVanKlantID(##class(DOM.VKP.enu.Klant).DuPont())
+					} Else {
+						Set KlantID = ##class(DOM.VKP.enu.Klant).DuPont()
+						Set Partij = ..PartijApi.GeefPartij(KlantID)
+						Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
+					}
 			} ElseIf Winkelkar.GeefPersonality().GeefLeverancierData().PersonalityId = ##class(DOM.common.enu.Personality).VanHoecke() {
 				Set VerzendWijze =  ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefPersonality().GeefLeverancierData().EigenKlantId)
 			} Else {
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml
===================================================================
diff -u -r49779 -r56004
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 49779)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 56004)
@@ -83,6 +83,20 @@
 <Private>1</Private>
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
+	If ((KlantPartijID = "K||1736") || (##class(TECH.StringUtils).StartsWith(KlantPartijID,"dupont"))) {
+		Set DOMLeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+		Do DOMLeverAdres.ZetAanspreking(LeverAdres.Aanspreking)
+		Do DOMLeverAdres.ZetNaam(LeverAdres.Naam)
+		Do DOMLeverAdres.ZetToenaam(LeverAdres.Toenaam)
+		Do DOMLeverAdres.ZetStraat(LeverAdres.StraatNrBus)
+		Do DOMLeverAdres.ZetPostcode(LeverAdres.PostCode)
+		Do DOMLeverAdres.ZetLandNr(1019)
+		Do DOMLeverAdres.ZetGemeente(LeverAdres.Woonplaats)
+		Do DOMLeverAdres.ZetTaal(LeverAdres.Taal)
+		Do DOMLeverAdres.ZetID(LeverAdres.Id)
+		Do DOMLeverAdres.ZetAxLeveradresId(LeverAdres.Id)
+		Quit DOMLeverAdres
+	}
 	Quit:..IsHoofdLeverAdres(LeverAdres) ""
 	Quit ..LeverAdresRepository.GeefViaKlantIDEnLeverAdresID(KlantPartijID, LeverAdres.Id)
 ]]></Implementation>