Index: APPS/Halux/Planning/impl/BatchStarter.cls.xml =================================================================== diff -u -r31266 -r31271 --- APPS/Halux/Planning/impl/BatchStarter.cls.xml (.../BatchStarter.cls.xml) (revision 31266) +++ APPS/Halux/Planning/impl/BatchStarter.cls.xml (.../BatchStarter.cls.xml) (revision 31271) @@ -18,6 +18,11 @@ 1 + +vhLib.Logger +1 + + BatchBewaarder:APPS.Halux.Planning.BatchBewaarder,BatchSequentieService:APPS.Halux.common.impl.SequentieService,BatchSequentieVerwijderaar:APPS.Halux.Planning.impl.BatchSequentieVerwijderaar 1 @@ -28,6 +33,7 @@ set ..BatchBewaarder = $$$Implementation(BatchBewaarder,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchBewaarder()) set ..BatchSequentieService = $$$Implementation(BatchSequentieService,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchSequentieService()) set ..BatchSequentieVerwijderaar = $$$Implementation(BatchSequentieVerwijderaar,##class(APPS.Halux.Planning.impl.BatchSequentieVerwijderaar).%New()) + Set ..Logger = ##class(vhLib.Logger).%New("APPS.Halux.Planning.BatchStarter") Quit $$$OK ]]> @@ -49,6 +55,7 @@ do ..ControleerBatchStatus(Batch) try { + Do ..Logger.Info("StartBatch", "Starten van batch ("_Batch.GeefID()_") is begonnen.") Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).BezigMetStarten()) Do ..BatchBewaarder.BewaarBatch(Batch) Do ..BatchSequentieService.GenereerSequentie(Batch) @@ -61,6 +68,7 @@ If Exception.IsMajor() { do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).StartenGefaald()) do ..BatchSequentieVerwijderaar.VerwijderBatchSequentie(Batch) + Do ..Logger.Error("StartBatch", "Starten van batch ("_Batch.GeefID()_") is mislukt."_$$$CRLF_$$$CRLF_"Exception:"_$$$CRLF_Exception.ToString()) } do ##class(TECH.ExceptionHandler).Throw(Exception) } Index: APPS/Halux/Planning/impl/BatchResetter.cls.xml =================================================================== diff -u -r31270 -r31271 --- APPS/Halux/Planning/impl/BatchResetter.cls.xml (.../BatchResetter.cls.xml) (revision 31270) +++ APPS/Halux/Planning/impl/BatchResetter.cls.xml (.../BatchResetter.cls.xml) (revision 31271) @@ -23,6 +23,11 @@ 1 + +vhLib.Logger +1 + + BatchStarter:APPS.Halux.Planning.BatchStarter,BatchSequentieVerwijderaar:APPS.Halux.Planning.BatchSequentieVerwijderaar,BatchBewaarder:APPS.Halux.Planning.BatchBewaarder 1 @@ -33,6 +38,7 @@ set ..BatchSequentieVerwijderaar = $$$Implementation(BatchSequentieVerwijderaar,##class(APPS.Halux.Planning.impl.BatchSequentieVerwijderaar).%New()) Set ..BatchStarter = $$$Implementation(BatchStarter,##class(APPS.Halux.Planning.impl.BatchStarter).%New()) set ..BatchBewaarder = $$$Implementation(BatchBewaarder,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchBewaarder()) + Set ..Logger = ##class(vhLib.Logger).%New("APPS.Halux.Planning.BatchResetter") Quit $$$OK ]]> @@ -50,6 +56,7 @@ Batch:APPS.Halux.common.Batch