1 DOM.ProdRes.VerwachteUitvoerAPI,TECH.RegisteredObject right TECH.Query.QueryAPI 1 QueryAPI:TECH.Query.QueryAPI="" 1 1 %Status 1 VerwachteUitvoerID:%String DOM.ProdRes.VerwachteUitvoer ReservatieVoorVerwachteUitvoer:DOM.ProdRes.dto.VerwachteUitvoerInfo DOM.ProdRes.VerwachteUitvoer TransactieReferentie:%String,Bedrijf:DOM.common.enu.Bedrijf DOM.ProdRes.VerwachteUitvoeren TransactieReferentie:%String,TransactieLijnReferentie:%String,Bedrijf:DOM.common.enu.Bedrijf DOM.ProdRes.VerwachteUitvoer TransactieReferentie:%String,TransactieLijnReferentie:%String,Bedrijf:DOM.common.enu.Bedrijf DOM.ProdRes.VerwachteUitvoer VerwachteUitvoerID:%String VerwachteUitvoerID:%String VerwachteUitvoerIDLijst:%ListOfDataTypes DOM.ProdRes.dto.GereserveerdeProducten ProductID:%String,Bedrijf:DOM.common.enu.Bedrijf,ReservatieFases:%ListOfDataTypes(ELEMENTTYPE="DOM.ProdRes.enu.ReservatieFase"),InclusiefTransferReservatie:%Boolean=1,MaxDueOut:%TimeStamp=##class(TECH.DateTime).MaxTimeStamp() %Double 0 " #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.GetDataByName("Aantal") } Quit Aantal ]]>