Index: APPS/Halux/common/impl/BatchService.cls.xml
===================================================================
diff -u -r54410 -r56864
--- APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 54410)
+++ APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 56864)
@@ -100,6 +100,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekBijhorendeBatchIdVoorToelevering">
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BatchID As %String = ""
+	
+	Set QueryApi = ##class(TECH.Query.impl.QueryAPI).%New()
+
+	#dim qStatement As %String = "SELECT ID 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("ID")
+	}
+	Quit BatchID
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderBatchesOuderDan">
 <FormalSpec>AantalDagen:%Integer=30</FormalSpec>
 <Implementation><![CDATA[