From f11b1185606e95f3c557bda836df4bc41c832525 Mon Sep 17 00:00:00 2001
From: SchreiberM <m.schreiber@digitaldata.works>
Date: Thu, 19 Oct 2023 11:13:44 +0200
Subject: [PATCH] Parameter EXCEL_EXPORT_OVERVIEW

---
 app/TaskFlow/ClassParamRefresh.vb      | 5 ++++-
 app/TaskFlow/ModuleRuntimeVariables.vb | 1 +
 app/TaskFlow/clsPatterns.vb            | 2 +-
 app/TaskFlow/frmMain.vb                | 6 ++++--
 4 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/app/TaskFlow/ClassParamRefresh.vb b/app/TaskFlow/ClassParamRefresh.vb
index 3fbee8c..c90bb05 100644
--- a/app/TaskFlow/ClassParamRefresh.vb
+++ b/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}]")
diff --git a/app/TaskFlow/ModuleRuntimeVariables.vb b/app/TaskFlow/ModuleRuntimeVariables.vb
index b1f22ab..5957dd3 100644
--- a/app/TaskFlow/ModuleRuntimeVariables.vb
+++ b/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 = ""
diff --git a/app/TaskFlow/clsPatterns.vb b/app/TaskFlow/clsPatterns.vb
index 1047c15..865c248 100644
--- a/app/TaskFlow/clsPatterns.vb
+++ b/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,
diff --git a/app/TaskFlow/frmMain.vb b/app/TaskFlow/frmMain.vb
index 9259c54..7322dad 100644
--- a/app/TaskFlow/frmMain.vb
+++ b/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