Index: vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r63475 -r63486
--- vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 63475)
+++ vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 63486)
@@ -15,6 +15,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalProboxAantal">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("BepaalProboxAantal",Toelevering)
+]]></Implementation>
+</Method>
+
 <Method name="BevatSFS">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("BevatSFS")
@@ -106,6 +112,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefEtiketLogo">
+<FormalSpec>KlantNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefEtiketLogo",KlantNr)
+]]></Implementation>
+</Method>
+
 <Method name="GeefLabelPrinter">
 <ReturnType>BL.Sys.LabelPrinter</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLabelPrinter")
@@ -237,6 +250,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ProboxOverdoosEtiket">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ProboxOverdoosEtiket",Toelevering)
+]]></Implementation>
+</Method>
+
+<Method name="ProboxOverdoosEtiketten">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ProboxOverdoosEtiketten")
+]]></Implementation>
+</Method>
+
 <Method name="Transform2Bak">
 <FormalSpec>Label1:%String,Label2:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("Transform2Bak",Label1,Label2)
Index: CHUI/PPS/TBX/LeanBatch.cls.xml
===================================================================
diff -u -r63473 -r63486
--- CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 63473)
+++ CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 63486)
@@ -523,6 +523,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ProboxOverdoosEtiketStatus">
+<FormalSpec>PrintLijst:%List</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	if ..HaluxBatch.GeefProductieGroep()'=##class(APPS.Halux.common.enu.ProductieGroep).Probox() {
+		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="TePrintenInVoorbereiding">
 <FormalSpec>PrintLijst:%List</FormalSpec>
 <Private>1</Private>
@@ -558,8 +572,10 @@
 		Set Opties="L;F;O;M;R;I;G;B"_
 	 		$Select(..ChkCommissie():";C",1:"")
 	 	If TePrintenInVoorbereiding '= "" Set Opties=Opties_";"_TePrintenInVoorbereiding
- 		If $$$Not(BatchType=##class(APPS.Halux.common.enu.ProductieGroep).Probox()) {
- 			Set Opties = Opties _$Select(..BevatSFS():";P",1:"")
+ 		If BatchType=##class(APPS.Halux.common.enu.ProductieGroep).Probox() {
+			Set Opties = Opties_$Select(..ProboxOverdoosEtiketStatus(PrintLijst)=##class(BL.PPS.TBX.enu.PrintStatus).Printen():";Y",1:"")
+ 		} Else {
+	 		Set Opties = Opties _$Select(..BevatSFS():";P",1:"")
  		}
 	}
 	For i=1:1:$Length(Opties,";") {
@@ -570,6 +586,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ProboxOverdoosEtiket">
+<FormalSpec>TOENr:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	New %SC,Aantal,ToeleveringAPI,Toelevering,DocsV1
+	Set TOENr=$G(TOENr),Aantal=""
+	Do NIEUW^vhScherm("HADPPROBOX",,,,,,3,"A")
+	Quit:'%SC
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set Toelevering=ToeleveringAPI.GeefToelevering(TOENr)
+	set DocsV1 = ##class(BL.PPS.TBX.DocsV1).%New()
+	do DocsV1.Init(..HaluxBatch.GeefID())
+	While Aantal {
+		do DocsV1.ProboxOverdoosEtiket(Toelevering)
+		Set Aantal=Aantal-1
+	}
+]]></Implementation>
+</Method>
+
 <Method name="BatchIsProbox">
 <Description>
 Controleert of Batch Probox is</Description>
