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 ]]> Index: vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml =================================================================== diff -u -r71811 -r71812 --- vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 71811) +++ vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 71812) @@ -132,6 +132,7 @@ #dim CurrentHorolog As TECH.String = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog() Set ToeleveringAPIMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() Do Toelevering.IndienMethodCall("GeefDueOutTime").DanReturn(CurrentHorolog) + Do Toelevering.IndienMethodCall("GeefOorsprongKetting").DanReturn("") Do ToeleveringAPIMock.VerwachtMethodCall("BestaatToelevering", $$$DummyString).DanReturn($$$True) Do ToeleveringAPIMock.VerwachtMethodCall("GeefToelevering", ..DnaCode1.Toelevering).DanReturn(Toelevering) @@ -218,6 +219,7 @@ #dim CurrentHorolog As TECH.String = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog() Set ToeleveringAPIStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() Do Toelevering.IndienMethodCall("GeefDueOutTime").DanReturn(CurrentHorolog) + Do Toelevering.IndienMethodCall("GeefOorsprongKetting").DanReturn("") Do ToeleveringAPIStub.IndienMethodCall("BestaatToelevering", $$$DummyString).DanReturn($$$True) Do ToeleveringAPIStub.IndienMethodCall("GeefToelevering", ..DnaCode1.Toelevering).DanReturn(Toelevering) @@ -262,6 +264,7 @@ #dim CurrentHorolog As TECH.String = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog() Set ToeleveringAPIMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() Do Toelevering.IndienMethodCall("GeefDueOutTime").DanReturn(CurrentHorolog) + Do Toelevering.IndienMethodCall("GeefOorsprongKetting").DanReturn("") Do ToeleveringAPIMock.VerwachtMethodCall("BestaatToelevering", $$$DummyString).DanReturn($$$True) Do ToeleveringAPIMock.VerwachtMethodCall("GeefToelevering", ..DnaCode1.Toelevering).DanReturn(Toelevering) @@ -312,6 +315,7 @@ #dim CurrentHorolog As TECH.String = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog() Set ToeleveringAPIMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() Do Toelevering.IndienMethodCall("GeefDueOutTime").DanReturn(CurrentHorolog) + Do Toelevering.IndienMethodCall("GeefOorsprongKetting").DanReturn("") Do ToeleveringAPIMock.VerwachtMethodCall("BestaatToelevering", $$$DummyString).DanReturn($$$True) Do ToeleveringAPIMock.VerwachtMethodCall("GeefToelevering", ..DnaCodeDuPont.Toelevering).DanReturn(Toelevering)