AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Parameter EXCEL_EXPORT_OVERVIEW

Browse Source
This commit is contained in:
SchreiberM 2023-10-19 11:13:44 +02:00
parent 5b1d07d98b
commit f11b118560
4 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/TaskFlow/ClassParamRefresh.vb
View File

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

1
app/TaskFlow/ModuleRuntimeVariables.vb
View File

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

2
app/TaskFlow/clsPatterns.vb
View File

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

6
app/TaskFlow/frmMain.vb
View File

@ -463,7 +463,7 @@ Public Class frmMain
Else Else
RibbonPageGroupBasicConf.Visible = True RibbonPageGroupBasicConf.Visible = True
End If End If
If USER_IS_ADMIN = True Then If EXCEL_OVERVIEW = True Then
BarButtonItemExportExcel.Visibility = DevExpress.XtraBars.BarItemVisibility.Always BarButtonItemExportExcel.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else Else
BarButtonItemExportExcel.Visibility = DevExpress.XtraBars.BarItemVisibility.Never 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 If ribbon.SelectedPage Is RibbonPageAktionen Then
Select Case GridViewItem_Clicked Select Case GridViewItem_Clicked
Case "GROUP" Case "GROUP"
BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Always If SHOW_MASS_VALIDATOR = True Then
BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
End If
Case "ROW" Case "ROW"
' If selectedRows.Count > 1 Then ' If selectedRows.Count > 1 Then
' CMFileStart.Enabled = False ' CMFileStart.Enabled = False