MS

2023-04-13 17:11:20 +02:00
parent aa7c68a4ce
commit 2db575d944
20 changed files with 584 additions and 4214 deletions
--- a/app/DD-Record-Organizer/Classes/ClassWindreamDocGrid.vb
+++ b/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