Index: vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml =================================================================== diff -u -r63452 -r63628 --- vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 63452) +++ vhUnitTest/BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator/GenereerProboxInhoudEtiket/Test.cls.xml (.../Test.cls.xml) (revision 63628) @@ -76,20 +76,16 @@ #dim Toelevering As DOM.AKP.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 LegacyPartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New() - #dim KlantId As %String = "K||1234" - Do LegacyPartijAPIMock.VerwachtMethodCall("GeefKlantPartijID", ..DnaCode1.KlantNummer).DanReturn(KlantId) Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() #dim Klant As TECH.RegisteredObject = $$$DummyObject - Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", KlantId).DanReturn(Klant) + 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, LegacyPartijAPIMock, VerkoopAPIMock, LogoBepalerMock) + 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) @@ -99,7 +95,6 @@ Do HtmlInhoudProboxEtiketBepalerMock.Verifieer() Do OrderAPIMock.Verifieer() Do ToeleveringAPIMock.Verifieer() - Do LegacyPartijAPIMock.Verifieer() Do VerkoopAPIMock.Verifieer() Do LogoBepalerMock.Verifieer() ]]> @@ -127,19 +122,15 @@ Do Toelevering.IndienMethodCall("GeefDueOutTime").DanReturn(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()) Do ToeleveringAPIMock.VerwachtMethodCall("GeefToelevering", ..DnaCode1.Toelevering).DanReturn(Toelevering) - Set LegacyPartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New() - #dim KlantId As %String = "K||1234" - Do LegacyPartijAPIMock.VerwachtMethodCall("GeefKlantPartijID", ..DnaCode1.KlantNummer).DanReturn(KlantId) - Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New() #dim Klant As TECH.RegisteredObject = $$$DummyObject - Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", KlantId).DanReturn(Klant) + 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, LegacyPartijAPIMock, VerkoopAPIMock, LogoBepalerMock) + 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) @@ -149,7 +140,6 @@ Do HtmlInhoudProboxEtiketBepalerMock.Verifieer() Do OrderAPIMock.Verifieer() Do ToeleveringAPIMock.Verifieer() - Do LegacyPartijAPIMock.Verifieer() Do VerkoopAPIMock.Verifieer() Do LogoBepalerMock.Verifieer() ]]> Index: BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml =================================================================== diff -u -r63451 -r63628 --- BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 63451) +++ BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml (.../ProboxInhoudEtiketGenerator.cls.xml) (revision 63628) @@ -33,13 +33,8 @@ 1 - -DOM.PARTIJ.LegacyPartijAPI -1 - - -PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler="",OrderAPI:DOM.VKP.OrderAPI="",ToeleveringAPI:DOM.AKP.ToeleveringAPI="",LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI="",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.PPS.common.impl.OnderdelendoosLogoBepaler="" 1 1 %Status @@ -49,7 +44,6 @@ Set ..HtmlInhoudProboxEtiketBepaler = $$$Inject(HtmlInhoudProboxEtiketBepaler, ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler).%New()) Set ..OrderAPI = $$$Inject(OrderAPI, ##class(DOM.DomeinContext).Instance().GeefOrderAPI()) Set ..ToeleveringAPI = $$$Inject(ToeleveringAPI, ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()) - Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI, ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New()) Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.VKP.impl.VerkoopAPI).%New()) Set ..LogoBepaler = $$$Inject(LogoBepaler, ##class(BL.PPS.common.impl.OnderdelendoosLogoBepaler).%New()) Quit $$$OK @@ -72,14 +66,13 @@ #dim PalletId As %String = DnaCode.PalletCode #dim ToeleveringId As %String = DnaCode.Toelevering - #dim KlantNummer As %String = DnaCode.KlantNummer - #dim Partij As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(DnaCode.KlantNummer) + #dim KlantId As %String = DnaCode.KlantNummer + #dim Partij As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(KlantId) #dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(DnaCode.OrderId) #dim Toelevering as DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringId) - #dim KlantID As DOM.VKP.VanHoeckeKlantID = ..LegacyPartijAPI.GeefKlantPartijID(KlantNummer) - #dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantID) + #dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantId) Set ProboxInhoudLabel = ##class(BL.Etiket.ProboxInhoud).%New() Set ProboxInhoudLabel.Device = LabelDevice