Fix NodeId display, prepare multiselect, select active ribbon page on ribbon merging

app/DD-Record-Organizer/Classes/ClassWindreamDocGrid.vb

@@ -16,8 +16,12 @@ Public Class ClassWindreamDocGrid
     Public Shared SELECTED_DOC_RIGHT As Integer
     'Public Shared RESULT_DISPLAYNAME As String
     Public Shared RESULT_CONFIG_IDS As Hashtable
-    Private Shared DATE_COLUMNS As New List(Of String)
-    Private Shared DATE_COLUMNS_CONFIG As New List(Of String)
+    Private Shared ReadOnly DATE_COLUMNS As New List(Of String)
+    Private Shared ReadOnly DATE_COLUMNS_CONFIG As New List(Of String)
+
+    ' This should replace DT_RESULTFILES and also
+    ' SELECTED_INWORK, SELECTED_DOC_ID, SELECTED_DOC_RIGHT, SELECTED_DOC_PATH
+    Public Shared SELECTED_DOCUMENTS As New List(Of WindreamDoc)
 
     Public Shared DT_RESULTFILES As DataTable
     Private Shared DT_DROPDOWN_ITEMS As DataTable
@@ -27,10 +31,18 @@ Public Class ClassWindreamDocGrid
     Private Shared _textValueChangedHandler As EventHandler
     Private Shared _checkValueChangedHandler As EventHandler
 
+    Public Class WindreamDoc
+        Public Property DocId As Integer
+        Public Property DocPath As String
+        Public Property DisplayName As String
+    End Class
+
     Private Shared Function Init_Table()
         Try
-            Dim table As New DataTable
-            table.TableName = "TBSELECTED_FILES"
+            Dim table As New DataTable With {
+                .TableName = "TBSELECTED_FILES"
+            }
+
             ' Create two columns, ID and Name.
             table.Columns.Add("DOC_ID", GetType(Integer))
             table.Columns.Add("DOC_PATH", GetType(System.String))
@@ -47,6 +59,26 @@ Public Class ClassWindreamDocGrid
         End Try
 
     End Function
+
+    Public Shared Function GetSelectedDocuments(pGridView As GridView)
+        Dim oSelectedRows As List(Of Integer) = pGridView.GetSelectedRows().ToList()
+        Dim oDocuments As New List(Of WindreamDoc)
+
+        For Each oRowHandle In oSelectedRows
+            Dim oDocId = pGridView.GetRowCellValue(oRowHandle, "DocID")
+            Dim oDisplayName = pGridView.GetRowCellValue(oRowHandle, "Displayname")
+            Dim oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULLPATH")
+
+            oDocuments.Add(New WindreamDoc With {
+                .DocId = oDocId,
+                .DocPath = oDocPath,
+                .DisplayName = oDisplayName
+            })
+        Next
+
+        Return oDocuments
+    End Function
+
     Public Shared Sub GetDocItems(gridView As GridView)
         _Helper = New ClassHelper
         SELECTED_DOC_ID = 0