Index: APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u -r44411 -r44644
--- APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44411)
+++ APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(.../MogelijkeLeverdatumsBepaler.cls.xml)	(revision 44644)
@@ -70,6 +70,8 @@
 <ReturnType>APPS.VKP.VerzendWijze</ReturnType>
 <Implementation><![CDATA[
 	Quit:(LeverAdres="") ..VerzendWijzeBepaler.GeefVerzendWijze(Winkelkar)
+	Quit:(LeverAdres.GeefVerzendingWijze()="") ..VerzendWijzeBepaler.GeefVerzendWijze(Winkelkar)
+	
 	Quit ##class(APPS.VKP.VerzendWijze).%New(Winkelkar.GeefKlantID(), LeverAdres.GeefVerzendingWijze(), LeverAdres.GeefLand().GeefCode(), LeverAdres.GeefPostcode())
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/common/VKP/MogelijkeLeverdatumsBepaler/Test.cls.xml
===================================================================
diff -u -r44411 -r44644
--- vhUnitTest/APPS/common/VKP/MogelijkeLeverdatumsBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 44411)
+++ vhUnitTest/APPS/common/VKP/MogelijkeLeverdatumsBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 44644)
@@ -61,6 +61,65 @@
 	Do $$$AssertEquals(MogelijkeLeverdatumsBepaler.GeefIsAsapMogelijk(Winkelkar), VerwachteWaarde)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: standaard verzendwijze van de winkelkar wordt gebruikt bij leeg leveradres">
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).LegeWinkelkar()
+	#dim LeegLeverAdres As DOM.VKP.LeverAdres = ""
+	
+	Set VerzendWijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.VerzendWijzeBepaler).%New()
+	Do VerzendWijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze", Winkelkar).ExactAantalKeer(1).DanReturn("")
+	
+	Set VroegsteLeverDatumBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
+	Do VroegsteLeverDatumBepalerStub.IndienMethodCall("GeefVroegsteLeverdatumPerLijn",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(##class(%ListOfDataTypes).%New())
+	
+	Set MogelijkeLeverdatumsBepaler = ##class(APPS.common.VKP.MogelijkeLeverdatumsBepaler).%New(VerzendWijzeBepalerMock, VroegsteLeverDatumBepalerStub)
+	
+	Do MogelijkeLeverdatumsBepaler.GeefIsAsapMogelijk(Winkelkar, LeegLeverAdres)
+	
+	Do VerzendWijzeBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: standaard verzendwijze van de winkelkar wordt gebruikt als een leveradres geen verzendwijze heeft">
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).LegeWinkelkar()
+	#dim LeverAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
+	Do LeverAdres.ZetVerzendingWijze("")
+	
+	Set VerzendWijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.VerzendWijzeBepaler).%New()
+	Do VerzendWijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze", Winkelkar).ExactAantalKeer(1).DanReturn("")
+	
+	Set VroegsteLeverDatumBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
+	Do VroegsteLeverDatumBepalerStub.IndienMethodCall("GeefVroegsteLeverdatumPerLijn",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(##class(%ListOfDataTypes).%New())
+	
+	Set MogelijkeLeverdatumsBepaler = ##class(APPS.common.VKP.MogelijkeLeverdatumsBepaler).%New(VerzendWijzeBepalerMock, VroegsteLeverDatumBepalerStub)
+	
+	Do MogelijkeLeverdatumsBepaler.GeefIsAsapMogelijk(Winkelkar, LeverAdres)
+	
+	Do VerzendWijzeBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: standaard verzendwijze van de winkelkar wordt niet gebruikt als een leveradres een verzendwijze heeft">
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).LegeWinkelkar()
+	#dim LeverAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
+	Do LeverAdres.ZetVerzendingWijze("DI1")
+	
+	Set VerzendWijzeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.VerzendWijzeBepaler).%New()
+	Do VerzendWijzeBepalerMock.VerwachtMethodCall("GeefVerzendWijze", Winkelkar).ExactAantalKeer(0)
+	
+	Set VroegsteLeverDatumBepalerStub = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
+	Do VroegsteLeverDatumBepalerStub.IndienMethodCall("GeefVroegsteLeverdatumPerLijn",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(##class(%ListOfDataTypes).%New())
+	
+	Set MogelijkeLeverdatumsBepaler = ##class(APPS.common.VKP.MogelijkeLeverdatumsBepaler).%New(VerzendWijzeBepalerMock, VroegsteLeverDatumBepalerStub)
+	
+	Do MogelijkeLeverdatumsBepaler.GeefIsAsapMogelijk(Winkelkar, LeverAdres)
+	
+	Do VerzendWijzeBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>