Index: BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml =================================================================== diff -u -r71811 -r71812 --- BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 71811) +++ BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 71812) @@ -71,9 +71,11 @@ #dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantId) #dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(DnaCode.OrderId) #dim Toelevering as DOM.AKP.Toelevering = "" + #dim OorsprongKetting As %String = "" If (..ToeleveringAPI.BestaatToelevering(ToeleveringId)) { Set Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringId) + Set OorsprongKetting = Toelevering.GeefOorsprongKetting() } Else { do ##class(vhLib.Logger).%New().Warning("BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator", "ProboxInhoudEtiket afgedrukt zonder opvulling van de parameter 'ProductieWeek'") } @@ -109,7 +111,7 @@ } Set ProboxInhoudLabel.CommissieReferentie = Order.GeefCommissieReferentie() - Set ProboxInhoudLabel.Logo = ..LogoBepaler.GeefLogo("", $Piece(KlantId, "||", 2)) + Set ProboxInhoudLabel.Logo = ..LogoBepaler.GeefLogo(OorsprongKetting, $Piece(KlantId, "||", 2)) Quit ProboxInhoudLabel ]]>