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, .ProfileDefinitions = New GetJobConfigResponse.ProfileDefinitionConfig With { .ImportProfiles = State.ProfileDefintions.ImportProfiles }, .WindreamObjectTypes = State.ObjectTypes } End Function End Class Public Class GetJobConfigResponse Inherits Base.BaseResponse Public Property JobTypes As List(Of JobType) Public Property WindreamObjectTypes As List(Of ObjectType) Public Property JobDefinitions As List(Of JobDefinition) Public Property ProfileDefinitions As New ProfileDefinitionConfig Public Class ProfileDefinitionConfig Public Property ImportProfiles As List(Of ImportProfile) End Class End Class End Class