MS FlowSearch EDMIService ObjectAdd

2021-03-11 09:37:24 +01:00
parent 9346eb9534
commit c681bfb674
18 changed files with 484 additions and 55 deletions
--- a/Modules.EDMIAPI/Client.vb
+++ b/Modules.EDMIAPI/Client.vb
@@ -290,4 +290,32 @@ Public Class Client
            Throw ex
        End Try
    End Function
+    Public Function NewIDB_OBJ_ID(pKindType As String, pWho As String, pBusinessEntity As String) As Long
+        Try
+            Dim oResponse = _channel.New_IDB_OBJECT(pKindType, pWho, pBusinessEntity)
+            Return oResponse
+        Catch ex As Exception
+            _logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+    Public Async Function ImportIDBFOAsync(pContent As Byte(), pWho As String, pIDB_OBJ_ID As Long, pObjectStoreID As Short, pIDBFOPath As String) As Task(Of Boolean)
+        Try
+            Dim oData As New DocumentImportIDBFORequest() With {
+                     .Contents = pContent,
+                     .pWho = pWho,
+                    .pIDBFilePath = pIDBFOPath,
+                    .pIDB_OBJ_ID = pIDB_OBJ_ID,
+                    .pObjectStoreID = pObjectStoreID
+                }
+
+            Dim oResponse = Await _channel.ImportNewIDBFOAsync(oData)
+
+            Return oResponse.Result
+
+        Catch ex As Exception
+            _logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
 End Class
--- a/Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentImportIDBFOResponse.datasource
+++ b/Services/EDMIServiceReference/DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentImportIDBFOResponse.datasource
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!--
+    This file is automatically generated by Visual Studio .Net. It is 
+    used to store generic object data source configuration information.  
+    Renaming the file extension or editing the content of this file may   
+    cause the file to be unrecognizable by the program.
+-->
+<GenericObjectDataSource DisplayName="DocumentImportIDBFOResponse" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
+   <TypeInfo>DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentImportIDBFOResponse, Connected Services.EDMIServiceReference.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
+</GenericObjectDataSource>
--- a/Services/EDMIServiceReference/DigitalData.Services.EDMIService.wsdl
+++ b/Services/EDMIServiceReference/DigitalData.Services.EDMIService.wsdl
@@ -160,6 +160,24 @@
  <wsdl:message name="IEDMIService_New_FileStore_Object_UnexpectedErrorFaultFault_FaultMessage">
    <wsdl:part xmlns:q17="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Exceptions" name="detail" element="q17:UnexpectedErrorFault" />
  </wsdl:message>
+  <wsdl:message name="IEDMIService_New_IDB_OBJECT_InputMessage">
+    <wsdl:part name="parameters" element="tns:New_IDB_OBJECT" />
+  </wsdl:message>
+  <wsdl:message name="IEDMIService_New_IDB_OBJECT_OutputMessage">
+    <wsdl:part name="parameters" element="tns:New_IDB_OBJECTResponse" />
+  </wsdl:message>
+  <wsdl:message name="IEDMIService_New_IDB_OBJECT_UnexpectedErrorFaultFault_FaultMessage">
+    <wsdl:part xmlns:q18="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Exceptions" name="detail" element="q18:UnexpectedErrorFault" />
+  </wsdl:message>
+  <wsdl:message name="DocumentImportIDBFORequest">
+    <wsdl:part name="parameters" element="tns:DocumentImportIDBFORequest" />
+  </wsdl:message>
+  <wsdl:message name="DocumentImportIDBFOResponse">
+    <wsdl:part name="parameters" element="tns:DocumentImportIDBFOResponse" />
+  </wsdl:message>
+  <wsdl:message name="IEDMIService_ImportNewIDBFO_UnexpectedErrorFaultFault_FaultMessage">
+    <wsdl:part xmlns:q19="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Exceptions" name="detail" element="q19:UnexpectedErrorFault" />
+  </wsdl:message>
  <wsdl:portType name="IEDMIService">
    <wsdl:operation name="Heartbeat">
      <wsdl:input wsaw:Action="http://DigitalData.Services.EDMIService/IEDMIService/Heartbeat" message="tns:IEDMIService_Heartbeat_InputMessage" />
