diff --git a/EDMIAPI/Client.vb b/EDMIAPI/Client.vb index ee2e3bf6..502a6e85 100644 --- a/EDMIAPI/Client.vb +++ b/EDMIAPI/Client.vb @@ -1004,7 +1004,18 @@ Public Class Client Throw ex End Try End Function - + ''' + ''' Returns a live monitoring snapshot from the service (active sessions, users) + ''' + Public Function GetServiceStatus() As ServiceStatusResponse + EnsureAvailable() + Try + Return _Channel.GetServiceStatus() + Catch ex As Exception + Logger.Error(ex) + Return Nothing + End Try + End Function #Region "Private Functions" @@ -1162,7 +1173,7 @@ Public Class Client Public Class ClientStatus Public Property IsOnline As Boolean - Public Property ClientId As String ' ← Neu + Public Property ClientId As String Public Property ClientName As String Public Property ServerAddress As String Public Property ChannelState As String @@ -1186,6 +1197,6 @@ Public Class Client "[ClientStatus] Client=[{0}] Id=[{1}] Online=[{2}] Server=[{3}] Channel=[{4}]", ClientName, ClientId, IsOnline, ServerAddress, ChannelState) End Function - End Class + End Class ' ← ClientStatus endet hier – kein GetServiceStatus mehr drin End Class diff --git a/EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb b/EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb index b7ca66f0..2aaa8bbb 100644 --- a/EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb +++ b/EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb @@ -15,94 +15,94 @@ Imports System Imports System.Runtime.Serialization Namespace EDMIServiceReference - - _ + + Partial Public Class BaseResponse 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 + 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 + 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 + 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 + 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 @@ -110,610 +110,703 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class TableResult Inherits EDMIServiceReference.BaseResponse - - _ + + Private TableField As System.Data.DataTable - - _ + + Public Property Table() As System.Data.DataTable Get Return Me.TableField End Get Set - If (Object.ReferenceEquals(Me.TableField, value) <> true) Then - Me.TableField = value + If (Object.ReferenceEquals(Me.TableField, Value) <> True) Then + Me.TableField = Value Me.RaisePropertyChanged("Table") End If End Set End Property End Class - - _ + + Partial Public Class ScalarResult Inherits EDMIServiceReference.BaseResponse - - _ + + Private ScalarField As Object - - _ + + Public Property Scalar() As Object Get Return Me.ScalarField End Get Set - If (Object.ReferenceEquals(Me.ScalarField, value) <> true) Then - Me.ScalarField = value + If (Object.ReferenceEquals(Me.ScalarField, Value) <> True) Then + Me.ScalarField = Value Me.RaisePropertyChanged("Scalar") End If End Set End Property End Class - - _ + + Partial Public Class NonQueryResult Inherits EDMIServiceReference.BaseResponse End Class - - _ + + Partial Public Class GetDatatableResponse Inherits EDMIServiceReference.BaseResponse - - _ + + Private TableField As System.Data.DataTable - - _ + + Public Property Table() As System.Data.DataTable Get Return Me.TableField End Get Set - If (Object.ReferenceEquals(Me.TableField, value) <> true) Then - Me.TableField = value + If (Object.ReferenceEquals(Me.TableField, Value) <> True) Then + Me.TableField = Value Me.RaisePropertyChanged("Table") End If End Set End Property End Class - - _ + + Partial Public Class GetScalarValueResponse Inherits EDMIServiceReference.BaseResponse - - _ + + Private ScalarField As Object - - _ + + Public Property Scalar() As Object Get Return Me.ScalarField End Get Set - If (Object.ReferenceEquals(Me.ScalarField, value) <> true) Then - Me.ScalarField = value + If (Object.ReferenceEquals(Me.ScalarField, Value) <> True) Then + Me.ScalarField = Value Me.RaisePropertyChanged("Scalar") End If End Set End Property End Class - - _ + + Partial Public Class ExecuteNonQueryResponse Inherits EDMIServiceReference.BaseResponse - - _ + + Private ResultField As Boolean - - _ + + Public Property Result() As Boolean Get Return Me.ResultField End Get Set - If (Me.ResultField.Equals(value) <> true) Then - Me.ResultField = value + If (Me.ResultField.Equals(Value) <> True) Then + Me.ResultField = Value Me.RaisePropertyChanged("Result") End If End Set End Property End Class - - _ + + Partial Public Class NewFileResponse Inherits EDMIServiceReference.BaseResponse - - _ + + Private ObjectIdField As Long - - _ + + Public Property ObjectId() As Long Get Return Me.ObjectIdField End Get Set - If (Me.ObjectIdField.Equals(value) <> true) Then - Me.ObjectIdField = value + If (Me.ObjectIdField.Equals(Value) <> True) Then + Me.ObjectIdField = Value Me.RaisePropertyChanged("ObjectId") End If End Set End Property End Class - - _ + + Partial Public Class UpdateFileResponse Inherits EDMIServiceReference.BaseResponse - - _ + + Private ObjectIdField As Long - - _ + + Public Property ObjectId() As Long Get Return Me.ObjectIdField End Get Set - If (Me.ObjectIdField.Equals(value) <> true) Then - Me.ObjectIdField = value + If (Me.ObjectIdField.Equals(Value) <> True) Then + Me.ObjectIdField = Value Me.RaisePropertyChanged("ObjectId") End If End Set End Property End Class - - _ + + Partial Public Class SetAttributeValueResponse Inherits EDMIServiceReference.BaseResponse - - _ + + Private ObjectIdField As Long - - _ + + Public Property ObjectId() As Long Get Return Me.ObjectIdField End Get Set - If (Me.ObjectIdField.Equals(value) <> true) Then - Me.ObjectIdField = value + If (Me.ObjectIdField.Equals(Value) <> True) Then + Me.ObjectIdField = Value Me.RaisePropertyChanged("ObjectId") End If End Set End Property End Class - - _ + + Partial Public Class GetAttributeValueResponse Inherits EDMIServiceReference.BaseResponse - - _ + + Private ObjectIdField As Long - - _ + + Private ValueField As Object - - _ + + Public Property ObjectId() As Long Get Return Me.ObjectIdField End Get Set - If (Me.ObjectIdField.Equals(value) <> true) Then - Me.ObjectIdField = value + If (Me.ObjectIdField.Equals(Value) <> True) Then + Me.ObjectIdField = Value Me.RaisePropertyChanged("ObjectId") End If End Set End Property - - _ + + Public Property Value() As Object Get Return Me.ValueField End Get Set - If (Object.ReferenceEquals(Me.ValueField, value) <> true) Then - Me.ValueField = value + If (Object.ReferenceEquals(Me.ValueField, Value) <> True) Then + Me.ValueField = Value Me.RaisePropertyChanged("Value") End If End Set End Property End Class - - _ + + Partial Public Class GetFileObjectResponse Inherits EDMIServiceReference.BaseResponse - - _ + + Private FileObjectField As EDMIServiceReference.FileObject - - _ + + Public Property FileObject() As EDMIServiceReference.FileObject Get Return Me.FileObjectField End Get Set - If (Object.ReferenceEquals(Me.FileObjectField, value) <> true) Then - Me.FileObjectField = value + If (Object.ReferenceEquals(Me.FileObjectField, Value) <> True) Then + Me.FileObjectField = Value Me.RaisePropertyChanged("FileObject") End If End Set End Property End Class - - _ + + Partial Public Class CheckInOutFileResponse Inherits EDMIServiceReference.BaseResponse - - _ + + Private ObjectIdField As Long - - _ + + Public Property ObjectId() As Long Get Return Me.ObjectIdField End Get Set - If (Me.ObjectIdField.Equals(value) <> true) Then - Me.ObjectIdField = value + If (Me.ObjectIdField.Equals(Value) <> True) Then + Me.ObjectIdField = Value Me.RaisePropertyChanged("ObjectId") End If End Set End Property End Class - - _ + + Partial Public Class ImportFileResponse Inherits EDMIServiceReference.BaseResponse - - _ + + Private ObjectIdField As Long - - _ + + Public Property ObjectId() As Long Get Return Me.ObjectIdField End Get Set - If (Me.ObjectIdField.Equals(value) <> true) Then - Me.ObjectIdField = value + If (Me.ObjectIdField.Equals(Value) <> True) Then + Me.ObjectIdField = Value Me.RaisePropertyChanged("ObjectId") End If End Set End Property End Class - - _ + + Partial Public Class Globix_ImportFileResponse Inherits EDMIServiceReference.BaseResponse - - _ + + Private ObjectIdField As Long - - _ + + Public Property ObjectId() As Long Get Return Me.ObjectIdField End Get Set - If (Me.ObjectIdField.Equals(value) <> true) Then - Me.ObjectIdField = value + If (Me.ObjectIdField.Equals(Value) <> True) Then + Me.ObjectIdField = Value Me.RaisePropertyChanged("ObjectId") End If End Set End Property End Class - - _ + + Partial Public Class GetClientConfigResponse Inherits EDMIServiceReference.BaseResponse - - _ + + Private ClientConfigField As EDMIServiceReference.GlobalStateClientConfiguration - - _ + + Public Property ClientConfig() As EDMIServiceReference.GlobalStateClientConfiguration Get Return Me.ClientConfigField End Get Set - If (Object.ReferenceEquals(Me.ClientConfigField, value) <> true) Then - Me.ClientConfigField = value + If (Object.ReferenceEquals(Me.ClientConfigField, Value) <> True) Then + Me.ClientConfigField = Value Me.RaisePropertyChanged("ClientConfig") End If End Set End Property End Class - - _ - Partial Public Class GlobalStateClientConfiguration + + Partial Public Class ServiceStatusResponse Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ - Private ConnectionStringECMField As String - - _ - Private ConnectionStringIDBField As String - - _ - Private DocumentTypesField() As EDMIServiceReference.GlobalStateDoctype - - _ - Private ForceDirectDatabaseAccessField As Boolean - - _ + + + Private ActiveSessionCountField As Integer + + + Private ActiveUsersField As System.Collections.Generic.List(Of String) + + + Private ActiveSessionsField As System.Collections.Generic.Dictionary(Of String, String) + + + Private TimestampField 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 + Me.extensionDataField = Value End Set End Property - - _ + + + Public Property ActiveSessionCount() As Integer + Get + Return Me.ActiveSessionCountField + End Get + Set + If (Me.ActiveSessionCountField.Equals(Value) <> True) Then + Me.ActiveSessionCountField = Value + Me.RaisePropertyChanged("ActiveSessionCount") + End If + End Set + End Property + + + Public Property ActiveUsers() As System.Collections.Generic.List(Of String) + Get + Return Me.ActiveUsersField + End Get + Set + If (Object.ReferenceEquals(Me.ActiveUsersField, Value) <> True) Then + Me.ActiveUsersField = Value + Me.RaisePropertyChanged("ActiveUsers") + End If + End Set + End Property + + + Public Property ActiveSessions() As System.Collections.Generic.Dictionary(Of String, String) + Get + Return Me.ActiveSessionsField + End Get + Set + If (Object.ReferenceEquals(Me.ActiveSessionsField, Value) <> True) Then + Me.ActiveSessionsField = Value + Me.RaisePropertyChanged("ActiveSessions") + End If + End Set + End Property + + + Public Property Timestamp() As Date + Get + Return Me.TimestampField + End Get + Set + If (Me.TimestampField.Equals(Value) <> True) Then + Me.TimestampField = Value + Me.RaisePropertyChanged("Timestamp") + 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 GlobalStateClientConfiguration + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + + Private ConnectionStringECMField As String + + + Private ConnectionStringIDBField As String + + + Private DocumentTypesField() As EDMIServiceReference.GlobalStateDoctype + + + Private ForceDirectDatabaseAccessField 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 ConnectionStringECM() As String Get Return Me.ConnectionStringECMField End Get Set - If (Object.ReferenceEquals(Me.ConnectionStringECMField, value) <> true) Then - Me.ConnectionStringECMField = value + If (Object.ReferenceEquals(Me.ConnectionStringECMField, Value) <> True) Then + Me.ConnectionStringECMField = Value Me.RaisePropertyChanged("ConnectionStringECM") End If End Set End Property - - _ + + Public Property ConnectionStringIDB() As String Get Return Me.ConnectionStringIDBField End Get Set - If (Object.ReferenceEquals(Me.ConnectionStringIDBField, value) <> true) Then - Me.ConnectionStringIDBField = value + If (Object.ReferenceEquals(Me.ConnectionStringIDBField, Value) <> True) Then + Me.ConnectionStringIDBField = Value Me.RaisePropertyChanged("ConnectionStringIDB") End If End Set End Property - - _ + + Public Property DocumentTypes() As EDMIServiceReference.GlobalStateDoctype() Get Return Me.DocumentTypesField End Get Set - If (Object.ReferenceEquals(Me.DocumentTypesField, value) <> true) Then - Me.DocumentTypesField = value + If (Object.ReferenceEquals(Me.DocumentTypesField, Value) <> True) Then + Me.DocumentTypesField = Value Me.RaisePropertyChanged("DocumentTypes") End If End Set End Property - - _ + + Public Property ForceDirectDatabaseAccess() As Boolean Get Return Me.ForceDirectDatabaseAccessField End Get Set - If (Me.ForceDirectDatabaseAccessField.Equals(value) <> true) Then - Me.ForceDirectDatabaseAccessField = value + If (Me.ForceDirectDatabaseAccessField.Equals(Value) <> True) Then + Me.ForceDirectDatabaseAccessField = Value Me.RaisePropertyChanged("ForceDirectDatabaseAccess") 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 @@ -721,62 +814,62 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class GlobalStateDoctype Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private FileChangedActionField 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 + Me.extensionDataField = Value End Set End Property - - _ + + Public Property FileChangedAction() As String Get Return Me.FileChangedActionField End Get Set - If (Object.ReferenceEquals(Me.FileChangedActionField, value) <> true) Then - Me.FileChangedActionField = value + If (Object.ReferenceEquals(Me.FileChangedActionField, Value) <> True) Then + Me.FileChangedActionField = Value Me.RaisePropertyChanged("FileChangedAction") 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 + 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 @@ -784,91 +877,91 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class UnexpectedErrorFault Inherits EDMIServiceReference.BaseFault End Class - - _ + + Partial Public Class BaseFault Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private ErrorMessageField As String - - _ + + Private InnerExceptionField As System.Exception - - _ + + Private IsRecoverableField 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 + Me.extensionDataField = Value 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 + If (Object.ReferenceEquals(Me.ErrorMessageField, Value) <> True) Then + Me.ErrorMessageField = Value Me.RaisePropertyChanged("ErrorMessage") End If End Set End Property - - _ + + Public Property InnerException() As System.Exception Get Return Me.InnerExceptionField End Get Set - If (Object.ReferenceEquals(Me.InnerExceptionField, value) <> true) Then - Me.InnerExceptionField = value + If (Object.ReferenceEquals(Me.InnerExceptionField, Value) <> True) Then + Me.InnerExceptionField = Value Me.RaisePropertyChanged("InnerException") End If End Set End Property - - _ + + Public Property IsRecoverable() As Boolean Get Return Me.IsRecoverableField End Get Set - If (Me.IsRecoverableField.Equals(value) <> true) Then - Me.IsRecoverableField = value + If (Me.IsRecoverableField.Equals(Value) <> True) Then + Me.IsRecoverableField = Value Me.RaisePropertyChanged("IsRecoverable") 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 @@ -876,113 +969,113 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class DataTableDoesNotExistFault Inherits EDMIServiceReference.BaseFault End Class - - _ + + Partial Public Class ObjectDoesNotExistFault Inherits EDMIServiceReference.BaseFault End Class - - _ + + Partial Public Class GetDatatableRequest Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private ConnectionIdField As Integer - - _ + + Private DatabaseTypeField As EDMIServiceReference.DatabaseType - - _ + + Private NamedDatabaseField As EDMIServiceReference.DatabaseName - - _ + + Private SqlCommandField 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 + Me.extensionDataField = Value End Set End Property - - _ + + Public Property ConnectionId() As Integer Get Return Me.ConnectionIdField End Get Set - If (Me.ConnectionIdField.Equals(value) <> true) Then - Me.ConnectionIdField = value + If (Me.ConnectionIdField.Equals(Value) <> True) Then + Me.ConnectionIdField = Value Me.RaisePropertyChanged("ConnectionId") End If End Set End Property - - _ + + Public Property DatabaseType() As EDMIServiceReference.DatabaseType Get Return Me.DatabaseTypeField End Get Set - If (Me.DatabaseTypeField.Equals(value) <> true) Then - Me.DatabaseTypeField = value + If (Me.DatabaseTypeField.Equals(Value) <> True) Then + Me.DatabaseTypeField = Value Me.RaisePropertyChanged("DatabaseType") End If End Set End Property - - _ + + Public Property NamedDatabase() As EDMIServiceReference.DatabaseName Get Return Me.NamedDatabaseField End Get Set - If (Me.NamedDatabaseField.Equals(value) <> true) Then - Me.NamedDatabaseField = value + If (Me.NamedDatabaseField.Equals(Value) <> True) Then + Me.NamedDatabaseField = Value Me.RaisePropertyChanged("NamedDatabase") End If End Set End Property - - _ + + Public Property SqlCommand() As String Get Return Me.SqlCommandField End Get Set - If (Object.ReferenceEquals(Me.SqlCommandField, value) <> true) Then - Me.SqlCommandField = value + If (Object.ReferenceEquals(Me.SqlCommandField, Value) <> True) Then + Me.SqlCommandField = Value Me.RaisePropertyChanged("SqlCommand") 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 @@ -990,125 +1083,125 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Public Enum DatabaseType As Integer - - _ + + MSSQL = 0 - - _ + + Oracle = 1 - - _ + + ODBC = 2 End Enum - - _ + + Public Enum DatabaseName As Integer - - _ + + None = 0 - - _ + + ECM = 1 - - _ + + IDB = 2 End Enum - - _ + + Partial Public Class GetScalarValueRequest Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private ConnectionIdField As Integer - - _ + + Private DatabaseTypeField As EDMIServiceReference.DatabaseType - - _ + + Private NamedDatabaseField As EDMIServiceReference.DatabaseName - - _ + + Private SqlCommandField 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 + Me.extensionDataField = Value End Set End Property - - _ + + Public Property ConnectionId() As Integer Get Return Me.ConnectionIdField End Get Set - If (Me.ConnectionIdField.Equals(value) <> true) Then - Me.ConnectionIdField = value + If (Me.ConnectionIdField.Equals(Value) <> True) Then + Me.ConnectionIdField = Value Me.RaisePropertyChanged("ConnectionId") End If End Set End Property - - _ + + Public Property DatabaseType() As EDMIServiceReference.DatabaseType Get Return Me.DatabaseTypeField End Get Set - If (Me.DatabaseTypeField.Equals(value) <> true) Then - Me.DatabaseTypeField = value + If (Me.DatabaseTypeField.Equals(Value) <> True) Then + Me.DatabaseTypeField = Value Me.RaisePropertyChanged("DatabaseType") End If End Set End Property - - _ + + Public Property NamedDatabase() As EDMIServiceReference.DatabaseName Get Return Me.NamedDatabaseField End Get Set - If (Me.NamedDatabaseField.Equals(value) <> true) Then - Me.NamedDatabaseField = value + If (Me.NamedDatabaseField.Equals(Value) <> True) Then + Me.NamedDatabaseField = Value Me.RaisePropertyChanged("NamedDatabase") End If End Set End Property - - _ + + Public Property SqlCommand() As String Get Return Me.SqlCommandField End Get Set - If (Object.ReferenceEquals(Me.SqlCommandField, value) <> true) Then - Me.SqlCommandField = value + If (Object.ReferenceEquals(Me.SqlCommandField, Value) <> True) Then + Me.SqlCommandField = Value Me.RaisePropertyChanged("SqlCommand") 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 @@ -1116,95 +1209,95 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class ExecuteNonQueryRequest Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private ConnectionIdField As Integer - - _ + + Private DatabaseTypeField As EDMIServiceReference.DatabaseType - - _ + + Private NamedDatabaseField As EDMIServiceReference.DatabaseName - - _ + + Private SqlCommandField 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 + Me.extensionDataField = Value End Set End Property - - _ + + Public Property ConnectionId() As Integer Get Return Me.ConnectionIdField End Get Set - If (Me.ConnectionIdField.Equals(value) <> true) Then - Me.ConnectionIdField = value + If (Me.ConnectionIdField.Equals(Value) <> True) Then + Me.ConnectionIdField = Value Me.RaisePropertyChanged("ConnectionId") End If End Set End Property - - _ + + Public Property DatabaseType() As EDMIServiceReference.DatabaseType Get Return Me.DatabaseTypeField End Get Set - If (Me.DatabaseTypeField.Equals(value) <> true) Then - Me.DatabaseTypeField = value + If (Me.DatabaseTypeField.Equals(Value) <> True) Then + Me.DatabaseTypeField = Value Me.RaisePropertyChanged("DatabaseType") End If End Set End Property - - _ + + Public Property NamedDatabase() As EDMIServiceReference.DatabaseName Get Return Me.NamedDatabaseField End Get Set - If (Me.NamedDatabaseField.Equals(value) <> true) Then - Me.NamedDatabaseField = value + If (Me.NamedDatabaseField.Equals(Value) <> True) Then + Me.NamedDatabaseField = Value Me.RaisePropertyChanged("NamedDatabase") End If End Set End Property - - _ + + Public Property SqlCommand() As String Get Return Me.SqlCommandField End Get Set - If (Object.ReferenceEquals(Me.SqlCommandField, value) <> true) Then - Me.SqlCommandField = value + If (Object.ReferenceEquals(Me.SqlCommandField, Value) <> True) Then + Me.SqlCommandField = Value Me.RaisePropertyChanged("SqlCommand") 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 @@ -1212,111 +1305,111 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class NewFileRequest Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private FileField As EDMIServiceReference.FileProperties - - _ + + Private IDBDoctypeIdField As Long - - _ + + Private KindTypeField As String - - _ + + Private StoreNameField As String - - _ + + Private UserField As EDMIServiceReference.UserState - - _ + + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set - Me.extensionDataField = value + Me.extensionDataField = Value End Set End Property - - _ + + Public Property File() As EDMIServiceReference.FileProperties Get Return Me.FileField End Get Set - If (Object.ReferenceEquals(Me.FileField, value) <> true) Then - Me.FileField = value + If (Object.ReferenceEquals(Me.FileField, Value) <> True) Then + Me.FileField = Value Me.RaisePropertyChanged("File") End If End Set End Property - - _ + + Public Property IDBDoctypeId() As Long Get Return Me.IDBDoctypeIdField End Get Set - If (Me.IDBDoctypeIdField.Equals(value) <> true) Then - Me.IDBDoctypeIdField = value + If (Me.IDBDoctypeIdField.Equals(Value) <> True) Then + Me.IDBDoctypeIdField = Value Me.RaisePropertyChanged("IDBDoctypeId") End If End Set End Property - - _ + + Public Property KindType() As String Get Return Me.KindTypeField End Get Set - If (Object.ReferenceEquals(Me.KindTypeField, value) <> true) Then - Me.KindTypeField = value + If (Object.ReferenceEquals(Me.KindTypeField, Value) <> True) Then + Me.KindTypeField = Value Me.RaisePropertyChanged("KindType") End If End Set End Property - - _ + + Public Property StoreName() As String Get Return Me.StoreNameField End Get Set - If (Object.ReferenceEquals(Me.StoreNameField, value) <> true) Then - Me.StoreNameField = value + If (Object.ReferenceEquals(Me.StoreNameField, Value) <> True) Then + Me.StoreNameField = Value Me.RaisePropertyChanged("StoreName") End If End Set End Property - - _ + + Public Property User() As EDMIServiceReference.UserState Get Return Me.UserField End Get Set - If (Object.ReferenceEquals(Me.UserField, value) <> true) Then - Me.UserField = value + If (Object.ReferenceEquals(Me.UserField, Value) <> True) Then + Me.UserField = Value Me.RaisePropertyChanged("User") 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 @@ -1324,143 +1417,143 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class FileProperties Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private FileChangedAtField As String - - _ + + Private FileChecksumField As String - - _ + + Private FileContentsField() As Byte - - _ + + Private FileCreatedAtField As String - - _ + + Private FileImportedAtField As Date - - _ + + Private FileInfoRawField As System.IO.FileInfo - - _ + + Private FileNameField 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 + Me.extensionDataField = Value End Set End Property - - _ + + Public Property FileChangedAt() As String Get Return Me.FileChangedAtField End Get Set - If (Object.ReferenceEquals(Me.FileChangedAtField, value) <> true) Then - Me.FileChangedAtField = value + If (Object.ReferenceEquals(Me.FileChangedAtField, Value) <> True) Then + Me.FileChangedAtField = Value Me.RaisePropertyChanged("FileChangedAt") End If End Set End Property - - _ + + Public Property FileChecksum() As String Get Return Me.FileChecksumField End Get Set - If (Object.ReferenceEquals(Me.FileChecksumField, value) <> true) Then - Me.FileChecksumField = value + If (Object.ReferenceEquals(Me.FileChecksumField, Value) <> True) Then + Me.FileChecksumField = Value Me.RaisePropertyChanged("FileChecksum") End If End Set End Property - - _ + + Public Property FileContents() As Byte() Get Return Me.FileContentsField End Get Set - If (Object.ReferenceEquals(Me.FileContentsField, value) <> true) Then - Me.FileContentsField = value + If (Object.ReferenceEquals(Me.FileContentsField, Value) <> True) Then + Me.FileContentsField = Value Me.RaisePropertyChanged("FileContents") End If End Set End Property - - _ + + Public Property FileCreatedAt() As String Get Return Me.FileCreatedAtField End Get Set - If (Object.ReferenceEquals(Me.FileCreatedAtField, value) <> true) Then - Me.FileCreatedAtField = value + If (Object.ReferenceEquals(Me.FileCreatedAtField, Value) <> True) Then + Me.FileCreatedAtField = Value Me.RaisePropertyChanged("FileCreatedAt") End If End Set End Property - - _ + + Public Property FileImportedAt() As Date Get Return Me.FileImportedAtField End Get Set - If (Me.FileImportedAtField.Equals(value) <> true) Then - Me.FileImportedAtField = value + If (Me.FileImportedAtField.Equals(Value) <> True) Then + Me.FileImportedAtField = Value Me.RaisePropertyChanged("FileImportedAt") End If End Set End Property - - _ + + Public Property FileInfoRaw() As System.IO.FileInfo Get Return Me.FileInfoRawField End Get Set - If (Object.ReferenceEquals(Me.FileInfoRawField, value) <> true) Then - Me.FileInfoRawField = value + If (Object.ReferenceEquals(Me.FileInfoRawField, Value) <> True) Then + Me.FileInfoRawField = Value Me.RaisePropertyChanged("FileInfoRaw") End If End Set End Property - - _ + + Public Property FileName() As String Get Return Me.FileNameField End Get Set - If (Object.ReferenceEquals(Me.FileNameField, value) <> true) Then - Me.FileNameField = value + If (Object.ReferenceEquals(Me.FileNameField, Value) <> True) Then + Me.FileNameField = Value Me.RaisePropertyChanged("FileName") 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 @@ -1468,95 +1561,95 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class UserAttributeValue Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private ControlNameField As String - - _ + + Private IdField As Integer - - _ + + Private NameField As String - - _ + + Private ValuesField() 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 + Me.extensionDataField = Value End Set End Property - - _ + + Public Property ControlName() As String Get Return Me.ControlNameField End Get Set - If (Object.ReferenceEquals(Me.ControlNameField, value) <> true) Then - Me.ControlNameField = value + If (Object.ReferenceEquals(Me.ControlNameField, Value) <> True) Then + Me.ControlNameField = Value Me.RaisePropertyChanged("ControlName") 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 + 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 + If (Object.ReferenceEquals(Me.NameField, Value) <> True) Then + Me.NameField = Value Me.RaisePropertyChanged("Name") End If End Set End Property - - _ + + Public Property Values() As String() Get Return Me.ValuesField End Get Set - If (Object.ReferenceEquals(Me.ValuesField, value) <> true) Then - Me.ValuesField = value + If (Object.ReferenceEquals(Me.ValuesField, Value) <> True) Then + Me.ValuesField = Value Me.RaisePropertyChanged("Values") 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 @@ -1564,222 +1657,222 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class UserState Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private DateFormatField As String - - _ + + Private EmailField As String - - _ + + Private GivenNameField As String - - _ + + Private HideBasicConfigField As Boolean - - _ + + Private IsAdminField As Boolean - - _ + + Private LanguageField As String - - _ + + Private LanguageIdField As Integer - - _ + + Private MachineNameField As String - - _ + + Private ShortNameField As String - - _ + + Private SurnameField As String - - _ + + Private UserIdField As Integer - - _ + + Private UserNameField 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 + Me.extensionDataField = Value End Set End Property - - _ + + Public Property DateFormat() As String Get Return Me.DateFormatField End Get Set - If (Object.ReferenceEquals(Me.DateFormatField, value) <> true) Then - Me.DateFormatField = value + If (Object.ReferenceEquals(Me.DateFormatField, Value) <> True) Then + Me.DateFormatField = Value Me.RaisePropertyChanged("DateFormat") End If End Set End Property - - _ + + Public Property Email() As String Get Return Me.EmailField End Get Set - If (Object.ReferenceEquals(Me.EmailField, value) <> true) Then - Me.EmailField = value + If (Object.ReferenceEquals(Me.EmailField, Value) <> True) Then + Me.EmailField = Value Me.RaisePropertyChanged("Email") End If End Set End Property - - _ + + Public Property GivenName() As String Get Return Me.GivenNameField End Get Set - If (Object.ReferenceEquals(Me.GivenNameField, value) <> true) Then - Me.GivenNameField = value + If (Object.ReferenceEquals(Me.GivenNameField, Value) <> True) Then + Me.GivenNameField = Value Me.RaisePropertyChanged("GivenName") End If End Set End Property - - _ + + Public Property HideBasicConfig() As Boolean Get Return Me.HideBasicConfigField End Get Set - If (Me.HideBasicConfigField.Equals(value) <> true) Then - Me.HideBasicConfigField = value + If (Me.HideBasicConfigField.Equals(Value) <> True) Then + Me.HideBasicConfigField = Value Me.RaisePropertyChanged("HideBasicConfig") End If End Set End Property - - _ + + Public Property IsAdmin() As Boolean Get Return Me.IsAdminField End Get Set - If (Me.IsAdminField.Equals(value) <> true) Then - Me.IsAdminField = value + If (Me.IsAdminField.Equals(Value) <> True) Then + Me.IsAdminField = Value Me.RaisePropertyChanged("IsAdmin") End If End Set End Property - - _ + + Public Property Language() As String Get Return Me.LanguageField End Get Set - If (Object.ReferenceEquals(Me.LanguageField, value) <> true) Then - Me.LanguageField = value + If (Object.ReferenceEquals(Me.LanguageField, Value) <> True) Then + Me.LanguageField = Value Me.RaisePropertyChanged("Language") End If End Set End Property - - _ + + Public Property LanguageId() As Integer Get Return Me.LanguageIdField End Get Set - If (Me.LanguageIdField.Equals(value) <> true) Then - Me.LanguageIdField = value + If (Me.LanguageIdField.Equals(Value) <> True) Then + Me.LanguageIdField = Value Me.RaisePropertyChanged("LanguageId") End If End Set End Property - - _ + + Public Property MachineName() As String Get Return Me.MachineNameField End Get Set - If (Object.ReferenceEquals(Me.MachineNameField, value) <> true) Then - Me.MachineNameField = value + If (Object.ReferenceEquals(Me.MachineNameField, Value) <> True) Then + Me.MachineNameField = Value Me.RaisePropertyChanged("MachineName") End If End Set End Property - - _ + + Public Property ShortName() As String Get Return Me.ShortNameField End Get Set - If (Object.ReferenceEquals(Me.ShortNameField, value) <> true) Then - Me.ShortNameField = value + If (Object.ReferenceEquals(Me.ShortNameField, Value) <> True) Then + Me.ShortNameField = Value Me.RaisePropertyChanged("ShortName") End If End Set End Property - - _ + + Public Property Surname() As String Get Return Me.SurnameField End Get Set - If (Object.ReferenceEquals(Me.SurnameField, value) <> true) Then - Me.SurnameField = value + If (Object.ReferenceEquals(Me.SurnameField, Value) <> True) Then + Me.SurnameField = Value Me.RaisePropertyChanged("Surname") End If End Set End Property - - _ + + Public Property UserId() As Integer Get Return Me.UserIdField End Get Set - If (Me.UserIdField.Equals(value) <> true) Then - Me.UserIdField = value + If (Me.UserIdField.Equals(Value) <> True) Then + Me.UserIdField = Value Me.RaisePropertyChanged("UserId") End If End Set End Property - - _ + + Public Property UserName() As String Get Return Me.UserNameField End Get Set - If (Object.ReferenceEquals(Me.UserNameField, value) <> true) Then - Me.UserNameField = value + If (Object.ReferenceEquals(Me.UserNameField, Value) <> True) Then + Me.UserNameField = Value Me.RaisePropertyChanged("UserName") 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 @@ -1787,95 +1880,95 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class UpdateFileRequest Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private CreateNewVersionField As Boolean - - _ + + Private FileField As EDMIServiceReference.FileProperties - - _ + + Private ObjectIdField As Long - - _ + + Private UserField As EDMIServiceReference.UserState - - _ + + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set - Me.extensionDataField = value + Me.extensionDataField = Value End Set End Property - - _ + + Public Property CreateNewVersion() As Boolean Get Return Me.CreateNewVersionField End Get Set - If (Me.CreateNewVersionField.Equals(value) <> true) Then - Me.CreateNewVersionField = value + If (Me.CreateNewVersionField.Equals(Value) <> True) Then + Me.CreateNewVersionField = Value Me.RaisePropertyChanged("CreateNewVersion") End If End Set End Property - - _ + + Public Property File() As EDMIServiceReference.FileProperties Get Return Me.FileField End Get Set - If (Object.ReferenceEquals(Me.FileField, value) <> true) Then - Me.FileField = value + If (Object.ReferenceEquals(Me.FileField, Value) <> True) Then + Me.FileField = Value Me.RaisePropertyChanged("File") End If End Set End Property - - _ + + Public Property ObjectId() As Long Get Return Me.ObjectIdField End Get Set - If (Me.ObjectIdField.Equals(value) <> true) Then - Me.ObjectIdField = value + If (Me.ObjectIdField.Equals(Value) <> True) Then + Me.ObjectIdField = Value Me.RaisePropertyChanged("ObjectId") End If End Set End Property - - _ + + Public Property User() As EDMIServiceReference.UserState Get Return Me.UserField End Get Set - If (Object.ReferenceEquals(Me.UserField, value) <> true) Then - Me.UserField = value + If (Object.ReferenceEquals(Me.UserField, Value) <> True) Then + Me.UserField = Value Me.RaisePropertyChanged("User") 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 @@ -1883,111 +1976,111 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class SetAttributeValueRequest Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private AttributeNameField As String - - _ + + Private AttributeValueField As String - - _ + + Private LanguageField As String - - _ + + Private ObjectIdField As Long - - _ + + Private WhoField 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 + Me.extensionDataField = Value End Set End Property - - _ + + Public Property AttributeName() As String Get Return Me.AttributeNameField End Get Set - If (Object.ReferenceEquals(Me.AttributeNameField, value) <> true) Then - Me.AttributeNameField = value + If (Object.ReferenceEquals(Me.AttributeNameField, Value) <> True) Then + Me.AttributeNameField = Value Me.RaisePropertyChanged("AttributeName") End If End Set End Property - - _ + + Public Property AttributeValue() As String Get Return Me.AttributeValueField End Get Set - If (Object.ReferenceEquals(Me.AttributeValueField, value) <> true) Then - Me.AttributeValueField = value + If (Object.ReferenceEquals(Me.AttributeValueField, Value) <> True) Then + Me.AttributeValueField = Value Me.RaisePropertyChanged("AttributeValue") End If End Set End Property - - _ + + Public Property Language() As String Get Return Me.LanguageField End Get Set - If (Object.ReferenceEquals(Me.LanguageField, value) <> true) Then - Me.LanguageField = value + If (Object.ReferenceEquals(Me.LanguageField, Value) <> True) Then + Me.LanguageField = Value Me.RaisePropertyChanged("Language") End If End Set End Property - - _ + + Public Property ObjectId() As Long Get Return Me.ObjectIdField End Get Set - If (Me.ObjectIdField.Equals(value) <> true) Then - Me.ObjectIdField = value + If (Me.ObjectIdField.Equals(Value) <> True) Then + Me.ObjectIdField = Value Me.RaisePropertyChanged("ObjectId") End If End Set End Property - - _ + + Public Property Who() As String Get Return Me.WhoField End Get Set - If (Object.ReferenceEquals(Me.WhoField, value) <> true) Then - Me.WhoField = value + If (Object.ReferenceEquals(Me.WhoField, Value) <> True) Then + Me.WhoField = Value Me.RaisePropertyChanged("Who") 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 @@ -1995,79 +2088,79 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class GetAttributeValueRequest Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private AttributeNameField As String - - _ + + Private ObjectIdField As Long - - _ + + Private UserField As EDMIServiceReference.UserState - - _ + + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set - Me.extensionDataField = value + Me.extensionDataField = Value End Set End Property - - _ + + Public Property AttributeName() As String Get Return Me.AttributeNameField End Get Set - If (Object.ReferenceEquals(Me.AttributeNameField, value) <> true) Then - Me.AttributeNameField = value + If (Object.ReferenceEquals(Me.AttributeNameField, Value) <> True) Then + Me.AttributeNameField = Value Me.RaisePropertyChanged("AttributeName") End If End Set End Property - - _ + + Public Property ObjectId() As Long Get Return Me.ObjectIdField End Get Set - If (Me.ObjectIdField.Equals(value) <> true) Then - Me.ObjectIdField = value + If (Me.ObjectIdField.Equals(Value) <> True) Then + Me.ObjectIdField = Value Me.RaisePropertyChanged("ObjectId") End If End Set End Property - - _ + + Public Property User() As EDMIServiceReference.UserState Get Return Me.UserField End Get Set - If (Object.ReferenceEquals(Me.UserField, value) <> true) Then - Me.UserField = value + If (Object.ReferenceEquals(Me.UserField, Value) <> True) Then + Me.UserField = Value Me.RaisePropertyChanged("User") 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 @@ -2075,63 +2168,63 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class GetFileObjectRequest Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private LoadFileContentsField As Boolean - - _ + + Private ObjectIdField As Long - - _ + + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set - Me.extensionDataField = value + Me.extensionDataField = Value End Set End Property - - _ + + Public Property LoadFileContents() As Boolean Get Return Me.LoadFileContentsField End Get Set - If (Me.LoadFileContentsField.Equals(value) <> true) Then - Me.LoadFileContentsField = value + If (Me.LoadFileContentsField.Equals(Value) <> True) Then + Me.LoadFileContentsField = Value Me.RaisePropertyChanged("LoadFileContents") End If End Set End Property - - _ + + Public Property ObjectId() As Long Get Return Me.ObjectIdField End Get Set - If (Me.ObjectIdField.Equals(value) <> true) Then - Me.ObjectIdField = value + If (Me.ObjectIdField.Equals(Value) <> True) Then + Me.ObjectIdField = Value Me.RaisePropertyChanged("ObjectId") 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 @@ -2139,136 +2232,136 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class FileObject Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - + Private _AccessRightsField As String - + Private _FileContentsField() As Byte - + Private _FileExtensionField As String - + Private _FileHashField As String - + Private _FilePathField As String - + Private _FileSizeField As Long - + Private _ObjectIdField As Long - - _ + + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set - Me.extensionDataField = value + Me.extensionDataField = Value End Set End Property - - _ + + Public Property _AccessRights() As String Get Return Me._AccessRightsField End Get Set - If (Object.ReferenceEquals(Me._AccessRightsField, value) <> true) Then - Me._AccessRightsField = value + If (Object.ReferenceEquals(Me._AccessRightsField, Value) <> True) Then + Me._AccessRightsField = Value Me.RaisePropertyChanged("_AccessRights") End If End Set End Property - - _ + + Public Property _FileContents() As Byte() Get Return Me._FileContentsField End Get Set - If (Object.ReferenceEquals(Me._FileContentsField, value) <> true) Then - Me._FileContentsField = value + If (Object.ReferenceEquals(Me._FileContentsField, Value) <> True) Then + Me._FileContentsField = Value Me.RaisePropertyChanged("_FileContents") End If End Set End Property - - _ + + Public Property _FileExtension() As String Get Return Me._FileExtensionField End Get Set - If (Object.ReferenceEquals(Me._FileExtensionField, value) <> true) Then - Me._FileExtensionField = value + If (Object.ReferenceEquals(Me._FileExtensionField, Value) <> True) Then + Me._FileExtensionField = Value Me.RaisePropertyChanged("_FileExtension") End If End Set End Property - - _ + + Public Property _FileHash() As String Get Return Me._FileHashField End Get Set - If (Object.ReferenceEquals(Me._FileHashField, value) <> true) Then - Me._FileHashField = value + If (Object.ReferenceEquals(Me._FileHashField, Value) <> True) Then + Me._FileHashField = Value Me.RaisePropertyChanged("_FileHash") End If End Set End Property - - _ + + Public Property _FilePath() As String Get Return Me._FilePathField End Get Set - If (Object.ReferenceEquals(Me._FilePathField, value) <> true) Then - Me._FilePathField = value + If (Object.ReferenceEquals(Me._FilePathField, Value) <> True) Then + Me._FilePathField = Value Me.RaisePropertyChanged("_FilePath") End If End Set End Property - - _ + + Public Property _FileSize() As Long Get Return Me._FileSizeField End Get Set - If (Me._FileSizeField.Equals(value) <> true) Then - Me._FileSizeField = value + If (Me._FileSizeField.Equals(Value) <> True) Then + Me._FileSizeField = Value Me.RaisePropertyChanged("_FileSize") End If End Set End Property - - _ + + Public Property _ObjectId() As Long Get Return Me._ObjectIdField End Get Set - If (Me._ObjectIdField.Equals(value) <> true) Then - Me._ObjectIdField = value + If (Me._ObjectIdField.Equals(Value) <> True) Then + Me._ObjectIdField = Value Me.RaisePropertyChanged("_ObjectId") 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 @@ -2276,95 +2369,95 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class CheckInOutFileRequest Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private ActionField As EDMIServiceReference.CheckInOutFileAction - - _ + + Private CommentField As String - - _ + + Private ObjectIdField As Long - - _ + + Private UserField As EDMIServiceReference.UserState - - _ + + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set - Me.extensionDataField = value + Me.extensionDataField = Value End Set End Property - - _ + + Public Property Action() As EDMIServiceReference.CheckInOutFileAction Get Return Me.ActionField End Get Set - If (Me.ActionField.Equals(value) <> true) Then - Me.ActionField = value + If (Me.ActionField.Equals(Value) <> True) Then + Me.ActionField = Value Me.RaisePropertyChanged("Action") End If End Set End Property - - _ + + Public Property Comment() As String Get Return Me.CommentField End Get Set - If (Object.ReferenceEquals(Me.CommentField, value) <> true) Then - Me.CommentField = value + If (Object.ReferenceEquals(Me.CommentField, Value) <> True) Then + Me.CommentField = Value Me.RaisePropertyChanged("Comment") End If End Set End Property - - _ + + Public Property ObjectId() As Long Get Return Me.ObjectIdField End Get Set - If (Me.ObjectIdField.Equals(value) <> true) Then - Me.ObjectIdField = value + If (Me.ObjectIdField.Equals(Value) <> True) Then + Me.ObjectIdField = Value Me.RaisePropertyChanged("ObjectId") End If End Set End Property - - _ + + Public Property User() As EDMIServiceReference.UserState Get Return Me.UserField End Get Set - If (Object.ReferenceEquals(Me.UserField, value) <> true) Then - Me.UserField = value + If (Object.ReferenceEquals(Me.UserField, Value) <> True) Then + Me.UserField = Value Me.RaisePropertyChanged("User") 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 @@ -2372,155 +2465,155 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Public Enum CheckInOutFileAction As Integer - - _ + + CheckIn = 0 - - _ + + CheckOut = 1 End Enum - - _ + + Partial Public Class ImportFileRequest Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private AttributeValuesField() As EDMIServiceReference.UserAttributeValue - - _ + + Private FileField As EDMIServiceReference.FileProperties - - _ + + Private IDBDoctypeIdField As Long - - _ + + Private KindTypeField As String - - _ + + Private ProfileIdField As Integer - - _ + + Private StoreNameField As String - - _ + + Private UserField As EDMIServiceReference.UserState - - _ + + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set - Me.extensionDataField = value + Me.extensionDataField = Value End Set End Property - - _ + + Public Property AttributeValues() As EDMIServiceReference.UserAttributeValue() Get Return Me.AttributeValuesField End Get Set - If (Object.ReferenceEquals(Me.AttributeValuesField, value) <> true) Then - Me.AttributeValuesField = value + If (Object.ReferenceEquals(Me.AttributeValuesField, Value) <> True) Then + Me.AttributeValuesField = Value Me.RaisePropertyChanged("AttributeValues") End If End Set End Property - - _ + + Public Property File() As EDMIServiceReference.FileProperties Get Return Me.FileField End Get Set - If (Object.ReferenceEquals(Me.FileField, value) <> true) Then - Me.FileField = value + If (Object.ReferenceEquals(Me.FileField, Value) <> True) Then + Me.FileField = Value Me.RaisePropertyChanged("File") End If End Set End Property - - _ + + Public Property IDBDoctypeId() As Long Get Return Me.IDBDoctypeIdField End Get Set - If (Me.IDBDoctypeIdField.Equals(value) <> true) Then - Me.IDBDoctypeIdField = value + If (Me.IDBDoctypeIdField.Equals(Value) <> True) Then + Me.IDBDoctypeIdField = Value Me.RaisePropertyChanged("IDBDoctypeId") End If End Set End Property - - _ + + Public Property KindType() As String Get Return Me.KindTypeField End Get Set - If (Object.ReferenceEquals(Me.KindTypeField, value) <> true) Then - Me.KindTypeField = value + If (Object.ReferenceEquals(Me.KindTypeField, Value) <> True) Then + Me.KindTypeField = Value Me.RaisePropertyChanged("KindType") End If End Set End Property - - _ + + Public Property ProfileId() As Integer Get Return Me.ProfileIdField End Get Set - If (Me.ProfileIdField.Equals(value) <> true) Then - Me.ProfileIdField = value + If (Me.ProfileIdField.Equals(Value) <> True) Then + Me.ProfileIdField = Value Me.RaisePropertyChanged("ProfileId") End If End Set End Property - - _ + + Public Property StoreName() As String Get Return Me.StoreNameField End Get Set - If (Object.ReferenceEquals(Me.StoreNameField, value) <> true) Then - Me.StoreNameField = value + If (Object.ReferenceEquals(Me.StoreNameField, Value) <> True) Then + Me.StoreNameField = Value Me.RaisePropertyChanged("StoreName") End If End Set End Property - - _ + + Public Property User() As EDMIServiceReference.UserState Get Return Me.UserField End Get Set - If (Object.ReferenceEquals(Me.UserField, value) <> true) Then - Me.UserField = value + If (Object.ReferenceEquals(Me.UserField, Value) <> True) Then + Me.UserField = Value Me.RaisePropertyChanged("User") 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 @@ -2528,143 +2621,143 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Partial Public Class Globix_ImportFileRequest Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged - - _ + + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject - - _ + + Private AttributeValuesField() As EDMIServiceReference.UserAttributeValue - - _ + + Private FileField As EDMIServiceReference.FileProperties - - _ + + Private IDBDoctypeIdField As Long - - _ + + Private KindTypeField As String - - _ + + Private ProfileIdField As Integer - - _ + + Private StoreNameField As String - - _ + + Private UserField As EDMIServiceReference.UserState - - _ + + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set - Me.extensionDataField = value + Me.extensionDataField = Value End Set End Property - - _ + + Public Property AttributeValues() As EDMIServiceReference.UserAttributeValue() Get Return Me.AttributeValuesField End Get Set - If (Object.ReferenceEquals(Me.AttributeValuesField, value) <> true) Then - Me.AttributeValuesField = value + If (Object.ReferenceEquals(Me.AttributeValuesField, Value) <> True) Then + Me.AttributeValuesField = Value Me.RaisePropertyChanged("AttributeValues") End If End Set End Property - - _ + + Public Property File() As EDMIServiceReference.FileProperties Get Return Me.FileField End Get Set - If (Object.ReferenceEquals(Me.FileField, value) <> true) Then - Me.FileField = value + If (Object.ReferenceEquals(Me.FileField, Value) <> True) Then + Me.FileField = Value Me.RaisePropertyChanged("File") End If End Set End Property - - _ + + Public Property IDBDoctypeId() As Long Get Return Me.IDBDoctypeIdField End Get Set - If (Me.IDBDoctypeIdField.Equals(value) <> true) Then - Me.IDBDoctypeIdField = value + If (Me.IDBDoctypeIdField.Equals(Value) <> True) Then + Me.IDBDoctypeIdField = Value Me.RaisePropertyChanged("IDBDoctypeId") End If End Set End Property - - _ + + Public Property KindType() As String Get Return Me.KindTypeField End Get Set - If (Object.ReferenceEquals(Me.KindTypeField, value) <> true) Then - Me.KindTypeField = value + If (Object.ReferenceEquals(Me.KindTypeField, Value) <> True) Then + Me.KindTypeField = Value Me.RaisePropertyChanged("KindType") End If End Set End Property - - _ + + Public Property ProfileId() As Integer Get Return Me.ProfileIdField End Get Set - If (Me.ProfileIdField.Equals(value) <> true) Then - Me.ProfileIdField = value + If (Me.ProfileIdField.Equals(Value) <> True) Then + Me.ProfileIdField = Value Me.RaisePropertyChanged("ProfileId") End If End Set End Property - - _ + + Public Property StoreName() As String Get Return Me.StoreNameField End Get Set - If (Object.ReferenceEquals(Me.StoreNameField, value) <> true) Then - Me.StoreNameField = value + If (Object.ReferenceEquals(Me.StoreNameField, Value) <> True) Then + Me.StoreNameField = Value Me.RaisePropertyChanged("StoreName") End If End Set End Property - - _ + + Public Property User() As EDMIServiceReference.UserState Get Return Me.UserField End Get Set - If (Object.ReferenceEquals(Me.UserField, value) <> true) Then - Me.UserField = value + If (Object.ReferenceEquals(Me.UserField, Value) <> True) Then + Me.UserField = Value Me.RaisePropertyChanged("User") 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 @@ -2672,420 +2765,425 @@ Namespace EDMIServiceReference End If End Sub End Class - - _ + + Public Enum RightsAccessRight As Integer - - _ + + VIEW_ONLY = 1 - - _ + + VIEW_EXPORT = 2 - - _ + + FULL = 4 End Enum - - _ + + Public Interface IEDMIService - - _ + + Function Heartbeat() As Boolean - - _ + + Function HeartbeatAsync() As System.Threading.Tasks.Task(Of Boolean) - - _ + + Function GetClientConfig() As EDMIServiceReference.GetClientConfigResponse - - _ + + Function GetClientConfigAsync() As System.Threading.Tasks.Task(Of EDMIServiceReference.GetClientConfigResponse) - - _ + + + Function GetServiceStatus() As EDMIServiceReference.ServiceStatusResponse + + + Function GetServiceStatusAsync() As System.Threading.Tasks.Task(Of EDMIServiceReference.ServiceStatusResponse) + Function GetCachedTables() As String() - - _ + + Function GetCachedTablesAsync() As System.Threading.Tasks.Task(Of String()) - - _ + + Function ReturnDatatableFromCache(ByVal Name As String, ByVal FilterExpression As String, ByVal SortByColumn As String) As EDMIServiceReference.TableResult - - _ + + Function ReturnDatatableFromCacheAsync(ByVal Name As String, ByVal FilterExpression As String, ByVal SortByColumn As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult) - - _ + + Function ReturnDatatable(ByVal pData As EDMIServiceReference.GetDatatableRequest) As EDMIServiceReference.GetDatatableResponse - - _ + + Function ReturnDatatableAsync(ByVal pData As EDMIServiceReference.GetDatatableRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.GetDatatableResponse) - - _ + + Function ReturnScalarValue(ByVal pData As EDMIServiceReference.GetScalarValueRequest) As EDMIServiceReference.GetScalarValueResponse - - _ + + Function ReturnScalarValueAsync(ByVal pData As EDMIServiceReference.GetScalarValueRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.GetScalarValueResponse) - - _ + + Function ExecuteNonQuery(ByVal pData As EDMIServiceReference.ExecuteNonQueryRequest) As EDMIServiceReference.ExecuteNonQueryResponse - - _ + + Function ExecuteNonQueryAsync(ByVal pData As EDMIServiceReference.ExecuteNonQueryRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.ExecuteNonQueryResponse) - - _ + + Function ReturnDatatable_Firebird(ByVal SQL As String) As EDMIServiceReference.TableResult - - _ + + Function ReturnDatatable_FirebirdAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult) - - _ + + Function ReturnScalar_Firebird(ByVal SQL As String) As EDMIServiceReference.ScalarResult - - _ + + Function ReturnScalar_FirebirdAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.ScalarResult) - - _ + + Function ExecuteNonQuery_Firebird(ByVal SQL As String) As EDMIServiceReference.NonQueryResult - - _ + + Function ExecuteNonQuery_FirebirdAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.NonQueryResult) - - _ + + Function ReturnDatatable_MSSQL_IDB(ByVal SQL As String) As EDMIServiceReference.TableResult - - _ + + Function ReturnDatatable_MSSQL_IDBAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult) - - _ + + Function ReturnScalar_MSSQL_IDB(ByVal SQL As String) As EDMIServiceReference.ScalarResult - - _ + + Function ReturnScalar_MSSQL_IDBAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.ScalarResult) - - _ + + Function ExecuteNonQuery_MSSQL_IDB(ByVal SQL As String) As EDMIServiceReference.NonQueryResult - - _ + + Function ExecuteNonQuery_MSSQL_IDBAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.NonQueryResult) - - _ + + Function ReturnDatatable_MSSQL_ECM(ByVal SQL As String) As EDMIServiceReference.TableResult - - _ + + Function ReturnDatatable_MSSQL_ECMAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult) - - _ + + Function ReturnScalar_MSSQL_ECM(ByVal SQL As String) As EDMIServiceReference.ScalarResult - - _ + + Function ReturnScalar_MSSQL_ECMAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.ScalarResult) - - _ + + Function ExecuteNonQuery_MSSQL_ECM(ByVal SQL As String) As EDMIServiceReference.NonQueryResult - - _ + + Function ExecuteNonQuery_MSSQL_ECMAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.NonQueryResult) - - _ + + Function NewFile(ByVal Data As EDMIServiceReference.NewFileRequest) As EDMIServiceReference.NewFileResponse - - _ + + Function NewFileAsync(ByVal Data As EDMIServiceReference.NewFileRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.NewFileResponse) - - _ + + Function UpdateFile(ByVal Data As EDMIServiceReference.UpdateFileRequest) As EDMIServiceReference.UpdateFileResponse - - _ + + Function UpdateFileAsync(ByVal Data As EDMIServiceReference.UpdateFileRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.UpdateFileResponse) - - _ + + Function SetAttributeValue(ByVal Data As EDMIServiceReference.SetAttributeValueRequest) As EDMIServiceReference.SetAttributeValueResponse - - _ + + Function SetAttributeValueAsync(ByVal Data As EDMIServiceReference.SetAttributeValueRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.SetAttributeValueResponse) - - _ + + Function GetAttributeValue(ByVal Data As EDMIServiceReference.GetAttributeValueRequest) As EDMIServiceReference.GetAttributeValueResponse - - _ + + Function GetAttributeValueAsync(ByVal Data As EDMIServiceReference.GetAttributeValueRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.GetAttributeValueResponse) - - _ + + Function GetFileObject(ByVal Data As EDMIServiceReference.GetFileObjectRequest) As EDMIServiceReference.GetFileObjectResponse - - _ + + Function GetFileObjectAsync(ByVal Data As EDMIServiceReference.GetFileObjectRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.GetFileObjectResponse) - - _ + + Function CheckInOutFile(ByVal Data As EDMIServiceReference.CheckInOutFileRequest) As EDMIServiceReference.CheckInOutFileResponse - - _ + + Function CheckInOutFileAsync(ByVal Data As EDMIServiceReference.CheckInOutFileRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.CheckInOutFileResponse) - - _ + + Function ImportFile(ByVal Data As EDMIServiceReference.ImportFileRequest) As EDMIServiceReference.ImportFileResponse - - _ + + Function ImportFileAsync(ByVal Data As EDMIServiceReference.ImportFileRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.ImportFileResponse) - - _ + + Function Globix_ImportFile(ByVal Data As EDMIServiceReference.Globix_ImportFileRequest) As EDMIServiceReference.Globix_ImportFileResponse - - _ + + Function Globix_ImportFileAsync(ByVal Data As EDMIServiceReference.Globix_ImportFileRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.Globix_ImportFileResponse) - + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Wrappername (DocumentStreamRequest) von Nachricht "DocumentStreamRequest" nicht mit dem Standardwert (GetFileByObjectId) übereinstimmt. - _ + Function GetFileByObjectId(ByVal request As EDMIServiceReference.DocumentStreamRequest) As EDMIServiceReference.DocumentStreamResponse - - _ + + Function GetFileByObjectIdAsync(ByVal request As EDMIServiceReference.DocumentStreamRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentStreamResponse) - - _ + + Function GetFileInfoByObjectId(ByVal request As EDMIServiceReference.DocumentInfoRequest) As EDMIServiceReference.DocumentInfoResponse - + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. - _ + Function GetFileInfoByObjectIdAsync(ByVal request As EDMIServiceReference.DocumentInfoRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentInfoResponse) - + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang ListFilesForUser weder in RPC noch in einem Dokument eingeschlossen ist. - _ + Function ListFilesForUser(ByVal request As EDMIServiceReference.ListFilesForUserRequest) As EDMIServiceReference.DocumentListResponse - - _ + + Function ListFilesForUserAsync(ByVal request As EDMIServiceReference.ListFilesForUserRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentListResponse) - - _ + + Function TestObjectIdExists(ByVal request As EDMIServiceReference.TestObjectIdExistsRequest) As EDMIServiceReference.TestObjectIdExistsResponse - + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. - _ + Function TestObjectIdExistsAsync(ByVal request As EDMIServiceReference.TestObjectIdExistsRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.TestObjectIdExistsResponse) End Interface - - _ + + Partial Public Class DocumentStreamRequest - - _ + + Public ObjectId As Long - + Public Sub New() MyBase.New End Sub - + Public Sub New(ByVal ObjectId As Long) MyBase.New Me.ObjectId = ObjectId End Sub End Class - - _ + + Partial Public Class DocumentStreamResponse - - _ + + Public FileName As String - - _ + + Public FileContents As System.IO.Stream - + Public Sub New() MyBase.New End Sub - + Public Sub New(ByVal FileName As String, ByVal FileContents As System.IO.Stream) MyBase.New Me.FileName = FileName Me.FileContents = FileContents End Sub End Class - - _ + + Partial Public Class DocumentInfoRequest - - _ + + Public ObjectId As Long - - _ + + Public UserId As Long - + Public Sub New() MyBase.New End Sub - + Public Sub New(ByVal ObjectId As Long, ByVal UserId As Long) MyBase.New Me.ObjectId = ObjectId Me.UserId = UserId End Sub End Class - - _ + + Partial Public Class DocumentInfoResponse - - _ + + Public FileRight As EDMIServiceReference.RightsAccessRight - - _ + + Public FullPath As String - + Public Sub New() MyBase.New End Sub - + Public Sub New(ByVal FileRight As EDMIServiceReference.RightsAccessRight, ByVal FullPath As String) MyBase.New Me.FileRight = FileRight Me.FullPath = FullPath End Sub End Class - - _ + + Partial Public Class ListFilesForUserRequest - + Public Sub New() MyBase.New End Sub End Class - - _ + + Partial Public Class DocumentListResponse - - _ + + Public Datatable As System.Data.DataTable - + Public Sub New() MyBase.New End Sub - + Public Sub New(ByVal Datatable As System.Data.DataTable) MyBase.New Me.Datatable = Datatable End Sub End Class - - _ + + Partial Public Class TestObjectIdExistsRequest - - _ + + Public ObjectId As Long - + Public Sub New() MyBase.New End Sub - + Public Sub New(ByVal ObjectId As Long) MyBase.New Me.ObjectId = ObjectId End Sub End Class - - _ + + Partial Public Class TestObjectIdExistsResponse - - _ + + Public Deleted As Boolean - - _ + + Public Exists As Boolean - - _ + + Public Inactive As Boolean - + Public Sub New() MyBase.New End Sub - + Public Sub New(ByVal Deleted As Boolean, ByVal Exists As Boolean, ByVal Inactive As Boolean) MyBase.New Me.Deleted = Deleted @@ -3093,307 +3191,313 @@ Namespace EDMIServiceReference Me.Inactive = Inactive End Sub End Class - - _ + + Public Interface IEDMIServiceChannel Inherits EDMIServiceReference.IEDMIService, System.ServiceModel.IClientChannel End Interface - - _ + + Partial Public Class EDMIServiceClient Inherits System.ServiceModel.ClientBase(Of EDMIServiceReference.IEDMIService) Implements EDMIServiceReference.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 Heartbeat() As Boolean Implements EDMIServiceReference.IEDMIService.Heartbeat Return MyBase.Channel.Heartbeat End Function - + Public Function HeartbeatAsync() As System.Threading.Tasks.Task(Of Boolean) Implements EDMIServiceReference.IEDMIService.HeartbeatAsync Return MyBase.Channel.HeartbeatAsync End Function - + Public Function GetClientConfig() As EDMIServiceReference.GetClientConfigResponse Implements EDMIServiceReference.IEDMIService.GetClientConfig Return MyBase.Channel.GetClientConfig End Function - + Public Function GetClientConfigAsync() As System.Threading.Tasks.Task(Of EDMIServiceReference.GetClientConfigResponse) Implements EDMIServiceReference.IEDMIService.GetClientConfigAsync Return MyBase.Channel.GetClientConfigAsync End Function - + Public Function GetServiceStatus() As EDMIServiceReference.ServiceStatusResponse Implements EDMIServiceReference.IEDMIService.GetServiceStatus + Return MyBase.Channel.GetServiceStatus + End Function + + Public Function GetServiceStatusAsync() As System.Threading.Tasks.Task(Of EDMIServiceReference.ServiceStatusResponse) Implements EDMIServiceReference.IEDMIService.GetServiceStatusAsync + Return MyBase.Channel.GetServiceStatusAsync + End Function Public Function GetCachedTables() As String() Implements EDMIServiceReference.IEDMIService.GetCachedTables Return MyBase.Channel.GetCachedTables End Function - + Public Function GetCachedTablesAsync() As System.Threading.Tasks.Task(Of String()) Implements EDMIServiceReference.IEDMIService.GetCachedTablesAsync Return MyBase.Channel.GetCachedTablesAsync End Function - + Public Function ReturnDatatableFromCache(ByVal Name As String, ByVal FilterExpression As String, ByVal SortByColumn As String) As EDMIServiceReference.TableResult Implements EDMIServiceReference.IEDMIService.ReturnDatatableFromCache Return MyBase.Channel.ReturnDatatableFromCache(Name, FilterExpression, SortByColumn) End Function - + Public Function ReturnDatatableFromCacheAsync(ByVal Name As String, ByVal FilterExpression As String, ByVal SortByColumn As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult) Implements EDMIServiceReference.IEDMIService.ReturnDatatableFromCacheAsync Return MyBase.Channel.ReturnDatatableFromCacheAsync(Name, FilterExpression, SortByColumn) End Function - + Public Function ReturnDatatable(ByVal pData As EDMIServiceReference.GetDatatableRequest) As EDMIServiceReference.GetDatatableResponse Implements EDMIServiceReference.IEDMIService.ReturnDatatable Return MyBase.Channel.ReturnDatatable(pData) End Function - + Public Function ReturnDatatableAsync(ByVal pData As EDMIServiceReference.GetDatatableRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.GetDatatableResponse) Implements EDMIServiceReference.IEDMIService.ReturnDatatableAsync Return MyBase.Channel.ReturnDatatableAsync(pData) End Function - + Public Function ReturnScalarValue(ByVal pData As EDMIServiceReference.GetScalarValueRequest) As EDMIServiceReference.GetScalarValueResponse Implements EDMIServiceReference.IEDMIService.ReturnScalarValue Return MyBase.Channel.ReturnScalarValue(pData) End Function - + Public Function ReturnScalarValueAsync(ByVal pData As EDMIServiceReference.GetScalarValueRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.GetScalarValueResponse) Implements EDMIServiceReference.IEDMIService.ReturnScalarValueAsync Return MyBase.Channel.ReturnScalarValueAsync(pData) End Function - + Public Function ExecuteNonQuery(ByVal pData As EDMIServiceReference.ExecuteNonQueryRequest) As EDMIServiceReference.ExecuteNonQueryResponse Implements EDMIServiceReference.IEDMIService.ExecuteNonQuery Return MyBase.Channel.ExecuteNonQuery(pData) End Function - + Public Function ExecuteNonQueryAsync(ByVal pData As EDMIServiceReference.ExecuteNonQueryRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.ExecuteNonQueryResponse) Implements EDMIServiceReference.IEDMIService.ExecuteNonQueryAsync Return MyBase.Channel.ExecuteNonQueryAsync(pData) End Function - + Public Function ReturnDatatable_Firebird(ByVal SQL As String) As EDMIServiceReference.TableResult Implements EDMIServiceReference.IEDMIService.ReturnDatatable_Firebird Return MyBase.Channel.ReturnDatatable_Firebird(SQL) End Function - + Public Function ReturnDatatable_FirebirdAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult) Implements EDMIServiceReference.IEDMIService.ReturnDatatable_FirebirdAsync Return MyBase.Channel.ReturnDatatable_FirebirdAsync(SQL) End Function - + Public Function ReturnScalar_Firebird(ByVal SQL As String) As EDMIServiceReference.ScalarResult Implements EDMIServiceReference.IEDMIService.ReturnScalar_Firebird Return MyBase.Channel.ReturnScalar_Firebird(SQL) End Function - + Public Function ReturnScalar_FirebirdAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.ScalarResult) Implements EDMIServiceReference.IEDMIService.ReturnScalar_FirebirdAsync Return MyBase.Channel.ReturnScalar_FirebirdAsync(SQL) End Function - + Public Function ExecuteNonQuery_Firebird(ByVal SQL As String) As EDMIServiceReference.NonQueryResult Implements EDMIServiceReference.IEDMIService.ExecuteNonQuery_Firebird Return MyBase.Channel.ExecuteNonQuery_Firebird(SQL) End Function - + Public Function ExecuteNonQuery_FirebirdAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.NonQueryResult) Implements EDMIServiceReference.IEDMIService.ExecuteNonQuery_FirebirdAsync Return MyBase.Channel.ExecuteNonQuery_FirebirdAsync(SQL) End Function - + Public Function ReturnDatatable_MSSQL_IDB(ByVal SQL As String) As EDMIServiceReference.TableResult Implements EDMIServiceReference.IEDMIService.ReturnDatatable_MSSQL_IDB Return MyBase.Channel.ReturnDatatable_MSSQL_IDB(SQL) End Function - + Public Function ReturnDatatable_MSSQL_IDBAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult) Implements EDMIServiceReference.IEDMIService.ReturnDatatable_MSSQL_IDBAsync Return MyBase.Channel.ReturnDatatable_MSSQL_IDBAsync(SQL) End Function - + Public Function ReturnScalar_MSSQL_IDB(ByVal SQL As String) As EDMIServiceReference.ScalarResult Implements EDMIServiceReference.IEDMIService.ReturnScalar_MSSQL_IDB Return MyBase.Channel.ReturnScalar_MSSQL_IDB(SQL) End Function - + Public Function ReturnScalar_MSSQL_IDBAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.ScalarResult) Implements EDMIServiceReference.IEDMIService.ReturnScalar_MSSQL_IDBAsync Return MyBase.Channel.ReturnScalar_MSSQL_IDBAsync(SQL) End Function - + Public Function ExecuteNonQuery_MSSQL_IDB(ByVal SQL As String) As EDMIServiceReference.NonQueryResult Implements EDMIServiceReference.IEDMIService.ExecuteNonQuery_MSSQL_IDB Return MyBase.Channel.ExecuteNonQuery_MSSQL_IDB(SQL) End Function - + Public Function ExecuteNonQuery_MSSQL_IDBAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.NonQueryResult) Implements EDMIServiceReference.IEDMIService.ExecuteNonQuery_MSSQL_IDBAsync Return MyBase.Channel.ExecuteNonQuery_MSSQL_IDBAsync(SQL) End Function - + Public Function ReturnDatatable_MSSQL_ECM(ByVal SQL As String) As EDMIServiceReference.TableResult Implements EDMIServiceReference.IEDMIService.ReturnDatatable_MSSQL_ECM Return MyBase.Channel.ReturnDatatable_MSSQL_ECM(SQL) End Function - + Public Function ReturnDatatable_MSSQL_ECMAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult) Implements EDMIServiceReference.IEDMIService.ReturnDatatable_MSSQL_ECMAsync Return MyBase.Channel.ReturnDatatable_MSSQL_ECMAsync(SQL) End Function - + Public Function ReturnScalar_MSSQL_ECM(ByVal SQL As String) As EDMIServiceReference.ScalarResult Implements EDMIServiceReference.IEDMIService.ReturnScalar_MSSQL_ECM Return MyBase.Channel.ReturnScalar_MSSQL_ECM(SQL) End Function - + Public Function ReturnScalar_MSSQL_ECMAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.ScalarResult) Implements EDMIServiceReference.IEDMIService.ReturnScalar_MSSQL_ECMAsync Return MyBase.Channel.ReturnScalar_MSSQL_ECMAsync(SQL) End Function - + Public Function ExecuteNonQuery_MSSQL_ECM(ByVal SQL As String) As EDMIServiceReference.NonQueryResult Implements EDMIServiceReference.IEDMIService.ExecuteNonQuery_MSSQL_ECM Return MyBase.Channel.ExecuteNonQuery_MSSQL_ECM(SQL) End Function - + Public Function ExecuteNonQuery_MSSQL_ECMAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.NonQueryResult) Implements EDMIServiceReference.IEDMIService.ExecuteNonQuery_MSSQL_ECMAsync Return MyBase.Channel.ExecuteNonQuery_MSSQL_ECMAsync(SQL) End Function - + Public Function NewFile(ByVal Data As EDMIServiceReference.NewFileRequest) As EDMIServiceReference.NewFileResponse Implements EDMIServiceReference.IEDMIService.NewFile Return MyBase.Channel.NewFile(Data) End Function - + Public Function NewFileAsync(ByVal Data As EDMIServiceReference.NewFileRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.NewFileResponse) Implements EDMIServiceReference.IEDMIService.NewFileAsync Return MyBase.Channel.NewFileAsync(Data) End Function - + Public Function UpdateFile(ByVal Data As EDMIServiceReference.UpdateFileRequest) As EDMIServiceReference.UpdateFileResponse Implements EDMIServiceReference.IEDMIService.UpdateFile Return MyBase.Channel.UpdateFile(Data) End Function - + Public Function UpdateFileAsync(ByVal Data As EDMIServiceReference.UpdateFileRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.UpdateFileResponse) Implements EDMIServiceReference.IEDMIService.UpdateFileAsync Return MyBase.Channel.UpdateFileAsync(Data) End Function - + Public Function SetAttributeValue(ByVal Data As EDMIServiceReference.SetAttributeValueRequest) As EDMIServiceReference.SetAttributeValueResponse Implements EDMIServiceReference.IEDMIService.SetAttributeValue Return MyBase.Channel.SetAttributeValue(Data) End Function - + Public Function SetAttributeValueAsync(ByVal Data As EDMIServiceReference.SetAttributeValueRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.SetAttributeValueResponse) Implements EDMIServiceReference.IEDMIService.SetAttributeValueAsync Return MyBase.Channel.SetAttributeValueAsync(Data) End Function - + Public Function GetAttributeValue(ByVal Data As EDMIServiceReference.GetAttributeValueRequest) As EDMIServiceReference.GetAttributeValueResponse Implements EDMIServiceReference.IEDMIService.GetAttributeValue Return MyBase.Channel.GetAttributeValue(Data) End Function - + Public Function GetAttributeValueAsync(ByVal Data As EDMIServiceReference.GetAttributeValueRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.GetAttributeValueResponse) Implements EDMIServiceReference.IEDMIService.GetAttributeValueAsync Return MyBase.Channel.GetAttributeValueAsync(Data) End Function - + Public Function GetFileObject(ByVal Data As EDMIServiceReference.GetFileObjectRequest) As EDMIServiceReference.GetFileObjectResponse Implements EDMIServiceReference.IEDMIService.GetFileObject Return MyBase.Channel.GetFileObject(Data) End Function - + Public Function GetFileObjectAsync(ByVal Data As EDMIServiceReference.GetFileObjectRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.GetFileObjectResponse) Implements EDMIServiceReference.IEDMIService.GetFileObjectAsync Return MyBase.Channel.GetFileObjectAsync(Data) End Function - + Public Function CheckInOutFile(ByVal Data As EDMIServiceReference.CheckInOutFileRequest) As EDMIServiceReference.CheckInOutFileResponse Implements EDMIServiceReference.IEDMIService.CheckInOutFile Return MyBase.Channel.CheckInOutFile(Data) End Function - + Public Function CheckInOutFileAsync(ByVal Data As EDMIServiceReference.CheckInOutFileRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.CheckInOutFileResponse) Implements EDMIServiceReference.IEDMIService.CheckInOutFileAsync Return MyBase.Channel.CheckInOutFileAsync(Data) End Function - + Public Function ImportFile(ByVal Data As EDMIServiceReference.ImportFileRequest) As EDMIServiceReference.ImportFileResponse Implements EDMIServiceReference.IEDMIService.ImportFile Return MyBase.Channel.ImportFile(Data) End Function - + Public Function ImportFileAsync(ByVal Data As EDMIServiceReference.ImportFileRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.ImportFileResponse) Implements EDMIServiceReference.IEDMIService.ImportFileAsync Return MyBase.Channel.ImportFileAsync(Data) End Function - + Public Function Globix_ImportFile(ByVal Data As EDMIServiceReference.Globix_ImportFileRequest) As EDMIServiceReference.Globix_ImportFileResponse Implements EDMIServiceReference.IEDMIService.Globix_ImportFile Return MyBase.Channel.Globix_ImportFile(Data) End Function - + Public Function Globix_ImportFileAsync(ByVal Data As EDMIServiceReference.Globix_ImportFileRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.Globix_ImportFileResponse) Implements EDMIServiceReference.IEDMIService.Globix_ImportFileAsync Return MyBase.Channel.Globix_ImportFileAsync(Data) End Function - - _ + + Function EDMIServiceReference_IEDMIService_GetFileByObjectId(ByVal request As EDMIServiceReference.DocumentStreamRequest) As EDMIServiceReference.DocumentStreamResponse Implements EDMIServiceReference.IEDMIService.GetFileByObjectId Return MyBase.Channel.GetFileByObjectId(request) End Function - + Public Function GetFileByObjectId(ByVal ObjectId As Long, ByRef FileContents As System.IO.Stream) As String Dim inValue As EDMIServiceReference.DocumentStreamRequest = New EDMIServiceReference.DocumentStreamRequest() inValue.ObjectId = ObjectId - Dim retVal As EDMIServiceReference.DocumentStreamResponse = CType(Me,EDMIServiceReference.IEDMIService).GetFileByObjectId(inValue) + Dim retVal As EDMIServiceReference.DocumentStreamResponse = CType(Me, EDMIServiceReference.IEDMIService).GetFileByObjectId(inValue) FileContents = retVal.FileContents Return retVal.FileName End Function - - _ + + Function EDMIServiceReference_IEDMIService_GetFileByObjectIdAsync(ByVal request As EDMIServiceReference.DocumentStreamRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentStreamResponse) Implements EDMIServiceReference.IEDMIService.GetFileByObjectIdAsync Return MyBase.Channel.GetFileByObjectIdAsync(request) End Function - + Public Function GetFileByObjectIdAsync(ByVal ObjectId As Long) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentStreamResponse) Dim inValue As EDMIServiceReference.DocumentStreamRequest = New EDMIServiceReference.DocumentStreamRequest() inValue.ObjectId = ObjectId - Return CType(Me,EDMIServiceReference.IEDMIService).GetFileByObjectIdAsync(inValue) + Return CType(Me, EDMIServiceReference.IEDMIService).GetFileByObjectIdAsync(inValue) End Function - - _ + + Function EDMIServiceReference_IEDMIService_GetFileInfoByObjectId(ByVal request As EDMIServiceReference.DocumentInfoRequest) As EDMIServiceReference.DocumentInfoResponse Implements EDMIServiceReference.IEDMIService.GetFileInfoByObjectId Return MyBase.Channel.GetFileInfoByObjectId(request) End Function - + Public Function GetFileInfoByObjectId(ByVal ObjectId As Long, ByVal UserId As Long, ByRef FullPath As String) As EDMIServiceReference.RightsAccessRight Dim inValue As EDMIServiceReference.DocumentInfoRequest = New EDMIServiceReference.DocumentInfoRequest() inValue.ObjectId = ObjectId inValue.UserId = UserId - Dim retVal As EDMIServiceReference.DocumentInfoResponse = CType(Me,EDMIServiceReference.IEDMIService).GetFileInfoByObjectId(inValue) + Dim retVal As EDMIServiceReference.DocumentInfoResponse = CType(Me, EDMIServiceReference.IEDMIService).GetFileInfoByObjectId(inValue) FullPath = retVal.FullPath Return retVal.FileRight End Function - + Public Function GetFileInfoByObjectIdAsync(ByVal request As EDMIServiceReference.DocumentInfoRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentInfoResponse) Implements EDMIServiceReference.IEDMIService.GetFileInfoByObjectIdAsync Return MyBase.Channel.GetFileInfoByObjectIdAsync(request) End Function - - _ + + Function EDMIServiceReference_IEDMIService_ListFilesForUser(ByVal request As EDMIServiceReference.ListFilesForUserRequest) As EDMIServiceReference.DocumentListResponse Implements EDMIServiceReference.IEDMIService.ListFilesForUser Return MyBase.Channel.ListFilesForUser(request) End Function - + Public Function ListFilesForUser() As System.Data.DataTable Dim inValue As EDMIServiceReference.ListFilesForUserRequest = New EDMIServiceReference.ListFilesForUserRequest() - Dim retVal As EDMIServiceReference.DocumentListResponse = CType(Me,EDMIServiceReference.IEDMIService).ListFilesForUser(inValue) + Dim retVal As EDMIServiceReference.DocumentListResponse = CType(Me, EDMIServiceReference.IEDMIService).ListFilesForUser(inValue) Return retVal.Datatable End Function - - _ + + Function EDMIServiceReference_IEDMIService_ListFilesForUserAsync(ByVal request As EDMIServiceReference.ListFilesForUserRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentListResponse) Implements EDMIServiceReference.IEDMIService.ListFilesForUserAsync Return MyBase.Channel.ListFilesForUserAsync(request) End Function - + Public Function ListFilesForUserAsync() As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentListResponse) Dim inValue As EDMIServiceReference.ListFilesForUserRequest = New EDMIServiceReference.ListFilesForUserRequest() - Return CType(Me,EDMIServiceReference.IEDMIService).ListFilesForUserAsync(inValue) + Return CType(Me, EDMIServiceReference.IEDMIService).ListFilesForUserAsync(inValue) End Function - - _ + + Function EDMIServiceReference_IEDMIService_TestObjectIdExists(ByVal request As EDMIServiceReference.TestObjectIdExistsRequest) As EDMIServiceReference.TestObjectIdExistsResponse Implements EDMIServiceReference.IEDMIService.TestObjectIdExists Return MyBase.Channel.TestObjectIdExists(request) End Function - + Public Function TestObjectIdExists(ByVal ObjectId As Long, ByRef Exists As Boolean, ByRef Inactive As Boolean) As Boolean Dim inValue As EDMIServiceReference.TestObjectIdExistsRequest = New EDMIServiceReference.TestObjectIdExistsRequest() inValue.ObjectId = ObjectId - Dim retVal As EDMIServiceReference.TestObjectIdExistsResponse = CType(Me,EDMIServiceReference.IEDMIService).TestObjectIdExists(inValue) + Dim retVal As EDMIServiceReference.TestObjectIdExistsResponse = CType(Me, EDMIServiceReference.IEDMIService).TestObjectIdExists(inValue) Exists = retVal.Exists Inactive = retVal.Inactive Return retVal.Deleted End Function - + Public Function TestObjectIdExistsAsync(ByVal request As EDMIServiceReference.TestObjectIdExistsRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.TestObjectIdExistsResponse) Implements EDMIServiceReference.IEDMIService.TestObjectIdExistsAsync Return MyBase.Channel.TestObjectIdExistsAsync(request) End Function diff --git a/Logging/LogConfig.vb b/Logging/LogConfig.vb index 17fd2c6e..917abb03 100644 --- a/Logging/LogConfig.vb +++ b/Logging/LogConfig.vb @@ -510,7 +510,6 @@ Public Class LogConfig ' Add debug rule, if configured If _EnableDebugLogging = True Then _config.AddRule(LogLevel.Debug, LogLevel.Error, TARGET_DEBUG) - oLogger.Info("DEBUG Logging is now Enabled.") Else oLogger.Debug("DEBUG Logging is now Disabled.") End If diff --git a/Logging/My Project/AssemblyInfo.vb b/Logging/My Project/AssemblyInfo.vb index 6f048cc1..854eaeb7 100644 --- a/Logging/My Project/AssemblyInfo.vb +++ b/Logging/My Project/AssemblyInfo.vb @@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices - + @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Modules.sln b/Modules.sln index 15b537e6..7a0e35e3 100644 --- a/Modules.sln +++ b/Modules.sln @@ -40,6 +40,8 @@ Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "Database.Test", "Database.T EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Filesystem", "Filesystem\Filesystem.vbproj", "{991D0231-4623-496D-8BD0-9CA906029CBC}" EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDMIService", "..\DDMonorepo\Service.EDMIService\EDMIService.vbproj", "{A8C3F298-76AB-4359-AB3C-986E313B4336}" +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU @@ -114,6 +116,10 @@ Global {991D0231-4623-496D-8BD0-9CA906029CBC}.Debug|Any CPU.Build.0 = Debug|Any CPU {991D0231-4623-496D-8BD0-9CA906029CBC}.Release|Any CPU.ActiveCfg = Release|Any CPU {991D0231-4623-496D-8BD0-9CA906029CBC}.Release|Any CPU.Build.0 = Release|Any CPU + {A8C3F298-76AB-4359-AB3C-986E313B4336}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {A8C3F298-76AB-4359-AB3C-986E313B4336}.Debug|Any CPU.Build.0 = Debug|Any CPU + {A8C3F298-76AB-4359-AB3C-986E313B4336}.Release|Any CPU.ActiveCfg = Release|Any CPU + {A8C3F298-76AB-4359-AB3C-986E313B4336}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE