Zooflow: CheckInOut

Modules.EDMIAPI/Client.vb

@@ -236,6 +236,42 @@ Public Class Client
         End Try
     End Function
 
+    Public Async Function CheckOutFile(pObjectId As Long, pComment As String, Optional pOptions As Options.CheckOutInOptions = Nothing) As Task(Of Long)
+        Try
+            Dim oCheckOutFile As New Modules.IDB.CheckOutFile(LogConfig, Channel)
+            Return Await oCheckOutFile.RunAsync(pObjectId, pComment, pOptions)
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+
+        End Try
+    End Function
+
+    Public Async Function CheckOutFile(pObjectId As Long, Optional pOptions As Options.CheckOutInOptions = Nothing) As Task(Of Long)
+        Try
+            Dim oCheckOutFile As New Modules.IDB.CheckOutFile(LogConfig, Channel)
+            Return Await oCheckOutFile.RunAsync(pObjectId, String.Empty, pOptions)
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+
+        End Try
+    End Function
+
+    Public Async Function CheckInFile(pObjectId As Long, Optional pOptions As Options.CheckOutInOptions = Nothing) As Task(Of Long)
+        Try
+            Dim oCheckInFile As New Modules.IDB.CheckInFile(LogConfig, Channel)
+            Return Await oCheckInFile.RunAsync(pObjectId, pOptions)
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return Nothing
+
+        End Try
+    End Function
+
     Public Async Function Globix_ImportFileAsync(
         pFilePath As String,
         pProfileId As Integer,