'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On Imports System Imports System.Runtime.Serialization Namespace JobRunnerReference _ Partial Public Class BaseBaseResponse Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private ErrorDetailsField As String _ Private ErrorMessageField As String _ Private OKField As Boolean _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property ErrorDetails() As String Get Return Me.ErrorDetailsField End Get Set If (Object.ReferenceEquals(Me.ErrorDetailsField, value) <> true) Then Me.ErrorDetailsField = value Me.RaisePropertyChanged("ErrorDetails") End If End Set End Property _ Public Property ErrorMessage() As String Get Return Me.ErrorMessageField End Get Set If (Object.ReferenceEquals(Me.ErrorMessageField, value) <> true) Then Me.ErrorMessageField = value Me.RaisePropertyChanged("ErrorMessage") End If End Set End Property _ Public Property OK() As Boolean Get Return Me.OKField End Get Set If (Me.OKField.Equals(value) <> true) Then Me.OKField = value Me.RaisePropertyChanged("OK") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class UpdateJobUpdateJobResponse Inherits JobRunnerReference.BaseBaseResponse End Class _ Partial Public Class GetJobConfigGetJobConfigResponse Inherits JobRunnerReference.BaseBaseResponse _ Private JobDefinitionsField() As JobRunnerReference.JobDefinition _ Private JobTypesField() As JobRunnerReference.JobType _ Private WindreamObjectTypesField() As JobRunnerReference.ObjectType _ Public Property JobDefinitions() As JobRunnerReference.JobDefinition() Get Return Me.JobDefinitionsField End Get Set If (Object.ReferenceEquals(Me.JobDefinitionsField, value) <> true) Then Me.JobDefinitionsField = value Me.RaisePropertyChanged("JobDefinitions") End If End Set End Property _ Public Property JobTypes() As JobRunnerReference.JobType() Get Return Me.JobTypesField End Get Set If (Object.ReferenceEquals(Me.JobTypesField, value) <> true) Then Me.JobTypesField = value Me.RaisePropertyChanged("JobTypes") End If End Set End Property _ Public Property WindreamObjectTypes() As JobRunnerReference.ObjectType() Get Return Me.WindreamObjectTypesField End Get Set If (Object.ReferenceEquals(Me.WindreamObjectTypesField, value) <> true) Then Me.WindreamObjectTypesField = value Me.RaisePropertyChanged("WindreamObjectTypes") End If End Set End Property End Class _ Partial Public Class GetJobStatusGetJobStatusResponse Inherits JobRunnerReference.BaseBaseResponse _ Private HistoryItemsField() As JobRunnerReference.HistoryItem _ Private StatusItemsField() As JobRunnerReference.StatusItem _ Public Property HistoryItems() As JobRunnerReference.HistoryItem() Get Return Me.HistoryItemsField End Get Set If (Object.ReferenceEquals(Me.HistoryItemsField, value) <> true) Then Me.HistoryItemsField = value Me.RaisePropertyChanged("HistoryItems") End If End Set End Property _ Public Property StatusItems() As JobRunnerReference.StatusItem() Get Return Me.StatusItemsField End Get Set If (Object.ReferenceEquals(Me.StatusItemsField, value) <> true) Then Me.StatusItemsField = value Me.RaisePropertyChanged("StatusItems") End If End Set End Property End Class _ Partial Public Class HistoryItem Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private CreatedAtField As Date _ Private ErrorMessageField As String _ Private JobNameField As String _ Private MessageField As String _ Private SuccessfulField As Boolean _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property CreatedAt() As Date Get Return Me.CreatedAtField End Get Set If (Me.CreatedAtField.Equals(value) <> true) Then Me.CreatedAtField = value Me.RaisePropertyChanged("CreatedAt") End If End Set End Property _ Public Property ErrorMessage() As String Get Return Me.ErrorMessageField End Get Set If (Object.ReferenceEquals(Me.ErrorMessageField, value) <> true) Then Me.ErrorMessageField = value Me.RaisePropertyChanged("ErrorMessage") End If End Set End Property _ Public Property JobName() As String Get Return Me.JobNameField End Get Set If (Object.ReferenceEquals(Me.JobNameField, value) <> true) Then Me.JobNameField = value Me.RaisePropertyChanged("JobName") End If End Set End Property _ Public Property Message() As String Get Return Me.MessageField End Get Set If (Object.ReferenceEquals(Me.MessageField, value) <> true) Then Me.MessageField = value Me.RaisePropertyChanged("Message") End If End Set End Property _ Public Property Successful() As Boolean Get Return Me.SuccessfulField End Get Set If (Me.SuccessfulField.Equals(value) <> true) Then Me.SuccessfulField = value Me.RaisePropertyChanged("Successful") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class StatusItem Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private CompleteTimeField As Date _ Private ExecutingField As Boolean _ Private ExecutionTimeField As System.TimeSpan _ Private IdField As String _ Private NameField As String _ Private ProgressCurrentField As Integer _ Private ProgressTotalField As Integer _ Private StartTimeField As Date _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property CompleteTime() As Date Get Return Me.CompleteTimeField End Get Set If (Me.CompleteTimeField.Equals(value) <> true) Then Me.CompleteTimeField = value Me.RaisePropertyChanged("CompleteTime") End If End Set End Property _ Public Property Executing() As Boolean Get Return Me.ExecutingField End Get Set If (Me.ExecutingField.Equals(value) <> true) Then Me.ExecutingField = value Me.RaisePropertyChanged("Executing") End If End Set End Property _ Public Property ExecutionTime() As System.TimeSpan Get Return Me.ExecutionTimeField End Get Set If (Me.ExecutionTimeField.Equals(value) <> true) Then Me.ExecutionTimeField = value Me.RaisePropertyChanged("ExecutionTime") End If End Set End Property _ Public Property Id() As String Get Return Me.IdField End Get Set If (Object.ReferenceEquals(Me.IdField, value) <> true) Then Me.IdField = value Me.RaisePropertyChanged("Id") End If End Set End Property _ Public Property Name() As String Get Return Me.NameField End Get Set If (Object.ReferenceEquals(Me.NameField, value) <> true) Then Me.NameField = value Me.RaisePropertyChanged("Name") End If End Set End Property _ Public Property ProgressCurrent() As Integer Get Return Me.ProgressCurrentField End Get Set If (Me.ProgressCurrentField.Equals(value) <> true) Then Me.ProgressCurrentField = value Me.RaisePropertyChanged("ProgressCurrent") End If End Set End Property _ Public Property ProgressTotal() As Integer Get Return Me.ProgressTotalField End Get Set If (Me.ProgressTotalField.Equals(value) <> true) Then Me.ProgressTotalField = value Me.RaisePropertyChanged("ProgressTotal") End If End Set End Property _ Public Property StartTime() As Date Get Return Me.StartTimeField End Get Set If (Me.StartTimeField.Equals(value) <> true) Then Me.StartTimeField = value Me.RaisePropertyChanged("StartTime") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class JobDefinition Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private ActiveField As Boolean _ Private CronScheduleField As String _ Private IdField As Integer _ Private NameField As String _ Private TypeField As JobRunnerReference.JobType _ Private TypeIdField As Integer _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property Active() As Boolean Get Return Me.ActiveField End Get Set If (Me.ActiveField.Equals(value) <> true) Then Me.ActiveField = value Me.RaisePropertyChanged("Active") End If End Set End Property _ Public Property CronSchedule() As String Get Return Me.CronScheduleField End Get Set If (Object.ReferenceEquals(Me.CronScheduleField, value) <> true) Then Me.CronScheduleField = value Me.RaisePropertyChanged("CronSchedule") End If End Set End Property _ Public Property Id() As Integer Get Return Me.IdField End Get Set If (Me.IdField.Equals(value) <> true) Then Me.IdField = value Me.RaisePropertyChanged("Id") End If End Set End Property _ Public Property Name() As String Get Return Me.NameField End Get Set If (Object.ReferenceEquals(Me.NameField, value) <> true) Then Me.NameField = value Me.RaisePropertyChanged("Name") End If End Set End Property _ Public Property Type() As JobRunnerReference.JobType Get Return Me.TypeField End Get Set If (Object.ReferenceEquals(Me.TypeField, value) <> true) Then Me.TypeField = value Me.RaisePropertyChanged("Type") End If End Set End Property _ Public Property TypeId() As Integer Get Return Me.TypeIdField End Get Set If (Me.TypeIdField.Equals(value) <> true) Then Me.TypeIdField = value Me.RaisePropertyChanged("TypeId") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class JobType Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private ActiveField As Boolean _ Private IdField As Integer _ Private NameField As String _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property Active() As Boolean Get Return Me.ActiveField End Get Set If (Me.ActiveField.Equals(value) <> true) Then Me.ActiveField = value Me.RaisePropertyChanged("Active") End If End Set End Property _ Public Property Id() As Integer Get Return Me.IdField End Get Set If (Me.IdField.Equals(value) <> true) Then Me.IdField = value Me.RaisePropertyChanged("Id") End If End Set End Property _ Public Property Name() As String Get Return Me.NameField End Get Set If (Object.ReferenceEquals(Me.NameField, value) <> true) Then Me.NameField = value Me.RaisePropertyChanged("Name") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ObjectType Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private IndexesField() As String _ Private NameField As String _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property Indexes() As String() Get Return Me.IndexesField End Get Set If (Object.ReferenceEquals(Me.IndexesField, value) <> true) Then Me.IndexesField = value Me.RaisePropertyChanged("Indexes") End If End Set End Property _ Public Property Name() As String Get Return Me.NameField End Get Set If (Object.ReferenceEquals(Me.NameField, value) <> true) Then Me.NameField = value Me.RaisePropertyChanged("Name") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class UpdateJobUpdateJobRequest Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private ActionField As JobRunnerReference.UpdateJobUpdateJobRequest.UpdateJobAction _ Private JobField As JobRunnerReference.JobDefinition _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property Action() As JobRunnerReference.UpdateJobUpdateJobRequest.UpdateJobAction Get Return Me.ActionField End Get Set If (Me.ActionField.Equals(value) <> true) Then Me.ActionField = value Me.RaisePropertyChanged("Action") End If End Set End Property _ Public Property Job() As JobRunnerReference.JobDefinition Get Return Me.JobField End Get Set If (Object.ReferenceEquals(Me.JobField, value) <> true) Then Me.JobField = value Me.RaisePropertyChanged("Job") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub _ Public Enum UpdateJobAction As Integer _ Create = 0 _ Update = 1 _ Delete = 2 End Enum End Class _ Public Interface IEDMIService _ Function GetHeartbeat() As Date _ Function GetHeartbeatAsync() As System.Threading.Tasks.Task(Of Date) _ Function GetJobStatus() As JobRunnerReference.GetJobStatusGetJobStatusResponse _ Function GetJobStatusAsync() As System.Threading.Tasks.Task(Of JobRunnerReference.GetJobStatusGetJobStatusResponse) _ Function UpdateJob(ByVal pData As JobRunnerReference.UpdateJobUpdateJobRequest) As JobRunnerReference.UpdateJobUpdateJobResponse _ Function UpdateJobAsync(ByVal pData As JobRunnerReference.UpdateJobUpdateJobRequest) As System.Threading.Tasks.Task(Of JobRunnerReference.UpdateJobUpdateJobResponse) _ Function GetJobConfig() As JobRunnerReference.GetJobConfigGetJobConfigResponse _ Function GetJobConfigAsync() As System.Threading.Tasks.Task(Of JobRunnerReference.GetJobConfigGetJobConfigResponse) End Interface _ Public Interface IEDMIServiceChannel Inherits JobRunnerReference.IEDMIService, System.ServiceModel.IClientChannel End Interface _ Partial Public Class EDMIServiceClient Inherits System.ServiceModel.ClientBase(Of JobRunnerReference.IEDMIService) Implements JobRunnerReference.IEDMIService Public Sub New() MyBase.New End Sub Public Sub New(ByVal endpointConfigurationName As String) MyBase.New(endpointConfigurationName) End Sub Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String) MyBase.New(endpointConfigurationName, remoteAddress) End Sub Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress) MyBase.New(endpointConfigurationName, remoteAddress) End Sub Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress) MyBase.New(binding, remoteAddress) End Sub Public Function GetHeartbeat() As Date Implements JobRunnerReference.IEDMIService.GetHeartbeat Return MyBase.Channel.GetHeartbeat End Function Public Function GetHeartbeatAsync() As System.Threading.Tasks.Task(Of Date) Implements JobRunnerReference.IEDMIService.GetHeartbeatAsync Return MyBase.Channel.GetHeartbeatAsync End Function Public Function GetJobStatus() As JobRunnerReference.GetJobStatusGetJobStatusResponse Implements JobRunnerReference.IEDMIService.GetJobStatus Return MyBase.Channel.GetJobStatus End Function Public Function GetJobStatusAsync() As System.Threading.Tasks.Task(Of JobRunnerReference.GetJobStatusGetJobStatusResponse) Implements JobRunnerReference.IEDMIService.GetJobStatusAsync Return MyBase.Channel.GetJobStatusAsync End Function Public Function UpdateJob(ByVal pData As JobRunnerReference.UpdateJobUpdateJobRequest) As JobRunnerReference.UpdateJobUpdateJobResponse Implements JobRunnerReference.IEDMIService.UpdateJob Return MyBase.Channel.UpdateJob(pData) End Function Public Function UpdateJobAsync(ByVal pData As JobRunnerReference.UpdateJobUpdateJobRequest) As System.Threading.Tasks.Task(Of JobRunnerReference.UpdateJobUpdateJobResponse) Implements JobRunnerReference.IEDMIService.UpdateJobAsync Return MyBase.Channel.UpdateJobAsync(pData) End Function Public Function GetJobConfig() As JobRunnerReference.GetJobConfigGetJobConfigResponse Implements JobRunnerReference.IEDMIService.GetJobConfig Return MyBase.Channel.GetJobConfig End Function Public Function GetJobConfigAsync() As System.Threading.Tasks.Task(Of JobRunnerReference.GetJobConfigGetJobConfigResponse) Implements JobRunnerReference.IEDMIService.GetJobConfigAsync Return MyBase.Channel.GetJobConfigAsync End Function End Class End Namespace