@@ -242,5 +260,15 @@
      <wsdl:output wsaw:Action="http://DigitalData.Services.EDMIService/IEDMIService/New_FileStore_ObjectResponse" message="tns:IEDMIService_New_FileStore_Object_OutputMessage" />
      <wsdl:fault wsaw:Action="http://DigitalData.Services.EDMIService/IEDMIService/New_FileStore_ObjectUnexpectedErrorFaultFault" name="UnexpectedErrorFaultFault" message="tns:IEDMIService_New_FileStore_Object_UnexpectedErrorFaultFault_FaultMessage" />
    </wsdl:operation>
+    <wsdl:operation name="New_IDB_OBJECT">
+      <wsdl:input wsaw:Action="http://DigitalData.Services.EDMIService/IEDMIService/New_IDB_OBJECT" message="tns:IEDMIService_New_IDB_OBJECT_InputMessage" />
+      <wsdl:output wsaw:Action="http://DigitalData.Services.EDMIService/IEDMIService/New_IDB_OBJECTResponse" message="tns:IEDMIService_New_IDB_OBJECT_OutputMessage" />
+      <wsdl:fault wsaw:Action="http://DigitalData.Services.EDMIService/IEDMIService/New_IDB_OBJECTUnexpectedErrorFaultFault" name="UnexpectedErrorFaultFault" message="tns:IEDMIService_New_IDB_OBJECT_UnexpectedErrorFaultFault_FaultMessage" />
+    </wsdl:operation>
+    <wsdl:operation name="ImportNewIDBFO">
+      <wsdl:input wsaw:Action="http://DigitalData.Services.EDMIService/IEDMIService/ImportNewIDBFO" name="DocumentImportIDBFORequest" message="tns:DocumentImportIDBFORequest" />
+      <wsdl:output wsaw:Action="http://DigitalData.Services.EDMIService/IEDMIService/ImportNewIDBFOResponse" name="DocumentImportIDBFOResponse" message="tns:DocumentImportIDBFOResponse" />
+      <wsdl:fault wsaw:Action="http://DigitalData.Services.EDMIService/IEDMIService/ImportNewIDBFOUnexpectedErrorFaultFault" name="UnexpectedErrorFaultFault" message="tns:IEDMIService_ImportNewIDBFO_UnexpectedErrorFaultFault_FaultMessage" />
+    </wsdl:operation>
  </wsdl:portType>
 </wsdl:definitions>
--- a/Services/EDMIServiceReference/DigitalData.Services.EDMIService.xsd
+++ b/Services/EDMIServiceReference/DigitalData.Services.EDMIService.xsd
@@ -242,4 +242,38 @@
      </xs:sequence>
    </xs:complexType>
  </xs:element>
+  <xs:element name="New_IDB_OBJECT">
+    <xs:complexType>
+      <xs:sequence>
+        <xs:element minOccurs="0" name="KindType" nillable="true" type="xs:string" />
+        <xs:element minOccurs="0" name="pWho" nillable="true" type="xs:string" />
+        <xs:element minOccurs="0" name="pBusinessEntity" nillable="true" type="xs:string" />
+      </xs:sequence>
+    </xs:complexType>
+  </xs:element>
+  <xs:element name="New_IDB_OBJECTResponse">
+    <xs:complexType>
+      <xs:sequence>
+        <xs:element minOccurs="0" name="New_IDB_OBJECTResult" nillable="true" type="xs:string" />
+      </xs:sequence>
+    </xs:complexType>
+  </xs:element>
+  <xs:element name="DocumentImportIDBFORequest">
+    <xs:complexType>
+      <xs:sequence>
+        <xs:element minOccurs="0" name="Contents" nillable="true" type="xs:base64Binary" />
+        <xs:element minOccurs="0" name="pIDBFilePath" nillable="true" type="xs:string" />
+        <xs:element minOccurs="0" name="pIDB_OBJ_ID" type="xs:long" />
+        <xs:element minOccurs="0" name="pObjectStoreID" type="xs:int" />
+        <xs:element minOccurs="0" name="pWho" nillable="true" type="xs:string" />
+      </xs:sequence>
+    </xs:complexType>
+  </xs:element>
+  <xs:element name="DocumentImportIDBFOResponse">
+    <xs:complexType>
+      <xs:sequence>
+        <xs:element minOccurs="0" name="Result" type="xs:boolean" />
+      </xs:sequence>
+    </xs:complexType>
+  </xs:element>
 </xs:schema>
