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

Decide_Load_Speed

Browse Source
This commit is contained in:
Developer01
2026-01-30 12:56:36 +01:00
parent 0f936c71e6
commit b7d427b5eb
2 changed files with 28 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
app/TaskFlow/frmMain.resx
View File

@@ -125,7 +125,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAYABCwGAAQsBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CAAAAk1TRnQBSQFMAgEBAgEAAYgBCwGIAQsBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

42
app/TaskFlow/frmMain.vb
View File

@@ -1329,35 +1329,40 @@ Public Class frmMain
BringMonitor2Front() BringMonitor2Front()
End Sub End Sub
Private Async Function Decide_Load(pIsFormLoad As Boolean, Optional ForceReload As Boolean = False) As Tasks.Task Private Async Function Decide_Load(pIsFormLoad As Boolean, Optional ForceReload As Boolean = False) As Tasks.Task
Dim refreshWasEnabled As Boolean = False
Dim showLoadingPanel As Boolean = False
Try Try
LOGGER.Debug($"Decide_Load: pIsFormLoad [{pIsFormLoad}] - ForceReload [{ForceReload}] - GRID_LOAD_TYPE [{GRID_LOAD_TYPE}] ") LOGGER.Debug($"Decide_Load: pIsFormLoad [{pIsFormLoad}] - ForceReload [{ForceReload}] - GRID_LOAD_TYPE [{GRID_LOAD_TYPE}] ")
If pIsFormLoad = True Then If pIsFormLoad = True Then
FormShown = False FormShown = False
End If End If
GridIsLoaded = False GridIsLoaded = False
If USER_EXISTS = False Then If USER_EXISTS = False Then
LOGGER.Warn($"USER IS NOT EXISTING - CHECK FNDD_LOGIN_USER_MODULE") LOGGER.Warn($"USER IS NOT EXISTING - CHECK FNDD_LOGIN_USER_MODULE")
Exit Function Exit Function
End If End If
If TimerRefresh.Enabled = True Then
LOGGER.Debug($"Decide_Load: TimerRefresh.Enabled = True") If TimerRefresh.Enabled Then
refreshWasEnabled = True
TimerRefresh.Enabled = False TimerRefresh.Enabled = False
End If End If
GridViewWorkflows.ShowLoadingPanel() If GridControlWorkflows.Visible Then
GridViewWorkflows.ShowLoadingPanel()
showLoadingPanel = True
End If
TimerRefresh.Stop() TimerRefresh.Stop()
FRONTEND_ACTION = "DECIDE_LOAD" FRONTEND_ACTION = "DECIDE_LOAD"
LOGGER.Debug($"Decide_Load: pIsFormLoad [{pIsFormLoad}] - ForceReload [{ForceReload}] - GRID_LOAD_TYPE [{GRID_LOAD_TYPE}] ")
If GRID_LOAD_TYPE = "OVERVIEW" Then
If GRID_LOAD_TYPE = "OVERVIEW" Then
Await Load_Grid_Overview(pIsFormLoad, ForceReload, False) Await Load_Grid_Overview(pIsFormLoad, ForceReload, False)
ElseIf GRID_LOAD_TYPE.StartsWith("PROFILE#") Then ElseIf GRID_LOAD_TYPE.StartsWith("PROFILE#") Then
Await Load_single_Profile(ForceReload) Await Load_single_Profile(ForceReload)
End If End If
FRONTEND_ACTION = FA_NONE
GridViewWorkflows.HideLoadingPanel()
TimerRefresh.Start()
If SHOW_MASS_VALIDATOR = False Then If SHOW_MASS_VALIDATOR = False Then
GridViewWorkflows.OptionsSelection.MultiSelect = False GridViewWorkflows.OptionsSelection.MultiSelect = False
@@ -1365,29 +1370,36 @@ Public Class frmMain
BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Never BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
Else Else
BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Always BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
GridViewWorkflows.OptionsSelection.MultiSelect = True GridViewWorkflows.OptionsSelection.MultiSelect = True
GridViewWorkflows.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect GridViewWorkflows.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect
End If End If
If GridViewWorkflows.OptionsView.ShowAutoFilterRow = True Then If GridViewWorkflows.OptionsView.ShowAutoFilterRow = True Then
BarCheckItemAutofilter.Checked = True BarCheckItemAutofilter.Checked = True
End If End If
If GridViewWorkflows.OptionsFind.AlwaysVisible Then If GridViewWorkflows.OptionsFind.AlwaysVisible Then
BarCheckItemShowSearch.Checked = True BarCheckItemShowSearch.Checked = True
End If End If
COLUMNS_INVISIBLE() COLUMNS_INVISIBLE()
GridIsLoaded = True GridIsLoaded = True
Catch ex As Exception Catch ex As Exception
GridIsLoaded = True GridIsLoaded = True
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Unexpected error in Decide_load: " & ex.Message) LOGGER.Info("Unexpected error in Decide_load: " & ex.Message)
Finally
FRONTEND_ACTION = FA_NONE
If showLoadingPanel Then
GridViewWorkflows.HideLoadingPanel()
End If
If refreshWasEnabled Then
TimerRefresh.Enabled = True
End If
TimerRefresh.Start()
If pIsFormLoad = True Then
FormShown = True
End If
End Try End Try
If TimerRefresh.Enabled = False Then
TimerRefresh.Enabled = True
End If
If pIsFormLoad = True Then
FormShown = True
End If
End Function End Function
Private Sub ToolStripButton2_Click_2(sender As Object, e As EventArgs) Private Sub ToolStripButton2_Click_2(sender As Object, e As EventArgs)