Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r2807 -r2808
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2807)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2808)
@@ -25,6 +25,10 @@
 <Default>TBX Productie</Default>
 </Parameter>
 
+<Parameter name="LabelTemplateZaag">
+<Default>TBX Productie</Default>
+</Parameter>
+
 <Parameter name="LabelPalletTemplate">
 <Default>TBX PalletID 5x10</Default>
 </Parameter>
@@ -88,10 +92,9 @@
 </Property>
 
 <Method name="Init">
-<FormalSpec>BatchID,ProdGrp,LabelDevice,FOPDevice</FormalSpec>
+<FormalSpec>BatchID,ProdGrp,LabelDevice,FOPDevice,LabelLayout</FormalSpec>
 <Implementation><![CDATA[
 	Set ..LabelDevice=$G(LabelDevice,..#LabelPrinter)
-	Set ..HogePrioriteit=##class(APPS.Halux.PPS.TBXZaag.impl.EtiketHelper).IsHogePrioriteit(..LabelDevice)
 	Set ..LabelLayout=..#LabelTemplate
 	Set ..LabelKlantDevice=$G(LabelDevice,..#LabelKlantPrinter)
 	Set ..LabelKlantLayout=..#LabelKlantTemplate5x10
@@ -105,6 +108,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetHogePrioriteit">
+<Implementation><![CDATA[	Set ..HogePrioriteit=1
+]]></Implementation>
+</Method>
+
+<Method name="ZetLabelLayout">
+<FormalSpec>LabelLayout</FormalSpec>
+<Implementation><![CDATA[	Set ..LabelLayout=LabelLayout
+]]></Implementation>
+</Method>
+
 <Method name="PrintDocs">
 <FormalSpec><![CDATA[Opties,&QtyFront,&QtyMat,StartNr,EndNr]]></FormalSpec>
 <Implementation><![CDATA[
@@ -538,7 +552,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set blLabelPrinter=##class(BL.Sys.LabelPrinter).%New()
-	Do:..HogePrioriteit bLabelPrinter.ZetHogePrioriteit()
+	Do:..HogePrioriteit blLabelPrinter.ZetHogePrioriteit()
 	Set rs=##class(%ResultSet).%New("BL.PPS.TBX.Sequencer:GetSequence")
 	Set sc=rs.Execute(..BatchID)
 	Set Count=0
Index: vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakSequentie.cls.xml
===================================================================
diff -u -r2686 -r2808
--- vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakSequentie.cls.xml	(.../MaakSequentie.cls.xml)	(revision 2686)
+++ vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakSequentie.cls.xml	(.../MaakSequentie.cls.xml)	(revision 2808)
@@ -59,11 +59,11 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="TOENrGezaagd">
+<Property name="TOENrSpecials">
 <Type>%Integer</Type>
 </Property>
 
-<Property name="TOENrSpecials">
+<Property name="TOENrWerkpost">
 <Type>%Integer</Type>
 </Property>
 
@@ -142,6 +142,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakToelevering4Werkpost">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()
+	Set SlotLabel=0
+	Set KLNr=4682
+	Set SequenceNr=0
+	
+	/// QueueList : item1\item2\item3 
+	/// met volgende inhoud : PRNr,Aantal,VHossID	/// 
+	Set QueueList = ..#TBX1_";1\"_..#TBXSpoelbak_";1\"_..#TBXTipOn_";1\"_..#TBXSyfon_";1"
+
+
+	/// Toelevering opzetten
+	Set LeverancierID = ..ToeleveringAPI.GeefLeverancierHalux().GeefNummer()
+	Set ..TOENrWerkpost = ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierID,QueueList)
+]]></Implementation>
+</Method>
+
 <Method name="MaakBatch">
 <FormalSpec>lbTOENrs:%List</FormalSpec>
 <ReturnType>APPS.Halux.common.impl.BatchImpl</ReturnType>
@@ -183,5 +202,10 @@
 <Implementation><![CDATA[	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(..TOENrSpecials)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderToelevering4Werkpost">
+<Implementation><![CDATA[	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(..TOENrWerkpost)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml
===================================================================
diff -u -r2795 -r2808
--- APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2795)
+++ APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2808)
@@ -43,37 +43,27 @@
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() ; extends DOM.PM.TBXProduct.TBXLade
 	Set Lade = ProductAPI.GeefProduct(PRNr)
 	Set Lengte=0
+	
 	If (BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem())||(BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())
 	{
+		Quit:(ZaagOpdracht.BodemRug'=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem())&&(ZaagOpdracht.BodemRug'=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())
 		Set Breedte=Lade.GeefBodemBreedte()
 		Set Plaat=Lade.GeefBodem()
 		Quit:'$isObject(Plaat)
 		Set PlaatPRNr=Plaat.GeefPRNr()
-		If Plaat.%Extends("DOM.PM.TBXPRodukt.TBXBodemStrook")
-		{
-			Set Lengte=Breedte/+$J(Breedte/Plaat.GeefBreedte(),0,2)
-		}
-		Else  ; voorgezaagde bodem
-		{
-			Set Lengte=1
-		}
+		Set Lengte=..GeefWerkvloerLengte(PlaatPRNr,Breedte)
 		Quit:'Lengte
 		Do ..BeschadigingPlaat(PlaatPRNr,Lengte,Reden)
 	}
-	ElseIf (BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug())||(BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())
+	
+	If (BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug())||(BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())
 	{
+		Quit:(ZaagOpdracht.BodemRug'=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug())&&(ZaagOpdracht.BodemRug'=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())
 		Set Breedte=Lade.GeefRugBreedte()
 		Set Plaat=Lade.GeefRug()
 		Quit:'$isObject(Plaat)
 		Set PlaatPRNr=Plaat.GeefPRNr()
-		If Plaat.%Extends("DOM.PM.TBXPRodukt.TBXRugStrook")
-		{
-			Set Lengte=+$J(Breedte/Plaat.GeefBreedte(),0,2)
-		}
-		Else  ; voorgezaagde bodem
-		{
-			Set Lengte=1
-		}
+		Set Lengte=..GeefWerkvloerLengte(PlaatPRNr,Breedte)
 		Quit:'Lengte
 		Do ..BeschadigingPlaat(PlaatPRNr,Lengte,Reden)
 	}
@@ -82,18 +72,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefWerkvloerLengte">
+<FormalSpec>PRNr,LengteWerkStuk</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Set D="\"
+	Quit $$CV2WV^MRP(PRNr,0,1,LengteWerkStuk)
+]]></Implementation>
+</Method>
+
 <Method name="BeschadigingPlaat">
 <Description>
 Reden is opgebouwd uit 2 delen Actie en Ref, met ";" gescheiden</Description>
 <FormalSpec>PlaatPRNr:%Integer,Lengte:%Float,Reden:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	Do
-	. New PlaatPRNr,Lengte,Reden
-	. Do ^cA604
+	Set D="\",U=";",Q="K"
 	Set Aktie=$P(Reden,";",1)
  	Set Ref=$P(Reden,";",2)
-	Do STORE^PRSTOCK("W",Aktie,PlaatPRNr,Lengte,Ref)
+	Do STORE^PRSTOCK("W",Aktie,PlaatPRNr,-Lengte,Ref)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/PPS/TBXZaag/TestWerkpost.cls.xml
===================================================================
diff -u -r2736 -r2808
--- vhUnitTest/APPS/Halux/PPS/TBXZaag/TestWerkpost.cls.xml	(.../TestWerkpost.cls.xml)	(revision 2736)
+++ vhUnitTest/APPS/Halux/PPS/TBXZaag/TestWerkpost.cls.xml	(.../TestWerkpost.cls.xml)	(revision 2808)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="vhUnitTest.APPS.Halux.PPS.TBXZaag.TestWerkpost">
 <Description>
-do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.PPS.TBXZaag")</Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.PPS.TBXZaag.TestWerkpost")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -61,10 +61,10 @@
 
 	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.MaakProducten).MaakAlleProducten()
 	Set ..MaakSequentie=##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.MaakSequentie).%New()
-	Do ..MaakSequentie.MaakToelevering1()
-	Do ..MaakSequentie.MaakToelevering2()
-	Set ..Batch=..MaakSequentie.MaakBatch($LB(..MaakSequentie.TOENr1,..MaakSequentie.TOENr2))
-
+	Do ..MaakSequentie.MaakToelevering4Werkpost()
+	Set ..Batch=..MaakSequentie.MaakBatch($LB(..MaakSequentie.TOENrWerkpost))
+	Do ..Batch.RaiseBatchGeslotenEvent()
+	
 	Set ..iWerkpost=##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New(##class(APPS.Halux.common.enu.Werkpost).Zaag1())
 	Quit $$$OK
 ]]></Implementation>