--- a/Services/EDMIServiceReference/Reference.vb
+++ b/Services/EDMIServiceReference/Reference.vb
@@ -454,6 +454,25 @@ Namespace EDMIServiceReference
        <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/New_FileStore_Object", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/New_FileStore_ObjectResponse"& _ 
            "")>  _
        Function New_FileStore_ObjectAsync(ByVal IDB_OBJ_ID As Long, ByVal pStoreType As String, ByVal pDate As String) As System.Threading.Tasks.Task(Of String)
+        
+        <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/New_IDB_OBJECT", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/New_IDB_OBJECTResponse"),  _
+         System.ServiceModel.FaultContractAttribute(GetType(EDMIServiceReference.UnexpectedErrorFault), Action:="http://DigitalData.Services.EDMIService/IEDMIService/New_IDB_OBJECTUnexpectedErro"& _ 
+            "rFaultFault", Name:="UnexpectedErrorFault", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Exceptio"& _ 
+            "ns")>  _
+        Function New_IDB_OBJECT(ByVal KindType As String, ByVal pWho As String, ByVal pBusinessEntity As String) As String
+        
+        <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/New_IDB_OBJECT", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/New_IDB_OBJECTResponse")>  _
+        Function New_IDB_OBJECTAsync(ByVal KindType As String, ByVal pWho As String, ByVal pBusinessEntity As String) As System.Threading.Tasks.Task(Of String)
+        
+        'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Wrappername (DocumentImportIDBFORequest) von Nachricht "DocumentImportIDBFORequest" nicht mit dem Standardwert (ImportNewIDBFO) übereinstimmt.
+        <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ImportNewIDBFO", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ImportNewIDBFOResponse"),  _
+         System.ServiceModel.FaultContractAttribute(GetType(EDMIServiceReference.UnexpectedErrorFault), Action:="http://DigitalData.Services.EDMIService/IEDMIService/ImportNewIDBFOUnexpectedErro"& _ 
+            "rFaultFault", Name:="UnexpectedErrorFault", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Exceptio"& _ 
+            "ns")>  _
+        Function ImportNewIDBFO(ByVal request As EDMIServiceReference.DocumentImportIDBFORequest) As EDMIServiceReference.DocumentImportIDBFOResponse
+        
+        <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ImportNewIDBFO", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ImportNewIDBFOResponse")>  _
+        Function ImportNewIDBFOAsync(ByVal request As EDMIServiceReference.DocumentImportIDBFORequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentImportIDBFOResponse)
    End Interface
    
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
@@ -626,6 +645,60 @@ Namespace EDMIServiceReference
        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:="DocumentImportIDBFORequest", WrapperNamespace:="http://DigitalData.Services.EDMIService", IsWrapped:=true)>  _
