06-12-2022

ECM.JobRunner.Windows/State.vb

@@ -12,6 +12,8 @@ Public Class State
     Private ReadOnly Database As MSSQLServer
 
     Public ReadOnly JobHistory As JobHistory
+    Public ReadOnly JobStatus As JobStatus
+
     Public ReadOnly Property JobTypes As New List(Of JobType)
     Public ReadOnly Property JobDefinitions As New List(Of JobDefinition)
 
@@ -19,6 +21,7 @@ Public Class State
         MyBase.New(pLogConfig)
         Database = pDatabase
         JobHistory = New JobHistory(pLogConfig)
+        JobStatus = New JobStatus(pLogConfig)
 
         _JobTypes = GetJobTypes()
         _JobDefinitions = GetJobDefinitions(_JobTypes)
@@ -68,6 +71,8 @@ Public Class State
         Dim oJobs As New List(Of JobDefinition)
 
         Try
+            Logger.Info("Loading Jobs..")
+
             Dim oSQL As String = "SELECT * FROM TBECM_JR_JOB"
             Dim oTable As DataTable = Database.GetDatatable(oSQL)