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