TECH.RegisteredObject TECH.Query.QueryAPI 1 TECH.DateTime.DateTimeAPI 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 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() { #dim ProductieHorolog As TECH.Horolog = LeveringTermijn.GetLaatsteProductieTijdstip(ResultSet.GetData(3)) #dim ProductieDatum As %Date = ##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) ]]>