35 lines
1021 B
VB.net
35 lines
1021 B
VB.net
Imports DigitalData.Modules.Base
|
|
Imports DigitalData.Modules.Logging
|
|
Imports ECM.JobRunner.Common
|
|
|
|
Namespace Scheduler
|
|
Public Class JobHistory
|
|
Inherits BaseClass
|
|
|
|
Public ReadOnly Entries As New List(Of HistoryItem)
|
|
|
|
Public Sub New(pLogConfig As LogConfig)
|
|
MyBase.New(pLogConfig)
|
|
End Sub
|
|
|
|
Public Sub AddSuccess(pName As String, pMessage As String)
|
|
Entries.Add(New HistoryItem With {
|
|
.CreatedAt = Now,
|
|
.JobName = pName,
|
|
.Successful = True,
|
|
.ErrorMessage = Nothing,
|
|
.Message = pMessage
|
|
})
|
|
End Sub
|
|
|
|
Public Sub AddError(pName As String, ErrorMessage As String)
|
|
Entries.Add(New HistoryItem With {
|
|
.CreatedAt = Now,
|
|
.JobName = pName,
|
|
.Successful = False,
|
|
.ErrorMessage = ErrorMessage,
|
|
.Message = ""
|
|
})
|
|
End Sub
|
|
End Class
|
|
End Namespace |