Index: APPS/Halux/Planning/impl/ProductPlanningUtils.cls.xml =================================================================== diff -u -r37528 -r65995 --- APPS/Halux/Planning/impl/ProductPlanningUtils.cls.xml (.../ProductPlanningUtils.cls.xml) (revision 37528) +++ APPS/Halux/Planning/impl/ProductPlanningUtils.cls.xml (.../ProductPlanningUtils.cls.xml) (revision 65995) @@ -29,7 +29,7 @@ #dim VerzendWijze As APPS.VKP.VerzendWijze = Order.GeefVerzendWijze() Set LeveringsTermijn = ##class(APPS.VKP.LeveringsTermijn).%New(,VerzendWijze) #dim LeverDag As %Date = LeveringsTermijn.GetVroegsteLeverDag(##class(TECH.DateTime).TimestampToDate(ProductieTijdstip)) - #dim DueOutNaPlanning As %TimeStamp = ##class(TECH.DateTime).HorologToTimeStamp(LeveringsTermijn.GetLaatsteProductieTijdstip(LeverDag)) + #dim DueOutNaPlanning As %TimeStamp = ##class(TECH.DateTime).HorologToTimeStamp(LeveringsTermijn.GetLaatsteProductieTijdstip(LeverDag,, Order.GeefID())) #dim DueOutToelevering As %TimeStamp = ##class(TECH.DateTime).HorologToTimeStamp(Toelevering.GeefDueOutTime()) Set LeverImpact = ##class(TECH.DateTime).TimeStampVerschil(##class(TECH.enu.DatePart).Dag(),$S(TenOpzichteVan="":DueOutToelevering,1:TenOpzichteVan),DueOutNaPlanning) }