Index: BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml =================================================================== diff -u -r63154 -r63187 --- BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 63154) +++ BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 63187) @@ -18,8 +18,13 @@ 1 + +DOM.AKP.ToeleveringAPI +1 + + -PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler="",OrderAPI:DOM.VKP.Order="" +PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler="",OrderAPI:DOM.VKP.Order="",ToeleveringAPI:DOM.AKP.ToeleveringAPI 1 1 %Status @@ -28,6 +33,7 @@ Set ..PartijAPI = $$$Inject(PartijAPI, ##class(DOM.DomeinContext).Instance().GeefPartijAPI()) 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()) Quit $$$OK ]]> @@ -52,6 +58,7 @@ #dim Partij As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(DnaCode.KlantNummer) #dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(DnaCode.OrderId) + #dim Toelevering as DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringId) Set ProboxInhoudLabel = ##class(BL.Etiket.ProboxInhoud).%New() Set ProboxInhoudLabel.Device = LabelDevice @@ -66,6 +73,7 @@ Set ProboxInhoudLabel.OrderNr = Order.GeefID() Set ProboxInhoudLabel.ToeleveringNr = ToeleveringId Set ProboxInhoudLabel.VerzendingWijze = Order.GeefVerzendingWijze() + set ProboxInhoudLabel.ProductieWeek = $translate($$EXTDATE^vhLib.DataTypes(Toelevering.GeefDueOutTime(),"DW"),"/","") Set ProboxInhoudLabel.CommissieReferentie = Order.GeefCommissieReferentie() Set ProboxInhoudLabel.Logo = ..GeefEtiketLogo(KlantNummer) Index: vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml =================================================================== diff -u -r63185 -r63187 --- vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 63185) +++ vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 63187) @@ -39,6 +39,8 @@ Set ..DnaCode2.KlantNummer = $$$DummyString Set ..DnaCode2.OrderId = $$$DummyString Set ..DnaCode2.Toelevering = $$$DummyString + + do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer() ]]> @@ -70,7 +72,12 @@ Do Order.IndienMethodCall("GeefVerzendingWijze").DanReturn($$$DummyString) Do OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCode1.OrderId).DanReturn(Order) - Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock) + Set ToeleveringAPIMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() + Set Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding() + Do Toelevering.IndienMethodCall("GeefDueOutTime").DanReturn(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()) + Do ToeleveringAPIMock.VerwachtMethodCall("GeefToelevering", ..DnaCode1.Toelevering).DanReturn(Toelevering) + + Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock) Set Device = $$$DummyString Set Etiket = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, Device) @@ -85,11 +92,13 @@ Do $$$AssertEquals(Etiket.OrderNr, Order.GeefID()) Do $$$AssertEquals(Etiket.ToeleveringNr, ..DnaCode1.Toelevering) Do $$$AssertEquals(Etiket.VerzendingWijze, $$$DummyString) + Do $$$AssertEquals(Etiket.ProductieWeek, "1126") Do $$$AssertEquals(Etiket.CommissieReferentie, Order.GeefCommissieReferentie()) Do PartijAPIMock.Verifieer() Do HtmlInhoudProboxEtiketBepalerMock.Verifieer() Do OrderAPIMock.Verifieer() + Do ToeleveringAPIMock.Verifieer() ]]> @@ -110,7 +119,12 @@ Do Order.IndienMethodCall("GeefVerzendingWijze").DanReturn($$$DummyString) Do OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCode1.OrderId).DanReturn(Order) - Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock) + Set ToeleveringAPIMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() + Set Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding() + Do Toelevering.IndienMethodCall("GeefDueOutTime").DanReturn(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()) + Do ToeleveringAPIMock.VerwachtMethodCall("GeefToelevering", ..DnaCode1.Toelevering).DanReturn(Toelevering) + + Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock) Set Device = $$$DummyString Set Etiket = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, Device) @@ -125,11 +139,13 @@ Do $$$AssertEquals(Etiket.OrderNr, Order.GeefID()) Do $$$AssertEquals(Etiket.ToeleveringNr, ..DnaCode1.Toelevering) Do $$$AssertEquals(Etiket.VerzendingWijze, $$$DummyString) + Do $$$AssertEquals(Etiket.ProductieWeek, "1126") Do $$$AssertEquals(Etiket.CommissieReferentie, Order.GeefCommissieReferentie()) Do PartijAPIMock.Verifieer() Do HtmlInhoudProboxEtiketBepalerMock.Verifieer() Do OrderAPIMock.Verifieer() + Do ToeleveringAPIMock.Verifieer() ]]> Index: BL/Etiket/ProboxInhoud.cls.xml =================================================================== diff -u -r63154 -r63187 --- BL/Etiket/ProboxInhoud.cls.xml (.../ProboxInhoud.cls.xml) (revision 63154) +++ BL/Etiket/ProboxInhoud.cls.xml (.../ProboxInhoud.cls.xml) (revision 63187) @@ -59,6 +59,11 @@ + +%String + + + %Status