EDMI: Add GetDocumentInfo

GUIs.Common/DocumentResultList/frmDocumentResultList.vb

@@ -210,16 +210,29 @@ Public Class frmDocumentResultList
         End Select
     End Sub
 
-    Private Sub GridView_FocusedRowChanged(sender As GridView, e As FocusedRowChangedEventArgs)
+    Private Async Sub GridView_FocusedRowChanged(sender As GridView, e As FocusedRowChangedEventArgs)
         _ActiveRowHandle = e.FocusedRowHandle
 
-        DocumentViewer1.CloseDocument()
+        If _IsLegacy Then
+            If e.FocusedRowHandle >= 0 Then
+                DocumentViewer1.CloseDocument()
 
-        If e.FocusedRowHandle >= 0 Then
-            Dim oRow = sender.GetDataRow(e.FocusedRowHandle)
-            Dim oFullPath = oRow.Item(COLUMN_FILEPATH)
+                Dim oRow = sender.GetDataRow(e.FocusedRowHandle)
+                Dim oFullPath = oRow.Item(COLUMN_FILEPATH)
+
+                DocumentViewer1.LoadFile(oFullPath)
+            End If
+
+        Else
+            If e.FocusedRowHandle >= 0 Then
+                DocumentViewer1.CloseDocument()
+
+                Dim oRow = sender.GetDataRow(e.FocusedRowHandle)
+                Dim oObjectId = oRow.Item(COLUMN_DOCID)
+
+                Dim oInfo = Await _IDBClient.GetDocumentInfo(_Environment.User.UserId, oObjectId)
+            End If
 
-            DocumentViewer1.LoadFile(oFullPath)
         End If
     End Sub