EDMIAPI: Add SetObjectState Function

Modules.EDMIAPI/Client.vb

@@ -194,9 +194,11 @@ Public Class Client
         Try
             Dim oNewFile As New Modules.IDB.NewFile(LogConfig, Channel)
             Return Await oNewFile.RunAsync(pFilePath, pObjectStoreName, pObjectKind, pBusinessEntity, pImportOptions)
+
         Catch ex As Exception
             Logger.Error(ex)
             Return Nothing
+
         End Try
     End Function
 
@@ -204,9 +206,23 @@ Public Class Client
         Try
             Dim oUpdateFile As New Modules.IDB.UpdateFile(LogConfig, Channel)
             Return Await oUpdateFile.RunAsync(pFilePath, pObjectId, pImportOptions)
+
         Catch ex As Exception
             Logger.Error(ex)
             Return Nothing
+
+        End Try
+    End Function
+
+    Public Async Function SetObjectStateAsync(pObjectId As Long, pState As String, Optional pOptions As Options.SetObjectStateOptions = Nothing) As Task(Of Boolean)
+        Try
+            Dim oSetObjectState As New Modules.IDB.SetObjectState(LogConfig, Channel)
+            Return Await oSetObjectState.RunAsync(pObjectId, pState, pOptions)
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+
         End Try
     End Function
 
@@ -221,9 +237,11 @@ Public Class Client
         Try
             Dim oImportFile As New Modules.Globix.ImportFile(LogConfig, Channel)
             Return Await oImportFile.RunAsync(pFilePath, pProfileId, pAttributeValues, pObjectStoreName, pObjectKind, pBusinessEntity, pImportOptions)
+
         Catch ex As Exception
             Logger.Error(ex)
             Return Nothing
+
         End Try
     End Function