TECH.RegisteredObject TECH.Query.QueryAPI 1 QueryAPI:TECH.Query.QueryAPI="" 1 1 %Status 1 %String Datum:%Date="" TECH.Iterator = CAST(? As Date) order by OrderDate ASC" #dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,$Lb(Datum))) Set Leverdatums = ##class(%ListOfDataTypes).%New() Set LeveringsTermijnFactory = ##class(APPS.VKP.impl.LeveringsTermijnFactory).%New() Set DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI() Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(12486,"SFS") #dim LeveringTermijn As APPS.VKP.LeveringsTermijn = LeveringsTermijnFactory.MaakLeveringsTermijn(DateTimeApi.CurrentHorolog(), VerzendWijze, ##class(DOM.VKP.enu.Klant).SFS(), ##class(DOM.common.enu.Personality).VanHoecke()) While ResultSet.Next() { Set ProductieHorolog = LeveringTermijn.GetLaatsteProductieTijdstip(ResultSet.GetData(3)) Set ProductieDatum = ##class(TECH.DateTime).HorologToDate(ProductieHorolog) Do Leverdatums.Insert($listbuild($ZD(ResultSet.GetData(1),3),ResultSet.GetData(2),$ZD(ResultSet.GetData(3),3),$ZD(ResultSet.GetData(4),3),$ZD(ProductieDatum,3))) } Quit ##class(TECH.ListIterator).%New(Leverdatums) ]]>