Index: vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml =================================================================== diff -u -r63628 -r64668 --- vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 63628) +++ vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 64668) @@ -72,9 +72,10 @@ Do Order.IndienMethodCall("GeefVerzendingWijze").DanReturn($$$DummyString) Do OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCode1.OrderId).DanReturn(Order) - Set ToeleveringAPIMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() #dim Toelevering As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding() - Do Toelevering.IndienMethodCall("GeefDueOutTime").DanReturn(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()) + #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() @@ -89,7 +90,7 @@ #dim Device As %String = $$$DummyString #dim Etiket As BL.Etiket.ProboxInhoud = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, Device) - Do ..AssertTicket(Etiket, Device, Partij, InhoudAlsHTML, Order, Logo) + Do ..AssertTicket(Etiket, Device, Partij, InhoudAlsHTML, Order, $translate($$EXTDATE^vhLib.DataTypes(CurrentHorolog,"DW"),"/",""), Logo) Do PartijAPIMock.Verifieer() Do HtmlInhoudProboxEtiketBepalerMock.Verifieer() @@ -117,9 +118,10 @@ Do Order.IndienMethodCall("GeefVerzendingWijze").DanReturn($$$DummyString) Do OrderAPIMock.VerwachtMethodCall("GeefOrder", ..DnaCode1.OrderId).DanReturn(Order) - Set ToeleveringAPIMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New() #dim Toelevering As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding() - Do Toelevering.IndienMethodCall("GeefDueOutTime").DanReturn(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()) + #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() @@ -134,7 +136,7 @@ #dim Device As %String = $$$DummyString #dim Etiket As BL.Etiket.ProboxInhoud = ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, Device) - Do ..AssertTicket(Etiket, Device, Partij, InhoudAlsHTML, Order, Logo) + Do ..AssertTicket(Etiket, Device, Partij, InhoudAlsHTML, Order, $translate($$EXTDATE^vhLib.DataTypes(CurrentHorolog,"DW"),"/",""), Logo) Do PartijAPIMock.Verifieer() Do HtmlInhoudProboxEtiketBepalerMock.Verifieer() @@ -145,8 +147,50 @@ ]]> + +" + 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,Logo:%String +Etiket:BL.Etiket.ProboxInhoud,Device:%String,Partij:DOM.PARTIJ.Partij,InhoudAlsHTML:%String,Order:DOM.VKP.Order,ProductieWeek:%String,Logo:%String 1 Index: BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml =================================================================== diff -u -r64667 -r64668 --- BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 64667) +++ BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 64668) @@ -68,11 +68,16 @@ #dim ToeleveringId As %String = DnaCode.Toelevering #dim KlantId As %String = DnaCode.KlantNummer #dim Partij As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(KlantId) - + #dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantId) #dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(DnaCode.OrderId) - #dim Toelevering as DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringId) + #dim Toelevering as DOM.AKP.Toelevering = "" - #dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantId) + Try { + Set Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringId) + } Catch { + Set Exception = ##class(TECH.ExceptionHandler).Catch() + do ##class(vhLib.Logger).%New().Warning("BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator", "ProboxInhoudEtiket afgedrukt zonder opvulling 'ProductieWeek': "_ Exception.ToString()) + } Set ProboxInhoudLabel = ##class(BL.Etiket.ProboxInhoud).%New() Set ProboxInhoudLabel.Device = LabelDevice @@ -87,9 +92,14 @@ Set ProboxInhoudLabel.OrderNr = Order.GeefID() Set ProboxInhoudLabel.ToeleveringNr = ToeleveringId Set ProboxInhoudLabel.VerzendingWijze = Order.GeefVerzendingWijze() - Set ProboxInhoudLabel.ProductieWeek = $Translate($$EXTDATE^vhLib.DataTypes(Toelevering.GeefDueOutTime(),"DW"),"/","") + + If ($$$Not(Toelevering = "")) { + Set ProboxInhoudLabel.ProductieWeek = $translate($$EXTDATE^vhLib.DataTypes(Toelevering.GeefDueOutTime(),"DW"),"/","") + } Else { + Set ProboxInhoudLabel.ProductieWeek = "" + } + Set ProboxInhoudLabel.CommissieReferentie = Order.GeefCommissieReferentie() - Set ProboxInhoudLabel.Logo = ..LogoBepaler.GeefLogo(Klant) Quit ProboxInhoudLabel