579 lines
37 KiB
VB.net
579 lines
37 KiB
VB.net
'------------------------------------------------------------------------------
|
|
' <auto-generated>
|
|
' 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.
|
|
' </auto-generated>
|
|
'------------------------------------------------------------------------------
|
|
|
|
Option Strict On
|
|
Option Explicit On
|
|
|
|
Imports System
|
|
Imports System.Runtime.Serialization
|
|
|
|
Namespace EDMIServiceReference
|
|
|
|
<System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
|
|
System.Runtime.Serialization.DataContractAttribute(Name:="BaseResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Results"), _
|
|
System.SerializableAttribute(), _
|
|
System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.ScalarResult)), _
|
|
System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.NonQueryResult)), _
|
|
System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.TableResult))> _
|
|
Partial Public Class BaseResult
|
|
Inherits Object
|
|
Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
|
|
|
|
<System.NonSerializedAttribute()> _
|
|
Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
|
|
|
|
<System.Runtime.Serialization.OptionalFieldAttribute()> _
|
|
Private ErrorMessageField As String
|
|
|
|
<System.Runtime.Serialization.OptionalFieldAttribute()> _
|
|
Private OKField As Boolean
|
|
|
|
<Global.System.ComponentModel.BrowsableAttribute(false)> _
|
|
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
|
|
|
|
<System.Runtime.Serialization.DataMemberAttribute()> _
|
|
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
|
|
|
|
<System.Runtime.Serialization.DataMemberAttribute()> _
|
|
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
|
|
|
|
<System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
|
|
System.Runtime.Serialization.DataContractAttribute(Name:="ScalarResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Results"), _
|
|
System.SerializableAttribute(), _
|
|
System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.TableResult)), _
|
|
System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.BaseResult)), _
|
|
System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.NonQueryResult)), _
|
|
System.Runtime.Serialization.KnownTypeAttribute(GetType(System.DBNull))> _
|
|
Partial Public Class ScalarResult
|
|
Inherits EDMIServiceReference.BaseResult
|
|
|
|
<System.Runtime.Serialization.OptionalFieldAttribute()> _
|
|
Private ScalarField As Object
|
|
|
|
<System.Runtime.Serialization.DataMemberAttribute()> _
|
|
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
|
|
|
|
<System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
|
|
System.Runtime.Serialization.DataContractAttribute(Name:="NonQueryResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Results"), _
|
|
System.SerializableAttribute()> _
|
|
Partial Public Class NonQueryResult
|
|
Inherits EDMIServiceReference.BaseResult
|
|
End Class
|
|
|
|
<System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
|
|
System.Runtime.Serialization.DataContractAttribute(Name:="TableResult", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Results"), _
|
|
System.SerializableAttribute()> _
|
|
Partial Public Class TableResult
|
|
Inherits EDMIServiceReference.BaseResult
|
|
|
|
<System.Runtime.Serialization.OptionalFieldAttribute()> _
|
|
Private TableField As System.Data.DataTable
|
|
|
|
<System.Runtime.Serialization.DataMemberAttribute()> _
|
|
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
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
|
|
System.ServiceModel.ServiceContractAttribute([Namespace]:="http://DigitalData.Services.EDMIService", ConfigurationName:="EDMIServiceReference.IEDMIService")> _
|
|
Public Interface IEDMIService
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/Heartbeat", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/HeartbeatResponse")> _
|
|
Function Heartbeat() As Boolean
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/Heartbeat", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/HeartbeatResponse")> _
|
|
Function HeartbeatAsync() As System.Threading.Tasks.Task(Of Boolean)
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatableFromCache", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatableFromCacheResp"& _
|
|
"onse")> _
|
|
Function ReturnDatatableFromCache(ByVal Name As String) As EDMIServiceReference.TableResult
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatableFromCache", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatableFromCacheResp"& _
|
|
"onse")> _
|
|
Function ReturnDatatableFromCacheAsync(ByVal Name As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult)
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable_Firebird", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable_FirebirdResp"& _
|
|
"onse")> _
|
|
Function ReturnDatatable_Firebird(ByVal SQL As String) As EDMIServiceReference.TableResult
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable_Firebird", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable_FirebirdResp"& _
|
|
"onse")> _
|
|
Function ReturnDatatable_FirebirdAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult)
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalar_Firebird", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalar_FirebirdRespons"& _
|
|
"e")> _
|
|
Function ReturnScalar_Firebird(ByVal SQL As String) As EDMIServiceReference.ScalarResult
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalar_Firebird", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalar_FirebirdRespons"& _
|
|
"e")> _
|
|
Function ReturnScalar_FirebirdAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.ScalarResult)
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ExecuteNonQuery_Firebird", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ExecuteNonQuery_FirebirdResp"& _
|
|
"onse")> _
|
|
Function ExecuteNonQuery_Firebird(ByVal SQL As String) As EDMIServiceReference.NonQueryResult
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ExecuteNonQuery_Firebird", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ExecuteNonQuery_FirebirdResp"& _
|
|
"onse")> _
|
|
Function ExecuteNonQuery_FirebirdAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.NonQueryResult)
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable_MSSQL_IDB", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable_MSSQL_IDBRes"& _
|
|
"ponse")> _
|
|
Function ReturnDatatable_MSSQL_IDB(ByVal SQL As String) As EDMIServiceReference.TableResult
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable_MSSQL_IDB", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable_MSSQL_IDBRes"& _
|
|
"ponse")> _
|
|
Function ReturnDatatable_MSSQL_IDBAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult)
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalar_MSSQL_IDB", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalar_MSSQL_IDBRespon"& _
|
|
"se")> _
|
|
Function ReturnScalar_MSSQL_IDB(ByVal SQL As String) As EDMIServiceReference.ScalarResult
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalar_MSSQL_IDB", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalar_MSSQL_IDBRespon"& _
|
|
"se")> _
|
|
Function ReturnScalar_MSSQL_IDBAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.ScalarResult)
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ExecuteNonQuery_MSSQL_IDB", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ExecuteNonQuery_MSSQL_IDBRes"& _
|
|
"ponse")> _
|
|
Function ExecuteNonQuery_MSSQL_IDB(ByVal SQL As String) As EDMIServiceReference.NonQueryResult
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ExecuteNonQuery_MSSQL_IDB", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ExecuteNonQuery_MSSQL_IDBRes"& _
|
|
"ponse")> _
|
|
Function ExecuteNonQuery_MSSQL_IDBAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.NonQueryResult)
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable_MSSQL_ECM", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable_MSSQL_ECMRes"& _
|
|
"ponse")> _
|
|
Function ReturnDatatable_MSSQL_ECM(ByVal SQL As String) As EDMIServiceReference.TableResult
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable_MSSQL_ECM", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable_MSSQL_ECMRes"& _
|
|
"ponse")> _
|
|
Function ReturnDatatable_MSSQL_ECMAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult)
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalar_MSSQL_ECM", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalar_MSSQL_ECMRespon"& _
|
|
"se")> _
|
|
Function ReturnScalar_MSSQL_ECM(ByVal SQL As String) As EDMIServiceReference.ScalarResult
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalar_MSSQL_ECM", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalar_MSSQL_ECMRespon"& _
|
|
"se")> _
|
|
Function ReturnScalar_MSSQL_ECMAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.ScalarResult)
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ExecuteNonQuery_MSSQL_ECM", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ExecuteNonQuery_MSSQL_ECMRes"& _
|
|
"ponse")> _
|
|
Function ExecuteNonQuery_MSSQL_ECM(ByVal SQL As String) As EDMIServiceReference.NonQueryResult
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ExecuteNonQuery_MSSQL_ECM", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ExecuteNonQuery_MSSQL_ECMRes"& _
|
|
"ponse")> _
|
|
Function ExecuteNonQuery_MSSQL_ECMAsync(ByVal SQL As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.NonQueryResult)
|
|
|
|
'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Wrappername (DocumentImportRequest) von Nachricht "DocumentImportRequest" nicht mit dem Standardwert (ImportFile) übereinstimmt.
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ImportFile", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ImportFileResponse")> _
|
|
Function ImportFile(ByVal request As EDMIServiceReference.DocumentImportRequest) As EDMIServiceReference.DocumentImportResponse
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ImportFile", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ImportFileResponse")> _
|
|
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.
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/GetFileByObjectId", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/GetFileByObjectIdResponse")> _
|
|
Function GetFileByObjectId(ByVal request As EDMIServiceReference.DocumentStreamRequest) As EDMIServiceReference.DocumentStreamResponse
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/GetFileByObjectId", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/GetFileByObjectIdResponse")> _
|
|
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.
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ListFilesForUser", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ListFilesForUserResponse")> _
|
|
Function ListFilesForUser(ByVal request As EDMIServiceReference.ListFilesForUserRequest) As EDMIServiceReference.DocumentListResponse
|
|
|
|
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ListFilesForUser", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ListFilesForUserResponse")> _
|
|
Function ListFilesForUserAsync(ByVal request As EDMIServiceReference.ListFilesForUserRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentListResponse)
|
|
End Interface
|
|
|
|
<System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
|
|
System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced), _
|
|
System.ServiceModel.MessageContractAttribute(WrapperName:="DocumentImportRequest", WrapperNamespace:="http://DigitalData.Services.EDMIService", IsWrapped:=true)> _
|
|
Partial Public Class DocumentImportRequest
|
|
|
|
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://DigitalData.Services.EDMIService", Order:=0)> _
|
|
Public Contents() As Byte
|
|
|
|
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://DigitalData.Services.EDMIService", Order:=1)> _
|
|
Public DocumentType As String
|
|
|
|
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://DigitalData.Services.EDMIService", Order:=2)> _
|
|
Public FileName As String
|
|
|
|
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://DigitalData.Services.EDMIService", Order:=3)> _
|
|
Public ObjectStoreId As Long
|
|
|
|
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://DigitalData.Services.EDMIService", Order:=4)> _
|
|
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
|
|
|
|
<System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
|
|
System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced), _
|
|
System.ServiceModel.MessageContractAttribute(WrapperName:="DocumentImportResponse", WrapperNamespace:="http://DigitalData.Services.EDMIService", IsWrapped:=true)> _
|
|
Partial Public Class DocumentImportResponse
|
|
|
|
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://DigitalData.Services.EDMIService", Order:=0)> _
|
|
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
|
|
|
|
<System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
|
|
System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced), _
|
|
System.ServiceModel.MessageContractAttribute(WrapperName:="DocumentStreamRequest", WrapperNamespace:="http://DigitalData.Services.EDMIService", IsWrapped:=true)> _
|
|
Partial Public Class DocumentStreamRequest
|
|
|
|
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://DigitalData.Services.EDMIService", Order:=0)> _
|
|
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
|
|
|
|
<System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
|
|
System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced), _
|
|
System.ServiceModel.MessageContractAttribute(WrapperName:="DocumentStreamResponse", WrapperNamespace:="http://DigitalData.Services.EDMIService", IsWrapped:=true)> _
|
|
Partial Public Class DocumentStreamResponse
|
|
|
|
<System.ServiceModel.MessageHeaderAttribute([Namespace]:="http://DigitalData.Services.EDMIService")> _
|
|
Public FileName As String
|
|
|
|
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://DigitalData.Services.EDMIService", Order:=0)> _
|
|
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
|
|
|
|
<System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
|
|
System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced), _
|
|
System.ServiceModel.MessageContractAttribute(IsWrapped:=false)> _
|
|
Partial Public Class ListFilesForUserRequest
|
|
|
|
Public Sub New()
|
|
MyBase.New
|
|
End Sub
|
|
End Class
|
|
|
|
<System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
|
|
System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced), _
|
|
System.ServiceModel.MessageContractAttribute(WrapperName:="DocumentListResponse", WrapperNamespace:="http://DigitalData.Services.EDMIService", IsWrapped:=true)> _
|
|
Partial Public Class DocumentListResponse
|
|
|
|
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://DigitalData.Services.EDMIService", Order:=0)> _
|
|
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
|
|
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0")> _
|
|
Public Interface IEDMIServiceChannel
|
|
Inherits EDMIServiceReference.IEDMIService, System.ServiceModel.IClientChannel
|
|
End Interface
|
|
|
|
<System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0")> _
|
|
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 ReturnDatatableFromCache(ByVal Name As String) As EDMIServiceReference.TableResult Implements EDMIServiceReference.IEDMIService.ReturnDatatableFromCache
|
|
Return MyBase.Channel.ReturnDatatableFromCache(Name)
|
|
End Function
|
|
|
|
Public Function ReturnDatatableFromCacheAsync(ByVal Name As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult) Implements EDMIServiceReference.IEDMIService.ReturnDatatableFromCacheAsync
|
|
Return MyBase.Channel.ReturnDatatableFromCacheAsync(Name)
|
|
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
|
|
|
|
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
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
|
|
|
|
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
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
|
|
|
|
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
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, <System.Runtime.InteropServices.OutAttribute()> 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
|
|
|
|
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
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
|
|
|
|
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
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
|
|
|
|
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
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
|
|
End Class
|
|
End Namespace
|