Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r63472 -r63474
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 63472)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 63474)
@@ -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>
@@ -1446,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,72 +1497,8 @@
 </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[
@@ -1588,43 +1509,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[
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: vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r63303 -r63474
--- vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 63303)
+++ vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 63474)
@@ -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,12 +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>