'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On Imports System Imports System.Runtime.Serialization Namespace 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 End Set End Property Public Property ErrorDetails() As String Get Return Me.ErrorDetailsField End Get Set If (Object.ReferenceEquals(Me.ErrorDetailsField, Value) <> True) Then Me.ErrorDetailsField = Value Me.RaisePropertyChanged("ErrorDetails") End If End Set End Property Public Property ErrorMessage() As String Get Return Me.ErrorMessageField End Get Set If (Object.ReferenceEquals(Me.ErrorMessageField, Value) <> True) Then Me.ErrorMessageField = Value Me.RaisePropertyChanged("ErrorMessage") End If End Set End Property Public Property OK() As Boolean Get Return Me.OKField End Get Set If (Me.OKField.Equals(Value) <> True) Then Me.OKField = Value Me.RaisePropertyChanged("OK") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class Partial Public Class 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 Me.RaisePropertyChanged("ClientConfig") End If End Set End Property End Class Partial Public Class ServiceStatusResponse Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject 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 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 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 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 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 Me.RaisePropertyChanged("Name") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class Partial Public Class 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 End Set End Property Public Property ErrorMessage() As String Get Return Me.ErrorMessageField End Get Set If (Object.ReferenceEquals(Me.ErrorMessageField, Value) <> True) Then Me.ErrorMessageField = Value Me.RaisePropertyChanged("ErrorMessage") End If End Set End Property Public Property InnerException() As System.Exception Get Return Me.InnerExceptionField End Get Set 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 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 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 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 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 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 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 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 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 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 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 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 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 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 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 Me.RaisePropertyChanged("Id") End If End Set End Property Public Property Name() As String Get Return Me.NameField End Get Set If (Object.ReferenceEquals(Me.NameField, Value) <> True) Then Me.NameField = Value Me.RaisePropertyChanged("Name") End If End Set End Property Public Property Values() As String() Get Return Me.ValuesField End Get Set 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 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 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 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 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 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 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 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 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 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 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 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 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 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 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 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 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 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 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 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 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 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 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 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 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 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 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 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 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 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 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 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 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 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 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 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 propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) 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 Me.Exists = Exists 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) 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) 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) 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) 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) 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) 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 End Class End Namespace