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)
}