Index: APPS/Halux/PPS/TBXZaag/impl/SyncHelper.cls.xml
===================================================================
diff -u -r2692 -r2817
--- APPS/Halux/PPS/TBXZaag/impl/SyncHelper.cls.xml	(.../SyncHelper.cls.xml)	(revision 2692)
+++ APPS/Halux/PPS/TBXZaag/impl/SyncHelper.cls.xml	(.../SyncHelper.cls.xml)	(revision 2817)
@@ -1,9 +1,25 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="APPS.Halux.PPS.TBXZaag.impl.SyncHelper">
+<Description>
+Van de actieve batches de bufferlengte bepalen en of deze batches gewijzigd zijn zodanig dat ze gereload moeten worden.
+Tevens controleren of er HERWERK batches.</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
+<Query name="qActieveBatches">
+<Description>
+Bodems die gezaagd zijn maar nog niet geperst
+</Description>
+<Type>%SQLQuery</Type>
+<FormalSpec>SubBatch</FormalSpec>
+<SqlQuery>  SELECT Batch || '||' || SubBatch as BatchKey
+  FROM APPS_Halux_PPS_TBXZaag.Opdrachten
+  WHERE SubBatch=:SubBatch and Status="W"</SqlQuery>
+<Parameter name="CONTAINID" value="1"/>
+</Query>
+
 <Query name="qBodemsInBuffer">
 <Description>
 Bodems die gezaagd zijn maar nog niet geperst</Description>
@@ -36,6 +52,7 @@
 	
 	Do ..CalcBufferLength(%ProdLijnen)
 	Do ..MarkChangedBatches(%ProdLijnen)
+	Do ..HerwerkToevoegen(%ProdLijnen, L1BatchKey, L2BatchKey, DirectBatchKey)
 	Set %ProdLijnenKey=""
 	Quit $$$OK
 ]]></Implementation>
@@ -74,31 +91,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="AfdrukkenZaagEtiket">
+<Method name="HerwerkToevoegen">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ZaagOpdracht:APPS.Halux.PPS.TBXZaag.Opdrachten,Device:%String</FormalSpec>
+<FormalSpec>ProdLijnen:%ArrayOfObjects,L1BatchKey:%String,L2BatchKey:%String,DirectBatchKey:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set blPrint=##class(BL.PPS.TBX.DocsV1).%New()
-	Do blPrint.Init(ZaagOpdracht.Batch.%Id(), "", Device)
-	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
-	Set Product=ProductAPI.GeefProduct(ZaagOpdracht.Product.%Id())
-	Set SequenceNr=ZaagOpdracht.Queue.Sequence
-	If Product.IsSpoelbakLade() 
-	{	
-		Do blPrint.EtikettenSpoelbak(SequenceNr, SequenceNr)
-	}
-	ElseIf Product.IsSifonLade() 
-	{	
-		Do blPrint.EtikettenSifon(SequenceNr, SequenceNr)
-	}
-	ElseIf Product.BevatTipOn() 
-	{
-		Do blPrint.EtikettenTipon(SequenceNr, SequenceNr)
-	}
-	Else 
-	{
-		Do blPrint.Etiketten(SequenceNr, SequenceNr)
-	}
+	
+	Set rsActieve=##class(%ResultSet).%New(..%ClassName(1)_":qActieveBatches")
+	Do rsActieve.Execute(##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).Herwerk())
+	While rsActieve.Next() 
+		{	
+			Set BatchKey = rsActieve.Data("BatchKey")
+			Continue:(L1BatchKey=BatchKey)||(L2BatchKey=BatchKey)||(DirectBatchKey=BatchKey) ; reeds actief
+			Set HerwerkBatch=##class(APPS.Halux.PPS.TBXZaag.dto.SyncBatch).%New($G(BatchKey),"Herwerk")
+			Do ProdLijnen.SetAt(HerwerkBatch,HerwerkBatch.ProductieLijn)
+			Quit
+		}
 ]]></Implementation>
 </Method>