Index: APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r56004 -r56360
--- APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 56004)
+++ APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 56360)
@@ -59,7 +59,7 @@
 				Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
 			} Else {
 				If Winkelkar.GeefKlantID() = ##class(DOM.VKP.enu.Klant).DuPont() {
-					If $$$HasLength(LeverAdres.GeefID()) {
+					If ($$$Not($IsObject(LeverAdres)) || $$$HasLength(LeverAdres.GeefID())) {
 						Set VerzendWijze = ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefKlantID())
 					} Else {
 						Set KlantID = ##class(DOM.VKP.enu.Klant).DuPont()
@@ -76,7 +76,7 @@
 				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()) {
+					If ($$$Not($IsObject(LeverAdres)) || $$$HasLength(LeverAdres.GeefID())) {
 						Set VerzendWijze = ..GeefVerzendWijzeVanKlantID(##class(DOM.VKP.enu.Klant).DuPont())
 					} Else {
 						Set KlantID = ##class(DOM.VKP.enu.Klant).DuPont()
Index: vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml
===================================================================
diff -u -r56004 -r56360
--- vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 56004)
+++ vhUnitTest/APPS/EC/impl/VerzendWijzeBepaler/GeefVerzendWijze/Test.cls.xml	(.../Test.cls.xml)	(revision 56360)
@@ -54,7 +54,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="aTest: Winkelkar voor VanHoecke">
+<Method name="Test: Winkelkar voor VanHoecke">
 <Implementation><![CDATA[
 	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
 	Do ..Winkelkar.ZetKlantID("K||1234")
@@ -158,6 +158,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Winkelkar van Dupont zonder adres -&gt; OD3">
+<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 = ""
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = VerzendWijzeBepaler.GeefVerzendWijze(..Winkelkar, LeverAdres)
+	
+	Do $$$AssertEquals(VerzendWijze.VerzendWijzeID,"OD3")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Winkelkar van Dupont zonder adhoc adres">
 <Implementation><![CDATA[
 	Do ..Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())