Index: APPS/Halux/common/impl/BatchService.cls.xml
===================================================================
diff -u -r48100 -r54410
--- APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 48100)
+++ APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 54410)
@@ -127,6 +127,22 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBatchIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="APPS.Halux.common.Batch"</ReturnTypeParams>
+<Implementation><![CDATA[
+	set BatchLijst = ##class(%ListOfObjects).%New()
+	set ResultSet = ##class(%ResultSet).%New()
+	do ResultSet.Prepare("SELECT ID FROM APPS_Halux_common_impl.BatchImpl")
+	do ResultSet.Execute()
+	while (ResultSet.Next()) {
+		#dim Batch As APPS.Halux.common.Batch = ..GeefBatch(ResultSet.Data("ID"))
+		do BatchLijst.Insert(Batch)
+	}
+	quit ##class(TECH.ListIterator).%New(BatchLijst)
+]]></Implementation>
+</Method>
 </Class>