Index: APPS/Halux/common/BatchService.cls.xml
===================================================================
diff -u -r1477 -r1717
--- APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 1477)
+++ APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 1717)
@@ -48,6 +48,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefQueueIterator">
+<FormalSpec>BatchID</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set QueueLijst = ##class(%ListOfObjects).%New()
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT ID FROM PPS.TBX_Queue WHERE BatchID=?")
+	Do ResultSet.Execute(BatchID)
+	While (ResultSet.Next())
+	{
+		Set Queue =##class(DS.PPS.TBX.Queue).%OpenId(ResultSet.Data("ID"))
+		Do QueueLijst.Insert(Queue)
+	}
+	Quit ##class(TECH.ListIterator).%New(QueueLijst)
+]]></Implementation>
+</Method>
+
 <Method name="GeefActieveBatchIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[