26 lines
754 B
VB.net
26 lines
754 B
VB.net
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.Logging
|
|
Imports ECM.JobRunner.Common
|
|
Imports System.Runtime.Serialization
|
|
|
|
Public Class GetJobHistory
|
|
Public Class GetJobHistoryMethod
|
|
Inherits Base.BaseMethod
|
|
|
|
Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pState As State)
|
|
MyBase.New(pLogConfig, pDatabase, pState)
|
|
End Sub
|
|
|
|
Public Function Run() As GetJobHistoryResponse
|
|
Return New GetJobHistoryResponse With {.Items = State.JobHistory.Entries}
|
|
End Function
|
|
End Class
|
|
|
|
Public Class GetJobHistoryResponse
|
|
Inherits Base.BaseResponse
|
|
|
|
<DataMember>
|
|
Public Property Items As List(Of HistoryItem)
|
|
End Class
|
|
End Class
|