Index: BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml =================================================================== diff -u -r63388 -r63451 --- BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 63388) +++ BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 63451) @@ -39,7 +39,7 @@ -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 +PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler="",OrderAPI:DOM.VKP.OrderAPI="",ToeleveringAPI:DOM.AKP.ToeleveringAPI="",LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI="",VerkoopAPI:DOM.VKP.impl.VerkoopAPI="",LogoBepaler:BL.PPS.common.impl.OnderdelendoosLogoBepaler="" 1 1 %Status @@ -49,9 +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()) + Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.VKP.impl.VerkoopAPI).%New()) + Set ..LogoBepaler = $$$Inject(LogoBepaler, ##class(BL.PPS.common.impl.OnderdelendoosLogoBepaler).%New()) Quit $$$OK ]]> @@ -78,6 +78,9 @@ #dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(DnaCode.OrderId) #dim Toelevering as DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringId) + #dim KlantID As DOM.VKP.VanHoeckeKlantID = ..LegacyPartijAPI.GeefKlantPartijID(KlantNummer) + #dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantID) + Set ProboxInhoudLabel = ##class(BL.Etiket.ProboxInhoud).%New() Set ProboxInhoudLabel.Device = LabelDevice @@ -94,8 +97,6 @@ set ProboxInhoudLabel.ProductieWeek = $translate($$EXTDATE^vhLib.DataTypes(Toelevering.GeefDueOutTime(),"DW"),"/","") Set ProboxInhoudLabel.CommissieReferentie = Order.GeefCommissieReferentie() - #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 Index: vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml =================================================================== diff -u -r63448 -r63451 --- vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 63448) +++ vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 63451) @@ -55,7 +55,7 @@ ]]> - + @@ -126,7 +141,7 @@ -Etiket:BL.Etiket.ProboxInhoud,Device:%String,Partij:DOM.PARTIJ.Partij,InhoudAlsHTML:%String,Order:DOM.VKP.Order +Etiket:BL.Etiket.ProboxInhoud,Device:%String,Partij:DOM.PARTIJ.Partij,InhoudAlsHTML:%String,Order:DOM.VKP.Order,Logo:%String 1