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() #dim Order As DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding() Do Order.IndienMethodCall("GeefVerzendingWijze").DanReturn($$$DummyString) Do OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCode1.OrderId).DanReturn(Order) #dim Toelevering As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding() #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 ToeleveringAPIMock.VerwachtMethodCall("GeefToelevering", ..DnaCode1.Toelevering).DanReturn(Toelevering) Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() #dim Klant As TECH.RegisteredObject = $$$DummyObject Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", ..DnaCode1.KlantNummer).DanReturn(Klant) Set LogoBepalerMock = ##class(vhTest.Mock.BL.PPS.common.impl.OnderdelendoosLogoBepaler).%New() #dim Logo As %String = "logo\"_$$$DummyString Do LogoBepalerMock.VerwachtMethodCall("GeefLogo", Klant).DanReturn(Logo) Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock, VerkoopAPIMock, LogoBepalerMock) #dim Device As %String = $$$DummyString #dim Etiket As BL.Etiket.ProboxInhoud = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, Device) Do ..AssertTicket(Etiket, Device, Partij, InhoudAlsHTML, Order, $translate($$EXTDATE^vhLib.DataTypes(CurrentHorolog,"DW"),"/",""), Logo) Do PartijAPIMock.Verifieer() Do HtmlInhoudProboxEtiketBepalerMock.Verifieer() Do OrderAPIMock.Verifieer() Do ToeleveringAPIMock.Verifieer() Do VerkoopAPIMock.Verifieer() Do LogoBepalerMock.Verifieer() ]]> " Do HtmlInhoudProboxEtiketBepalerMock.VerwachtMethodCall("BepaalHtmlInhoudProboxEtiket", DnaCodeIterator).DanReturn(InhoudAlsHTML) Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() #dim Order As DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding() Do Order.IndienMethodCall("GeefVerzendingWijze").DanReturn($$$DummyString) Do OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCode1.OrderId).DanReturn(Order) #dim Toelevering As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding() #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 ToeleveringAPIMock.VerwachtMethodCall("GeefToelevering", ..DnaCode1.Toelevering).DanReturn(Toelevering) Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() #dim Klant As TECH.RegisteredObject = $$$DummyObject Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", ..DnaCode1.KlantNummer).DanReturn(Klant) Set LogoBepalerMock = ##class(vhTest.Mock.BL.PPS.common.impl.OnderdelendoosLogoBepaler).%New() #dim Logo As %String = "logo\"_$$$DummyString Do LogoBepalerMock.VerwachtMethodCall("GeefLogo", Klant).DanReturn(Logo) Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock, VerkoopAPIMock, LogoBepalerMock) #dim Device As %String = $$$DummyString #dim Etiket As BL.Etiket.ProboxInhoud = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, Device) Do ..AssertTicket(Etiket, Device, Partij, InhoudAlsHTML, Order, $translate($$EXTDATE^vhLib.DataTypes(CurrentHorolog,"DW"),"/",""), Logo) Do PartijAPIMock.Verifieer() Do HtmlInhoudProboxEtiketBepalerMock.Verifieer() Do OrderAPIMock.Verifieer() Do ToeleveringAPIMock.Verifieer() Do VerkoopAPIMock.Verifieer() Do LogoBepalerMock.Verifieer() ]]> " Do HtmlInhoudProboxEtiketBepalerMock.VerwachtMethodCall("BepaalHtmlInhoudProboxEtiket", DnaCodeIterator).DanReturn(InhoudAlsHTML) Set OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() #dim Order As DOM.VKP.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() Do ToeleveringAPIMock.IndienMethodCall("GeefToelevering", ..DnaCode1.Toelevering).DanException($$$DummyException) Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() #dim Klant As TECH.RegisteredObject = $$$DummyObject Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", ..DnaCode1.KlantNummer).DanReturn(Klant) Set LogoBepalerMock = ##class(vhTest.Mock.BL.PPS.common.impl.OnderdelendoosLogoBepaler).%New() #dim Logo As %String = "logo\"_$$$DummyString Do LogoBepalerMock.VerwachtMethodCall("GeefLogo", Klant).DanReturn(Logo) Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock, VerkoopAPIMock, LogoBepalerMock) #dim Device As %String = $$$DummyString #dim Etiket As BL.Etiket.ProboxInhoud = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, Device) Do ..AssertTicket(Etiket, Device, Partij, InhoudAlsHTML, Order, "", Logo) Do PartijAPIMock.Verifieer() Do HtmlInhoudProboxEtiketBepalerMock.Verifieer() Do OrderAPIMock.Verifieer() Do VerkoopAPIMock.Verifieer() Do LogoBepalerMock.Verifieer() ]]> Etiket:BL.Etiket.ProboxInhoud,Device:%String,Partij:DOM.PARTIJ.Partij,InhoudAlsHTML:%String,Order:DOM.VKP.Order,ProductieWeek:%String,Logo:%String 1