57 lines
1.7 KiB
VB.net
57 lines
1.7 KiB
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
|
|
Try
|
|
Return New GetJobConfigResponse With {
|
|
.JobTypes = State.JobTypes,
|
|
.JobDefinitions = State.JobDefinitions,
|
|
.ProfileDefinitions = New GetJobConfigResponse.ProfileDefinitionConfig With {
|
|
.ImportProfiles = State.ProfileDefintions.ImportProfiles
|
|
},
|
|
.WindreamObjectTypes = State.ObjectTypes
|
|
}
|
|
Catch ex As Exception
|
|
Logger.Error(ex)
|
|
Return New GetJobConfigResponse() With {.OK = False, .ErrorMessage = ex.Message}
|
|
End Try
|
|
End Function
|
|
|
|
|
|
End Class
|
|
|
|
Public Class GetJobConfigResponse
|
|
Inherits Base.BaseResponse
|
|
|
|
<DataMember>
|
|
Public Property JobTypes As List(Of JobType)
|
|
|
|
<DataMember>
|
|
Public Property WindreamObjectTypes As List(Of ObjectType)
|
|
|
|
<DataMember>
|
|
Public Property JobDefinitions As List(Of JobDefinition)
|
|
|
|
<DataMember>
|
|
Public Property ProfileDefinitions As New ProfileDefinitionConfig
|
|
|
|
Public Class ProfileDefinitionConfig
|
|
<DataMember>
|
|
Public Property ImportProfiles As List(Of ImportProfile)
|
|
End Class
|
|
End Class
|
|
|
|
End Class
|
|
|