Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml =================================================================== diff -u -r70170 -r70177 --- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml (.../PrintEtiketten.cls.xml) (revision 70170) +++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml (.../PrintEtiketten.cls.xml) (revision 70177) @@ -56,13 +56,28 @@ 1 + +DOM.AKP.ToeleveringAPI +1 + + + +DOM.PM.ProductAPI +1 + + + +DOM.PM.IngegevenKenmerkenAPI +1 + + APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper 1 -LabelPrinterImpl:BL.Sys.LabelPrinter,AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",BatchService:APPS.Halux.common.BatchService="",ToeleveringService:DOM.AKP.ToeleveringService="" +LabelPrinterImpl:BL.Sys.LabelPrinter,AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",BatchService:APPS.Halux.common.BatchService="",ToeleveringService:DOM.AKP.ToeleveringService="",ToeleveringAPI:DOM.AKP.ToeleveringAPI="",ProductAPI:DOM.PM.ProductAPI="",IngegevenKenmerkenAPI:DOM.PM.IngegevenKenmerkenAPI="" 1 1 %Status @@ -73,7 +88,10 @@ Set ..AssemblageKarRepository = $$$Inject(AssemblageKarRepository, ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()) Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New()) Set ..ToeleveringService = $$$Inject(ToeleveringService, ##class(DOM.AKP.impl.ToeleveringService).%New()) - Set ..PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepository, ..BatchService, ..ToeleveringService) + Set ..ToeleveringAPI = $$$Inject(ToeleveringAPI, ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()) + Set ..ProductAPI = $$$Inject(ProductAPI, ##class(DOM.DomeinContext).Instance().GeefProductAPI()) + Set ..IngegevenKenmerkenAPI = $$$Inject(IngegevenKenmerkenAPI, ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()) + Set ..PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepository, ..BatchService, ..ToeleveringService, ..ToeleveringAPI, ..ProductAPI, ..IngegevenKenmerkenAPI) Quit $$$OK ]]> Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/Test.cls.xml =================================================================== diff -u -r39927 -r70177 --- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/Test.cls.xml (.../Test.cls.xml) (revision 39927) +++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/Test.cls.xml (.../Test.cls.xml) (revision 70177) @@ -23,6 +23,21 @@ 1 + +vhTest.Mock.DOM.PM.ProductAPI +1 + + + +vhTest.Mock.DOM.AKP.ToeleveringAPI +1 + + + +vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI +1 + + aTestName:%String @@ -67,7 +83,7 @@ #dim AssemblageKarRepositoryStub As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New() Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, $$$ElkeWaarde, "").DanReturn(1) - #dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(..FakeLabelPrinter, AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub) + #dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(..FakeLabelPrinter, AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub, ..IngegevenKenmerkenAPIStub) Do Verwerker.VerwerkUitvoeringInfoLijst(Lijst,##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New()) Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie()) @@ -100,7 +116,7 @@ #dim AssemblageKarRepositoryStub As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New() Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, $$$ElkeWaarde, "").DanReturn(1) - #dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(..FakeLabelPrinter, AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub) + #dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(..FakeLabelPrinter, AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub, ..IngegevenKenmerkenAPIStub) Do Verwerker.VerwerkUitvoeringInfoLijst(Lijst,##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New()) Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie()) @@ -125,7 +141,7 @@ Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, 1, "").DanReturn(1) Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, 2, "").DanReturn(2) - #dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(..FakeLabelPrinter, AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub) + #dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(..FakeLabelPrinter, AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub, ..IngegevenKenmerkenAPIStub) Do Verwerker.VerwerkUitvoeringInfoLijst(Lijst, ##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New()) Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie()) @@ -199,6 +215,36 @@ Quit KlantEtiketData ]]> + + + + Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten.cls.xml =================================================================== diff -u -r61716 -r70177 --- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten.cls.xml (.../KlantEtiketten.cls.xml) (revision 61716) +++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten.cls.xml (.../KlantEtiketten.cls.xml) (revision 70177) @@ -23,8 +23,23 @@ 1 + +DOM.AKP.ToeleveringAPI +1 + + + +DOM.PM.ProductAPI +1 + + + +DOM.PM.IngegevenKenmerkenAPI +1 + + -LabelPrinterImpl:BL.Sys.LabelPrinter,AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",BatchService:APPS.Halux.common.BatchService="",ToeleveringService:DOM.AKP.ToeleveringService="" +LabelPrinterImpl:BL.Sys.LabelPrinter,AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",BatchService:APPS.Halux.common.BatchService="",ToeleveringService:DOM.AKP.ToeleveringService="",ToeleveringAPI:DOM.AKP.ToeleveringAPI="",ProductAPI:DOM.PM.ProductAPI="",IngegevenKenmerkenAPI:DOM.PM.IngegevenKenmerkenAPI="" 1 1 %Status @@ -36,14 +51,17 @@ Set ..LabelPrinterImpl = $$$Inject(LabelPrinterImpl, ##class(BL.Sys.LabelPrinter).%New()) Set ..AssemblageKarRepository = $$$Inject(AssemblageKarRepository, ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()) Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New()) - Set ..ToeleveringService = $$$Inject(ToeleveringService, ##class(DOM.AKP.impl.ToeleveringService).%New()) + Set ..ToeleveringService = $$$Inject(ToeleveringService, ##class(DOM.AKP.impl.ToeleveringService).%New()) + Set ..ToeleveringAPI = $$$Inject(ToeleveringAPI, ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()) + Set ..ProductAPI = $$$Inject(ProductAPI, ##class(DOM.DomeinContext).Instance().GeefProductAPI()) + Set ..IngegevenKenmerkenAPI = $$$Inject(IngegevenKenmerkenAPI, ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()) Quit $$$OK ]]> - Index: vhTest/Fake/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten.cls.xml =================================================================== diff -u -r61716 -r70177 --- vhTest/Fake/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten.cls.xml (.../KlantEtiketten.cls.xml) (revision 61716) +++ vhTest/Fake/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten.cls.xml (.../KlantEtiketten.cls.xml) (revision 70177) @@ -16,25 +16,21 @@ UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst - + UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst - + Listener:APPS.Halux.PPS.UitvoeringInfoLijstVerwerkerListener - + - + @@ -46,14 +42,12 @@ ListenerVerwittiger:APPS.Halux.PPS.impl.UitvoeringInfoListenerVerwittiger - + UitvoeringInfoVerwerker:APPS.Halux.PPS.Activiteit.impl.UitvoeringInfoUitgesteldeVerwerker - + Index: vhTest/Mock/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten.cls.xml =================================================================== diff -u -r61716 -r70177 --- vhTest/Mock/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten.cls.xml (.../KlantEtiketten.cls.xml) (revision 61716) +++ vhTest/Mock/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten.cls.xml (.../KlantEtiketten.cls.xml) (revision 70177) @@ -9,7 +9,7 @@ right -LabelPrinterImpl:BL.Sys.LabelPrinter,AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",BatchService:APPS.Halux.common.BatchService="",ToeleveringService:DOM.AKP.ToeleveringService="" +LabelPrinterImpl:BL.Sys.LabelPrinter,AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",BatchService:APPS.Halux.common.BatchService="",ToeleveringService:DOM.AKP.ToeleveringService="",ToeleveringAPI:DOM.AKP.ToeleveringAPI="",ProductAPI:DOM.PM.ProductAPI="",IngegevenKenmerkenAPI:DOM.PM.IngegevenKenmerkenAPI="" %Status