MS FlowSearch EDMIService ObjectAdd

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