Index: BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml
===================================================================
diff -u -r63219 -r63388
--- BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml	(.../ProboxInhoudEtiketGenerator.cls.xml)	(revision 63219)
+++ BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml	(.../ProboxInhoudEtiketGenerator.cls.xml)	(revision 63388)
@@ -23,8 +23,23 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LogoBepaler">
+<Type>BL.PPS.common.impl.OnderdelendoosLogoBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.impl.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler="",OrderAPI:DOM.VKP.OrderAPI="",ToeleveringAPI:DOM.AKP.ToeleveringAPI</FormalSpec>
+<FormalSpec>PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler="",OrderAPI:DOM.VKP.OrderAPI="",ToeleveringAPI:DOM.AKP.ToeleveringAPI,LogoBepaler:BL.PPS.common.impl.OnderdelendoosLogoBepaler,VerkoopAPI:DOM.VKP.impl.VerkoopAPI,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -34,6 +49,9 @@
 	Set ..HtmlInhoudProboxEtiketBepaler = $$$Inject(HtmlInhoudProboxEtiketBepaler, ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler).%New())
 	Set ..OrderAPI = $$$Inject(OrderAPI, ##class(DOM.DomeinContext).Instance().GeefOrderAPI())
 	Set ..ToeleveringAPI = $$$Inject(ToeleveringAPI, ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
+	Set ..LogoBepaler = $$$Inject(LogoBepaler, ##class(BL.PPS.common.impl.OnderdelendoosLogoBepaler).%New())
+	Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.VKP.impl.VerkoopAPI).%New())
+	Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI, ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -76,7 +94,9 @@
 	set ProboxInhoudLabel.ProductieWeek = $translate($$EXTDATE^vhLib.DataTypes(Toelevering.GeefDueOutTime(),"DW"),"/","")
 	Set ProboxInhoudLabel.CommissieReferentie = Order.GeefCommissieReferentie()
 
- 	Set ProboxInhoudLabel.Logo = ..GeefEtiketLogo(KlantNummer)
+	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..LegacyPartijAPI.GeefKlantPartijID(KlantNummer)
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantID)
+ 	Set ProboxInhoudLabel.Logo = ..LogoBepaler.GeefLogo(Klant)
  	
  	Quit ProboxInhoudLabel
 ]]></Implementation>
@@ -89,17 +109,6 @@
 <Implementation><![CDATA[	quit $extract(PalletID,1,4)_" "_$extract(PalletID,5,8) ; formatering "AAAA AAAA"
 ]]></Implementation>
 </Method>
-
-<Method name="GeefEtiketLogo">
-<FormalSpec>KlantNr:%String</FormalSpec>
-<Private>1</Private>
-<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>
 </Class>