+    Partial Public Class DocumentImportIDBFORequest
+        
+        <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 pIDBFilePath As String
+        
+        <System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://DigitalData.Services.EDMIService", Order:=2)>  _
+        Public pIDB_OBJ_ID As Long
+        
+        <System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://DigitalData.Services.EDMIService", Order:=3)>  _
+        Public pObjectStoreID As Integer
+        
+        <System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://DigitalData.Services.EDMIService", Order:=4)>  _
+        Public pWho As String
+        
+        Public Sub New()
+            MyBase.New
+        End Sub
+        
+        Public Sub New(ByVal Contents() As Byte, ByVal pIDBFilePath As String, ByVal pIDB_OBJ_ID As Long, ByVal pObjectStoreID As Integer, ByVal pWho As String)
+            MyBase.New
+            Me.Contents = Contents
+            Me.pIDBFilePath = pIDBFilePath
+            Me.pIDB_OBJ_ID = pIDB_OBJ_ID
+            Me.pObjectStoreID = pObjectStoreID
+            Me.pWho = pWho
+        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:="DocumentImportIDBFOResponse", WrapperNamespace:="http://DigitalData.Services.EDMIService", IsWrapped:=true)>  _
+    Partial Public Class DocumentImportIDBFOResponse
+        
+        <System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://DigitalData.Services.EDMIService", Order:=0)>  _
+        Public Result As Boolean
+        
+        Public Sub New()
+            MyBase.New
+        End Sub
+        
+        Public Sub New(ByVal Result As Boolean)
+            MyBase.New
+            Me.Result = Result
+        End Sub
+    End Class
+    
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0")>  _
    Public Interface IEDMIServiceChannel
        Inherits EDMIServiceReference.IEDMIService, System.ServiceModel.IClientChannel
@@ -846,5 +919,44 @@ Namespace EDMIServiceReference
        Public Function New_FileStore_ObjectAsync(ByVal IDB_OBJ_ID As Long, ByVal pStoreType As String, ByVal pDate As String) As System.Threading.Tasks.Task(Of String) Implements EDMIServiceReference.IEDMIService.New_FileStore_ObjectAsync
            Return MyBase.Channel.New_FileStore_ObjectAsync(IDB_OBJ_ID, pStoreType, pDate)
        End Function
+        
+        Public Function New_IDB_OBJECT(ByVal KindType As String, ByVal pWho As String, ByVal pBusinessEntity As String) As String Implements EDMIServiceReference.IEDMIService.New_IDB_OBJECT
+            Return MyBase.Channel.New_IDB_OBJECT(KindType, pWho, pBusinessEntity)
+        End Function
+        
+        Public Function New_IDB_OBJECTAsync(ByVal KindType As String, ByVal pWho As String, ByVal pBusinessEntity As String) As System.Threading.Tasks.Task(Of String) Implements EDMIServiceReference.IEDMIService.New_IDB_OBJECTAsync
+            Return MyBase.Channel.New_IDB_OBJECTAsync(KindType, pWho, pBusinessEntity)
+        End Function
+        
+        <System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Function EDMIServiceReference_IEDMIService_ImportNewIDBFO(ByVal request As EDMIServiceReference.DocumentImportIDBFORequest) As EDMIServiceReference.DocumentImportIDBFOResponse Implements EDMIServiceReference.IEDMIService.ImportNewIDBFO
+            Return MyBase.Channel.ImportNewIDBFO(request)
+        End Function
+        
+        Public Function ImportNewIDBFO(ByVal Contents() As Byte, ByVal pIDBFilePath As String, ByVal pIDB_OBJ_ID As Long, ByVal pObjectStoreID As Integer, ByVal pWho As String) As Boolean
+            Dim inValue As EDMIServiceReference.DocumentImportIDBFORequest = New EDMIServiceReference.DocumentImportIDBFORequest()
+            inValue.Contents = Contents
+            inValue.pIDBFilePath = pIDBFilePath
+            inValue.pIDB_OBJ_ID = pIDB_OBJ_ID
+            inValue.pObjectStoreID = pObjectStoreID
+            inValue.pWho = pWho
+            Dim retVal As EDMIServiceReference.DocumentImportIDBFOResponse = CType(Me,EDMIServiceReference.IEDMIService).ImportNewIDBFO(inValue)
+            Return retVal.Result
+        End Function
+        
+        <System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Function EDMIServiceReference_IEDMIService_ImportNewIDBFOAsync(ByVal request As EDMIServiceReference.DocumentImportIDBFORequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentImportIDBFOResponse) Implements EDMIServiceReference.IEDMIService.ImportNewIDBFOAsync
+            Return MyBase.Channel.ImportNewIDBFOAsync(request)
+        End Function
+        
+        Public Function ImportNewIDBFOAsync(ByVal Contents() As Byte, ByVal pIDBFilePath As String, ByVal pIDB_OBJ_ID As Long, ByVal pObjectStoreID As Integer, ByVal pWho As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.DocumentImportIDBFOResponse)
+            Dim inValue As EDMIServiceReference.DocumentImportIDBFORequest = New EDMIServiceReference.DocumentImportIDBFORequest()
+            inValue.Contents = Contents
+            inValue.pIDBFilePath = pIDBFilePath
+            inValue.pIDB_OBJ_ID = pIDB_OBJ_ID
+            inValue.pObjectStoreID = pObjectStoreID
+            inValue.pWho = pWho
+            Return CType(Me,EDMIServiceReference.IEDMIService).ImportNewIDBFOAsync(inValue)
+        End Function
    End Class
 End Namespace
