Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r63486 -r63487
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 63486)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 63487)
@@ -48,11 +48,6 @@
 <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>
@@ -263,7 +258,6 @@
 	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()
@@ -1447,16 +1441,6 @@
 ]]></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[
@@ -1512,73 +1496,6 @@
 ]]></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[
@@ -1589,43 +1506,6 @@
 ]]></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: CHUI/PPS/TBX/LeanBatch.cls.xml
===================================================================
diff -u -r63486 -r63487
--- CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 63486)
+++ CHUI/PPS/TBX/LeanBatch.cls.xml	(.../LeanBatch.cls.xml)	(revision 63487)
@@ -523,20 +523,6 @@
 ]]></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>
@@ -572,10 +558,8 @@
 		Set Opties="L;F;O;M;R;I;G;B"_
 	 		$Select(..ChkCommissie():";C",1:"")
 	 	If TePrintenInVoorbereiding '= "" Set Opties=Opties_";"_TePrintenInVoorbereiding
- 		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:"")
+ 		If $$$Not(BatchType=##class(APPS.Halux.common.enu.ProductieGroep).Probox()) {
+ 			Set Opties = Opties _$Select(..BevatSFS():";P",1:"")
  		}
 	}
 	For i=1:1:$Length(Opties,";") {
@@ -586,25 +570,6 @@
 ]]></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>
Index: vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r63486 -r63487
--- vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 63486)
+++ vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 63487)
@@ -15,12 +15,6 @@
 ]]></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")
@@ -112,13 +106,6 @@
 ]]></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")
@@ -250,17 +237,6 @@
 ]]></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?