Index: BL/PPS/TBX/Sequencer.cls.xml
===================================================================
diff -u -r2258 -r2260
--- BL/PPS/TBX/Sequencer.cls.xml	(.../Sequencer.cls.xml)	(revision 2258)
+++ BL/PPS/TBX/Sequencer.cls.xml	(.../Sequencer.cls.xml)	(revision 2260)
@@ -49,6 +49,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefQueueIterator">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BatchID:%String</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="BldLeanV1Sequence">
 <Description><![CDATA[
 Builds the sequence for non VHOss documents 
Index: vhUnitTest/APPS/VisiDot/impl/BuildVHossCapture.cls.xml
===================================================================
diff -u -r1791 -r2260
--- vhUnitTest/APPS/VisiDot/impl/BuildVHossCapture.cls.xml	(.../BuildVHossCapture.cls.xml)	(revision 1791)
+++ vhUnitTest/APPS/VisiDot/impl/BuildVHossCapture.cls.xml	(.../BuildVHossCapture.cls.xml)	(revision 2260)
@@ -104,7 +104,7 @@
 	Do ..AddCamera() ; Bovenste
 	Do ..AddCamera() ; Onderste
 	
-	Set QueueIterator=..BatchService.GeefQueueIterator(..BatchID)
+	Set QueueIterator = ##class(BL.PPS.TBX.Sequencer).GeefQueueIterator(..BatchID)
 
 	Set Detection=..BuildFrameDetection($S(VHossNr=1:77,1:99),Zijkant)
 	Do ..AddDetection2Capture(Detection,0)
Index: APPS/VisiDot/impl/VHossProductionHelper.cls.xml
===================================================================
diff -u -r2019 -r2260
--- APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 2019)
+++ APPS/VisiDot/impl/VHossProductionHelper.cls.xml	(.../VHossProductionHelper.cls.xml)	(revision 2260)
@@ -18,22 +18,10 @@
 <Super>ProductionHelper</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="BatchService">
-<Type>APPS.Halux.common.BatchService</Type>
-</Property>
-
 <Property name="QueueLijst">
 <Type>%ListOfObjects</Type>
 </Property>
 
-<Method name="%OnNew">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..BatchService=##class(APPS.Halux.common.BatchService).%New()
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="BuildLadeID">
 <Description>
 </Description>
@@ -149,7 +137,7 @@
 
 <Method name="GeefBatchIterator">
 <FormalSpec>BatchID</FormalSpec>
-<Implementation><![CDATA[	Quit ..BatchService.GeefQueueIterator(BatchID)
+<Implementation><![CDATA[	Quit ##class(BL.PPS.TBX.Sequencer).GeefQueueIterator(BatchID)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/common/BatchService.cls.xml
===================================================================
diff -u -r1717 -r2260
--- APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 1717)
+++ APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 2260)
@@ -48,23 +48,6 @@
 ]]></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[