Index: APPS/Halux/PPS/TBXZaag/impl/Builder.cls.xml
===================================================================
diff -u -r2534 -r2686
--- APPS/Halux/PPS/TBXZaag/impl/Builder.cls.xml	(.../Builder.cls.xml)	(revision 2534)
+++ APPS/Halux/PPS/TBXZaag/impl/Builder.cls.xml	(.../Builder.cls.xml)	(revision 2686)
@@ -38,21 +38,18 @@
 <Parameter name="CONTAINID" value="1"/>
 </Query>
 
-<Method name="BuildBatchesFromQueue">
+<Method name="MaakZaagOpdrachten">
 <Implementation><![CDATA[
-	Set rsQueue=##class(%ResultSet).%New(..%ClassName(1)_":qBatchQueue")
-	Set sc=rsQueue.Execute(..Batch.GeefBatchID())
-	While (rsQueue.Next()) 
+	Set it=##class(APPS.Halux.common.SequentieService).%New().GeefSequentieIterator(..Batch.GeefBatchID())
+	While (it.HasNext()) 
 	{	
-		Set ..Queue=##class(DS.PPS.TBX.Queue).%OpenId(rsQueue.Data("ID"))
+		Set ..Queue=it.Next()
 		Continue:'$isObject(..Queue)
-		
 		Set Product = ..ProductAPI.GeefProduct(..Queue.Product.%Id())
 		Continue:'$isObject(Product)
 		;w !,..Queue.Product.%Id()," ",..Queue.Product.KortTekst," ",Product.%ClassName(1)		
 		Do Product.Accept(##this) ; trigger visitor
     }
- 
 	Quit $$$OK
 ]]></Implementation>
 </Method>