MS Englisch TimerStop

app/DD_PM_WINDREAM/frmMain.vb

@@ -566,11 +566,11 @@ Public Class frmMain
                         CURRENT_CLICKED_PROFILE_ID = _tag
                         CURRENT_CLICKED_PROFILE_TITLE = e.Link.Item.Caption
                         GRID_LOAD_TYPE = "PROFILE#" & CURRENT_CLICKED_PROFILE_ID.ToString
-
+                        TimerRefresh.Stop()
                         GridView_Docs.ShowLoadingPanel()
                         Await Load_single_Profile()
                         GridView_Docs.HideLoadingPanel()
-
+                        TimerRefresh.Start()
                     End If
                 End If
             End If
@@ -949,6 +949,7 @@ Public Class frmMain
             End If
 
             GridView_Docs.ShowLoadingPanel()
+            TimerRefresh.Stop()
 
             If GRID_LOAD_TYPE = "OVERVIEW" Then
                 Await Load_Grid_Overview(FormLoad)
@@ -957,6 +958,7 @@ Public Class frmMain
             End If
 
             GridView_Docs.HideLoadingPanel()
+            TimerRefresh.Start()
 
             If SHOW_MASS_VALIDATOR = False Then
                 GridView_Docs.OptionsSelection.MultiSelect = False
@@ -1166,7 +1168,12 @@ Public Class frmMain
             'GridView_Docs.EndSelection()
             CURRENT_JUMP_DOC_GUID = 0
             Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
-
+            If IsNothing(hitInfo) Then
+                bsiMessage.Caption = "Could not specify hitinfo via click event (CalcHitInfo)"
+                LOGGER.Info("Could not specify hitinfo via click event (CalcHitInfo)")
+                bsiMessage.ItemAppearance.Normal.BackColor = Color.Red
+                Exit Sub
+            End If
             Dim groupRowText
             Dim oHitProfilID
             If hitInfo.InGroupRow Then
@@ -1300,7 +1307,9 @@ Public Class frmMain
         Catch ex As Exception
             LOGGER.Error(ex)
             allgFunk.Insert_LogEntry($"{ex.Message} - Stack: [{ex.StackTrace}]")
-            MsgBox("Unexpected error in Item_Scope: " & ex.Message & vbNewLine & "Choose file again!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
+            bsiMessage.Caption = "Warning in Item_Scope: " & ex.Message
+            bsiMessage.ItemAppearance.Normal.BackColor = Color.Red
+
         End Try
     End Sub
     Private Function Init_IDB()
@@ -1428,9 +1437,10 @@ Public Class frmMain
         SaveGridLayout()
 
         GridView_Docs.ShowLoadingPanel()
+        TimerRefresh.Stop()
         Await Load_Grid_Overview(False)
         GridView_Docs.HideLoadingPanel()
-
+        TimerRefresh.Start()
         RefreshHelper.LoadViewInfo()
     End Sub
     Async Function Load_Grid_Overview(FormLoad As Boolean) As Tasks.Task
@@ -2057,6 +2067,7 @@ Public Class frmMain
 
 
     Private Sub Timer5Mins_Tick(sender As Object, e As EventArgs) Handles Timer5Mins.Tick
+
         Try
             If Not bwBasicData.IsBusy Then
                 BarEditItem1.Caption = "Get BasicData"
@@ -2244,19 +2255,21 @@ Public Class frmMain
     End Sub
 
     Private Sub TimerInactivity_Tick(sender As Object, e As EventArgs) Handles TimerInactivity.Tick
-        If Application.OpenForms().OfType(Of frmValidator).Any Then
-            Check_Timer_Inactivity()
-            Exit Sub
-        End If
-        If Application.OpenForms().OfType(Of frmAdministration).Any Then
-            Check_Timer_Inactivity()
-            Exit Sub
-        End If
         Try
+            If Application.OpenForms().OfType(Of frmValidator).Any Then
+                Check_Timer_Inactivity()
+                Exit Sub
+            End If
+            If Application.OpenForms().OfType(Of frmAdministration).Any Then
+                Check_Timer_Inactivity()
+                Exit Sub
+            End If
+
             INACTIVITYRecognized = True
             Application.Exit()
         Catch ex As Exception
             LOGGER.Error(ex.Message)
         End Try
     End Sub
+
 End Class