Index: vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml =================================================================== diff -u -r69504 -r71811 --- vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 69504) +++ vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 71811) @@ -21,6 +21,11 @@ 1 + +DOM.Halux.AAP.DnaCode +1 + + TestName:%String @@ -83,11 +95,9 @@ #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) + #dim Logo As %String = "Logo\Logo VHZwart.svg" - Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock, VerkoopAPIMock, LogoBepalerMock) + 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) @@ -98,7 +108,6 @@ Do OrderAPIMock.Verifieer() Do ToeleveringAPIMock.Verifieer() Do VerkoopAPIMock.Verifieer() - Do LogoBepalerMock.Verifieer() ]]> @@ -130,11 +139,9 @@ #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) + #dim Logo As %String = "Logo\Logo VHZwart.svg" - Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock, VerkoopAPIMock, LogoBepalerMock) + 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) @@ -145,7 +152,6 @@ Do OrderAPIMock.Verifieer() Do ToeleveringAPIMock.Verifieer() Do VerkoopAPIMock.Verifieer() - Do LogoBepalerMock.Verifieer() ]]> @@ -173,11 +179,9 @@ #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) + #dim Logo As %String = "Logo\Logo VHZwart.svg" - Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock, VerkoopAPIMock, LogoBepalerMock) + 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) @@ -188,7 +192,6 @@ Do OrderAPIMock.Verifieer() Do ToeleveringAPIMock.Verifieer() Do VerkoopAPIMock.Verifieer() - Do LogoBepalerMock.Verifieer() ]]> @@ -222,11 +225,9 @@ #dim Klant As TECH.RegisteredObject = $$$DummyObject Do VerkoopAPIStub.IndienMethodCall("GeefKlant", ..DnaCode1.KlantNummer).DanReturn(Klant) - Set LogoBepalerStub = ##class(vhTest.Mock.BL.PPS.common.impl.OnderdelendoosLogoBepaler).%New() - #dim Logo As %String = "logo\"_$$$DummyString - Do LogoBepalerStub.IndienMethodCall("GeefLogo", Klant).DanReturn(Logo) + #dim Logo As %String = "Logo\Logo VHZwart.svg" - Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIStub, HtmlInhoudProboxEtiketBepalerStub, OrderAPIStub, ToeleveringAPIStub, VerkoopAPIStub, LogoBepalerStub) + Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIStub, HtmlInhoudProboxEtiketBepalerStub, OrderAPIStub, ToeleveringAPIStub, VerkoopAPIStub) #dim Device As %String = $$$DummyString #dim Etiket As BL.Etiket.ProboxInhoud = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, Device) @@ -268,11 +269,9 @@ #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) + #dim Logo As %String = "Logo\Logo VHZwart.svg" - Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New(PartijAPIMock, HtmlInhoudProboxEtiketBepalerMock, OrderAPIMock, ToeleveringAPIMock, VerkoopAPIMock, LogoBepalerMock) + 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) @@ -283,10 +282,59 @@ Do OrderAPIMock.Verifieer() Do ToeleveringAPIMock.Verifieer() Do VerkoopAPIMock.Verifieer() - Do LogoBepalerMock.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 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() +]]> + + Etiket:BL.Etiket.ProboxInhoud,Device:%String,Partij:DOM.PARTIJ.Partij,InhoudAlsHTML:%String,Order:DOM.VKP.Order,ProductieWeek:%String,Logo:%String,KlantOrderNummer:%String="" 1 Index: BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml =================================================================== diff -u -r69503 -r71811 --- BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 69503) +++ BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 71811) @@ -24,7 +24,7 @@ -BL.PPS.common.impl.OnderdelendoosLogoBepaler +BL.Flow.Levering.LabelLogoBepaler 1 @@ -34,7 +34,7 @@ -PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler="",OrderAPI:DOM.VKP.OrderAPI="",ToeleveringAPI:DOM.AKP.ToeleveringAPI="",VerkoopAPI:DOM.VKP.impl.VerkoopAPI="",LogoBepaler:BL.PPS.common.impl.OnderdelendoosLogoBepaler="" +PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler="",OrderAPI:DOM.VKP.OrderAPI="",ToeleveringAPI:DOM.AKP.ToeleveringAPI="",VerkoopAPI:DOM.VKP.impl.VerkoopAPI="",LogoBepaler:BL.Flow.Levering.LabelLogoBepaler="" 1 1 %Status @@ -45,7 +45,7 @@ Set ..OrderAPI = $$$Inject(OrderAPI, ##class(DOM.DomeinContext).Instance().GeefOrderAPI()) Set ..ToeleveringAPI = $$$Inject(ToeleveringAPI, ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()) Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.VKP.impl.VerkoopAPI).%New()) - Set ..LogoBepaler = $$$Inject(LogoBepaler, ##class(BL.PPS.common.impl.OnderdelendoosLogoBepaler).%New()) + Set ..LogoBepaler = $$$Inject(LogoBepaler, ##class(BL.Flow.Levering.LabelLogoBepaler).%New()) Quit $$$OK ]]> @@ -109,7 +109,7 @@ } Set ProboxInhoudLabel.CommissieReferentie = Order.GeefCommissieReferentie() - Set ProboxInhoudLabel.Logo = ..LogoBepaler.GeefLogo(Klant) + Set ProboxInhoudLabel.Logo = ..LogoBepaler.GeefLogo("", $Piece(KlantId, "||", 2)) Quit ProboxInhoudLabel ]]>