Index: DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml
===================================================================
diff -u -r2195 -r2221
--- DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml	(.../VerwachteInvoerAPIimpl.cls.xml)	(revision 2195)
+++ DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml	(.../VerwachteInvoerAPIimpl.cls.xml)	(revision 2221)
@@ -284,5 +284,29 @@
 	Do ##class(TECH.ExceptionHandler).Rethrow(Exceptie)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAantalVerwacht">
+<FormalSpec>ProductID:%String,Bedrijf:DOM.common.enu.Bedrijf,InclusiefGelinkte:%Boolean,MaxDueIn:%TimeStamp=##class(TECH.DateTime).MaxTimeStamp()</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Set AantalVerwacht = 0
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT sum(Aantal) Aantal, COALESCE(sum(AantalProducten),0) As AantalGelinkt FROM DOM_ProdRes_impl.VerwachteInvoerImpl I"
+							_" LEFT JOIN DOM_ProdRes_impl.VerwachteInvoerImpl_InvoerUitvoerLinken L ON L.VerwachteInvoerImpl = I.ID"
+							_" LEFT JOIN DOM_ProdRes_impl.InvoerUitvoerLinkImpl IL ON IL.ID = L.element_key"
+							_" WHERE ProductID = ? AND Bedrijf = ? AND (DueIn is null OR DueIn < ?)"
+							_" GROUP BY ProductID")
+	Do ResultSet.Execute(ProductID, Bedrijf, MaxDueIn)
+	If (ResultSet.Next())
+	{
+		Set AantalVerwacht = ResultSet.Data("Aantal")
+		If ('InclusiefGelinkte)
+		{
+			Set AantalVerwacht = AantalVerwacht - ResultSet.Data("AantalGelinkt")
+		}
+	}
+	Quit AantalVerwacht
+]]></Implementation>
+</Method>
 </Class>
 </Export>