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>