Index: APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/LeverdatumBepaler.cls.xml
===================================================================
diff -u -r53160 -r53164
--- APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/LeverdatumBepaler.cls.xml	(.../LeverdatumBepaler.cls.xml)	(revision 53160)
+++ APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/LeverdatumBepaler.cls.xml	(.../LeverdatumBepaler.cls.xml)	(revision 53164)
@@ -94,6 +94,9 @@
 		If $$$HasLength(VorigePickupDate) {
 			Set GeschikteSFSPickupDatum = VorigePickupDate
 		} Else {
+			If (VoorgesteldePickupdatum < ..VroegsteLeverdatum) {
+				Set VoorgesteldePickupdatum = ..VroegsteLeverdatum
+			}
 			#dim VolgendePickupDate As %Date = ..SFSKalenderRepository.GeefVolgendePickupDate(VoorgesteldePickupdatum)
 			Set GeschikteSFSPickupDatum = VolgendePickupDate
 		}
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/LeverdatumBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/LeverdatumBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/LeverdatumBepaler/Test.cls.xml	(revision 53164)
@@ -0,0 +1,143 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.LeverdatumBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: gevraagde leverdatum wordt terug gegeven voor VH personality">
+<Implementation><![CDATA[
+	Set CommonApiMock = ##class(vhTest.Mock.DOM.common.CommonAPI).%New()
+	Do CommonApiMock.VerwachtMethodCall("GeefPersonality",1).DanReturn(##class(DOM.common.VanHoeckePersonality).%New(1,4682))
+	Set SFSKalenderRepositoryStub = ##class(vhTest.Mock.APPS.EC.impl.LeverdatumBepaler.Data.SFSKalenderRepository).%New()
+	Set LeverdatumBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.LeverdatumBepaler).%New(CommonApiMock, SFSKalenderRepositoryStub)
+	
+	#dim GevraagdeLeverdatum As %String = "2019/01/01" 
+	#dim Leverdatum As %Date = LeverdatumBepaler.GeefLeverdatum(1, GevraagdeLeverdatum, $$$DummyDate)
+	
+	Do $$$AssertEquals(Leverdatum,##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToDate(GevraagdeLeverdatum))
+	
+	Do CommonApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: gevraagde leverdatum wordt niet overgenomen en de vroegst mogelijke leverdatum wordt gegeven voor VH personality">
+<Implementation><![CDATA[
+	Set CommonApiMock = ##class(vhTest.Mock.DOM.common.CommonAPI).%New()
+	Do CommonApiMock.VerwachtMethodCall("GeefPersonality",1).DanReturn(##class(DOM.common.VanHoeckePersonality).%New(1,4682))
+	Set SFSKalenderRepositoryStub = ##class(vhTest.Mock.APPS.EC.impl.LeverdatumBepaler.Data.SFSKalenderRepository).%New()
+	Set LeverdatumBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.LeverdatumBepaler).%New(CommonApiMock, SFSKalenderRepositoryStub)
+	
+	#dim VroegsteLeverdatum = ##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToDate("31/12/2018")
+	#dim Leverdatum As %Date = LeverdatumBepaler.GeefLeverdatum(1, "", VroegsteLeverdatum)
+	
+	Do $$$AssertEquals(Leverdatum,VroegsteLeverdatum)
+	
+	Do CommonApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: gevraagde leverdatum is geldig en wordt overgenomen voor SFS personality">
+<Implementation><![CDATA[
+	Set CommonApiMock = ##class(vhTest.Mock.DOM.common.CommonAPI).%New()
+	Do CommonApiMock.VerwachtMethodCall("GeefPersonality",3).DanReturn(##class(DOM.common.SFSPersonality).%New(3,1234))
+	
+	#dim GevraagdeLeverdatum As %String = "2019/01/01"
+	
+	Set SFSKalenderRepositoryMock = ##class(vhTest.Mock.APPS.EC.impl.LeverdatumBepaler.Data.SFSKalenderRepository).%New()
+	Do SFSKalenderRepositoryMock.VerwachtMethodCall("BestaatViaPickupDate", ##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToDate(GevraagdeLeverdatum)).DanReturn($$$True)
+	
+	Set LeverdatumBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.LeverdatumBepaler).%New(CommonApiMock, SFSKalenderRepositoryMock)
+	
+	#dim Leverdatum As %Date = LeverdatumBepaler.GeefLeverdatum(3, GevraagdeLeverdatum, $$$DummyDate)
+	
+	Do $$$AssertEquals(Leverdatum, ##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToDate(GevraagdeLeverdatum))
+	
+	Do CommonApiMock.Verifieer()
+	Do SFSKalenderRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: gevraagde leverdatum is niet geldig en een vroegere mogelijke leverdatum wordt overgenomen voor SFS personality">
+<Implementation><![CDATA[
+	Set CommonApiMock = ##class(vhTest.Mock.DOM.common.CommonAPI).%New()
+	Do CommonApiMock.VerwachtMethodCall("GeefPersonality",3).DanReturn(##class(DOM.common.SFSPersonality).%New(3,1234))
+	
+	#dim GevraagdeLeverdatumAlsString As %String = "2019/01/01"
+	#dim GevraagdeLeverdatum As %String = ##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToDate(GevraagdeLeverdatumAlsString)
+
+	#dim VroegsteLeverdatum As %String = ##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToDate("2018/12/30")
+	#dim VorigeLeverdatum As %String = ##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToDate("2018/12/31")
+	
+	Set SFSKalenderRepositoryMock = ##class(vhTest.Mock.APPS.EC.impl.LeverdatumBepaler.Data.SFSKalenderRepository).%New()
+	Do SFSKalenderRepositoryMock.VerwachtMethodCall("BestaatViaPickupDate", GevraagdeLeverdatum).DanReturn($$$False)
+	Do SFSKalenderRepositoryMock.VerwachtMethodCall("GeefVorigePickupDate", VroegsteLeverdatum, GevraagdeLeverdatum).DanReturn(VorigeLeverdatum)
+	
+	Set LeverdatumBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.LeverdatumBepaler).%New(CommonApiMock, SFSKalenderRepositoryMock)
+	
+	#dim Leverdatum As %Date = LeverdatumBepaler.GeefLeverdatum(3, GevraagdeLeverdatumAlsString, VroegsteLeverdatum)
+	
+	Do $$$AssertEquals(Leverdatum, VorigeLeverdatum)
+	
+	Do CommonApiMock.Verifieer()
+	Do SFSKalenderRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: gevraagde leverdatum is niet geldig en de eerst volgende mogelijke leverdatum wordt overgenomen voor SFS personality">
+<Implementation><![CDATA[
+	Set CommonApiMock = ##class(vhTest.Mock.DOM.common.CommonAPI).%New()
+	Do CommonApiMock.VerwachtMethodCall("GeefPersonality",3).DanReturn(##class(DOM.common.SFSPersonality).%New(3,1234))
+	
+	#dim GevraagdeLeverdatumAlsString As %String = "2019/10/10"
+	#dim GevraagdeLeverdatum As %String = ##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToDate(GevraagdeLeverdatumAlsString)
+
+	#dim VroegsteLeverdatum As %String = ##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToDate("2018/12/30")
+	#dim VolgendeLeverdatum As %String = ##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToDate("2019/01/01")
+	
+	Set SFSKalenderRepositoryMock = ##class(vhTest.Mock.APPS.EC.impl.LeverdatumBepaler.Data.SFSKalenderRepository).%New()
+	Do SFSKalenderRepositoryMock.VerwachtMethodCall("BestaatViaPickupDate", GevraagdeLeverdatum).DanReturn($$$False)
+	Do SFSKalenderRepositoryMock.VerwachtMethodCall("GeefVorigePickupDate", VroegsteLeverdatum, GevraagdeLeverdatum).DanReturn("")
+	
+	Do SFSKalenderRepositoryMock.VerwachtMethodCall("GeefVolgendePickupDate", GevraagdeLeverdatum).DanReturn(VolgendeLeverdatum)
+	
+	Set LeverdatumBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.LeverdatumBepaler).%New(CommonApiMock, SFSKalenderRepositoryMock)
+	
+	#dim Leverdatum As %Date = LeverdatumBepaler.GeefLeverdatum(3, GevraagdeLeverdatumAlsString, VroegsteLeverdatum)
+	
+	Do $$$AssertEquals(Leverdatum, VolgendeLeverdatum)
+	
+	Do CommonApiMock.Verifieer()
+	Do SFSKalenderRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: om de volgende mogelijke leverdatum te bepalen voor SFS personality wordt de vroegst mogelijke leverdatum wordt gebruikt indien de gevraagde leverdatum ouder is">
+<Implementation><![CDATA[
+	Set CommonApiMock = ##class(vhTest.Mock.DOM.common.CommonAPI).%New()
+	Do CommonApiMock.VerwachtMethodCall("GeefPersonality",3).DanReturn(##class(DOM.common.SFSPersonality).%New(3,1234))
+	
+	#dim GevraagdeLeverdatumAlsString As %String = "2019/01/01"
+	#dim GevraagdeLeverdatum As %String = ##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToDate(GevraagdeLeverdatumAlsString)
+
+	#dim VroegsteLeverdatum As %String = ##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToDate("2019/02/02")
+	#dim VolgendeLeverdatum As %String = ##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToDate("2019/03/03")
+	
+	Set SFSKalenderRepositoryMock = ##class(vhTest.Mock.APPS.EC.impl.LeverdatumBepaler.Data.SFSKalenderRepository).%New()
+	Do SFSKalenderRepositoryMock.VerwachtMethodCall("BestaatViaPickupDate", GevraagdeLeverdatum).DanReturn($$$False)
+	Do SFSKalenderRepositoryMock.VerwachtMethodCall("GeefVorigePickupDate", VroegsteLeverdatum, GevraagdeLeverdatum).DanReturn("")
+	
+	Do SFSKalenderRepositoryMock.VerwachtMethodCall("GeefVolgendePickupDate", VroegsteLeverdatum).DanReturn(VolgendeLeverdatum)
+	
+	Set LeverdatumBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.LeverdatumBepaler).%New(CommonApiMock, SFSKalenderRepositoryMock)
+	
+	#dim Leverdatum As %Date = LeverdatumBepaler.GeefLeverdatum(3, GevraagdeLeverdatumAlsString, VroegsteLeverdatum)
+	
+	Do $$$AssertEquals(Leverdatum, VolgendeLeverdatum)
+	
+	Do CommonApiMock.Verifieer()
+	Do SFSKalenderRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>