MS frmMain Sync

app/DD_PM_WINDREAM/frmMain.vb

@@ -138,12 +138,6 @@ Public Class frmMain
     End Sub
 
     Private Sub frmMain_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Environment.UserName.ToLower = "schreiberm" Or Environment.UserName.ToLower = "jennej" Or Environment.UserName.ToLower = "marschreiber" Then
-            bbtniMetadataFile.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
-        Else
-            bbtniMetadataFile.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
-        End If
-
         FormOpenClose = True
         LOGGER.Debug("Initializing MainForm....")
 
@@ -322,7 +316,7 @@ Public Class frmMain
             bbtniMonitor.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
         End If
         Check_Timer_Notification()
-        Check_Timer_Inactivity()
+        Timer_Inactivity_Reset_Disable()
         FormShown = True
         Restore_Form_Position()
 
@@ -386,7 +380,7 @@ Public Class frmMain
         End Try
 
     End Sub
-    Public Sub Check_Timer_Inactivity()
+    Public Sub Timer_Inactivity_Reset_Disable()
         Try
             If INACTIVITY_DURATION <> 0 Then
                 TimerInactivity.Stop()
@@ -1060,19 +1054,27 @@ Public Class frmMain
                 Exit Sub
             End If
             If bwBasicData.IsBusy Then
-                LOGGER.Info("bwBasicData is busy - no Refreshing")
-                Exit Sub
-            End If
-            If Application.OpenForms().OfType(Of frmValidator).Any Then
-                Exit Sub
-            End If
-            If Application.OpenForms().OfType(Of frmAdministration).Any Then
-                Exit Sub
-            End If
-            If Application.OpenForms().OfType(Of frmAdmin2).Any Then
+                LOGGER.Info("backGroundWorker BasicData in Action - no Client-Sync")
+                bsiMessage.Caption = "bwBasicData is busy - no Refreshing"
+                bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow
                 Exit Sub
             End If
 
+
+            'If Application.OpenForms().OfType(Of frmValidator).Any Then
+            '    Exit Sub
+            'End If
+            'If Application.OpenForms().OfType(Of frmAdministration).Any Then
+            '    Exit Sub
+            'End If
+            'If Application.OpenForms().OfType(Of frmAdmin2).Any Then
+            '    Exit Sub
+            'End If
+            If USER_LANGUAGE <> "de-DE" Then
+                bsilastsync.Caption = "Last Client-Sync: " & Now.ToLongTimeString
+            Else
+                bsilastsync.Caption = "Letzte Synchronisation: " & Now.ToLongTimeString
+            End If
             If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.SaveViewInfo()
             'If Not Application.OpenForms().OfType(Of frmValidator).Any Then
             '    Dim oUpdate = "Not Defined"
@@ -1097,11 +1099,7 @@ Public Class frmMain
                 Await Decide_Load(False)
                 oStopWatch.Done()
                 'bwSync.ReportProgress(95)
-                If USER_LANGUAGE <> "de-DE" Then
-                    bsilastsync.Caption = "Last Client-Sync: " & Now.ToLongTimeString
-                Else
-                    bsilastsync.Caption = "Letzte Synchronisation: " & Now.ToLongTimeString
-                End If
+
                 If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo()
 
                 Handling_DEBUG_USER()
@@ -1959,7 +1957,7 @@ Public Class frmMain
 
 
     Private Async Sub TabellenlayoutZurücksetzenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TabellenlayoutZurücksetzenToolStripMenuItem.Click
-        Check_Timer_Inactivity()
+        Timer_Inactivity_Reset_Disable()
         Await Reset_GridLayout(False)
         Await Decide_Load(False, True)
         SaveGridLayout()
@@ -2081,18 +2079,14 @@ Public Class frmMain
     End Sub
 
     Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridView_Docs.ColumnWidthChanged
-        If FormShown = False Then
-            Exit Sub
-        End If
-        Check_Timer_Inactivity()
-        SaveGridLayout()
+        GridLayout_Changed()
     End Sub
     Private Sub GridView_Docs_EndSorting(sender As Object, e As EventArgs) Handles GridView_Docs.EndSorting
         '  SaveGridLayout()
     End Sub
 
     Private Sub LayoutSpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LayoutSpeichernToolStripMenuItem.Click
