'------------------------------------------------------------------------------
'
' 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 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 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 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 GetClientConfigResponse
Inherits EDMIServiceReference.BaseResponse
_
Private ClientConfigField As EDMIServiceReference.ConfigClientConfiguration
_
Public Property ClientConfig() As EDMIServiceReference.ConfigClientConfiguration
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 ConfigClientConfiguration
Inherits Object
Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
_
Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
_
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 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 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 BusinessEntityField As String
_
Private FileField As EDMIServiceReference.FileProperties
_
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 BusinessEntity() As String
Get
Return Me.BusinessEntityField
End Get
Set
If (Object.ReferenceEquals(Me.BusinessEntityField, value) <> true) Then
Me.BusinessEntityField = value
Me.RaisePropertyChanged("BusinessEntity")
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 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 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 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 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 Long
Get
Return Me.WhoField
End Get
Set
If (Me.WhoField.Equals(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 ImportFileRequest
Inherits Object
Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
_
Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
_
Private AttributeValuesField() As EDMIServiceReference.UserAttributeValue
_
Private BusinessEntityField As String
_
Private FileField As EDMIServiceReference.FileProperties
_
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 BusinessEntity() As String
Get
Return Me.BusinessEntityField
End Get
Set
If (Object.ReferenceEquals(Me.BusinessEntityField, value) <> true) Then
Me.BusinessEntityField = value
Me.RaisePropertyChanged("BusinessEntity")
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 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 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 _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 _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
_
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 SetAttributeValue(ByVal Data As EDMIServiceReference.SetAttributeValueRequest) As EDMIServiceReference.SetAttributeValueResponse
_
Function SetAttributeValueAsync(ByVal Data As EDMIServiceReference.SetAttributeValueRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.SetAttributeValueResponse)