FishEye: Tag 33457 refers to a dead (removed) revision in file `APPS/EC/impl/Utils.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r33450 -r33457
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33450)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33457)
@@ -243,12 +243,7 @@
 <FormalSpec>WinkelkarID:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="%Date"</ReturnTypeParams>
-<Implementation><![CDATA[
-	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
-	#dim Bepaler As APPS.EC.impl.VroegsteLeverdatumBepaler = ##class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New(Winkelkar)
-	#dim LeveringTermijn As APPS.VKP.LeveringsTermijn = ##class(APPS.EC.impl.Utils).GeefLeveringTermijn(Winkelkar)
-	
-	Quit ##class(TECH.ListUtils).ListbuildToList(LeveringTermijn.GetLeverDatums(Bepaler.GeefVroegsteLeverdatum()))
+<Implementation><![CDATA[	Quit ##class(APPS.common.VKP.MogelijkeLeverdatumsBepaler).GeefMogelijkeLeverdatums(..OpenWinkelkar(WinkelkarID))
 ]]></Implementation>
 </Method>
 
@@ -481,7 +476,7 @@
  /*
 	#dim ConfiguratorService As APPS.EC.impl.ConfiguratorService.ConfiguratorServiceTemplate = ..GeefConfiguratorService(Winkelkar)
 	#dim Personality As DOM.common.Personality = Winkelkar.GeefPersonality()
-	#dim KlantIDVoorKenmerkkMogelijkheden As DOM.common.PartijID = ##class(DOM.common.impl.PersonalityKlantBepaler).%New().GeefKlantID(Personality,Winkelkar.GeefKlantID())
+	#dim KlantIDVoorKenmerkkMogelijkheden As DOM.common.PartijID = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.KlantBepaler).%New().GeefKlantID(Personality,Winkelkar.GeefKlantID())
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantIDVoorKenmerkkMogelijkheden)
 	
 	Try {
Index: APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml
===================================================================
diff -u
--- APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(revision 0)
+++ APPS/common/VKP/MogelijkeLeverdatumsBepaler.cls.xml	(revision 33457)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.common.VKP.MogelijkeLeverdatumsBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="VerzendWijzeBepaler">
+<Type>APPS.EC.impl.VerzendWijzeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VroegsteLeverDatumBepaler">
+<Type>APPS.EC.impl.VroegsteLeverdatumBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeveringsTermijn">
+<Type>APPS.VKP.LeveringsTermijn</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerzendWijzeBepaler:APPS.EC.impl.VerzendWijzeBepaler,VroegsteLeverDatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler,LeveringsTermijn:APPS.VKP.LeveringsTermijn</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerzendWijzeBepaler = VerzendWijzeBepaler
+	Set ..VroegsteLeverDatumBepaler = VroegsteLeverDatumBepaler
+	Set ..LeveringsTermijn = LeveringsTermijn
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefMogelijkeLeverdatums">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="%Date"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim Bepaler As APPS.EC.impl.VroegsteLeverdatumBepaler = $$$Inject(..VroegsteLeverDatumBepaler,##class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New(Winkelkar))
+	
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = $$$Inject(..VerzendWijzeBepaler,##class(APPS.EC.impl.VerzendWijzeBepaler).%New().GeefVerzendWijze(Winkelkar))
+	
+	#dim LeveringTermijn As APPS.VKP.LeveringsTermijn = $$$Inject(..LeveringsTermijn,##class(APPS.VKP.LeveringsTermijn).%New(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),VerzendWijze))
+
+	Quit ##class(TECH.ListUtils).ListbuildToList(LeveringTermijn.GetLeverDatums(Bepaler.GeefVroegsteLeverdatum()))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml
===================================================================
diff -u -r33137 -r33457
--- APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(.../VroegsteLeverdatumBepaler.cls.xml)	(revision 33137)
+++ APPS/EC/impl/VroegsteLeverdatumBepaler.cls.xml	(.../VroegsteLeverdatumBepaler.cls.xml)	(revision 33457)
@@ -14,14 +14,17 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,OptioneleVerzendWijze:APPS.VKP.VerzendWijze=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..LeveringTermijn = ##class(APPS.EC.impl.Utils).GeefLeveringTermijn(Winkelkar)
+	/// Set VerzendWijze = $$$LazyLoad(VerzendWijze,..VerzendWijzeBepaler.GeefVerzendWijze(Winkelkar)) ???
 	
+	#dim VerzendWijze As APPS.VKP.VerzendWijze = $$$Inject(OptioneleVerzendWijze, ##class(APPS.EC.impl.VerzendWijzeBepaler).%New().GeefVerzendWijze(Winkelkar))
+	Set ..LeveringTermijn = ##class(APPS.VKP.LeveringsTermijn).%New(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),VerzendWijze)
+
 	#dim Datum As %Date = ..LeveringTermijn.GetVroegsteDatumFromTermijn($LB(1,"A"))
 	Set Datum = ..LeveringTermijn.GetPickDatumMagazijnGesloten(Datum)
 	Set ..VroegsteLeverdatum = ..LeveringTermijn.GetVroegsteLevering(Datum)