Index: DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml
===================================================================
diff -u -r29059 -r33071
--- DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml	(.../VerwachteUitvoerAPIimpl.cls.xml)	(revision 29059)
+++ DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml	(.../VerwachteUitvoerAPIimpl.cls.xml)	(revision 33071)
@@ -3,9 +3,26 @@
 <Class name="DOM.ProdRes.impl.VerwachteUitvoerAPIimpl">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.ProdRes.VerwachteUitvoerAPI,%RegisteredObject</Super>
+<Super>DOM.ProdRes.VerwachteUitvoerAPI,TECH.RegisteredObject</Super>
 <Inheritance>right</Inheritance>
 
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerwachteUitvoer">
 <FormalSpec>VerwachteUitvoerID:%String</FormalSpec>
 <ReturnType>DOM.ProdRes.VerwachteUitvoer</ReturnType>
@@ -17,8 +34,10 @@
 <FormalSpec>ReservatieVoorVerwachteUitvoer:DOM.ProdRes.dto.VerwachteUitvoerInfo</FormalSpec>
 <ReturnType>DOM.ProdRes.VerwachteUitvoer</ReturnType>
 <Implementation><![CDATA[
-	Set VerwachteUitvoer = ##class(DOM.ProdRes.impl.VerwachteUitvoerImpl).%New(ReservatieVoorVerwachteUitvoer)
+	#dim VerwachteUitvoer As DOM.ProdRes.impl.VerwachteUitvoerImpl = ##class(DOM.ProdRes.impl.VerwachteUitvoerImpl).%New(ReservatieVoorVerwachteUitvoer)
+	
 	Do VerwachteUitvoer.Save()
+	
 	Quit VerwachteUitvoer
 ]]></Implementation>
 </Method>
@@ -27,15 +46,15 @@
 <FormalSpec>TransactieReferentie:%String,Bedrijf:DOM.common.enu.Bedrijf</FormalSpec>
 <ReturnType>DOM.ProdRes.VerwachteUitvoeren</ReturnType>
 <Implementation><![CDATA[
-	Set VerwachteUitvoeren = ##class(DOM.ProdRes.VerwachteUitvoeren).%New()
-	Set ResultSet = ##class(%ResultSet).%New()
-	Do ResultSet.Prepare("SELECT ID FROM DOM_ProdRes_impl.VerwachteUitvoerImpl WHERE TransactieReferentie = ? AND Bedrijf = ?")
-	Do ResultSet.Execute(TransactieReferentie, Bedrijf)
-	While (ResultSet.Next())
-	{
+	#dim VerwachteUitvoeren As DOM.ProdRes.VerwachteUitvoeren = ##class(DOM.ProdRes.VerwachteUitvoeren).%New()
+	#dim Query As TECH.String = "SELECT ID FROM DOM_ProdRes_impl.VerwachteUitvoerImpl WHERE TransactieReferentie = ? AND Bedrijf = ?"
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query, $ListBuild(TransactieReferentie, Bedrijf))
+	
+	While (ResultSet.Next()) {
 		#dim VerwachteUitvoer As DOM.ProdRes.VerwachteUitvoer = ##class(DOM.ProdRes.impl.VerwachteUitvoerImpl).OpenId(ResultSet.Data("ID"))
 		Do VerwachteUitvoeren.Insert(VerwachteUitvoer)
 	}
+
 	Quit VerwachteUitvoeren
 ]]></Implementation>
 </Method>
@@ -45,25 +64,27 @@
 <ReturnType>DOM.ProdRes.VerwachteUitvoer</ReturnType>
 <Implementation><![CDATA[
 	#dim VerwachteUitvoer As DOM.ProdRes.VerwachteUitvoer = ""
-	Set ResultSet = ##class(%ResultSet).%New()
-	Do ResultSet.Prepare("SELECT ID FROM DOM_ProdRes_impl.VerwachteUitvoerImpl WHERE TransactieReferentie = ? AND TransactieLijnReferentie = ? AND Bedrijf = ?")
-	Do ResultSet.Execute(TransactieReferentie, TransactieLijnReferentie, Bedrijf)
-	If (ResultSet.Next())
-	{
+	#dim Query As TECH.String = "SELECT ID FROM DOM_ProdRes_impl.VerwachteUitvoerImpl WHERE TransactieReferentie = ? AND TransactieLijnReferentie = ? AND Bedrijf = ?"
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query, $ListBuild(TransactieReferentie, TransactieLijnReferentie, Bedrijf))
+	
+	While (ResultSet.Next()) {
 		Set VerwachteUitvoer = ##class(DOM.ProdRes.impl.VerwachteUitvoerImpl).OpenId(ResultSet.Data("ID"))
 	}
+
 	Quit VerwachteUitvoer
 ]]></Implementation>
 </Method>
 
 <Method name="GeefUitvoerViaTransactieLijnRef">
