Index: BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml
===================================================================
diff -u -r63385 -r63388
--- BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml	(.../ProboxInhoudEtiketGenerator.cls.xml)	(revision 63385)
+++ BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml	(.../ProboxInhoudEtiketGenerator.cls.xml)	(revision 63388)
@@ -33,8 +33,13 @@
 <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,LogoBepaler:BL.PPS.common.impl.OnderdelendoosLogoBepaler,VerkoopAPI:DOM.VKP.impl.VerkoopAPI</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>
@@ -46,6 +51,7 @@
 	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>
@@ -88,7 +94,8 @@
 	set ProboxInhoudLabel.ProductieWeek = $translate($$EXTDATE^vhLib.DataTypes(Toelevering.GeefDueOutTime(),"DW"),"/","")
 	Set ProboxInhoudLabel.CommissieReferentie = Order.GeefCommissieReferentie()
 
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant("K||"_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