Index: APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml
===================================================================
diff -u -r3219 -r3254
--- APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(.../LijstHelper.cls.xml)	(revision 3219)
+++ APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(.../LijstHelper.cls.xml)	(revision 3254)
@@ -23,29 +23,18 @@
 <MultiDimensional>1</MultiDimensional>
 </Property>
 
-<Query name="qActieveBeperkteBatchLijst">
+<Query name="qActieveBatchLijst">
 <Type>%SQLQuery</Type>
-<FormalSpec>LijnNr</FormalSpec>
+<FormalSpec>LijnNr:%String,All:%Boolean</FormalSpec>
 <SqlQuery><![CDATA[	Select Batch || '||' || isnull(SubBatch,'') as BatchKey, Batch || ' ' || isnull(SubBatch,'') as BatchOms,Batch || ' ' || isnull(SubBatch,'') || ' - nog ' || sum(case status when 'W' then 1 else 0 end) || ' van ' || count(*) as BatchLangeOms 
 	from APPS_Halux_PPS_TBXZaag.Opdrachten
-	where (isnull(SubBatch,'')='' or SubBatch='Herwerk')
+	where (isnull(SubBatch,'')='' or SubBatch='Herwerk' or :All=1)
 	and isnull(Batch,0)<>0
 	and Batch->IsActief=1
 	group by Batch,SubBatch]]></SqlQuery>
 <Parameter name="CONTAINID" value="0"/>
 </Query>
 
-<Query name="qActieveBatchLijst">
-<Type>%SQLQuery</Type>
-<FormalSpec>LijnNr</FormalSpec>
-<SqlQuery><![CDATA[	Select Batch || '||' || isnull(SubBatch,'') as BatchKey, Batch || ' ' || isnull(SubBatch,'') as BatchOms,Batch || ' ' || isnull(SubBatch,'') || ' - nog ' || sum(case status when 'W' then 1 else 0 end) || ' van ' || count(*) as BatchLangeOms 
-	from APPS_Halux_PPS_TBXZaag.Opdrachten
-	where isnull(Batch,0)<>0
-	and Batch->IsActief=1
-	group by Batch,SubBatch]]></SqlQuery>
-<Parameter name="CONTAINID" value="0"/>
-</Query>
-
 <Query name="qZaagLijst">
 <Type>%Query</Type>
 <FormalSpec>BatchID:%Integer,SubBatch:APPS.Halux.PPS.TBXZaag.enu.SubBatch</FormalSpec>
Index: vhUnitTest/APPS/Halux/PPS/TBXZaag/TestWerkpost.cls.xml
===================================================================
diff -u -r2823 -r3254
--- vhUnitTest/APPS/Halux/PPS/TBXZaag/TestWerkpost.cls.xml	(.../TestWerkpost.cls.xml)	(revision 2823)
+++ vhUnitTest/APPS/Halux/PPS/TBXZaag/TestWerkpost.cls.xml	(.../TestWerkpost.cls.xml)	(revision 3254)
@@ -85,7 +85,7 @@
 	Set BatchID=..Batch.%Id()
 	Set rsBatches=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qActieveBatchLijst")
 	Set rsOpdrachten=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qZaagLijstHelper")
-	Set sc=rsBatches.Execute()
+	Set sc=rsBatches.Execute("",1)
 	Set BatchCnt=0
 	Set OpdrachtCnt=0
 	While (rsBatches.Next())
@@ -116,7 +116,7 @@
 	Set BatchID=..Batch.%Id()
 	Set rsBatches=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qActieveBatchLijst")
 	Set rsOpdrachten=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qZaagLijstHelper")
-	Set sc=rsBatches.Execute()
+	Set sc=rsBatches.Execute("",1)
 	Set BatchCnt=0
 	Set BodemCnt=0
 	Set RugCnt=0
@@ -217,7 +217,7 @@
 	Set BatchID=..Batch.%Id()
 	Set rsBatches=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qActieveBatchLijst")
 	Set rsOpdrachten=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qZaagLijstHelper")
