Index: BL/PPS/TBX/DocsProPlus.cls.xml
===================================================================
diff -u -r2047 -r2050
--- BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2047)
+++ BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2050)
@@ -130,6 +130,7 @@
 	. If Optie="P" Set Optie="PE"
 	. If '$LF(PrintList,Optie) Set PrintList=PrintList_$LB(Optie)
 	Set PrintLijstInfo.PrintLijst = PrintList
+	Do PrintLijstInfo.VerhoogFase()
 	Do PrintLijstInfo.%Save()
 ]]></Implementation>
 </Method>
Index: vhDeploy/JCL/Deploy20110912x1000.cls.xml
===================================================================
diff -u
--- vhDeploy/JCL/Deploy20110912x1000.cls.xml	(revision 0)
+++ vhDeploy/JCL/Deploy20110912x1000.cls.xml	(revision 2050)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JCL.Deploy20110912x1000">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>Opzetten TBXLean Printitems</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set ^RES("HATBXLEAN","PI","PRINTKAST","D","Y")="20`Probox overdoos"
+	set ^RES("HATBXLEAN","PI","PRINT","D","Y")="20`Probox overdoos"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: CHUI/PPS/TBX/LeanBatch.cls.xml
===================================================================
diff -u -r2023 -r2050
--- CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2023)
+++ CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 2050)
@@ -498,9 +498,9 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If (..BatchProductInfo.AantalTipon = 0) Quit "N" ; er zijn geen tipons af te drukken
- 	If $LF(PrintLijst,"T") Quit "OK" ; de TipOn-etiketten zijn al afgedrukt
- 	If '$LF(PrintLijst,"T") Quit "P" ; de TipOn-etiketten moeten nog afgedrukt worden
+	If (..BatchProductInfo.AantalTipon = 0) Quit ##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten() ; er zijn geen tipons af te drukken
+ 	If $LF(PrintLijst,"T") Quit ##class(BL.PPS.TBX.enu.PrintStatus).Geprint() ; de TipOn-etiketten zijn al afgedrukt
+ 	If '$LF(PrintLijst,"T") Quit ##class(BL.PPS.TBX.enu.PrintStatus).Printen() ; de TipOn-etiketten moeten nog afgedrukt worden
 ]]></Implementation>
 </Method>
 
@@ -510,9 +510,9 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If (..BatchProductInfo.AantalLadenMetUitsparing = 0) Quit "N"         ; er zijn geen spoelbaketiketten af te drukken
-	If $LF(PrintLijst,"Q") Quit "OK" ; de spoelbaketiketten zijn al afgedrukt
-	If '$LF(PrintLijst,"Q") Quit "P" ; de spoelbaketiketten moeten nog afgedrukt worden
+	If (..BatchProductInfo.AantalLadenMetUitsparing = 0) Quit ##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten() ; er zijn geen spoelbaketiketten af te drukken
+	If $LF(PrintLijst,"Q") Quit ##class(BL.PPS.TBX.enu.PrintStatus).Geprint() ; de spoelbaketiketten zijn al afgedrukt
+	If '$LF(PrintLijst,"Q") Quit ##class(BL.PPS.TBX.enu.PrintStatus).Printen() ; de spoelbaketiketten moeten nog afgedrukt worden
 ]]></Implementation>
 </Method>
 
@@ -522,9 +522,9 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If (..BatchProductInfo.AantalLadenMetUitsparing = 0)  Quit "N"         ; er zijn geen sifonbaketiketten af te drukken
-	If $LF(PrintLijst,"N") Quit "OK" ; de sifonbaketiketten zijn al afgedrukt
-	If '$LF(PrintLijst,"N") Quit "P" ; de sifonbaketiketten moeten nog afgedrukt worden
+	If (..BatchProductInfo.AantalLadenMetUitsparing = 0) Quit ##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten()         ; er zijn geen sifonbaketiketten af te drukken
+	If $LF(PrintLijst,"N") Quit ##class(BL.PPS.TBX.enu.PrintStatus).Geprint() ; de sifonbaketiketten zijn al afgedrukt
+	If '$LF(PrintLijst,"N") Quit ##class(BL.PPS.TBX.enu.PrintStatus).Printen() ; de sifonbaketiketten moeten nog afgedrukt worden
 ]]></Implementation>
 </Method>
 
