Index: APPS/Halux/TBX/impl/Test.cls.xml
===================================================================
diff -u -r1133 -r2225
--- APPS/Halux/TBX/impl/Test.cls.xml	(.../Test.cls.xml)	(revision 1133)
+++ APPS/Halux/TBX/impl/Test.cls.xml	(.../Test.cls.xml)	(revision 2225)
@@ -10,13 +10,22 @@
 Do ##class(APPS.Halux.TBX.impl.Test).Build()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Set IDs=$lb(8877,8879,8880,8881,8882,8883,8884,8885,8886,8887,8888,8889,8889,8900)
+ 	/* For BatchID=7:1:8 {
+ 		Set bl=##class(APPS.Halux.TBX.impl.ZaagBatchBuild).%New(BatchID)
+		Do bl.RemoveBatches()
+	}*/
+
+	Set BatchService=##class(APPS.Halux.common.BatchService).%New()
+	Set it=BatchService.GeefActieveBatchIterator()
+	Set IDs=$lb(10653,10652,10651,10650,10649,10648)
 	For I=1:1:$LL(IDs) {
 		Set BatchID=$LI(IDs,I)
+		;Do ..Sequence(BatchID)
 		Set bl=##class(APPS.Halux.TBX.impl.ZaagBatchBuild).%New(BatchID)
 		Do bl.RemoveBatches()
 		Do bl.BuildBatchesFromQueue()
 		}	
+		
 	Set rs=##class(%ResultSet).%New("APPS.Halux.TBX.impl.ZaagLijstHelper:qActieveBatchLijst")
 	Set sc=rs.Execute() w $$ParseStatus^vhLib(sc)
 	While (rs.Next()){
@@ -26,6 +35,43 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BuildAll">
+<Description>
+Do ##class(APPS.Halux.TBX.impl.Test).BuildAll()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set BatchService=##class(APPS.Halux.common.BatchService).%New()
+	Set itB=BatchService.GeefActieveBatchIterator()
+	While itB.HasNext()
+	{
+		Set Batch=itB.Next()
+		Set BatchID=Batch.GeefBatchID()
+		Set Cnt=BatchService.HasQueue(BatchID)
+		Do ..Sequence(BatchID)
+		w "Build batch ",BatchID," ",Cnt,!
+		Set bl=##class(APPS.Halux.TBX.impl.ZaagBatchBuild).%New(BatchID)
+		Do bl.RemoveBatches()
+		;Do bl.BuildBatchesFromQueue()
+		}
+	Set rs=##class(%ResultSet).%New("APPS.Halux.TBX.impl.ZaagLijstHelper:qActieveBatchLijst")
+	Set sc=rs.Execute() w $$ParseStatus^vhLib(sc)
+	While (rs.Next()){
+		Write rs.Data("BatchKey")
+		Write !
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Sequence">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BatchID</FormalSpec>
+<Implementation><![CDATA[
+	Set blSequencer=##Class(BL.PPS.TBX.Sequencer).Instantiate()
+	Do blSequencer.Init(BatchID,"S")	
+	Do blSequencer.BldLeanV1Sequence(.Aantal)
+]]></Implementation>
+</Method>
+
 <Method name="Stilstand">
 <Description>
 Do ##class(APPS.Halux.TBX.impl.Test).Stilstand()</Description>
@@ -45,7 +91,7 @@
 	w !
 	s t1=$zh
 	Set rs=##class(%ResultSet).%New("APPS.Halux.TBX.impl.WerkpostZaagHelper:qSyncBatch")
-	Set sc=rs.Execute(8886,8887,8888) w $$ParseStatus^vhLib(sc)
+	Set sc=rs.Execute("10651||","10651||TipOn","") w $$ParseStatus^vhLib(sc)
 	While (rs.Next()){
 	 ;Write $G(rs.Data("ID"))
 	 k %d m %d=rs.Data zw %d
@@ -101,7 +147,7 @@
 
 <Method name="Lijst">
 <Description>
-Do ##class(APPS.Halux.TBX.impl.Test).Lijst(8728,"TipOn")</Description>
+Do ##class(APPS.Halux.TBX.impl.Test).Lijst(10651,"TipOn")</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>BatchID,SubBatch</FormalSpec>
 <Implementation><![CDATA[
@@ -123,7 +169,7 @@
 
 <Method name="GetXML">
 <Description>
-Do ##class(APPS.Halux.TBX.impl.Test).GetXML()</Description>
+Do ##class(APPS.Halux.TBX.impl.Test).GetXML(7)</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>BatchID,SubBatch</FormalSpec>
 <Implementation><![CDATA[
@@ -200,7 +246,7 @@
 
 <UDLText name="T">
 <Content><![CDATA[
-// Do ##class(APPS.Halux.TBX.impl.Test).Test4(8728)
+// Do ##class(APPS.Halux.TBX.impl.Test).Test4(10653)
 
 ]]></Content>
 </UDLText>
@@ -219,6 +265,7 @@
 		;w ZaagID
 		Set Cnt=Cnt+1
 		Do bl.PrintLabel(ZaagID,"LA")
+		r "continue...",k
 	}
 	Write "Cnt:",Cnt,!
 ]]></Implementation>