-	Set sc=rsBatches.Execute()
+	Set sc=rsBatches.Execute("",1)
 	Set BatchCnt=0
 	Set OpdrachtCnt=0
 	While (rsBatches.Next())
Index: APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml
===================================================================
diff -u -r3219 -r3254
--- APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 3219)
+++ APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 3254)
@@ -32,12 +32,13 @@
 </Method>
 
 <Method name="GeefBatchLijst">
-<FormalSpec>Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</FormalSpec>
+<FormalSpec>Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn="",All:%Boolean=0</FormalSpec>
 <ReturnType>%XML.DataSet</ReturnType>
 <Implementation><![CDATA[
 	;Set Log=..Logger.Debug("GeefBatchLijst", "Lijn:"_$G(Output2Lijn))
-	Set DataSet=##class(%XML.DataSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qActieveBeperkteBatchLijst")
-	
+	Set DataSet=##class(%XML.DataSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qActieveBatchLijst")
+	Do DataSet.SetArgs(Output2Lijn, All)
+
 	Quit DataSet
 ]]></Implementation>
 </Method>
Index: WS/Halux/PPS/TBXZaagServer.cls.xml
===================================================================
diff -u -r3180 -r3254
--- WS/Halux/PPS/TBXZaagServer.cls.xml	(.../TBXZaagServer.cls.xml)	(revision 3180)
+++ WS/Halux/PPS/TBXZaagServer.cls.xml	(.../TBXZaagServer.cls.xml)	(revision 3254)
@@ -35,14 +35,14 @@
      Geeft de resultset met actieve batches, waarbij de batches opgedeeld zijn in subbatches voor TipOn en Spoelbak.
 <br/> De LijnNr geeft de beperking tot die batches die bestemd zijn voor een bepaalde lijn
 <br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
-<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.common.enu.Werkpost,LijnNr:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</FormalSpec>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.common.enu.Werkpost,LijnNr:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,All:%Boolean</FormalSpec>
 <ReturnType>%XML.DataSet</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
 	Do ..GeefImplementatie(SessionKey,Werkpost)
 	
-	Set DataSet=..iWerkpost.GeefBatchLijst(LijnNr)
+	Set DataSet=..iWerkpost.GeefBatchLijst(LijnNr,All)
 	Set DataSet.DiffGram=1
 	Set DataSet.NeedSchema=1
 	Quit DataSet
Index: vhUnitTest/APPS/Halux/PPS/TBXZaag/TestBuild.cls.xml
===================================================================
diff -u -r2808 -r3254
--- vhUnitTest/APPS/Halux/PPS/TBXZaag/TestBuild.cls.xml	(.../TestBuild.cls.xml)	(revision 2808)
+++ vhUnitTest/APPS/Halux/PPS/TBXZaag/TestBuild.cls.xml	(.../TestBuild.cls.xml)	(revision 3254)
@@ -2,7 +2,8 @@
 <Export generator="Cache" version="9">
 <Class name="vhUnitTest.APPS.Halux.PPS.TBXZaag.TestBuild">
 <Description>
-do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.PPS.TBXZaag")</Description>
+
+</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -89,7 +90,7 @@
 	/* Verificatie */
 	Set rsBatches=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qActieveBatchLijst")
 	Set rsOpdrachten=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qZaagLijstHelper")
-	Set sc=rsBatches.Execute()
+	Set sc=rsBatches.Execute("",1)
 	Set BatchCnt=0
 	While (rsBatches.Next())
 	{
@@ -119,7 +120,7 @@
 	/* Verificatie */
 	Set rsBatches=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qActieveBatchLijst")
 	Set rsOpdrachten=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qZaagLijstHelper")
-	Set sc=rsBatches.Execute()
+	Set sc=rsBatches.Execute("",1)
 	Set OpdrachtCnt=0
 	While (rsBatches.Next())
 	{