@@ -74,41 +74,162 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ..MaakSequentie.VerwijderBatch(..Batch)
-	Do ..MaakSequentie.VerwijderToelevering1()
-	Do ..MaakSequentie.VerwijderToelevering2()
-	;Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.MaakProducten).VerwijderAlleProducten()
+	Do ..MaakSequentie.VerwijderToelevering4Werkpost()
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.MaakProducten).VerwijderAlleProducten()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="xTestAfdrukkenEtiket">
+<Method name="TestZetStatus">
 <Implementation><![CDATA[
 	Set BatchID=..Batch.%Id()
-	/* Te testen method */
-	Set ZaagBuilder=##class(APPS.Halux.PPS.TBXZaag.impl.Builder).%New(BatchID)
-	Set sc=ZaagBuilder.MaakZaagOpdrachten()
-	/* 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 BatchCnt=0
+	Set OpdrachtCnt=0
 	While (rsBatches.Next())
 	{
-		If $P(rsBatches.Data("BatchKey"),"||")=BatchID 
+		If $P(rsBatches.Data("BatchKey"),"||")=BatchID
 		{
 			Set BatchCnt=BatchCnt+1
-			Set OpdrachtCnt=0
 			Set sc=rsOpdrachten.Execute($P(rsBatches.Data("BatchKey"),"||"),$P(rsBatches.Data("BatchKey"),"||",2))
 			While (rsOpdrachten.Next())
 			{
-				Do ..iWerkpost.PrintEtiket(rsOpdrachten.GetData(1),##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).Lijn1(),##class(APPS.Halux.PPS.TBXZaag.enu.PrintDevice).LabelApplicator())
+				/* Te testen method */
+				Do ..iWerkpost.ZetStatus(##class(APPS.Halux.common.enu.Werkpost).Zaag1(),rsOpdrachten.GetData(1),##class(APPS.Halux.PPS.TBXZaag.enu.Status).Finished(),##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).Lijn1())
+				Set OpdrachtCnt=OpdrachtCnt+1
+				Set Opdracht=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).%OpenId(rsOpdrachten.GetData(1))
+				Set Queue=Opdracht.Queue
+				Do $$$AssertEquals(Queue.WPZaag.WPStatus,"F","ZetStatus : queue status")
+				Do $$$AssertEquals(Opdracht.Status,##class(APPS.Halux.PPS.TBXZaag.enu.Status).Finished(),"ZetStatus : opdrachtstatus")
+				Do $$$AssertEquals(Opdracht.ProductieLijn,##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).Lijn1(),"ZetStatus : lijn")
 			}
-			Set VerwachtAantal=$Case($P(rsBatches.Data("BatchKey"),"||",2),##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).SpoelbakSifon():3,##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).TipOn():2,:10)
-			Do $$$AssertEquals(OpdrachtCnt,VerwachtAantal,"Aantal per subbatch "_rsBatches.Data("BatchKey"))
 		}
 	}
+]]></Implementation>
+</Method>
+
+<Method name="TestBeschadiging">
+<Implementation><![CDATA[
+
+	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 BatchCnt=0
+	Set BodemCnt=0
+	Set RugCnt=0
+	While (rsBatches.Next())
+	{
+		If $P(rsBatches.Data("BatchKey"),"||")=BatchID
+		{
+			Set sc=rsOpdrachten.Execute($P(rsBatches.Data("BatchKey"),"||"),$P(rsBatches.Data("BatchKey"),"||",2))
+			While (rsOpdrachten.Next())
+			{
+				Set dtoOpdracht=##class(APPS.Halux.PPS.TBXZaag.dto.Opdracht).GetOpdracht(rsOpdrachten.GetData(1))
+				Do ..GeefVoorraad(dtoOpdracht,.BodemVooraf,.RugVooraf,.BodemDelta,.RugDelta)
+				/* Te testen method */
+				Do ..iWerkpost.BeschadigingLade(rsOpdrachten.GetData(1),##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug(),0,"unittest")
+				/* Controle */
+				Do ..GeefVoorraad(dtoOpdracht,.BodemAchteraf,.RugAchteraf)
+			
+				If BodemDelta
+				{
+					Set Delta=BodemVooraf-BodemDelta-BodemAchteraf
+					Do $$$AssertTrue($S(Delta<0:-Delta,1:Delta)<0.1,"Beschadiging bodem PRNr:"_dtoOpdracht.Bodem.ProductNr_" B:"_dtoOpdracht.Bodem.Breedte_" A:"_BodemAchteraf_" V:"_BodemVooraf_" D:"_BodemDelta_" Delta:"_Delta)
+					Set BodemCnt=BodemCnt+1
+				}
+				If RugDelta
+				{
+					Set Delta=RugVooraf-RugDelta-RugAchteraf
+					Do $$$AssertTrue($S(Delta<0:-Delta,1:Delta)<0.1,"Beschadiging rug PRNr:"_dtoOpdracht.Rug.ProductNr_" B:"_dtoOpdracht.Rug.Breedte_"A:"_RugAchteraf_" V:"_RugVooraf_" D:"_RugDelta_" Delta:"_Delta)
+					Set RugCnt=RugCnt+1
+				}
+			}
+		}
+	}
+	Do $$$AssertEquals(BodemCnt,4,"Beschadiging aantalbodems")
+	Do $$$AssertEquals(RugCnt,2,"Beschadiging aantalruggen")
+]]></Implementation>
+</Method>
+
+<Method name="GeefVoorraad">
+<FormalSpec><![CDATA[Opdracht:APPS.Halux.PPS.TBXZaag.dto.Opdracht,&BodemVoorraad:%Float,&RugVoorraad:%Float,&BodemDelta:%Float,&RugDelta:%Float]]></FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Set D="\"
+	Set (BodemVoorraad,RugVoorraad,BodemDelta,RugDelta)=""
+	If $isObject(Opdracht.Bodem),Opdracht.Bodem.ProductNr?4.7N
+	{
+		Set BodemVoorraad=..GetWerkvloer(Opdracht.Bodem.ProductNr)
+		Set BodemDelta=$$CV2WV^MRP(Opdracht.Bodem.ProductNr,0,1,Opdracht.Bodem.Breedte) 
+	}
+	If $isObject(Opdracht.Rug),Opdracht.Rug.ProductNr?4.7N
+	{
+		Set RugVoorraad=..GetWerkvloer(Opdracht.Rug.ProductNr)
+		Set RugDelta=$$CV2WV^MRP(Opdracht.Rug.ProductNr,0,1,Opdracht.Rug.Breedte) 
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GetWerkvloer">
+<FormalSpec>PRNr:%Integer</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[ 	Quit $P($G(^PRSTOCK("D",PRNr)),"\",5)
+]]></Implementation>
+</Method>
+
+<Method name="TestAfdrukkenProductie">
+<Implementation><![CDATA[
+	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 BatchCnt=0
+	Set OpdrachtCnt=0
+	While (rsBatches.Next())
+	{
+		If $P(rsBatches.Data("BatchKey"),"||")=BatchID
+		{
+			Set BatchCnt=BatchCnt+1
+			Set sc=rsOpdrachten.Execute($P(rsBatches.Data("BatchKey"),"||"),$P(rsBatches.Data("BatchKey"),"||",2))
+			While (rsOpdrachten.Next())
+			{
+				/* Te testen method */
+				/* Alleen het aantal wordt getest, de eigenlijke testing van de labels zit in BL.PPS.TBX.DocsV1 */
+				Do ..iWerkpost.PrintLabel(rsOpdrachten.GetData(1),##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).Lijn1(),$S(OpdrachtCnt#2:##class(APPS.Halux.PPS.TBXZaag.enu.PrintDevice).LabelBackup(),1:##class(APPS.Halux.PPS.TBXZaag.enu.PrintDevice).LabelApplicator()))
+				Set OpdrachtCnt=OpdrachtCnt+1
+			}
+		}
+	}
+	Do $$$AssertEquals(OpdrachtCnt,4,"Aantal afdrukken "_BatchID)
 	Do $$$AssertEquals(BatchCnt,3,"Aantal splits in subbatches van "_BatchID)
 ]]></Implementation>
 </Method>
+
+<Method name="TestAfdrukkenManueel">
+<Implementation><![CDATA[
+	Set Titel="UnitTest Manueel"
+	Set BKleur="LG"
+	Set BBreedte=555
+	Set RHoogte="B"
+	/* Te testen method */
+	Set blLabelPrinter=##class(APPS.Halux.PPS.TBXZaag.impl.EtiketHelper).AfdrukkenManueel(Titel,BKleur,468,BBreedte,##class(DOM.PM.enu.TBXBodemBewerking).Groef(),"WI",RHoogte,444,##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).Lijn1(),##class(APPS.Halux.PPS.TBXZaag.enu.PrintDevice).LabelApplicator())
+	/* controle */
+	Set it=blLabelPrinter.GeefIterator()
+	Set Cnt=0
+	While it.HasNext()
+	{
+		Set dtoLabel=it.Next()
+		Set Cnt=Cnt+1
+		Do $$$AssertEquals(dtoLabel.Subtitel,Titel,"Manueelafdrukken : Titel")
+		Do $$$AssertEquals(dtoLabel.BodemKleur,BKleur,"Manueelafdrukken : Kleur")
+		Do $$$AssertEquals(dtoLabel.BodemLengte,BBreedte,"Manueelafdrukken : Lengte")
+		Do $$$AssertEquals(dtoLabel.RugHoogte,RHoogte,"Manueelafdrukken : Rug")
+	}
+	Do $$$AssertEquals(Cnt,1,"Manueelafdrukken : Aantal")
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: BL/Sys/LabelPrinter.cls.xml
===================================================================
diff -u -r2575 -r2808
--- BL/Sys/LabelPrinter.cls.xml	(.../LabelPrinter.cls.xml)	(revision 2575)
+++ BL/Sys/LabelPrinter.cls.xml	(.../LabelPrinter.cls.xml)	(revision 2808)
@@ -274,6 +274,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefIterator">
+<Implementation><![CDATA[
+	Merge Data=..Data
+	Quit ##class(TECH.ArrayQueryIterator).%New(.Data)
+]]></Implementation>
+</Method>
+
 <Method name="Clear">
 <Implementation><![CDATA[	Do ..Data.Clear()
 ]]></Implementation>
Index: APPS/Halux/PPS/TBXZaag/impl/MaakBatch.cls.xml
===================================================================
diff -u -r2739 -r2808
--- APPS/Halux/PPS/TBXZaag/impl/MaakBatch.cls.xml	(.../MaakBatch.cls.xml)	(revision 2739)
+++ APPS/Halux/PPS/TBXZaag/impl/MaakBatch.cls.xml	(.../MaakBatch.cls.xml)	(revision 2808)
@@ -28,6 +28,7 @@
 	{
 		If bl.Batch.GeefProductieGroep() '= ##class(APPS.Halux.common.enu.ProductieGroep).Plus()
 		{
+			Do ##class(VerwijderBatch).VerwijderBatches(BatchID)
 			Do bl.MaakZaagOpdrachten()
 		}
 	}
Index: PV TBX Zaag.prj.xml
===================================================================
diff -u -r2736 -r2808
--- PV TBX Zaag.prj.xml	(.../PV TBX Zaag.prj.xml)	(revision 2736)
+++ PV TBX Zaag.prj.xml	(.../PV TBX Zaag.prj.xml)	(revision 2808)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="PV TBX Zaag" LastModified="2011-11-07 20:55:06">
+<Project name="PV TBX Zaag" LastModified="2011-11-10 19:42:18">
   <Items>
     <ProjectItem name="APPS.Halux.Opvolging.AStilstandenLijstHelper" type="CLS"/>
     <ProjectItem name="APPS.Halux.Opvolging.IStilstanden" type="CLS"/>
@@ -29,6 +29,7 @@
     <ProjectItem name="APPS.Halux.common.Batch" type="CLS"/>
     <ProjectItem name="APPS.Halux.common.BatchService" type="CLS"/>
     <ProjectItem name="APPS.Halux.common.SequentieService" type="CLS"/>
+    <ProjectItem name="APPS.Halux.common.enu.Werkpost" type="CLS"/>
     <ProjectItem name="APPS.Halux.common.event.BatchGeslotenData" type="CLS"/>
     <ProjectItem name="APPS.Halux.common.event.BatchGeslotenEvent" type="CLS"/>
     <ProjectItem name="APPS.Halux.common.event.BatchHergeopendData" type="CLS"/>
@@ -63,6 +64,7 @@
     <ProjectItem name="DOM.PM.enu.TBXHoutKleur" type="CLS"/>
     <ProjectItem name="DOM.PM.impl.DataM.DataMProductAPI" type="CLS"/>
     <ProjectItem name="DS.PPS.TBX.Queue" type="CLS"/>
+    <ProjectItem name="DS.PPS.TBX.sub.emWPZaag" type="CLS"/>
     <ProjectItem name="TECH.Error.INC" type="MAC"/>
     <ProjectItem name="WS.Halux.PPS.TBXZaagServer" type="CLS"/>
     <ProjectItem name="vhDeploy.PV.Deploy20111029x0920" type="CLS"/>
@@ -72,6 +74,7 @@
     <ProjectItem name="vhUnitTest.APPS.Halux.PPS.TBXZaag.TestWerkpost" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.MaakProducten" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.MaakSequentie" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.common.Toelevering" type="CLS"/>
     <ProjectItem name="zTryout.PV.TBXZaag.Test" type="CLS"/>
   </Items>
 </Project>
Index: vhUnitTest/APPS/Halux/PPS/TBXZaag/TestBuild.cls.xml
===================================================================
diff -u -r2736 -r2808
--- vhUnitTest/APPS/Halux/PPS/TBXZaag/TestBuild.cls.xml	(.../TestBuild.cls.xml)	(revision 2736)
+++ vhUnitTest/APPS/Halux/PPS/TBXZaag/TestBuild.cls.xml	(.../TestBuild.cls.xml)	(revision 2808)
@@ -75,7 +75,7 @@
 	Do ..MaakSequentie.VerwijderToelevering1()
 	Do ..MaakSequentie.VerwijderToelevering2()
 	Do ..MaakSequentie.VerwijderToeleveringSpecials()
-	;Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.MaakProducten).VerwijderAlleProducten()
+	Do ##class(vhUnitTest.APPS.Halux.PPS.TBXZaag.impl.MaakProducten).VerwijderAlleProducten()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakProducten.cls.xml
===================================================================
diff -u -r2686 -r2808
--- vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakProducten.cls.xml	(.../MaakProducten.cls.xml)	(revision 2686)
+++ vhUnitTest/APPS/Halux/PPS/TBXZaag/impl/MaakProducten.cls.xml	(.../MaakProducten.cls.xml)	(revision 2808)
@@ -95,6 +95,7 @@
  Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", PRNr, "Kleur", $LB("WI","BZ"))
  Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", PRNr, "LadeDiepte", "400")
  Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", PRNr, "tB", "1")
+ Set $P(^PRSTOCK("D",PRNr),"\",5)=10
 ]]></Implementation>
 </Method>
 
@@ -120,6 +121,7 @@
  Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", PRNr, "Kleur", $LB("WI","BZ"))
  Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", PRNr, "RugHoogte", "M")
  Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", PRNr, "tB", "1")
+ Set $P(^PRSTOCK("D",PRNr),"\",5)=20
 ]]></Implementation>
 </Method>
 
@@ -145,6 +147,7 @@
  Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", PRNr, "Kleur", $LB("LG","DG"))
  Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", PRNr, "LadeDiepte", "400")
  Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", PRNr, "tB", "1")
+ Set $P(^PRSTOCK("D",PRNr),"\",5)=30
 ]]></Implementation>
 </Method>
 
@@ -170,6 +173,7 @@
  Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", PRNr, "Kleur", $LB("LG","DG"))
  Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", PRNr, "RugHoogte", "M")
  Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB", PRNr, "tB", "1")
+ Set $P(^PRSTOCK("D",PRNr),"\",5)=15
 ]]></Implementation>
 </Method>
 
