Index: APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/LeverdatumBepaler.cls.xml
===================================================================
diff -u
--- APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/LeverdatumBepaler.cls.xml	(revision 0)
+++ APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/LeverdatumBepaler.cls.xml	(revision 53160)
@@ -0,0 +1,130 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.LeverdatumBepaler">
+<Super>DOM.common.VanHoeckeOfAnderePersonalityVisitor</Super>
+
+<Property name="Leverdatum">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SFSKalenderRepository">
+<Type>APPS.EC.impl.LeverdatumBepaler.Data.SFSKalenderRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CommonApi">
+<Type>DOM.common.CommonAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GevraagdeLeverdatum">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VroegsteLeverdatum">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>CommonApi:DOM.common.CommonAPI,SFSKalenderRepository:APPS.EC.impl.LeverdatumBepaler.Data.SFSKalenderRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..CommonApi = $$$Inject(CommonApi, ##class(DOM.DomeinContext).Instance().GeefCommonAPI())
+	Set ..SFSKalenderRepository = $$$Inject(SFSKalenderRepository, ##class(APPS.EC.impl.LeverdatumBepaler.Data.SFSKalenderRepository).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverdatum">
+<FormalSpec>PersonalityID:%String,GevraagdeLeverdatum:%String,VroegsteLeverdatum:%Date</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	Set ..GevraagdeLeverdatum = GevraagdeLeverdatum
+	Set ..VroegsteLeverdatum = VroegsteLeverdatum
+	#dim Personality As DOM.common.Personality = ..CommonApi.GeefPersonality(PersonalityID)
+	Do Personality.Accept($this)
+	Quit ..Leverdatum
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanHoecke">
+<FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
+<Implementation><![CDATA[	Set ..Leverdatum = ..GeefVoorgesteldeLeverdatum()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkSFS">
+<FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
+<Implementation><![CDATA[
+	If ##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefSFSLeverdatums() {
+		// in geval van SFS/alpnach is dit een pickupdatum.
+		Set ..Leverdatum = ..GeefGeschikteSFSPickupDatum()
+	} Else {
+		Set ..Leverdatum = ..GeefVoorgesteldeLeverdatum()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkAnderePersonality">
+<FormalSpec>Personality:DOM.common.Personality</FormalSpec>
+<Implementation><![CDATA[	Set ..Leverdatum = ..GeefVoorgesteldeLeverdatum()
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeschikteSFSPickupDatum">
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	#dim GeschikteSFSPickupDatum As %Date = ""
+	#dim VoorgesteldePickupdatum As %Date = ..GeefVoorgesteldeLeverdatum()
+	
+	If ..SFSKalenderRepository.BestaatViaPickupDate(VoorgesteldePickupdatum) {
+		Set GeschikteSFSPickupDatum = VoorgesteldePickupdatum
+	} Else {
+
+		#dim VorigePickupDate As %Date = ..SFSKalenderRepository.GeefVorigePickupDate(..VroegsteLeverdatum, VoorgesteldePickupdatum)
+
+		If $$$HasLength(VorigePickupDate) {
+			Set GeschikteSFSPickupDatum = VorigePickupDate
+		} Else {
+			#dim VolgendePickupDate As %Date = ..SFSKalenderRepository.GeefVolgendePickupDate(VoorgesteldePickupdatum)
+			Set GeschikteSFSPickupDatum = VolgendePickupDate
+		}
+	}
+	
+	Quit GeschikteSFSPickupDatum
+]]></Implementation>
+</Method>
+
+<Method name="GeefVoorgesteldeLeverdatum">
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	#dim VoorgesteldeLeverdatum As %Date = ""
+	
+	If (..GevraagdeLeverdatum = "") {
+		Set VoorgesteldeLeverdatum = ..VroegsteLeverdatum
+	} Else {
+		#dim OmgezetteLeverdatum As %String = $$YYYYMMDD2EuropeanDate^vhLib.DateTime(..GevraagdeLeverdatum)
+		If $$IsValidEuropeanDate^vhLib.DateTime(OmgezetteLeverdatum) {
+			Set VoorgesteldeLeverdatum = $ZDH($TR(OmgezetteLeverdatum,".","/"),4)
+		}
+		Else {
+			Do ##class(TECH.Exceptions.InvalidUserInputException).Throw("RequestedDeliveryDate not valid. '"_..GevraagdeLeverdatum_"'")
+		}
+	}
+	
+	Quit VoorgesteldeLeverdatum
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>