--- a/Services/EDMIServiceReference/service.wsdl
+++ b/Services/EDMIServiceReference/service.wsdl
@@ -237,6 +237,30 @@
        <soap12:fault use="literal" name="UnexpectedErrorFaultFault" namespace="" />
      </wsdl:fault>
    </wsdl:operation>
+    <wsdl:operation name="New_IDB_OBJECT">
+      <soap12:operation soapAction="http://DigitalData.Services.EDMIService/IEDMIService/New_IDB_OBJECT" style="document" />
+      <wsdl:input>
+        <soap12:body use="literal" />
+      </wsdl:input>
+      <wsdl:output>
+        <soap12:body use="literal" />
+      </wsdl:output>
+      <wsdl:fault name="UnexpectedErrorFaultFault">
+        <soap12:fault use="literal" name="UnexpectedErrorFaultFault" namespace="" />
+      </wsdl:fault>
+    </wsdl:operation>
+    <wsdl:operation name="ImportNewIDBFO">
+      <soap12:operation soapAction="http://DigitalData.Services.EDMIService/IEDMIService/ImportNewIDBFO" style="document" />
+      <wsdl:input name="DocumentImportIDBFORequest">
+        <soap12:body use="literal" />
+      </wsdl:input>
+      <wsdl:output name="DocumentImportIDBFOResponse">
+        <soap12:body use="literal" />
+      </wsdl:output>
+      <wsdl:fault name="UnexpectedErrorFaultFault">
+        <soap12:fault use="literal" name="UnexpectedErrorFaultFault" namespace="" />
+      </wsdl:fault>
+    </wsdl:operation>
  </wsdl:binding>
  <wsdl:service name="EDMIService">
    <wsdl:port name="NetTcpBinding_IEDMIService" binding="tns:NetTcpBinding_IEDMIService">
--- a/Modules.EDMIAPI/EDMI.API.vbproj
+++ b/Modules.EDMIAPI/EDMI.API.vbproj
@@ -106,6 +106,9 @@
  </ItemGroup>
  <ItemGroup>
    <None Include="app.config" />
+    <None Include="Connected Services\EDMIServiceReference\DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentImportIDBFOResponse.datasource">
+      <DependentUpon>Reference.svcmap</DependentUpon>
+    </None>
    <None Include="Connected Services\EDMIServiceReference\DigitalData.Modules.EDMI.API.EDMIServiceReference.DocumentImportResponse.datasource">
      <DependentUpon>Reference.svcmap</DependentUpon>
    </None>