Common: Fix Property Dialog, Fix context Menu in DocumentResultList

Modules.EDMIAPI/Client.vb

@@ -137,6 +137,47 @@ Public Class Client
         End Try
     End Function
 
+    Public Function GetDatatableFromIDB(SQL As String) As TableResult
+        Try
+            Dim oResponse = _channel.ReturnDatatable_MSSQL_IDB(SQL)
+            Return oResponse
+        Catch ex As Exception
+            _logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+
+
+    Public Async Function GetDatatableFromIDBAsync(SQL As String) As Task(Of TableResult)
+        Try
+            Dim oResponse = Await _channel.ReturnDatatable_MSSQL_IDBAsync(SQL)
+            Return oResponse
+        Catch ex As Exception
+            _logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+
+    Public Function GetScalarValueFromIDB(SQL As String) As ScalarResult
+        Try
+            Dim oResponse = _channel.ReturnScalar_MSSQL_IDB(SQL)
+            Return oResponse
+        Catch ex As Exception
+            _logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+
+    Public Async Function GetScalarValueFromIDBAsync(SQL As String) As Task(Of ScalarResult)
+        Try
+            Dim oResponse = Await _channel.ReturnScalar_MSSQL_IDBAsync(SQL)
+            Return oResponse
+        Catch ex As Exception
+            _logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+
     Public Function GetDatatableByName(DatatableName As String, Optional FilterExpression As String = "", Optional SortByColumn As String = "") As TableResult
         Try
             Dim oResponse = _channel.ReturnDatatableFromCache(DatatableName, FilterExpression, SortByColumn)
@@ -157,7 +198,25 @@ Public Class Client
         End Try
     End Function
 
-    Public Async Function GetDocumentInfo(UserId As Long, ObjectId As Long) As Task(Of DocumentInfo)
+    Public Function GetDocumentInfo(UserId As Long, ObjectId As Long) As DocumentInfo
+        Try
+            Dim oParams = New DocumentInfoRequest With {
+                .ObjectId = ObjectId,
+                .UserId = UserId
+            }
+            Dim oResponse As DocumentInfoResponse = _channel.GetFileInfoByObjectId(oParams)
+
+            Return New DocumentInfo With {
+                .AccessRight = oResponse.FileRight,
+                .FullPath = oResponse.FullPath
+            }
+        Catch ex As Exception
+            _logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+
+    Public Async Function GetDocumentInfoAsync(UserId As Long, ObjectId As Long) As Task(Of DocumentInfo)
         Try
             Dim oParams = New DocumentInfoRequest With {
                 .ObjectId = ObjectId,