FishEye: Tag 63474 refers to a dead (removed) revision in file `BL/Etiket/ProboxOverdoos.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r63475 -r63486
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 63475)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 63486)
@@ -48,6 +48,11 @@
 <Default>TBX Extra commissie 5x10</Default>
 </Parameter>
 
+<Parameter name="ProboxOverdoosEtiketPrinter">
+<Type>%String</Type>
+<Default>HALUX_productie_TAOR</Default>
+</Parameter>
+
 <Parameter name="MaxLadePerPallet">
 <Description>
 Hoeveel laden er theoretisch gemiddeld op 1 pallet gaan</Description>
@@ -258,6 +263,7 @@
 	Do:Opties["T" ..EtikettenTipon(StartNr,EndNr)
 	Do:Opties["N" ..EtikettenSifon(StartNr,EndNr)
 	Do:Opties["Q" ..EtikettenSpoelbak(StartNr,EndNr)
+	Do:Opties["Y" ..ProboxOverdoosEtiketten()
 	Do:Opties["C" ..EtikettenCommissie()
 	Do:Opties["G" DocsCommon.GlasSnijLijst()
 	Do:Opties["I" DocsCommon.RelingInkortLijst(),DocsCommon.DwarsverdelingLijst()
@@ -1441,6 +1447,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefEtiketLogo">
+<FormalSpec>KlantNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	if $length(KlantNr) && ($data(^IPCom("CS","LOGO"_KlantNr,0))) set Logo ="LOGO\"_^IPCom("CS","LOGO"_KlantNr,0)
+ 	else  set Logo ="LOGO\"_^IPCom("CS","LOGO"_4682,0) ; default Van Hoecke
+	quit Logo
+]]></Implementation>
+</Method>
+
 <Method name="KlantEtiketChk">
 <FormalSpec>oQ:DS.PPS.TBX.Queue</FormalSpec>
 <Implementation><![CDATA[
@@ -1496,6 +1512,73 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ProboxOverdoosEtiketten">
+<Implementation><![CDATA[
+	#dim itToeleveringen As TECH.Iterator = ..Batch.GeefToeleveringIterator()
+	while itToeleveringen.HasNext() {
+		#dim Toelevering As DOM.AKP.Toelevering = itToeleveringen.Next()
+	    #dim Aantal As %Integer = ..BepaalAantalOverdoosEtiketten(Toelevering)
+        // aantal etiketten wordt misbruikt om al dat niet te moeten printen
+		If (Aantal > 0) { 
+			Do ..ProboxOverdoosEtiket(Toelevering)
+			Hang 5
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ProboxOverdoosEtiket">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Implementation><![CDATA[
+ 	Do ..blLabelPrinter.Clear()
+ 	
+	#dim i As %Integer
+    #dim Aantal As %Integer = ..BepaalAantalOverdoosEtiketten(Toelevering) + 2 // Er werden te weinig probox overdoos etiketten aangemaakt => 2 erbij
+
+	For i=1:1:Aantal {
+	 	set Label = ##class(BL.Etiket.ProboxOverdoos).%New()
+	 	Set Label.Device=..#ProboxOverdoosEtiketPrinter
+ 	
+	 	#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	 	#dim Order As DOM.VKP.Order = OrderAPI.GeefOrder(Toelevering.GeefOrderID())
+ 	
+	 	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Order.GeefKlantID())
+ 	
+	 	#dim PalletID As %String = ..GeefNieuwPalletID(##class(BL.PPS.TBX.enu.PalletEtiketType).Probox())
+
+		#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Partij.GeefID())	 	
+	 	set Label.Logo = ..GeefEtiketLogo(KlantNr)
+ 	
+	 	set Label.KlantNaam = Partij.GeefNaam()
+	
+		#dim KlantInstellingenService As APPS.common.KlantInstellingenService = ##class(APPS.ApplicatieContext).Instance().GeefOrderVerwerkingAPI().GeefKlantInstellingenService() 	
+		If KlantInstellingenService.GebruiktKlantOrderNummer(Order.GeefKlantID())
+		{
+		 	Set Label.KlantNaam = Order.GeefDocumentReferenties().KlantOrderNummer
+		}
+ 	
+	 	set Label.PalletBarcode = PalletID
+	 	set Label.PalletBarcodeTxt = ..FormatteerPalletID(PalletID)
+ 	
+	 	set Label.OrderRef = Order.GeefOrderReferentie()
+	 	set Label.OrderNr = Order.GeefID()
+ 	
+	 	set Label.ToeleveringNr = Toelevering.GeefID()
+	 	set Label.VerzendWijze = Order.GeefVerzendingWijze()
+ 	
+	 	set Label.ProductieWeek = $translate($$EXTDATE^vhLib.DataTypes(Toelevering.GeefDueOutTime(),"DW"),"/","")
+	 	set Label.CommissieReferentie = Order.GeefCommissieReferentie()
+ 	
+	 	set Label.Aantal = 1
+
+	 	Do ..blLabelPrinter.Add(Label)
+ 	}
+	Do ..blLabelPrinter.Print2Bartender()
+
+ 	quit
+]]></Implementation>
+</Method>
+
 <Method name="ProboxInhoudEtiket">
 <FormalSpec>DnaCodeIterator:TECH.Iterator</FormalSpec>
 <Implementation><![CDATA[
@@ -1506,6 +1589,43 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalAantalOverdoosEtiketten">
+<Description>
+Bepaalt het volume-aandeel van de probox-laden</Description>
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..BepaalProboxAantal(Toelevering)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalProboxAantal">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Implementation><![CDATA[
+	#dim VolumeAandeel As %Float = 0
+	
+	#dim itToeleveringLijn As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
+	while itToeleveringLijn.HasNext() {
+		#dim Lijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = itToeleveringLijn.Next()
+		Set ProboxAandeelBepaler = ##class(BL.PPS.common.impl.ProboxVolumeAandeelBepaler).%New()
+		Try {
+			Set BezoekbaarProduct = ##class(DOM.PM.BezoekbaarProduct).%New(Lijn.GeefProductID())
+			Do ProboxAandeelBepaler.Reset()
+			Do BezoekbaarProduct.Accept(ProboxAandeelBepaler)
+			Set VolumeAandeel = VolumeAandeel + (ProboxAandeelBepaler.GeefVolumeAandeel() * Lijn.GeefAantal())
+		}Catch {
+			#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			If '((Exceptie.GeefOmschrijving()["METHOD DOES NOT EXIST") && (Exceptie.GeefOmschrijving()["GeefVerpakking"))
+			{
+				Do ##class(TECH.ExceptionHandler).Rethrow(Exceptie)	
+			}
+		}
+	}
+	#dim AantalEtiketten As %Integer = ##class(TECH.Math).Ceil(VolumeAandeel)
+	Quit AantalEtiketten
+]]></Implementation>
+</Method>
+
 <Method name="PalletEtikettenZonderLogo">
 <FormalSpec>AantalEtikettenZonderLogo:%Integer</FormalSpec>
 <Implementation><![CDATA[