Index: APPS/Halux/TBX/impl/WerkpostZaagHelper.cls.xml
===================================================================
diff -u -r1133 -r2225
--- APPS/Halux/TBX/impl/WerkpostZaagHelper.cls.xml	(.../WerkpostZaagHelper.cls.xml)	(revision 1133)
+++ APPS/Halux/TBX/impl/WerkpostZaagHelper.cls.xml	(.../WerkpostZaagHelper.cls.xml)	(revision 2225)
@@ -28,11 +28,11 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set %ProdLijnen=##class(%ArrayOfObjects).%New()
-	Set SyncBatch=##class(APPS.Halux.TBX.dto.SyncBatch).%New($G(L1BatchKey),##class(APPS.Halux.TBX.enu.ProductieLijn).Lijn1())
+	Set SyncBatch=##class(APPS.Halux.TBX.dto.SyncBatch).%New($G(L1BatchKey),##class(APPS.Halux.TBX.enu.ZaagProductieLijn).Lijn1())
 	Do %ProdLijnen.SetAt(SyncBatch,SyncBatch.ProductieLijn)
-	Set SyncBatch=##class(APPS.Halux.TBX.dto.SyncBatch).%New($G(L2BatchKey),##class(APPS.Halux.TBX.enu.ProductieLijn).Lijn2())
+	Set SyncBatch=##class(APPS.Halux.TBX.dto.SyncBatch).%New($G(L2BatchKey),##class(APPS.Halux.TBX.enu.ZaagProductieLijn).Lijn2())
 	Do %ProdLijnen.SetAt(SyncBatch,SyncBatch.ProductieLijn)
-	Set SyncBatch=##class(APPS.Halux.TBX.dto.SyncBatch).%New($G(DirectBatchKey),##class(APPS.Halux.TBX.enu.ProductieLijn).Direct())
+	Set SyncBatch=##class(APPS.Halux.TBX.dto.SyncBatch).%New($G(DirectBatchKey),##class(APPS.Halux.TBX.enu.ZaagProductieLijn).Direct())
 	Do %ProdLijnen.SetAt(SyncBatch,SyncBatch.ProductieLijn)
 	
 	Do ##class(WerkpostZaagHelper).CalcBufferLength(%ProdLijnen)
@@ -81,13 +81,18 @@
 <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 ZaagOpdracht.SubBatch=##class(APPS.Halux.TBX.enu.SubBatch).SpoelbakSifon() 
+	If Product.IsSpoelbakLade() 
 	{	
-		Do blPrint.EtikettenSpoelbakSifon(SequenceNr, SequenceNr)
+		Do blPrint.EtikettenSpoelbak(SequenceNr, SequenceNr)
 	}
-	ElseIf ZaagOpdracht.SubBatch=##class(APPS.Halux.TBX.enu.SubBatch).TipOn() 
+	ElseIf Product.IsSifonLade() 
+	{	
+		Do blPrint.EtikettenSifon(SequenceNr, SequenceNr)
+	}
+	ElseIf Product.BevatTipOn() 
 	{
 		Do blPrint.EtikettenTipon(SequenceNr, SequenceNr)
 	}
@@ -122,7 +127,19 @@
 <Method name="MarkChangedBatches">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProdLijnen:%ArrayOfObjects</FormalSpec>
-<Implementation><![CDATA[	/* TODO */
+<Implementation><![CDATA[
+	Set Key=""
+	Set Lijn=ProdLijnen.GetNext(.Key)
+	While Key'=""
+	{
+		If Lijn.BatchKey'=""
+		{
+			Set Lijn.BatchChanged=($R(100)>90)
+			Set Lijn.BufferAantal=$R(10)
+			Set Lijn.BufferLengte=$R(1000)
+		}
+		Set Lijn=ProdLijnen.GetNext(.Key)
+	}
 ]]></Implementation>
 </Method>
 </Class>