@@ -534,9 +534,9 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If (..BatchProductInfo.AantalTipon = 0) Quit "N"         ; er zijn geen tipons
-	If $LF(PrintLijst,"U") Quit "OK"
-	If '$LF(PrintLijst,"U") Quit "P"
+	If (..BatchProductInfo.AantalTipon = 0) Quit ##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten()         ; er zijn geen tipons
+	If $LF(PrintLijst,"U") Quit ##class(BL.PPS.TBX.enu.PrintStatus).Geprint()
+	If '$LF(PrintLijst,"U") Quit ##class(BL.PPS.TBX.enu.PrintStatus).Printen()
 ]]></Implementation>
 </Method>
 
@@ -546,24 +546,37 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If ((..BatchProductInfo.AantalLadenMetUitsparing) =0) Quit "N"         ; er zijn geen spoelbakken of sifons
-	If $LF(PrintLijst,"W") Quit "OK"
-	If '$LF(PrintLijst,"W") Quit "P"
+	If ((..BatchProductInfo.AantalLadenMetUitsparing) =0) Quit ##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten()         ; er zijn geen spoelbakken of sifons
+	If $LF(PrintLijst,"W") Quit ##class(BL.PPS.TBX.enu.PrintStatus).Geprint()
+	If '$LF(PrintLijst,"W") Quit ##class(BL.PPS.TBX.enu.PrintStatus).Printen()
 ]]></Implementation>
 </Method>
 
+<Method name="ProboxOverdoosEtiketStatus">
+<FormalSpec>PrintLijst:%List,Fase:BL.PPS.TBX.enu.PrintStatus</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (Fase'>##class(BL.PPS.TBX.enu.PrintFase).Voorbereiding()) Quit ##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten()
+	If $LF(PrintLijst,"Y") Quit ##class(BL.PPS.TBX.enu.PrintStatus).Geprint()
+	If '$LF(PrintLijst,"Y") Quit ##class(BL.PPS.TBX.enu.PrintStatus).Printen()
+]]></Implementation>
+</Method>
+
 <Method name="NogTePrintenEtiketten">
