37 lines
955 B
VB.net
37 lines
955 B
VB.net
Imports System.Runtime.Serialization
|
|
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.Logging
|
|
Imports DigitalData.Modules.Language
|
|
Imports ECM.JobRunner.Common
|
|
|
|
Public Class GetJobConfig
|
|
Public Class GetJobConfigMethod
|
|
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 GetJobConfigResponse
|
|
Return New GetJobConfigResponse With {
|
|
.JobTypes = State.JobTypes,
|
|
.JobDefinitions = State.JobDefinitions
|
|
}
|
|
End Function
|
|
|
|
|
|
End Class
|
|
|
|
Public Class GetJobConfigResponse
|
|
Inherits Base.BaseResponse
|
|
|
|
<DataMember>
|
|
Public Property JobTypes As List(Of JobType)
|
|
|
|
<DataMember>
|
|
Public Property JobDefinitions As List(Of JobDefinition)
|
|
End Class
|
|
|
|
End Class
|
|
|