Index: DOM/ProdRes/VerwachteUitvoerAPI.cls.xml
===================================================================
diff -u -r29059 -r33221
--- DOM/ProdRes/VerwachteUitvoerAPI.cls.xml	(.../VerwachteUitvoerAPI.cls.xml)	(revision 29059)
+++ DOM/ProdRes/VerwachteUitvoerAPI.cls.xml	(.../VerwachteUitvoerAPI.cls.xml)	(revision 33221)
@@ -4,6 +4,7 @@
 <Abstract>1</Abstract>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Interface</Super>
 
 <Method name="GeefVerwachteUitvoer">
 <Description>
Index: vhTest/Fake/TECH/Query/PrepareOnlyQueryAPI.cls.xml
===================================================================
diff -u
--- vhTest/Fake/TECH/Query/PrepareOnlyQueryAPI.cls.xml	(revision 0)
+++ vhTest/Fake/TECH/Query/PrepareOnlyQueryAPI.cls.xml	(revision 33221)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI">
+<Super>TECH.RegisteredObject,TECH.Query.QueryAPI</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExecuteDynamicQuery">
+<FormalSpec>Query:%String,lbParams:%List="",RuntimeMode:TECH.enu.ResultSetRuntimeMode=""</FormalSpec>
+</Method>
+
+<Method name="GetDynamicResultSet">
+<FormalSpec>Query:%String,lbParams:%List="",RuntimeMode:TECH.enu.ResultSetRuntimeMode=""</FormalSpec>
+<ReturnType>TECH.ResultSet</ReturnType>
+<Implementation><![CDATA[	Quit ..PrepareResultSet(Query)
+]]></Implementation>
+</Method>
+
+<Method name="GetResultSet">
+<FormalSpec>Query:TECH.Query</FormalSpec>
+<ReturnType>TECH.ResultSet</ReturnType>
+<Implementation><![CDATA[	Quit ..PrepareResultSet(Query)
+]]></Implementation>
+</Method>
+
+<Method name="PrepareResultSet">
+<FormalSpec>Query:TECH.Query</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ResultSet</ReturnType>
+<Implementation><![CDATA[
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.ResultSet).%New()
+	
+	Do ResultSet.Prepare(Query.Statement)
+
+	Quit ResultSet
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml
===================================================================
diff -u -r33071 -r33221
--- DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml	(.../VerwachteUitvoerAPIimpl.cls.xml)	(revision 33071)
+++ DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml	(.../VerwachteUitvoerAPIimpl.cls.xml)	(revision 33221)
@@ -12,12 +12,13 @@
 </Property>
 
 <Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	Set ..QueryAPI = $$$Inject(QueryAPI, ##class(TECH.Context).Instance().GeefQueryAPI())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -127,9 +128,19 @@
 <ReturnType>%Double</ReturnType>
 <Implementation><![CDATA[
 	#dim Aantal As %Float = 0
-	#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))
+	#dim MogelijkeReservatieFases As TECH.String = ##class(TECH.ListUtils).ListToPieces(ReservatieFases, "', '")
+	#dim Statement As TECH.String = ""
+
+	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.DueOut is null OR Reservatie.DueOut <= ?) "
+	Set Statement = Statement _ "AND Reservatie.Bedrijf = ? "
+	Set Statement = Statement _ "AND (? = 1 OR IsTransferReservatie = 0)"
 	
+	#dim Query As TECH.DynamicQuery = ##class(TECH.DynamicQuery).%New(Statement, $ListBuild(ProductID, MogelijkeReservatieFases, MaxDueOut, Bedrijf, InclusiefTransferReservatie))
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query)
+
 	If (ResultSet.Next()) {
 		Set Aantal = ResultSet.Data("Aantal")
 	}
Index: vhTest/Mock/DOM/ProdRes/VerwachteUitvoerAPI.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/ProdRes/VerwachteUitvoerAPI.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/ProdRes/VerwachteUitvoerAPI.cls.xml	(revision 33221)
@@ -0,0 +1,84 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.ProdRes.VerwachteUitvoerAPI">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.ProdRes.VerwachteUitvoerAPI,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="MockInstance">
+<ClassMethod>1</ClassMethod>
+<ReturnType>vhTest.Mock.DOM.ProdRes.VerwachteUitvoerAPI</ReturnType>
+<Implementation><![CDATA[
+	do ##class(DOM.DomeinContext).Instance().PushVerwachtUitvoerAPIClassName(##class(vhTest.Mock.DOM.ProdRes.VerwachteUitvoerAPI).%ClassName(1))
+	quit ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+]]></Implementation>
+</Method>
+
+<Method name="AnnuleerVerwachteUitvoer">
+<FormalSpec>VerwachteUitvoerID:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("AnnuleerVerwachteUitvoer",VerwachteUitvoerID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalGereserveerd">
+<FormalSpec>ProductID:%String,Bedrijf:DOM.common.enu.Bedrijf,ReservatieFases:%ListOfDataTypes(ELEMENTTYPE="DOM.ProdRes.enu.ReservatieFase"),InclusiefTransferReservatie:%Boolean=1,MaxDueOut:%TimeStamp=##class(TECH.DateTime).MaxTimeStamp()</FormalSpec>
+<ReturnType>%Double</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAantalGereserveerd",ProductID,Bedrijf,ReservatieFases,InclusiefTransferReservatie,MaxDueOut)
+]]></Implementation>
+</Method>
+
+<Method name="GeefReservatieSamenvatting">
+<FormalSpec>VerwachteUitvoerIDLijst:%ListOfDataTypes</FormalSpec>
+<ReturnType>DOM.ProdRes.dto.GereserveerdeProducten</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefReservatieSamenvatting",VerwachteUitvoerIDLijst)
+]]></Implementation>
+</Method>
+
+<Method name="GeefUitvoerViaTransactieLijnRef">
+<FormalSpec>TransactieReferentie:%String,TransactieLijnReferentie:%String,Bedrijf:DOM.common.enu.Bedrijf</FormalSpec>
+<ReturnType>DOM.ProdRes.VerwachteUitvoer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefUitvoerViaTransactieLijnRef",TransactieReferentie,TransactieLijnReferentie,Bedrijf)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachteUitvoer">
+<FormalSpec>VerwachteUitvoerID:%String</FormalSpec>
+<ReturnType>DOM.ProdRes.VerwachteUitvoer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVerwachteUitvoer",VerwachteUitvoerID)
+]]></Implementation>
+</Method>
+
+<Method name="RegistreerReservaties">
+<FormalSpec>ReservatieVoorVerwachteUitvoer:DOM.ProdRes.dto.VerwachteUitvoerInfo</FormalSpec>
+<ReturnType>DOM.ProdRes.VerwachteUitvoer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("RegistreerReservaties",ReservatieVoorVerwachteUitvoer)
+]]></Implementation>
+</Method>
+
+<Method name="WisAfgewerkteVerwachteUitvoer">
+<FormalSpec>VerwachteUitvoerID:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("WisAfgewerkteVerwachteUitvoer",VerwachteUitvoerID)
+]]></Implementation>
+</Method>
+
+<Method name="ZoekUitvoerViaTransactieLijnRef">
+<FormalSpec>TransactieReferentie:%String,TransactieLijnReferentie:%String,Bedrijf:DOM.common.enu.Bedrijf</FormalSpec>
+<ReturnType>DOM.ProdRes.VerwachteUitvoer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekUitvoerViaTransactieLijnRef",TransactieReferentie,TransactieLijnReferentie,Bedrijf)
+]]></Implementation>
+</Method>
+
+<Method name="ZoekUitvoerenViaTransactieRef">
+<FormalSpec>TransactieReferentie:%String,Bedrijf:DOM.common.enu.Bedrijf</FormalSpec>
+<ReturnType>DOM.ProdRes.VerwachteUitvoeren</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekUitvoerenViaTransactieRef",TransactieReferentie,Bedrijf)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/ProdRes/VerwachteUitvoerAPI/GeefAantalGereserveerd/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/ProdRes/VerwachteUitvoerAPI/GeefAantalGereserveerd/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/ProdRes/VerwachteUitvoerAPI/GeefAantalGereserveerd/Test.cls.xml	(revision 33221)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.ProdRes.VerwachteUitvoerAPI.GeefAantalGereserveerd.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductID">
+<Type>%String</Type>
+<Default>UTPNr</Default>
+</Parameter>
+
+<Property name="Bedrijf">
+<Type>DOM.common.enu.Bedrijf</Type>
+<InitialExpression>##class(DOM.common.enu.Bedrijf).VanHoecke()</InitialExpression>
+<Private>1</Private>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="MaxDueOut">
+<Type>%TimeStamp</Type>
+<InitialExpression>##class(TECH.DateTime).MaxTimeStamp()</InitialExpression>
+<Private>1</Private>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="InclusiefTransferReservatie">
+<Type>%Boolean</Type>
+<InitialExpression>$$$True</InitialExpression>
+<Private>1</Private>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Method name="Test: Query wordt geprepared">
+<Implementation><![CDATA[
+	#dim QueryAPIFake As vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI = ##class(vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI).%New()
+	#dim VerwachteUitvoerAPI As DOM.ProdRes.VerwachteUitvoerAPI = ##class(DOM.ProdRes.impl.VerwachteUitvoerAPIimpl).%New(QueryAPIFake)
+	#dim Query As TECH.DynamicQuery = ..GeefQuery()	
+	#dim ResultSet As TECH.ResultSet = QueryAPIFake.GetResultSet(Query)
+	
+	Do $$$AssertTrue($IsObject(ResultSet))
+]]></Implementation>
+</Method>
+
+<Method name="Test: QueryAPI wordt opgeroepen met juiste query door GeefAantalGereserveerd method">
+<Implementation><![CDATA[
+	#dim QueryAPIMock As vhTest.Mock.TECH.Query.QueryAPI = ##class(vhTest.Mock.TECH.Query.QueryAPI).%New()
+	#dim VerwachteUitvoerAPI As DOM.ProdRes.VerwachteUitvoerAPI = ##class(DOM.ProdRes.impl.VerwachteUitvoerAPIimpl).%New(QueryAPIMock)
+
+	#dim Query As TECH.DynamicQuery = ..GeefQuery()
+	#dim DataTransferObjectMatcher As Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher = ##class(Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher).%New(Query)
+	
+	Do QueryAPIMock.VerwachtMethodCall("GetResultSet", DataTransferObjectMatcher).DanReturn(##class(TECH.ResultSet).%New())
+	Do VerwachteUitvoerAPI.GeefAantalGereserveerd(..#ProductID, ..Bedrijf, ..GeefReservatieFasen(), ..InclusiefTransferReservatie, ..MaxDueOut)
+	Do QueryAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefReservatieFasen">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ReservatieFasen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	Do ReservatieFasen.Insert(##class(DOM.ProdRes.enu.ReservatieFase).InOrder())
+	Do ReservatieFasen.Insert(##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering())
+	
+	Quit ReservatieFasen
+]]></Implementation>
+</Method>
+
+<Method name="GeefQuery">
+<Private>1</Private>
+<ReturnType>TECH.DynamicQuery</ReturnType>
+<Implementation><![CDATA[
+	#dim Query As TECH.DynamicQuery = ##class(TECH.DynamicQuery).%New()
+	
+	Set Query.Statement = "SELECT Sum(Reservatie.Aantal) As Aantal FROM DOM_ProdRes_impl.UitvoerReservatieImpl Reservatie WHERE Reservatie.ProductID = ? AND Reservatie.ReservatieFase IN ('?') AND (Reservatie.DueOut is null OR Reservatie.DueOut <= ?) AND Reservatie.Bedrijf = ? AND (? = 1 OR IsTransferReservatie = 0)"
+	Set Query.Parameters = $ListBuild(..#ProductID, ##class(TECH.ListUtils).ListToPieces(..GeefReservatieFasen(), "', '"), ..MaxDueOut, ..Bedrijf, ..InclusiefTransferReservatie)
+	
+	Quit Query
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>