TECH.Persistentie.impl.Repository,TECH.Mockable %String APPS.EC.impl.LeverdatumBepaler.Data.SFSKalender OrderDate:%Date %Boolean DeliveryDate:%Date %Boolean PickupDate:%Date %Boolean OrderDate:%Date,UntilOrderDate:%Date TECH.Iterator = ? and OrderDate <= ?", $LB(OrderDate, UntilOrderDate)) ]]> DeliveryDate:%Date TECH.Iterator PickupDate:%Date,UntilPickupDate:%Date TECH.Iterator = ? and PickupDate <= ?", $LB(PickupDate, UntilPickupDate)) ]]> Filter:%String,Params:%List 1 TECH.Iterator Filter:%String,Params:%List 1 %Boolean PickupDate:%Date,UntilPickupDate:%Date %Date = ? and PickupDate <= ?" #dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName) #dim SqlStatement As TECH.String = "SELECT Max(PickupDate) As VorigePickupDate FROM " _SqlTableName _" WHERE " _Filter Set DynamicQuery = ##class(TECH.DynamicQuery).%New(SqlStatement,Params) Set DynamicQuery.RuntimeMode = ##class(TECH.enu.ResultSetRuntimeMode).Logical() #dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(DynamicQuery) Quit:ResultSet.Next() ResultSet.Get("VorigePickupDate") Quit "" ]]> PickupDate:%Date %Date = ?" #dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName) #dim SqlStatement As TECH.String = "SELECT Min(PickupDate) As VolgendePickupDate FROM " _SqlTableName _" WHERE " _Filter Set DynamicQuery = ##class(TECH.DynamicQuery).%New(SqlStatement,Params) Set DynamicQuery.RuntimeMode = ##class(TECH.enu.ResultSetRuntimeMode).Logical() #dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(DynamicQuery) Quit:ResultSet.Next() ResultSet.Get("VolgendePickupDate") Quit "" ]]>