@@ -1426,6 +1430,7 @@
  Kill ^KPR(PRNr)
  Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(PRNr)
  Do DELOBJ^PRBS(PRNr)
+ Kill ^PRSTOCK("D",PRNr)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/TBXZaag/impl/EtiketHelper.cls.xml
===================================================================
diff -u -r2805 -r2808
--- APPS/Halux/PPS/TBXZaag/impl/EtiketHelper.cls.xml	(.../EtiketHelper.cls.xml)	(revision 2805)
+++ APPS/Halux/PPS/TBXZaag/impl/EtiketHelper.cls.xml	(.../EtiketHelper.cls.xml)	(revision 2808)
@@ -13,17 +13,22 @@
 <Default>Halux_Zaag_Backup</Default>
 </Parameter>
 
-<Parameter name="ManueelTemplate">
-<Default>HALUX PPS TBXZaag Manueel 5x10</Default>
+<Parameter name="ManueelTemplateAppl">
+<Default>TBX Productie 5x10 Hermes</Default>
 </Parameter>
 
-<Method name="IsHogePrioriteit">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Device</FormalSpec>
-<Implementation><![CDATA[	Quit:(Device=..#DeviceLabelApplicator)||(Device=..#DeviceLabelBackup)
-]]></Implementation>
-</Method>
+<Parameter name="ManueelTemplateBackup">
+<Default>TBX Productie 5x10</Default>
+</Parameter>
 
+<Parameter name="ProductieTemplateAppl">
+<Default>TBX ZaagManueel 5x10 Hermes</Default>
+</Parameter>
+
+<Parameter name="ProductieTemplateBackup">
+<Default>TBX ZaagManueel 5x10</Default>
+</Parameter>
+
 <Method name="AfdrukkenOpdracht">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ZaagOpdracht:APPS.Halux.PPS.TBXZaag.Opdrachten,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice</FormalSpec>
@@ -32,6 +37,8 @@
 
 	Set blPrint=##class(BL.PPS.TBX.DocsV1).%New()
 	Do blPrint.Init(ZaagOpdracht.Batch.%Id(), "", LabelPrinter)
+	Do blPrint.ZetLabelLayout(..GeefLabelLayoutProductie(Device))
+	Do blPrint.ZetHogePrioriteit()
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set Product=ProductAPI.GeefProduct(ZaagOpdracht.Product.%Id())
 	Set SequenceNr=ZaagOpdracht.Queue.Sequence
@@ -57,8 +64,8 @@
 <Method name="AfdrukkenManueel">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Subtitel:%String,BodemKleur:%String,BodemHoogte:%Integer,BodemLengte:%Float,BodemBewerking:DOM.PM.enu.TBXBodemBewerking,RugKleur:%String,RugHoogte:%Integer,RugLengte:%Float,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice</FormalSpec>
+<ReturnType>BL.Sys.LabelPrinter</ReturnType>
 <Implementation><![CDATA[
-	Set LabelPrinter=..GeefLabelPrinter(Device)
 	Set blLabelPrinter=##class(BL.Sys.LabelPrinter).%New()
 	Do blLabelPrinter.ZetHogePrioriteit()
 	
@@ -74,13 +81,53 @@
 	Set dtoLabel.RugLengte=RugLengte
 	Set dtoLabel.Output2Lijn=Output2Lijn
 	
-	Set dtoLabel.Layout=..#ManueelTemplate
-	Set dtoLabel.Device=LabelPrinter
+	Set dtoLabel.Layout=..GeefLabelLayoutManueel(Device)
+	Set dtoLabel.Device=..GeefLabelPrinter(Device)
+	
+	Do blLabelPrinter.Add(dtoLabel)
+	Do blLabelPrinter.Print2Bartender(dtoLabel)
+	Quit blLabelPrinter
+]]></Implementation>
+</Method>
 
-	Do blLabelPrinter.PrintDirect2Bartender(dtoLabel)
+<Method name="GeefLabelLayoutProductie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If Device = ##class(APPS.Halux.PPS.TBXZaag.enu.PrintDevice).LabelApplicator() 
+	{
+		Set Layout = ..#ProductieTemplateAppl
+	}
+	Else
+	{
+		Set Layout = ..#ProductieTemplateBackup
+	}
+	
+	Quit $G(Layout)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLabelLayoutManueel">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If Device = ##class(APPS.Halux.PPS.TBXZaag.enu.PrintDevice).LabelApplicator() 
+	{
+		Set Layout = ..#ManueelTemplateAppl
+	}
+	Else
+	{
+		Set Layout = ..#ManueelTemplateBackup
+	}
+	
+	Quit $G(Layout)
+]]></Implementation>
+</Method>
+
 <Method name="GeefLabelPrinter">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice</FormalSpec>