vhUnitTest.TestCase 1111111 2222222 DOM.Halux.AAP.DnaCode 1 DOM.Halux.AAP.DnaCode 1 TestName:%String " Do HtmlInhoudProboxEtiketBepalerMock.VerwachtMethodCall("BepaalHtmlInhoudProboxEtiket", DnaCodeIterator).DanReturn(InhoudAlsHTML) Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() Set Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding() Do Order.IndienMethodCall("GeefVerzendingWijze").DanReturn($$$DummyString) Do OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCode1.OrderId).DanReturn(Order) 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) Do $$$AssertEquals(Etiket.Device, Device) Do $$$AssertEquals(Etiket.Aantal, 1) Do $$$AssertEquals(Etiket.KlantNaam, Partij.GeefNaam()) Do $$$AssertEquals(Etiket.InhoudAlsHTML, InhoudAlsHTML) Do $$$AssertEquals(Etiket.PalletBarcode, ..DnaCode1.PalletCode) Do $$$AssertEquals(Etiket.PalletBarcodeTxt, "TBX1 2345") Do $$$AssertEquals(Etiket.OrderRef, Order.GeefOrderReferentie()) 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() ]]> " Do HtmlInhoudProboxEtiketBepalerMock.VerwachtMethodCall("BepaalHtmlInhoudProboxEtiket", DnaCodeIterator).DanReturn(InhoudAlsHTML) Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() Set Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding() Do Order.IndienMethodCall("GeefVerzendingWijze").DanReturn($$$DummyString) Do OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCode1.OrderId).DanReturn(Order) 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) Do $$$AssertEquals(Etiket.Device, Device) Do $$$AssertEquals(Etiket.Aantal, 1) Do $$$AssertEquals(Etiket.KlantNaam, Partij.GeefNaam()) Do $$$AssertEquals(Etiket.InhoudAlsHTML, InhoudAlsHTML) Do $$$AssertEquals(Etiket.PalletBarcode, ..DnaCode1.PalletCode) Do $$$AssertEquals(Etiket.PalletBarcodeTxt, "TBX1 2345") Do $$$AssertEquals(Etiket.OrderRef, Order.GeefOrderReferentie()) 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() ]]>