-<Description>
-Gooit een exceptie indien geen uitvoer kan gevonden worden</Description>
 <FormalSpec>TransactieReferentie:%String,TransactieLijnReferentie:%String,Bedrijf:DOM.common.enu.Bedrijf</FormalSpec>
 <ReturnType>DOM.ProdRes.VerwachteUitvoer</ReturnType>
 <Implementation><![CDATA[
 	#dim VerwachteUitvoer As DOM.ProdRes.VerwachteUitvoer = ..ZoekUitvoerViaTransactieLijnRef(TransactieReferentie, TransactieLijnReferentie, Bedrijf)
-	If ('$IsObject(VerwachteUitvoer)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (TransactieReferentie, TransactieLijnReferentie, Bedrijf): "_TransactieReferentie_", "_TransactieLijnReferentie_", "_Bedrijf)) }
+	
+	If $$$Not($IsObject(VerwachteUitvoer)) { 
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachte uitvoer gevonden voor (TransactieReferentie, TransactieLijnReferentie, Bedrijf): " _ TransactieReferentie _ ", " _ TransactieLijnReferentie _ ", " _ Bedrijf)) 
+	}
+	
 	Quit VerwachteUitvoer
 ]]></Implementation>
 </Method>
@@ -84,16 +105,16 @@
 <FormalSpec>VerwachteUitvoerIDLijst:%ListOfDataTypes</FormalSpec>
 <ReturnType>DOM.ProdRes.dto.GereserveerdeProducten</ReturnType>
 <Implementation><![CDATA[
-	Set GereserveerdeProducten = ##class(DOM.ProdRes.dto.GereserveerdeProducten).%New()
+	#dim GereserveerdeProducten As DOM.ProdRes.dto.GereserveerdeProducten = ##class(DOM.ProdRes.dto.GereserveerdeProducten).%New()
+	#dim Query As TECH.String = "SELECT ProductID, Sum(Aantal) As Aantal FROM DOM_ProdRes_impl.UitvoerReservatieImpl WHERE VerwachteUitvoer IN (" _ ##class(TECH.ListUtils).ListToPieces(VerwachteUitvoerIDLijst, ",") _ ") AND IsLeaf = 1 GROUP BY ProductID"
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query)
 	
-	Set ResultSet = ##class(%ResultSet).%New()
-	Do ResultSet.Prepare("SELECT ProductID, Sum(Aantal) As Aantal FROM DOM_ProdRes_impl.UitvoerReservatieImpl WHERE VerwachteUitvoer IN ("_##class(TECH.ListUtils).ListToPieces(VerwachteUitvoerIDLijst,",")_") AND IsLeaf = 1 GROUP BY ProductID")
-	Do ResultSet.Execute()
-	While (ResultSet.Next())
-	{
-		Set GereserveerdProduct = ##class(DOM.ProdRes.dto.GereserveerdProduct).%New()
+	While (ResultSet.Next()) {
+		#dim GereserveerdProduct As DOM.ProdRes.dto.GereserveerdProduct = ##class(DOM.ProdRes.dto.GereserveerdProduct).%New()
+		
 		Set GereserveerdProduct.ProductID = ResultSet.Data("ProductID")
 		Set GereserveerdProduct.Aantal = ResultSet.Data("Aantal")
+		
 		Do GereserveerdeProducten.Insert(GereserveerdProduct)
 	}
 	
@@ -106,14 +127,13 @@
 <ReturnType>%Double</ReturnType>
 <Implementation><![CDATA[
 	#dim Aantal As %Float = 0
-	Set ResultSet = ##class(%ResultSet).%New()
-	#dim SQL As %String = "SELECT Sum(R.Aantal) As Aantal FROM DOM_ProdRes_impl.UitvoerReservatieImpl R WHERE R.ProductID = ? AND R.ReservatieFase IN ('"_##class(TECH.ListUtils).ListToPieces(ReservatieFases,"','")_"') AND (R.DueOut is null OR R.DueOut <= ?) AND R.Bedrijf = ? AND (? = 1 OR IsTransferReservatie = 0)"
-	Do ResultSet.Prepare(SQL)
-	Do ResultSet.Execute(ProductID,MaxDueOut,Bedrijf,InclusiefTransferReservatie)
-	If (ResultSet.Next())
-	{
+	#dim Query As TECH.String = "SELECT Sum(R.Aantal) As Aantal FROM DOM_ProdRes_impl.UitvoerReservatieImpl R WHERE R.ProductID = ? AND R.ReservatieFase IN ('" _ ##class(TECH.ListUtils).ListToPieces(ReservatieFases, "', '") _ "') AND (R.DueOut is null OR R.DueOut <= ?) AND R.Bedrijf = ? AND (? = 1 OR IsTransferReservatie = 0)"
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query, $ListBuild(ProductID, MaxDueOut, Bedrijf, InclusiefTransferReservatie))
+	
+	If (ResultSet.Next()) {
 		Set Aantal = ResultSet.Data("Aantal")
 	}
+	
 	Quit Aantal
 ]]></Implementation>
 </Method>