Index: DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml =================================================================== diff -u -r33225 -r33256 --- DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml (.../VerwachteUitvoerAPIimpl.cls.xml) (revision 33225) +++ DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml (.../VerwachteUitvoerAPIimpl.cls.xml) (revision 33256) @@ -133,17 +133,17 @@ Set Statement = Statement _ "SELECT Sum(Reservatie.Aantal) As Aantal FROM DOM_ProdRes_impl.UitvoerReservatieImpl Reservatie " Set Statement = Statement _ "WHERE Reservatie.ProductID = ? " - Set Statement = Statement _ "AND Reservatie.ReservatieFase IN ('?') " + Set Statement = Statement _ "AND Reservatie.ReservatieFase IN ('" _ MogelijkeReservatieFases _ "') " Set Statement = Statement _ "AND (Reservatie.DueOut is null OR Reservatie.DueOut <= ?) " Set Statement = Statement _ "AND Reservatie.Bedrijf = ? " Set Statement = Statement _ "AND (? = 1 OR IsTransferReservatie = 0) " Set Statement = Statement _ "AND Reservatie.Aantal > 0 " - #dim Query As TECH.DynamicQuery = ##class(TECH.DynamicQuery).%New(Statement, $ListBuild(ProductID, MogelijkeReservatieFases, MaxDueOut, Bedrijf, InclusiefTransferReservatie)) + #dim Query As TECH.DynamicQuery = ##class(TECH.DynamicQuery).%New(Statement, $ListBuild(ProductID, MaxDueOut, Bedrijf, InclusiefTransferReservatie)) #dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query) - + If (ResultSet.Next()) { - Set Aantal = ResultSet.Data("Aantal") + Set Aantal = ResultSet.GetDataByName("Aantal") } Quit Aantal