ms

app/DD-Record-Organizer/frmConstructor_Main.vb

@@ -3587,7 +3587,8 @@ Public Class frmConstructor_Main
         Me.Cursor = Cursors.WaitCursor
         Dim sw As New SW("RUN_WDSEARCH_GRID")
         Try
-
+            progressLoadEntity.Visible = True
+            labelLoadEntity.Text = "Documents loading..."
             If CURRENT_SEARCH_TYPE = "NODE_DOWN" Then
                 Dim node As TreeNode = TreeViewMain.SelectedNode
                 Dim NODE_GUID = ClassNodeNavigation.Return_NODEID_forTag(node.Tag)
@@ -3595,9 +3596,20 @@ Public Class frmConstructor_Main
                     "EXEC	@return_value = [dbo].[PRPMO_NODES_GET_CHILD_RECORDS] @USER_ID = {0}, @NODE_ID = {1} " & vbNewLine &
                     "SELECT	'Return Value' = @return_value", USER_GUID, NODE_GUID)
                 Me.Cursor = Cursors.WaitCursor
-                Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
-                If Not IsNothing(DT) Then
-                    Dim result = DT.Rows(0).Item(0)
+                Dim DT_ASYNC As DataTable
+                Try
+                    Dim async As New ClassAsyncSQL(sql)
+                    async.bw.RunWorkerAsync()
+                    While async.bw.IsBusy
+                        Application.DoEvents()
+                    End While
+                    DT_ASYNC = async.dt
+                Catch ex As Exception
+                    ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error Async DT_ASYNC", ex.Message, ex.StackTrace)
+                End Try
+
+                If Not IsNothing(DT_ASYNC) Then
+                    Dim result = DT_ASYNC.Rows(0).Item(0)
                     If result <> 0 Then
                         ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Getting SubNodes-Structure", "Check the logfile")
                     End If
@@ -3742,6 +3754,8 @@ Public Class frmConstructor_Main
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Run WD-Search Database: ", ex.Message)
         End Try
         sw.Done()
+        progressLoadEntity.Visible = False
+        labelLoadEntity.Visible = False
         Cursor = Cursors.Default
     End Sub
     Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs)
@@ -4259,7 +4273,7 @@ Public Class frmConstructor_Main
                             ClassHelper.Create_USER_FILE_TABLE()
                             If Not IsNothing(CURRENT_TBPMO_FILES_USER) Then
                                 If CURRENT_TBPMO_FILES_USER.Rows.Count > 0 Then
-                                    frmWD_IndexFile.ShowDialog()
+                                    frmWM_IndexFile.ShowDialog()
                                 End If
                             End If
 
@@ -4356,7 +4370,7 @@ Public Class frmConstructor_Main
                             CURRENT_RECORD_ID = RECORD_ID
                             CURRENT_ENTITY_ID = ENTITY_ID
                             CURRENT_FORMVIEW_ID = FORMVIEW_ID
-                            frmWD_IndexFile.ShowDialog()
+                            frmWM_IndexFile.ShowDialog()
                             'sql = String.Format("SELECT * FROM TBPMO_FILES_USER WHERE (UPPER(USER_WORK) = UPPER('{0}')) AND WORKED = 0", USER_USERNAME)
                             'CURRENT_TBPMO_FILES_USER = ClassDatabase.Return_Datatable(sql, True)
                             'If CURRENT_TBPMO_FILES_USER.Rows.Count > 0 Then
@@ -4523,7 +4537,7 @@ Public Class frmConstructor_Main
                 FOLLOW_UPisActive = False
                 TabFollowUp.PageVisible = False
             End If
-            sw.done
+            sw.Done()
         Catch ex As Exception
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in Check Follow Up: ", ex.Message)
             windream_Docshow = False
@@ -4627,7 +4641,7 @@ Public Class frmConstructor_Main
         End If
         CURRENT_ENTITYSTRING = _ENTITYSTRING
         CURRENT_ENTITY_ID = ENTITY_ID
-        frmWD_EntityImport.ShowDialog()
+        frmWM_EntityImport.ShowDialog()
     End Sub
     Private Sub FormDesignerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles FormDesignerToolStripMenuItem.Click
         Try
@@ -5071,17 +5085,20 @@ Public Class frmConstructor_Main
     End Sub
     Private Sub grvwGrid_ColumnFilterChanged(sender As Object, e As EventArgs) Handles grvwGrid.ColumnFilterChanged
         SET_ROWCOUNT_STRING()
+
     End Sub
+
     Sub SET_ROWCOUNT_STRING()
-        If NODE_NAVIGATION = True Then Exit Sub
         Dim sw As New SW("SET_ROWCOUNT_STRING")
-        Dim selnode As TreeNode = TreeViewMain.SelectedNode
-        Dim origtext As String = selnode.Text
-        If origtext.Contains(" (") Then
-            Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
-            selnode.Text = String.Format("{0} ({1})", existingstring, grvwGrid.RowCount)
-        Else
-            selnode.Text = String.Format("{0} ({1})", selnode.Text, grvwGrid.RowCount)
+        If NODE_NAVIGATION = False Then
+            Dim selnode As TreeNode = TreeViewMain.SelectedNode
+            Dim origtext As String = selnode.Text
+            If origtext.Contains(" (") Then
+                Dim existingstring = origtext.Substring(0, origtext.IndexOf("(") - 1)
+                selnode.Text = String.Format("{0} ({1})", existingstring, grvwGrid.RowCount)
+            Else
+                selnode.Text = String.Format("{0} ({1})", selnode.Text, grvwGrid.RowCount)
+            End If
         End If
         Dim msg = "Anzahl Datensätze: "
         If USER_LANGUAGE <> "de-DE" Then
@@ -6375,7 +6392,7 @@ Public Class frmConstructor_Main
 
     Private Sub DateiVersionierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiVersionierenToolStripMenuItem.Click
         Refresh_Selected_Table()
-        frmWD_CreateVersion.ShowDialog()
+        frmWM_CreateVersion.ShowDialog()
         RUN_WDSEARCH_GRID()
     End Sub
     Sub Refresh_Selected_Table()
@@ -6407,7 +6424,7 @@ Public Class frmConstructor_Main
     Private Sub DokumentartÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentartÄndernToolStripMenuItem.Click
         CURRENT_FORMVIEW_ID = FORMVIEW_ID
         Refresh_Selected_Table()
-        frmWD_ChangeDoctype.ShowDialog()
+        frmWM_ChangeDoctype.ShowDialog()
         RUN_WDSEARCH_GRID()
     End Sub
     Private Sub NeuToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuToolStripMenuItem.Click
@@ -6727,7 +6744,7 @@ Public Class frmConstructor_Main
         Else
             CURRENT_NAVIGATION_TYPE = "DEFAULT"
         End If
-        frmWD_FulltextChoice.ShowDialog()
+        frmWM_FulltextChoice.ShowDialog()
         If CURRENT_FULLTEXT_PATTERN <> "" Then
             RUN_WDSEARCH_GRID()
         End If