vhUnitTest.TestCase 1111111 2222222 DOM.Halux.AAP.DnaCode 1 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("BestaatToelevering", $$$DummyString).DanReturn($$$True) 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) #dim Logo As %String = "Logo\Logo VHZwart.svg" Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock, VerkoopAPIMock) #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 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 Toelevering.IndienMethodCall("GeefOorsprongKetting").DanReturn("") Do ToeleveringAPIMock.VerwachtMethodCall("BestaatToelevering", $$$DummyString).DanReturn($$$True) 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) #dim Logo As %String = "Logo\Logo VHZwart.svg" Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock, VerkoopAPIMock) #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 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.VerwachtMethodCall("BestaatToelevering", $$$DummyString).DanReturn($$$False) Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() #dim Klant As TECH.RegisteredObject = $$$DummyObject Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", ..DnaCode1.KlantNummer).DanReturn(Klant) #dim Logo As %String = "Logo\Logo VHZwart.svg" Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock, VerkoopAPIMock) #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 ToeleveringAPIMock.Verifieer() Do VerkoopAPIMock.Verifieer() ]]> " Do HtmlInhoudProboxEtiketBepalerMock.VerwachtMethodCall("BepaalHtmlInhoudProboxEtiket", DnaCodeIterator).DanReturn(InhoudAlsHTML) #dim KlantOrderNummer As %String = "55000000" #dim DocRef As DOM.VKP.DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New() Set DocRef.KlantOrderNummer = KlantOrderNummer 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 Order.IndienMethodCall("GeefDocumentReferenties").DanReturn(DocRef) 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 Toelevering.IndienMethodCall("GeefOorsprongKetting").DanReturn("") Do ToeleveringAPIMock.VerwachtMethodCall("BestaatToelevering", $$$DummyString).DanReturn($$$True) 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) #dim Logo As %String = "Logo\Logo VHZwart.svg" Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock, VerkoopAPIMock) #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, KlantOrderNummer) Do PartijAPIMock.Verifieer() Do HtmlInhoudProboxEtiketBepalerMock.Verifieer() Do OrderAPIMock.Verifieer() Do ToeleveringAPIMock.Verifieer() Do VerkoopAPIMock.Verifieer() ]]> " Do HtmlInhoudProboxEtiketBepalerMock.VerwachtMethodCall("BepaalHtmlInhoudProboxEtiket", DnaCodeIterator).DanReturn(InhoudAlsHTML) #dim KlantOrderNummer As %String = "55000000" #dim DocRef As DOM.VKP.DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New() Set DocRef.KlantOrderNummer = KlantOrderNummer 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 Order.IndienMethodCall("GeefDocumentReferenties").DanReturn(DocRef) Do OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCodeDuPont.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 Toelevering.IndienMethodCall("GeefOorsprongKetting").DanReturn("") Do ToeleveringAPIMock.VerwachtMethodCall("BestaatToelevering", $$$DummyString).DanReturn($$$True) Do ToeleveringAPIMock.VerwachtMethodCall("GeefToelevering", ..DnaCodeDuPont.Toelevering).DanReturn(Toelevering) Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() #dim Klant As TECH.RegisteredObject = $$$DummyObject Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", ..DnaCodeDuPont.KlantNummer).DanReturn(Klant) #dim Logo As %String = "Logo\Logo Du Pont 1736.jpg" Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock, VerkoopAPIMock) #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, KlantOrderNummer) Do PartijAPIMock.Verifieer() Do HtmlInhoudProboxEtiketBepalerMock.Verifieer() Do OrderAPIMock.Verifieer() Do ToeleveringAPIMock.Verifieer() Do VerkoopAPIMock.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.DateTime).CurrentHorolog() Set ToeleveringAPIMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() Do Toelevering.IndienMethodCall("GeefDueOutTime").DanReturn(CurrentHorolog) Do ToeleveringAPIMock.VerwachtMethodCall("BestaatToelevering", $$$DummyString).DanReturn($$$True) 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) #dim Logo As %String = "Logo\Logo VHZwart.svg" Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock, VerkoopAPIMock) #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() ]]> Etiket:BL.Etiket.ProboxInhoud,Device:%String,Partij:DOM.PARTIJ.Partij,InhoudAlsHTML:%String,Order:DOM.VKP.Order,ProductieWeek:%String,Logo:%String,KlantOrderNummer:%String="",VandaagVerzenden:%String="" 1