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