'------------------------------------------------------------------------------ ' ' 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 GlobalStateClientConfiguration Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ 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 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 String _ 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 String Get Return Me.IDBDoctypeIdField End Get Set If (Object.ReferenceEquals(Me.IDBDoctypeIdField, 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 String _ 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 String Get Return Me.IDBDoctypeIdField End Get Set If (Object.ReferenceEquals(Me.IDBDoctypeIdField, 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 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 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