Renaming DDProcessmanager

app/TaskFlow/frmValidatorSearch.vb

@@ -47,6 +47,7 @@ Public Class frmValidatorSearch
     Private _frmValidator As frmValidator 'You need a reference to Form1
     Private Shared BW_DocPath As String
     Private Shared BW_DocID As Integer
+    Private LastDocID As Int64 = 0
     Private Documentloader As Loader
     Private Property OperationMode As OperationMode
     Private ReadOnly Environment As Environment
@@ -195,7 +196,7 @@ Public Class frmValidatorSearch
                         GridViewSearch5.BestFitColumns(True)
 
                 End Select
-                tsslblSQL.Text = $"Tab {TabCaption} refreshed - {Now}"
+                tsslblSQL.Text = $"Tab [{TabCaption}] refreshed - {Now}"
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -262,7 +263,7 @@ Public Class frmValidatorSearch
                     myGridview.RestoreLayoutFromXml(oxmlPath)
                     myGridview.GuessAutoFilterRowValuesFromFilter()
                 End If
-                tslblState.Text = $"Tab {TabCaption} refreshed - {Now}"
+                tslblState.Text = $"Tab [{TabCaption}] refreshed - {Now}"
             Else
                 clsWMDocGrid.DTDocuments = Nothing
             End If
@@ -510,6 +511,8 @@ Public Class frmValidatorSearch
     End Sub
     Sub Refresh_DocID(myGrid As GridView)
         Try
+
+            myGrid.ShowLoadingPanel()
             clsWMDocGrid.ActiveDocGrid = myGrid
             clsWMDocGrid.ActiveDocGrid.EndSelection()
             clsWMDocGrid.GetDocItems()
@@ -517,6 +520,10 @@ Public Class frmValidatorSearch
                 ToolStripDropDownButtonFile.Visible = True
             End If
             If clsWMDocGrid.SELECTED_DOC_ID <> 0 Then
+                If LastDocID = clsWMDocGrid.SELECTED_DOC_ID Then
+                    myGrid.HideLoadingPanel()
+                    Exit Sub
+                End If
                 Dim msg = "DocID: " & clsWMDocGrid.SELECTED_DOC_ID.ToString
                 tslblDocID.Text = msg
                 ToolStripDropDownButtonFile.Enabled = True
@@ -525,11 +532,10 @@ Public Class frmValidatorSearch
                 oDocument = Documentloader.Load(clsWMDocGrid.SELECTED_DOC_ID, clsWMDocGrid.SELECTED_DOC_PATH)
 
                 If Not IsNothing(DocumentViewer1) Then
-                    ' DocumentViewer1.LoadFile(clsWMDocGrid.SELECTED_DOC_PATH)
                     Dim oFileName = $"{clsWMDocGrid.SELECTED_DOC_ID}.{oDocument.Extension}"
                     If Not IsNothing(oDocument.Contents) Then
                         DocumentViewer1.LoadFile(oFileName, New MemoryStream(oDocument.Contents))
-
+                        LastDocID = clsWMDocGrid.SELECTED_DOC_ID
                         DocumentViewer1.RightViewOnly(USER_RIGHT_VIEW_ONLY)
                         If USER_RIGHT_VIEW_ONLY = True Then
                             ToolStripDropDownButtonFile.Visible = False
@@ -550,7 +556,7 @@ Public Class frmValidatorSearch
         Catch ex As Exception
             LOGGER.Error(ex)
         End Try
-
+        myGrid.HideLoadingPanel()
     End Sub
     Private Sub GridViewDocSearch1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewDocSearch1.FocusedRowChanged
         Refresh_DocID(GridViewDocSearch1)