-        Check_Timer_Inactivity()
+        Timer_Inactivity_Reset_Disable()
         SaveGridLayout()
     End Sub
 
@@ -2118,7 +2112,10 @@ Public Class frmMain
 
 
             If pMode = "bwBasicData" Then bwBasicData.ReportProgress(10)
-            ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)
+            If pMode <> "Load" Then
+                ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)
+            End If
+
             If pMode = "bwBasicData" Then bwBasicData.ReportProgress(20)
             oSQL = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID)
             CURR_DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable(oSQL, "GetBaseData2")
@@ -2223,7 +2220,7 @@ Public Class frmMain
     End Sub
 
     Private Sub LöscheAlleFilterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöscheAlleFilterToolStripMenuItem.Click
-        Check_Timer_Inactivity()
+        Timer_Inactivity_Reset_Disable()
 
         Try
             GridView_Docs.ClearFindFilter()
@@ -2499,7 +2496,7 @@ Public Class frmMain
             If FormShown = False Then
                 Exit Sub
             End If
-            Check_Timer_Inactivity()
+            Timer_Inactivity_Reset_Disable()
             Dim objectCount_Descr = GridView_Docs.RowCount.ToString
             If USER_LANGUAGE <> "de-DE" Then
                 objectCount_Descr &= " objects (filtered)"
@@ -2530,23 +2527,33 @@ Public Class frmMain
     Private Sub TimerInactivity_Tick(sender As Object, e As EventArgs) Handles TimerInactivity.Tick
         Try
             If Application.OpenForms().OfType(Of frmValidator).Any Then
-                Check_Timer_Inactivity()
+                bsiMessage.Caption = "Validation Active - no Inactivity-Logout"
+                bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow
+                Timer_Inactivity_Reset_Disable()
                 Exit Sub
             End If
             If Application.OpenForms().OfType(Of frmAdministration).Any Then
-                Check_Timer_Inactivity()
+                bsiMessage.Caption = "Administration Active - no Inactivity-Logout"
+                bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow
+                Timer_Inactivity_Reset_Disable()
                 Exit Sub
             End If
             If Application.OpenForms().OfType(Of frmAdmin2).Any Then
-                Check_Timer_Inactivity()
+                bsiMessage.Caption = "Administration2 Active - no Inactivity-Logout"
+                bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow
+                Timer_Inactivity_Reset_Disable()
                 Exit Sub
             End If
             If Application.OpenForms().OfType(Of frmMonitor).Any Then
-                Check_Timer_Inactivity()
+                bsiMessage.Caption = "Monitoring open - no Inactivity-Logout"
+                bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow
+                Timer_Inactivity_Reset_Disable()
                 Exit Sub
             End If
-            If GHOSTMODE_ACTIVE = True Then
-                Check_Timer_Inactivity()
+            If GHOSTMODE_ACTIVE And USER_GHOST_MODE_ACTIVE Then
+                bsiMessage.Caption = "GhostMode Active - no Inactivity-Logout"
+                bsiMessage.ItemAppearance.Normal.BackColor = Color.Yellow
+                Timer_Inactivity_Reset_Disable()
                 Exit Sub
             End If
             INACTIVITYRecognized = True
@@ -2603,5 +2610,18 @@ Public Class frmMain
         End Try
     End Sub
 
+    Private Sub GridView_Docs_ColumnPositionChanged(sender As Object, e As EventArgs) Handles GridView_Docs.ColumnPositionChanged
+        GridLayout_Changed()
+    End Sub
+    Sub GridLayout_Changed()
+        If FormShown = False Then
+            Exit Sub
+        End If
+        Timer_Inactivity_Reset_Disable()
+        SaveGridLayout()
+    End Sub
 
+    Private Sub GridView_Docs_CustomColumnSort(sender As Object, e As CustomColumnSortEventArgs) Handles GridView_Docs.CustomColumnSort
+        GridLayout_Changed()
+    End Sub
 End Class