Index: APPS/Halux/common/impl/BatchService.cls.xml
===================================================================
diff -u -r57115 -r72803
--- APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 57115)
+++ APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 72803)
@@ -135,6 +135,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalBijhorendeBatchesVoorToelevering">
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim BatchID As %String = ""
+	
+	Set QueryApi = ##class(TECH.Query.impl.QueryAPI).%New()
+
+	#dim qStatement As %String = "SELECT COUNT(ID) as Aantal FROM APPS_Halux_common_impl.BatchImpl WHERE FOR SOME %ELEMENT(Toeleveringen) (%VALUE = ?) "
+	#dim qParams As %List = $listbuild(ToeleveringID)
+	#dim ResultSet As TECH.ResultSet = QueryApi.GetResultSet(##class(TECH.DynamicQuery).%New(qStatement,qParams))
+	If ResultSet.Next() {
+		Set BatchID = ResultSet.Data("Aantal")
+	}
+	Quit BatchID
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderToeleveringenUitBatches">
 <FormalSpec>TeVerwijderenToeleveringenInBatch:%ArrayOfDataTypes</FormalSpec>
 <Implementation><![CDATA[