Index: DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml
===================================================================
diff -u -r2195 -r2221
--- DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml	(.../VerwachteUitvoerAPIimpl.cls.xml)	(revision 2195)
+++ DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml	(.../VerwachteUitvoerAPIimpl.cls.xml)	(revision 2221)
@@ -87,5 +87,24 @@
 	Quit GereserveerdeProducten
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAantalGereserveerd">
+<FormalSpec>ProductID:%String,Bedrijf:DOM.common.enu.Bedrijf,ReservatieFases:%ListOfDataTypes(ELEMENTTYPE="DOM.ProdRes.enu.ReservatieFase"),MaxDueOut:%TimeStamp=##class(TECH.DateTime).MaxTimeStamp()</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Set Aantal = 0
+	Set ResultSet = ##class(%ResultSet).%New()
+	Set SQL = "SELECT Sum(R.Aantal) As Aantal FROM DOM_ProdRes_impl.ReservatieImpl R"
+							_" JOIN DOM_ProdRes_impl.VerwachteUitvoerImpl V ON V.ID = R.VerwachteUitvoer"
+							_" WHERE R.ProductID = ? AND R.ReservatieFase IN ('"_##class(TECH.ListUtils).ListToPieces(ReservatieFases,"','")_"') AND (R.DueOut is null OR R.DueOut <= ?) AND V.Bedrijf = ?"
+	Do ResultSet.Prepare(SQL)
+	Do ResultSet.Execute(ProductID,MaxDueOut,Bedrijf)
+	If (ResultSet.Next())
+	{
+		Set Aantal = ResultSet.Data("Aantal")
+	}
+	Quit Aantal
+]]></Implementation>
+</Method>
 </Class>
 </Export>