Index: BL/PPS/TBX/DocsCommon.cls.xml
===================================================================
diff -u -r34550 -r34588
--- BL/PPS/TBX/DocsCommon.cls.xml	(.../DocsCommon.cls.xml)	(revision 34550)
+++ BL/PPS/TBX/DocsCommon.cls.xml	(.../DocsCommon.cls.xml)	(revision 34588)
@@ -94,9 +94,9 @@
 
 <Method name="SynchroStangInkortLijst">
 <Implementation><![CDATA[
-	Set SynchroStangInkortLijst = ##class(BL.PPS.TBX.DocSynchroStangInkortLijst).%New(..Batch)
-	#dim Document As APPS.common.Print.Kolommen.Document = SynchroStangInkortLijst.GeefDocument()
-	Do Document.Print("HALUX", ..Printer )
+	Set SynchroStangInkortLijst = ##class(BL.PPS.TBX.DocSynchroStangInkortLijst).%New()
+	#dim Document As APPS.common.Print.Kolommen.Document = SynchroStangInkortLijst.GeefDocument(..Batch)
+	Do:SynchroStangInkortLijst.HeeftLijnen() Document.Print("HALUX", ..Printer )
 ]]></Implementation>
 </Method>
 </Class>
Index: BL/PPS/TBX/DocSynchroStangInkortLijst.cls.xml
===================================================================
diff -u -r34549 -r34588
--- BL/PPS/TBX/DocSynchroStangInkortLijst.cls.xml	(.../DocSynchroStangInkortLijst.cls.xml)	(revision 34549)
+++ BL/PPS/TBX/DocSynchroStangInkortLijst.cls.xml	(.../DocSynchroStangInkortLijst.cls.xml)	(revision 34588)
@@ -5,11 +5,6 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="Batch">
-<Type>APPS.Halux.common.Batch</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="ProductAPI">
 <Type>DOM.PM.ProductAPI</Type>
 <Private>1</Private>
@@ -20,6 +15,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="PickingAantalStangen">
 <Type>TECH.FrequentieTabel</Type>
 <Private>1</Private>
@@ -43,24 +48,24 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..Batch = Batch
-
 	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set ..ProductieLijnFormatter = ##class(APPS.Halux.PPS.impl.Formatter.IoCContainer).Instance().Resolve("LijnFormatter")
-	Set ..PickingAantalStangen = ##class(TECH.FrequentieTabel).%New()
-
+	Set ..QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDocument">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <ReturnType>APPS.common.Print.Kolommen.Document</ReturnType>
 <Implementation><![CDATA[
+	Set ..Batch = Batch
+	Set ..PickingAantalStangen = ##class(TECH.FrequentieTabel).%New()
+
 	Do ..VerwerkTBXSequence()
 	
 	Set ..Document = ..InitKolommenDocument()
@@ -73,8 +78,8 @@
 <Method name="VerwerkTBXSequence">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ResultSet = ##class(%ResultSet).%New("BL.PPS.TBX.Sequencer:GetSequence")
-	Do ResultSet.Execute(..Batch.%Id())
+	#dim Query As TECH.Query = ##class(TECH.ClassQuery).%New("BL.PPS.TBX.Sequencer","GetSequence",$listbuild(..Batch.%Id()))
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query)
 
 	While (ResultSet.Next()) {
 		#dim QueueItem As DS.PPS.TBX.Queue = ##class(DS.PPS.TBX.Queue).OpenId(ResultSet.Data("ID"))
@@ -93,7 +98,6 @@
    			; ... 
    		}
  */
-
 	}
 ]]></Implementation>
 </Method>
@@ -262,6 +266,11 @@
 <Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.impl.DocumentService).%New().GeefToeleveringDossierCode(QueueItem.TOENr,Product.GeefDossierCode())
 ]]></Implementation>
 </Method>
+
+<Method name="HeeftLijnen">
+<Implementation><![CDATA[	quit ..UitvoeringInfoLijst.Count() > 0
+]]></Implementation>
+</Method>
 </Class>