Parameter EXCEL_EXPORT_OVERVIEW

app/TaskFlow/ClassParamRefresh.vb

@@ -108,9 +108,12 @@ Public Class ClassParamRefresh
                     '    If ClassDatabase.Init(CONNECTION_STRING_IDB_APP_SERVER) = True Then
                     '        LOGGER.Info($"Got an IDB APP-Server-Connection [{CON_ID}]!")
                     '    End If
+                ElseIf oMode = "PM.EXCEL_OVERVIEW" Then
+                    EXCEL_OVERVIEW = True
+                    LOGGER.Debug($"EXCEL_OVERVIEW [{EXCEL_OVERVIEW}]")
                 ElseIf oMode = "PM.MONITORING" Then
                     MONITORING_ACTIVE = True
-                    LOGGER.Debug($"SHOW_MASS_VALIDATOR [{SHOW_MASS_VALIDATOR}]")
+                    LOGGER.Debug($"MONITORING_ACTIVE [{MONITORING_ACTIVE}]")
                 ElseIf oMode = "PM.GHOSTMODE" Then
                     GHOSTMODE_ACTIVE = True
                     LOGGER.Debug($"GHOSTMODE_ACTIVE [{GHOSTMODE_ACTIVE}]")

app/TaskFlow/ModuleRuntimeVariables.vb

@@ -79,6 +79,7 @@ Module ModuleRuntimeVariables
     Public Property SHOW_MASS_VALIDATOR As Boolean = True
     Public Property WORKING_MODE As String = ""
     Public Property MONITORING_ACTIVE As Boolean = False
+    Public Property EXCEL_OVERVIEW As Boolean = False
     Public Property GHOSTMODE_ACTIVE As Boolean = False
     Public Property RIBBON_COLOR_SCHEME As String = ""
     Public Property ADDITIONAL_TITLE As String = ""

app/TaskFlow/clsPatterns.vb

@@ -49,7 +49,7 @@ Public Class clsPatterns
     Public Const INT_VALUE_DOMAIN = "DOMAIN"
     Public Const INT_VALUE_DATE = "DATE"
 
-    Public Const MAX_TRY_COUNT = 50
+    Public Const MAX_TRY_COUNT = 20
 
     ''' <summary>
     ''' This value will be valid as any datatype,

app/TaskFlow/frmMain.vb

@@ -463,7 +463,7 @@ Public Class frmMain
         Else
             RibbonPageGroupBasicConf.Visible = True
         End If
-        If USER_IS_ADMIN = True Then
+        If EXCEL_OVERVIEW = True Then
             BarButtonItemExportExcel.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
         Else
             BarButtonItemExportExcel.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -3112,7 +3112,9 @@ where (CONVERT(DATE,GETDATE()) <= NOTE.DISPLAY_UNTIL or NOTE.DISPLAY_UNTIL IS NU
         If ribbon.SelectedPage Is RibbonPageAktionen Then
             Select Case GridViewItem_Clicked
                 Case "GROUP"
-                    BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                    If SHOW_MASS_VALIDATOR = True Then
+                        BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                    End If
                 Case "ROW"
                     '        If selectedRows.Count > 1 Then
                     '            CMFileStart.Enabled = False