Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService/Test.cls.xml
===================================================================
diff -u -r56069 -r64211
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService/Test.cls.xml	(.../Test.cls.xml)	(revision 56069)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService/Test.cls.xml	(.../Test.cls.xml)	(revision 64211)
@@ -185,6 +185,44 @@
 	Do WinkelkarServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Geeft mogelijke leverdatums voor VanRaemdonck zelf -&gt; bestaand adres gebruiken">
+<Implementation><![CDATA[
+	Set WinkelkarFake = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New("ApplicatieID")
+
+	Set MogelijkeLeverdatums = ##class(%ListOfDataTypes).%New()
+	
+	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefWinkelkarIDViaID","1").DanReturn("1")
+		
+	Set WinkelkarServiceMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	Do WinkelkarServiceMock.VerwachtMethodCall("OpenWinkelkar","1").DanReturn(WinkelkarFake)
+
+	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest()
+	Set BereidVoorBestellingRequest.Winkelkar.KlantId = "01523"
+	Set BereidVoorBestellingRequest.LeverAdres.Id = "123456"
+	
+	Set LeverAdresRepositoryMock = ##class(vhTest.Mock.DOM.VKP.impl.LeverAdresRepository).%New()
+	Set LeverAdresDummy = ##class(vhTest.Dummy.DOM.VKP.LeverAdres).%New()
+	Do LeverAdresRepositoryMock.VerwachtMethodCall("GeefViaKlantIDEnLeverAdresID","01523","123456").DanReturn(LeverAdresDummy)
+	
+	Set MogelijkeLeverdatumsBepalerMock = ##class(vhTest.Mock.APPS.common.VKP.MogelijkeLeverdatumsBepaler).%New()
+	Do MogelijkeLeverdatumsBepalerMock.VerwachtMethodCall("GeefMogelijkeLeverdatums",WinkelkarFake,LeverAdresDummy,10).DanReturn(MogelijkeLeverdatums)
+
+	
+	#dim ProjectSettingsAPIMock as DOM.common.ProjectSettingsAPI = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).MockInstance()
+	
+	Set VerzendingService = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New(WinkelkarRepositoryMock, MogelijkeLeverdatumsBepalerMock, WinkelkarServiceMock,LeverAdresRepositoryMock)
+	#dim MogelijkeLeverdatumsResult As %ListOfDataTypes = VerzendingService.GeefMogelijkeLeverDatums(BereidVoorBestellingRequest,"01523")
+	
+	Do $$$AssertEquals(MogelijkeLeverdatums, MogelijkeLeverdatumsResult)
+	
+	Do LeverAdresRepositoryMock.Verifieer()
+	Do WinkelkarRepositoryMock.Verifieer()
+	Do MogelijkeLeverdatumsBepalerMock.Verifieer()
+	Do WinkelkarServiceMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml
===================================================================
diff -u -r63977 -r64211
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 63977)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/VerzendingService.cls.xml	(.../VerzendingService.cls.xml)	(revision 64211)
@@ -123,9 +123,12 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
-	Quit ( (KlantPartijID = Klant.DuPont) || ##class(TECH.StringUtils).StartsWith(KlantPartijID,"dupont") || 
-		(KlantPartijID = Klant.HaefeleDuitsland) || ##class(TECH.StringUtils).StartsWith(KlantPartijID,"hfleDE","hfleSE","hfleFI") ||
-		(( (KlantPartijID = Klant.VanRaemdonck) || ##class(TECH.StringUtils).StartsWith(KlantPartijID,"raem")) && ..ProjectSettingsAPI.IsActiefVanRaemdonckNaarEindklant() ))
+	Quit ( (KlantPartijID = Klant.DuPont) || 
+			##class(TECH.StringUtils).StartsWith(KlantPartijID,"dupont") || 
+			(KlantPartijID = Klant.HaefeleDuitsland) || 
+			##class(TECH.StringUtils).StartsWith(KlantPartijID,"hfleDE","hfleSE","hfleFI") ||
+			( ##class(TECH.StringUtils).StartsWith(KlantPartijID,"raem") && ..ProjectSettingsAPI.IsActiefVanRaemdonckNaarEindklant()  )
+		)
 ]]></Implementation>
 </Method>
 </Class>