Bugfixing Logging

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

@@ -12,6 +12,8 @@ Public Class ClassDocGrid
 
     Public Class clsWMDoc
         Public Property DocId As Integer
+
+        Public Property ParentID As Integer
         Public Property DocPath As String
         Public Property Filename As String
         Public Property DisplayName As String
@@ -107,6 +109,8 @@ Public Class ClassDocGrid
 
         For Each oRowHandle In oSelectedRows
             Dim oDocId = pGridView.GetRowCellValue(oRowHandle, "DocID")
+            Dim oSQL = $"Select dwParentID FROM TBPMO_DOCRESULT_LIST where DocID = {oDocId}"
+            Dim odwParentID = MYDB_ECM.GetScalarValue(oSQL)
             Dim oDisplayName = pGridView.GetRowCellValue(oRowHandle, "Displayname")
             Dim oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULLPATH")
             Dim oObjecttype = pGridView.GetRowCellValue(oRowHandle, "OBJECTTYPE")
@@ -115,6 +119,7 @@ Public Class ClassDocGrid
             Dim oInWorkUser = pGridView.GetRowCellValue(oRowHandle, "in work User")
             oDocuments.Add(New clsWMDoc With {
                 .DocId = oDocId,
+                .ParentID = odwParentID,
                 .DocPath = oDocPath,
                 .DocType = oObjecttype,
                 .DisplayName = oDisplayName,
@@ -145,7 +150,13 @@ Public Class ClassDocGrid
                             SELECTED_DOC_ID = DOC_ID
                             newRow("DOC_ID") = gridView.GetRowCellValue(row, "DocID")
                         Else
-                            Continue For
+                            If Not IsNothing(DOC_ID) Then
+                                SELECTED_DOC_ID = DOC_ID
+                            Else
+                                Continue For
+                            End If
+
+
                         End If
 
                     Catch ex As Exception