Index: vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml
===================================================================
diff -u -r63827 -r63967
--- vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 63827)
+++ vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 63967)
@@ -52,6 +52,7 @@
 	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||12486").DanReturn(..ExpediteurKlant)
 	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||7833").DanReturn(..ExpediteurKlant)
 	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||1736").DanReturn(..OnzeDienstenKlant)
+	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant","K||1523").DanReturn(..DirecteLeveringKlant)
 ]]></Implementation>
 </Method>
 
@@ -378,6 +379,74 @@
 	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"OD3")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Winkelkar bij VanRaemdonck met adhoc adres">
+<Implementation><![CDATA[
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanRaemdonck())
+	Do ..Winkelkar.ZetKlantID("vanraemdonck_12345")
+	Do ..Winkelkar.ZetExterneId("123456")
+	
+	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 Vanraemdonck zonder adhoc adres">
+<Implementation><![CDATA[
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanRaemdonck())
+	Do ..Winkelkar.ZetKlantID("vanraemdonck_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,"DI1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Winkelkar van Vanraemdonck zonder adres -&gt; DI1">
+<Implementation><![CDATA[
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	Do ..Winkelkar.ZetKlantID("K||1523")
+	
+	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 = ""
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar, LeverAdres)
+	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"DI1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Winkelkar van Vanraemdonck zonder adhoc adres">
+<Implementation><![CDATA[
+	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	Do ..Winkelkar.ZetKlantID("K||1523")
+	
+	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,"DI1")
+]]></Implementation>
+</Method>
 </Class>