-<FormalSpec>PrintLijst:%List</FormalSpec>
+<FormalSpec>PrintLijst:%List,Fase:%String=1</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set Opties = ""
-	If (..SpoelbakPrintStatus(PrintLijst) = "P") Set Opties=Opties_";Q"
-	If (..SifonPrintStatus(PrintLijst) = "P") Set Opties=Opties_";N"
-	If (..TipOnPrintStatus(PrintLijst) = "P") Set Opties=Opties_";T"
-	If (..TipOnFreesStatus(PrintLijst) = "P") Set Opties=Opties_";U"
-	If (..SpoelSifonFreesStatus(PrintLijst) = "P") Set Opties=Opties_";W"
+	If (..SpoelbakPrintStatus(PrintLijst) = ##class(BL.PPS.TBX.enu.PrintStatus).Printen()) Set Opties=Opties_";Q"
+	If (..SifonPrintStatus(PrintLijst) = ##class(BL.PPS.TBX.enu.PrintStatus).Printen()) Set Opties=Opties_";N"
+	If (..TipOnPrintStatus(PrintLijst) = ##class(BL.PPS.TBX.enu.PrintStatus).Printen()) Set Opties=Opties_";T"
+	If (..TipOnFreesStatus(PrintLijst) = ##class(BL.PPS.TBX.enu.PrintStatus).Printen()) Set Opties=Opties_";U"
+	If (..SpoelSifonFreesStatus(PrintLijst) = ##class(BL.PPS.TBX.enu.PrintStatus).Printen()) Set Opties=Opties_";W"
+	if (..ProboxOverdoosEtiketStatus(PrintLijst,Fase) = ##class(BL.PPS.TBX.enu.PrintStatus).Printen()) Set Opties=Opties_";Y"
 	Quit $Extract(Opties,2,$Length(Opties))
 ]]></Implementation>
 </Method>
@@ -576,22 +589,48 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set BatchType=..HaluxBatch.GeefProductieGroep()
-	Set PrintLijst = ##class(BL.PPS.TBX.PrintLijstInfo).GeefPrintLijstInfo(..HaluxBatch.GeefBatchID()).PrintLijst
-	Set TePrintenEtiketten = ..NogTePrintenEtiketten(PrintLijst)
-	If BatchType="+" Do ; ProPlus - Keller
-	. Set Opties="Z;E;F;D;B;P;G;X;A;Y"_$S(..TipOnFreesStatus(PrintLijst)'="N":";U",1:"")_$S(..SpoelSifonFreesStatus(PrintLijst)'="N":";W",1:"")
-	Else  If BatchType="A" Do ; Kast
-	. If TePrintenEtiketten '= "" Do
-	. . Set Opties=TePrintenEtiketten
-	. Else  Set Opties="Z;E;F;O;R;D;M;L;K;X;I;Y"_$S(..ChkCommissie():";C",1:"")_$S(..ChkBodems():";B",1:"")_";G"
-	Else  Do ; BatchType = "P" of "S" , pallet of stuks verpakt
-	. If TePrintenEtiketten '= "" Do
-	. . Set Opties=TePrintenEtiketten
-	. Else  Set Opties="Z;E;L;F;O;M;R;I;Y"_$S(..BevatSFS():";P",1:"")_$S(..ChkCommissie():";C",1:"")_$S(..ChkBodems():";B",1:"")_";G"
-	For i=1:1:$L(Opties,";") Do
-	. If $LF(PrintLijst,$Piece(Opties,";",i)) Set $Piece(Opties,";",i)=""
-	. If $Piece(Opties,";",i)="P"&($LF(PrintLijst,"PE")!$LF(PrintLijst,"PA")) Set $Piece(Opties,";",i)=""
-	D WLIP^vhDBG(195,Opties)
+	Set PrintLijstInfo = ##class(BL.PPS.TBX.PrintLijstInfo).GeefPrintLijstInfo(..HaluxBatch.GeefBatchID())
+	Set PrintLijst = PrintLijstInfo.PrintLijst
+	Set Fase = PrintLijstInfo.Fase
+	Set TePrintenEtiketten = ..NogTePrintenEtiketten(PrintLijst,Fase)
+	
+	If BatchType=##class(APPS.Halux.common.enu.ProductieGroep).Plus() { ; ProPlus - Keller
+		Set Opties="Z;E;F;D;B;P;G;X;A"_
+			$select(..TipOnFreesStatus(PrintLijst)'=##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten():";U",1:"")_
+			$select(..SpoelSifonFreesStatus(PrintLijst)'=##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten():";W",1:"")
+	}
+	elseif BatchType=##class(APPS.Halux.common.enu.ProductieGroep).Kast() { ; Kast
+		If TePrintenEtiketten '= "" {
+			Set Opties=TePrintenEtiketten
+		}
+		Else {
+			Set Opties="Z;E;F;O;R;D;M;L;K;X;I"_
+				$select(..ChkCommissie():";C",1:"")_
+				$select(..ChkBodems():";B",1:"")_";G"
+		}
+	}
+	else { ; andere BatchTypes 
+	 	If TePrintenEtiketten '= "" { 
+	 		set Opties=TePrintenEtiketten
+	 	}
+	 	else {
+			set Opties="Z;E;L;F;O;M;R;I;G"_
+		 		$select(..BevatSFS():";P",1:"")_
+		 		$select(..ChkCommissie():";C",1:"")_
+		 		$select(..ChkBodems():";B",1:"")
+	 	}
+	}
+	
+	if BatchType=##class(APPS.Halux.common.enu.ProductieGroep).Probox() {
+			set Opties = Opties_$select(..ProboxOverdoosEtiketStatus(PrintLijst,Fase)'=##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten():";Y",1:"")
+			
+	}
+	
+	For i=1:1:$L(Opties,";") {
+		If $LF(PrintLijst,$Piece(Opties,";",i)) Set $Piece(Opties,";",i)=""
+		If $Piece(Opties,";",i)="P"&($LF(PrintLijst,"PE")!$LF(PrintLijst,"PA")) Set $Piece(Opties,";",i)=""
+	}
+	
 	Quit Opties
 ]]></Implementation>
 </Method>
