'------------------------------------------------------------------------------ ' ' 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 BaseResult Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ 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 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 ScalarResult Inherits EDMIServiceReference.BaseResult _ 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.BaseResult End Class _ Partial Public Class DocumentResultOld Inherits EDMIServiceReference.BaseResult Private ContentsField() As Byte Private DocumentField As EDMIServiceReference.DocumentObject Private HasContentsField As Boolean _ Public Property Contents() As Byte() Get Return Me.ContentsField End Get Set If (Object.ReferenceEquals(Me.ContentsField, value) <> true) Then Me.ContentsField = value Me.RaisePropertyChanged("Contents") End If End Set End Property _ Public Property Document() As EDMIServiceReference.DocumentObject Get Return Me.DocumentField End Get Set If (Object.ReferenceEquals(Me.DocumentField, value) <> true) Then Me.DocumentField = value Me.RaisePropertyChanged("Document") End If End Set End Property _ Public Property HasContents() As Boolean Get Return Me.HasContentsField End Get Set If (Me.HasContentsField.Equals(value) <> true) Then Me.HasContentsField = value Me.RaisePropertyChanged("HasContents") End If End Set End Property End Class _ Partial Public Class IndexResult Inherits EDMIServiceReference.BaseResult Private IndexIdField As Long _ Public Property IndexId() As Long Get Return Me.IndexIdField End Get Set If (Me.IndexIdField.Equals(value) <> true) Then Me.IndexIdField = value Me.RaisePropertyChanged("IndexId") End If End Set End Property End Class _ Partial Public Class TableResult Inherits EDMIServiceReference.BaseResult _ 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 DocumentObject Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject Private ContainerIdField As String Private DocumentIdField As Long 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 ContainerId() As String Get Return Me.ContainerIdField End Get Set If (Object.ReferenceEquals(Me.ContainerIdField, value) <> true) Then Me.ContainerIdField = value Me.RaisePropertyChanged("ContainerId") End If End Set End Property _ Public Property DocumentId() As Long Get Return Me.DocumentIdField End Get Set If (Me.DocumentIdField.Equals(value) <> true) Then Me.DocumentIdField = value Me.RaisePropertyChanged("DocumentId") 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 _ Public Interface IEDMIService _ Function Heartbeat() As Boolean _ Function HeartbeatAsync() As System.Threading.Tasks.Task(Of Boolean) _ Function CreateDatabaseRequest(ByVal Name As String, ByVal Debug As Boolean) As String _ Function CreateDatabaseRequestAsync(ByVal Name As String, ByVal Debug As Boolean) As System.Threading.Tasks.Task(Of String) _ Sub CloseDatabaseRequest() _ Function CloseDatabaseRequestAsync() As System.Threading.Tasks.Task _ Function ReturnDatatable(ByVal SQL As String) As EDMIServiceReference.TableResult _ Function ReturnDatatableAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult) _ Function ReturnScalar(ByVal SQL As String) As EDMIServiceReference.ScalarResult _ Function ReturnScalarAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.ScalarResult) _ Function ExecuteNonQuery(ByVal SQL As String) As EDMIServiceReference.NonQueryResult _ Function ExecuteNonQueryAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.NonQueryResult) _ Function NewFile(ByVal FileName As String, ByVal Contents() As Byte) As EDMIServiceReference.DocumentResultOld _ Function NewFileAsync(ByVal FileName As String, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentResultOld) _ Function UpdateFile(ByVal DocObject As EDMIServiceReference.DocumentObject, ByVal Contents() As Byte) As EDMIServiceReference.DocumentResultOld _ Function UpdateFileAsync(ByVal DocObject As EDMIServiceReference.DocumentObject, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentResultOld) _ Function GetFile(ByVal DocObject As EDMIServiceReference.DocumentObject) As EDMIServiceReference.DocumentResultOld _ Function GetFileAsync(ByVal DocObject As EDMIServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentResultOld) _ Function DeleteFile(ByVal DocObject As EDMIServiceReference.DocumentObject) As Boolean _ Function DeleteFileAsync(ByVal DocObject As EDMIServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of Boolean) _ Function GetDocumentByDocumentId(ByVal DocumentId As Long) As EDMIServiceReference.DocumentResultOld _ Function GetDocumentByDocumentIdAsync(ByVal DocumentId As Long) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentResultOld) _ Function GetDocumentByContainerId(ByVal ContainerId As String) As EDMIServiceReference.DocumentResultOld _ Function GetDocumentByContainerIdAsync(ByVal ContainerId As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentResultOld) 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Wrappername (DocumentImportRequest) von Nachricht "DocumentImportRequest" nicht mit dem Standardwert (ImportFile) übereinstimmt. _ Function ImportFile(ByVal request As EDMIServiceReference.DocumentImportRequest) As EDMIServiceReference.DocumentImportResponse _ Function ImportFileAsync(ByVal request As EDMIServiceReference.DocumentImportRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentImportResponse) '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) '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 NewFileIndex(ByVal DocObject As EDMIServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As EDMIServiceReference.IndexResult _ Function NewFileIndexAsync(ByVal DocObject As EDMIServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.IndexResult) End Interface _ Partial Public Class DocumentImportRequest _ Public Contents() As Byte _ Public DocumentType As String _ Public FileName As String _ Public ObjectStoreId As Long _ Public RetentionDays As Long Public Sub New() MyBase.New End Sub Public Sub New(ByVal Contents() As Byte, ByVal DocumentType As String, ByVal FileName As String, ByVal ObjectStoreId As Long, ByVal RetentionDays As Long) MyBase.New Me.Contents = Contents Me.DocumentType = DocumentType Me.FileName = FileName Me.ObjectStoreId = ObjectStoreId Me.RetentionDays = RetentionDays End Sub End Class _ Partial Public Class DocumentImportResponse _ 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 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 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 _ 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 CreateDatabaseRequest(ByVal Name As String, ByVal Debug As Boolean) As String Implements EDMIServiceReference.IEDMIService.CreateDatabaseRequest Return MyBase.Channel.CreateDatabaseRequest(Name, Debug) End Function Public Function CreateDatabaseRequestAsync(ByVal Name As String, ByVal Debug As Boolean) As System.Threading.Tasks.Task(Of String) Implements EDMIServiceReference.IEDMIService.CreateDatabaseRequestAsync Return MyBase.Channel.CreateDatabaseRequestAsync(Name, Debug) End Function Public Sub CloseDatabaseRequest() Implements EDMIServiceReference.IEDMIService.CloseDatabaseRequest MyBase.Channel.CloseDatabaseRequest End Sub Public Function CloseDatabaseRequestAsync() As System.Threading.Tasks.Task Implements EDMIServiceReference.IEDMIService.CloseDatabaseRequestAsync Return MyBase.Channel.CloseDatabaseRequestAsync End Function Public Function ReturnDatatable(ByVal SQL As String) As EDMIServiceReference.TableResult Implements EDMIServiceReference.IEDMIService.ReturnDatatable Return MyBase.Channel.ReturnDatatable(SQL) End Function Public Function ReturnDatatableAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult) Implements EDMIServiceReference.IEDMIService.ReturnDatatableAsync Return MyBase.Channel.ReturnDatatableAsync(SQL) End Function Public Function ReturnScalar(ByVal SQL As String) As EDMIServiceReference.ScalarResult Implements EDMIServiceReference.IEDMIService.ReturnScalar Return MyBase.Channel.ReturnScalar(SQL) End Function Public Function ReturnScalarAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.ScalarResult) Implements EDMIServiceReference.IEDMIService.ReturnScalarAsync Return MyBase.Channel.ReturnScalarAsync(SQL) End Function Public Function ExecuteNonQuery(ByVal SQL As String) As EDMIServiceReference.NonQueryResult Implements EDMIServiceReference.IEDMIService.ExecuteNonQuery Return MyBase.Channel.ExecuteNonQuery(SQL) End Function Public Function ExecuteNonQueryAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.NonQueryResult) Implements EDMIServiceReference.IEDMIService.ExecuteNonQueryAsync Return MyBase.Channel.ExecuteNonQueryAsync(SQL) End Function Public Function NewFile(ByVal FileName As String, ByVal Contents() As Byte) As EDMIServiceReference.DocumentResultOld Implements EDMIServiceReference.IEDMIService.NewFile Return MyBase.Channel.NewFile(FileName, Contents) End Function Public Function NewFileAsync(ByVal FileName As String, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentResultOld) Implements EDMIServiceReference.IEDMIService.NewFileAsync Return MyBase.Channel.NewFileAsync(FileName, Contents) End Function Public Function UpdateFile(ByVal DocObject As EDMIServiceReference.DocumentObject, ByVal Contents() As Byte) As EDMIServiceReference.DocumentResultOld Implements EDMIServiceReference.IEDMIService.UpdateFile Return MyBase.Channel.UpdateFile(DocObject, Contents) End Function Public Function UpdateFileAsync(ByVal DocObject As EDMIServiceReference.DocumentObject, ByVal Contents() As Byte) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentResultOld) Implements EDMIServiceReference.IEDMIService.UpdateFileAsync Return MyBase.Channel.UpdateFileAsync(DocObject, Contents) End Function Public Function GetFile(ByVal DocObject As EDMIServiceReference.DocumentObject) As EDMIServiceReference.DocumentResultOld Implements EDMIServiceReference.IEDMIService.GetFile Return MyBase.Channel.GetFile(DocObject) End Function Public Function GetFileAsync(ByVal DocObject As EDMIServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentResultOld) Implements EDMIServiceReference.IEDMIService.GetFileAsync Return MyBase.Channel.GetFileAsync(DocObject) End Function Public Function DeleteFile(ByVal DocObject As EDMIServiceReference.DocumentObject) As Boolean Implements EDMIServiceReference.IEDMIService.DeleteFile Return MyBase.Channel.DeleteFile(DocObject) End Function Public Function DeleteFileAsync(ByVal DocObject As EDMIServiceReference.DocumentObject) As System.Threading.Tasks.Task(Of Boolean) Implements EDMIServiceReference.IEDMIService.DeleteFileAsync Return MyBase.Channel.DeleteFileAsync(DocObject) End Function Public Function GetDocumentByDocumentId(ByVal DocumentId As Long) As EDMIServiceReference.DocumentResultOld Implements EDMIServiceReference.IEDMIService.GetDocumentByDocumentId Return MyBase.Channel.GetDocumentByDocumentId(DocumentId) End Function Public Function GetDocumentByDocumentIdAsync(ByVal DocumentId As Long) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentResultOld) Implements EDMIServiceReference.IEDMIService.GetDocumentByDocumentIdAsync Return MyBase.Channel.GetDocumentByDocumentIdAsync(DocumentId) End Function Public Function GetDocumentByContainerId(ByVal ContainerId As String) As EDMIServiceReference.DocumentResultOld Implements EDMIServiceReference.IEDMIService.GetDocumentByContainerId Return MyBase.Channel.GetDocumentByContainerId(ContainerId) End Function Public Function GetDocumentByContainerIdAsync(ByVal ContainerId As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentResultOld) Implements EDMIServiceReference.IEDMIService.GetDocumentByContainerIdAsync Return MyBase.Channel.GetDocumentByContainerIdAsync(ContainerId) End Function _ Function EDMIServiceReference_IEDMIService_ImportFile(ByVal request As EDMIServiceReference.DocumentImportRequest) As EDMIServiceReference.DocumentImportResponse Implements EDMIServiceReference.IEDMIService.ImportFile Return MyBase.Channel.ImportFile(request) End Function Public Function ImportFile(ByVal Contents() As Byte, ByVal DocumentType As String, ByVal FileName As String, ByVal ObjectStoreId As Long, ByVal RetentionDays As Long) As Long Dim inValue As EDMIServiceReference.DocumentImportRequest = New EDMIServiceReference.DocumentImportRequest() inValue.Contents = Contents inValue.DocumentType = DocumentType inValue.FileName = FileName inValue.ObjectStoreId = ObjectStoreId inValue.RetentionDays = RetentionDays Dim retVal As EDMIServiceReference.DocumentImportResponse = CType(Me,EDMIServiceReference.IEDMIService).ImportFile(inValue) Return retVal.ObjectId End Function _ Function EDMIServiceReference_IEDMIService_ImportFileAsync(ByVal request As EDMIServiceReference.DocumentImportRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentImportResponse) Implements EDMIServiceReference.IEDMIService.ImportFileAsync Return MyBase.Channel.ImportFileAsync(request) End Function Public Function ImportFileAsync(ByVal Contents() As Byte, ByVal DocumentType As String, ByVal FileName As String, ByVal ObjectStoreId As Long, ByVal RetentionDays As Long) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentImportResponse) Dim inValue As EDMIServiceReference.DocumentImportRequest = New EDMIServiceReference.DocumentImportRequest() inValue.Contents = Contents inValue.DocumentType = DocumentType inValue.FileName = FileName inValue.ObjectStoreId = ObjectStoreId inValue.RetentionDays = RetentionDays Return CType(Me,EDMIServiceReference.IEDMIService).ImportFileAsync(inValue) 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_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 Public Function NewFileIndex(ByVal DocObject As EDMIServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As EDMIServiceReference.IndexResult Implements EDMIServiceReference.IEDMIService.NewFileIndex Return MyBase.Channel.NewFileIndex(DocObject, Syskey, LanguageCode, Value) End Function Public Function NewFileIndexAsync(ByVal DocObject As EDMIServiceReference.DocumentObject, ByVal Syskey As String, ByVal LanguageCode As String, ByVal Value As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.IndexResult) Implements EDMIServiceReference.IEDMIService.NewFileIndexAsync Return MyBase.Channel.NewFileIndexAsync(DocObject, Syskey, LanguageCode, Value) End Function End Class End Namespace