MS

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

@@ -436,4 +436,13 @@ Public Class ClassHelper
         End Try
 
     End Function
+    Public Shared Function GetDocrecordLinks(pRECORDID As Integer)
+        Try
+            Dim oSQL = $"SELECT * FROM TBPMO_DOC_RECORD_LINK WHERE RECORD_ID = {pRECORDID}"
+            CURRENT_DT_TBPMO_DOC_RECORD_LINK = clsDatabase.Return_Datatable(oSQL, False)
+        Catch ex As Exception
+            LOGGER.Warn("Unexpected Error in GetDocrecordLinks: " & ex.Message)
+            Return False
+        End Try
+    End Function
 End Class

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

@@ -206,7 +206,7 @@ Public Class ClassUpdate
             msg = "There is a new release available for an ADDI-AddOn!" & vbNewLine & "Would You like to install the update now? This might take some time minute(s)!"
         End If
         Dim result As MsgBoxResult
-            result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+            result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
             If result = MsgBoxResult.No Then
                 UPDATE_CANCELLED = True
                 Exit Sub

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

@@ -60,8 +60,14 @@ Public Class ClassWindreamDocGrid
                     Dim newRow As DataRow = DT_RESULTFILES.NewRow()
                     Try
                         Dim DOC_ID = gridView.GetRowCellValue(row, "DocID")
-                        SELECTED_DOC_ID = DOC_ID
-                        newRow("DOC_ID") = gridView.GetRowCellValue(row, "DocID")
+                        Dim CHeckDT As DataTable = ClassHelper.FILTER_DATATABLE(CURRENT_DT_TBPMO_DOC_RECORD_LINK, "DOC_ID = " + DOC_ID.ToString, "")
+                        If CHeckDT.Rows.Count = 1 Then
+                            SELECTED_DOC_ID = DOC_ID
+                            newRow("DOC_ID") = gridView.GetRowCellValue(row, "DocID")
+                        Else
+                            Continue For
+                        End If
+
                     Catch ex As Exception
                         newRow("DOC_ID") = 0
                         SELECTED_DOC_ID = 0