@@ -608,11 +647,11 @@
 	Set HaluxBatch = ##class(APPS.Halux.common.BatchService).%New().GeefBatch(BatchNr)
 	Do bl.GebruikBatch(HaluxBatch)
 	Set PrintLijst = ##class(BL.PPS.TBX.PrintLijstInfo).GeefPrintLijstInfo(BatchNr).PrintLijst
-	If (bl.TipOnPrintStatus(PrintLijst)="N") { Do ..VerwijderUitMenu("TIP-ON") }
-	If (bl.SifonPrintStatus(PrintLijst)="N") { Do ..VerwijderUitMenu("Sifon") }
-	If (bl.SpoelbakPrintStatus(PrintLijst)="N"){ Do ..VerwijderUitMenu("Spoelbak") }
-	If (bl.TipOnFreesStatus(PrintLijst)="N") { Do ..VerwijderUitMenu("Frees TIP-ON") }
-	If (bl.SpoelSifonFreesStatus(PrintLijst)="N") { Do ..VerwijderUitMenu("Frees spoel/sifon") }
+	If (bl.TipOnPrintStatus(PrintLijst)=##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten()) { Do ..VerwijderUitMenu("TIP-ON") }
+	If (bl.SifonPrintStatus(PrintLijst)=##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten()) { Do ..VerwijderUitMenu("Sifon") }
+	If (bl.SpoelbakPrintStatus(PrintLijst)=##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten()){ Do ..VerwijderUitMenu("Spoelbak") }
+	If (bl.TipOnFreesStatus(PrintLijst)=##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten()) { Do ..VerwijderUitMenu("Frees TIP-ON") }
+	If (bl.SpoelSifonFreesStatus(PrintLijst)=##class(BL.PPS.TBX.enu.PrintStatus).NietPrinten()) { Do ..VerwijderUitMenu("Frees spoel/sifon") }
 ]]></Implementation>
 </Method>
 
Index: BL/PPS/TBX/PrintLijstInfo.cls.xml
===================================================================
diff -u -r1074 -r2050
--- BL/PPS/TBX/PrintLijstInfo.cls.xml	(.../PrintLijstInfo.cls.xml)	(revision 1074)
+++ BL/PPS/TBX/PrintLijstInfo.cls.xml	(.../PrintLijstInfo.cls.xml)	(revision 2050)
@@ -15,6 +15,11 @@
 <Type>%List</Type>
 </Property>
 
+<Property name="Fase">
+<Type>BL.PPS.TBX.enu.PrintFase</Type>
+<InitialExpression>1</InitialExpression>
+</Property>
+
 <Index name="BatchIDIndex">
 <IdKey>1</IdKey>
 <PrimaryKey>1</PrimaryKey>
@@ -62,6 +67,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerhoogFase">
+<Implementation><![CDATA[
+	if ..Fase<1 { 
+		Set ..Fase = 1 
+	}
+	
+	if ..Fase<3 {
+		set ..Fase = ..Fase + 1 
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ResetPrintLijst">
+<Implementation><![CDATA[
+	set ..PrintLijst = ""
+	set ..Fase = 1
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^BL.PPS.TBX.PrintLijstInfoD</DataLocation>
@@ -78,6 +102,9 @@
 <Value name="2">
 <Value>PrintLijst</Value>
 </Value>
+<Value name="3">
+<Value>Fase</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: BL/PPS/TBX/enu/PrintStatus.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/enu/PrintStatus.cls.xml	(revision 0)
+++ BL/PPS/TBX/enu/PrintStatus.cls.xml	(revision 2050)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.PPS.TBX.enu.PrintStatus">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,P,N,OK</Default>
+</Parameter>
+
+<Method name="Printen">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit "P"
+]]></Implementation>
+</Method>
+
+<Method name="Geprint">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit "OK"
+]]></Implementation>
+</Method>
+
+<Method name="NietPrinten">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Quit "N"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: BL/PPS/TBX/Sequencer.cls.xml
===================================================================
diff -u -r1344 -r2050
--- BL/PPS/TBX/Sequencer.cls.xml	(.../Sequencer.cls.xml)	(revision 1344)
+++ BL/PPS/TBX/Sequencer.cls.xml	(.../Sequencer.cls.xml)	(revision 2050)
@@ -257,7 +257,7 @@
  If (##class(BL.PPS.TBX.PrintLijstInfo).%ExistsId(BatchID))
  {
 	 Set PrintLijstInfo = ##class(BL.PPS.TBX.PrintLijstInfo).%OpenId(BatchID)
-	 Set PrintLijstInfo.PrintLijst = ""
+	 do PrintLijstInfo.ResetPrintLijst()
 	 Do PrintLijstInfo.%Save()
  }
 ]]></Implementation>
Index: BL/PPS/TBX/enu/PrintFase.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/enu/PrintFase.cls.xml	(revision 0)
+++ BL/PPS/TBX/enu/PrintFase.cls.xml	(revision 2050)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.PPS.TBX.enu.PrintFase">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,1,2,3</Default>
+</Parameter>
+
+<Method name="Voorbereiding">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit 1
+]]></Implementation>
+</Method>
+
+<Method name="Verwerking">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit 2
+]]></Implementation>
+</Method>
+
+<Method name="Herdruk">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit 3
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r2047 -r2050
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2047)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2050)
@@ -144,6 +144,7 @@
 	. If Optie="P" Set Optie="PA"
 	. If '$LF(PrintList,Optie) Set PrintList=PrintList_$LB(Optie)
 	Set PrintLijstInfo.PrintLijst=PrintList
+	Do PrintLijstInfo.VerhoogFase()
 	Do PrintLijstInfo.%Save()
 ]]></Implementation>
 </Method>
@@ -1236,7 +1237,7 @@
 	Set pxLabel.Referentie=..KlantEtiketOneOrderRef(KLNr,ORDNr,OLNr)
  	Set ProjectRef=$S('OLNr:"",1:$P($G(^KOD(KLNr,"F",ORDNr,OLNr)),"\",5))
  	Set:$L(ProjectRef) pxLabel.Referentie=ProjectRef ; Projectreferentie is belangrijker dan de orderreferentie
- 	If (KLNr=7833)||(KLNr=6279) Set pxLabel.KlantNaamBig=$$UPTRIMAN^vhRtn1(pxLabel.OrderRef) ; Voor Hein en Optima
+ 	If (KLNr=7833)||(KLNr=6279) Set pxLabel.KlantNaam=$$UPTRIMAN^vhRtn1(pxLabel.OrderRef) ; Voor Hein en Optima
  	
 	 ; Indien contract dan leverweek van toelevering
  	If TOENr,TLNr,$D(^KTO(6332,TOENr,TLNr)) Do