Index: APPS/Halux/Planning/impl/BatchStarter.cls.xml =================================================================== diff -u -r66764 -r70541 --- APPS/Halux/Planning/impl/BatchStarter.cls.xml (.../BatchStarter.cls.xml) (revision 66764) +++ APPS/Halux/Planning/impl/BatchStarter.cls.xml (.../BatchStarter.cls.xml) (revision 70541) @@ -33,8 +33,13 @@ 1 + +APPS.Halux.PPS.DocumentGeneratorService +1 + + -BatchBewaarder:APPS.Halux.Planning.BatchBewaarder,BatchSequentieService:APPS.Halux.common.impl.SequentieService,BatchSequentieVerwijderaar:APPS.Halux.Planning.impl.BatchSequentieVerwijderaar,Logger:vhLib.Logger,DnaCodeService:APPS.Halux.AAP.DnaCodeService,MatService:APPS.Halux.PPS.MatService +BatchBewaarder:APPS.Halux.Planning.BatchBewaarder,BatchSequentieService:APPS.Halux.common.impl.SequentieService,BatchSequentieVerwijderaar:APPS.Halux.Planning.impl.BatchSequentieVerwijderaar,Logger:vhLib.Logger,DnaCodeService:APPS.Halux.AAP.DnaCodeService,MatService:APPS.Halux.PPS.MatService,DocumentGeneratorService:APPS.Halux.PPS.DocumentGeneratorService 1 1 %Status @@ -46,6 +51,7 @@ Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New()) Set ..DnaCodeService = $$$Inject(DnaCodeService,##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService")) Set ..MatService = $$$Inject(MatService, ##class(APPS.Halux.PPS.MatService).%New()) + Set ..DocumentGeneratorService = $$$Inject(DocumentGeneratorService, ##class(APPS.Halux.PPS.DocumentGeneratorService).%New()) Quit $$$OK ]]> @@ -74,6 +80,7 @@ Do ..DnaCodeService.BewaarDnaCodes(..DnaCodeService.MaakDnaCodesVoorBatch(Batch)) Do ..BatchSequentieService.GenereerSequentie(Batch) Do ..MatService.BewaarMattenInfo(Batch) + Do ..DocumentGeneratorService.GenereerDocumenten(Batch) Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).Gestart()) Do ..BatchBewaarder.BewaarBatch(Batch) Do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchGeslotenEvent(Batch.GeefID()) @@ -84,6 +91,7 @@ Do ..BatchSequentieVerwijderaar.VerwijderBatchSequentie(Batch) Do ..DnaCodeService.VerwijderDnaCodesVoorBatch(Batch) Do ..MatService.VerwijderMattenInfo(Batch.GeefID()) + Do ..DocumentGeneratorService.VerwijderDocumenten(Batch.GeefID()) Do ..Logger.Error("StartBatch", "Starten van batch ("_Batch.GeefID()_") is mislukt."_$$$CRLF_$$$CRLF_"Exception:"_$$$CRLF_Exception.ToString()) Do ##class(TECH.ExceptionHandler).Throw(Exception) }