Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r63487 -r64724
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 63487)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 64724)
@@ -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,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefEtiketLogo">
+<FormalSpec>KlantNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	try {
+		if $length(KlantNr) {
+			if ##class(TECH.StringUtils).StartsWith(KlantNr, "K||"){
+				Set KlantNr = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantNummerVoorPartijID(KlantNr)
+			}
+		}
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	}
+	
+	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 +1522,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 +1599,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[
Index: vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r63487 -r64724
--- vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 63487)
+++ vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 64724)
@@ -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)
FishEye: Tag 63487 refers to a dead (removed) revision in file `BL/Etiket/ProboxOverdoos.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?