diff --git a/app/TaskFlow/frmMain.vb b/app/TaskFlow/frmMain.vb index 94bd3cb..63d6c8d 100644 --- a/app/TaskFlow/frmMain.vb +++ b/app/TaskFlow/frmMain.vb @@ -908,10 +908,10 @@ Public Class frmMain Return False End Try End Function - Sub GridControl_Docs_Visible() + Sub GridControlWorkflows_Visible() Try - If GridControl_Docs.Visible = False Then - GridControl_Docs.Visible = True + If GridControlWorkflows.Visible = False Then + GridControlWorkflows.Visible = True End If Catch ex As Exception LOGGER.Error(ex) @@ -922,7 +922,7 @@ Public Class frmMain Try FRONTEND_ACTION = "Load_single_Profile" Load_Profiles_for_User() - GridControl_Docs_Visible() + GridControlWorkflows_Visible() Dim expression As String expression = "GUID = " & CURRENT_CLICKED_PROFILE_ID Dim TEMP_TABLE = CURR_DT_VWPM_PROFILE_ACTIVE @@ -992,7 +992,7 @@ Public Class frmMain Sub Create_Basic_View() Try FRONTEND_ACTION = "Create_Basic_View" - GridControl_Docs.DataSource = Nothing + GridControlWorkflows.DataSource = Nothing Try GridViewWorkflows.Columns.Clear() Catch ex As Exception @@ -1057,7 +1057,7 @@ Public Class frmMain Next bindsourcegrid.DataSource = CURR_DT_OVERVIEW - GridControl_Docs.DataSource = bindsourcegrid + GridControlWorkflows.DataSource = bindsourcegrid Dim objectCount_Descr = GridViewWorkflows.RowCount.ToString 'Dim ocapt = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("DescItems") @@ -1259,7 +1259,7 @@ Public Class frmMain 'bsilastsync.Caption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("CaptLastSync")}: " & Now.ToLongTimeString bsilastsync.Caption = String.Format(S.Letzte_Synchronisation___0_, Now.ToLongTimeString) - If GridControl_Docs.Visible = True And FormOpenClose = False Then + If GridControlWorkflows.Visible = True And FormOpenClose = False Then RefreshHelper.SaveViewInfo() End If @@ -1277,7 +1277,7 @@ Public Class frmMain oStopWatch.Done() 'bwSync.ReportProgress(95) - If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() + If GridControlWorkflows.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() Handling_DEBUG_USER() Catch ex As Exception @@ -1786,7 +1786,7 @@ Public Class frmMain Private Async Sub ValidatorClosed(sender As Object, e As FormClosedEventArgs) Try Await Decide_Load(False, True) - If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() + If GridControlWorkflows.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() Catch ex As Exception LOGGER.Error(ex) End Try @@ -1867,7 +1867,7 @@ Public Class frmMain End Sub Async Function Load_Grid_Overview(pFormLoad As Boolean, pForceReload As Boolean, pNavbarClick As Boolean) As Tasks.Task Dim oStopWatch As New RefreshHelper.SW("Load_Grid_Overview(LGO)") - GridControl_Docs_Visible() + GridControlWorkflows_Visible() GRID_LOAD_TYPE = "OVERVIEW" CURRENT_CLICKED_PROFILE_ID = 0 @@ -1880,8 +1880,8 @@ Public Class frmMain bsiMessage.Caption = "NO PROFILES FOR USER" bsiMessage.ItemAppearance.Normal.BackColor = Color.Red bsiMessage.ItemAppearance.Normal.ForeColor = Color.Black - If GridControl_Docs.Visible = True Then - GridControl_Docs.Visible = False + If GridControlWorkflows.Visible = True Then + GridControlWorkflows.Visible = False End If oStopWatch.Done() Exit Function @@ -1903,9 +1903,9 @@ Public Class frmMain FormHelper.ShowInfoMessage("Incomplete Overview-Source (No Group-Columns). Please reload manually!", omsgTitleWarning) NO_WORKFLOWITEMS = True - GridControl_Docs.Visible = False + GridControlWorkflows.Visible = False bindsourcegrid.DataSource = Nothing - GridControl_Docs.DataSource = Nothing + GridControlWorkflows.DataSource = Nothing Try GridViewWorkflows.Columns.Clear() Catch ex As Exception @@ -1930,8 +1930,8 @@ Public Class frmMain If Not IsNothing(CURR_DT_OVERVIEW) Then LOGGER.Debug($"Datatable CURR_DT_OVERVIEW loaded: {CURR_DT_OVERVIEW.Rows.Count} rows") - If GridControl_Docs.Visible = False Then - GridControl_Docs.Visible = True + If GridControlWorkflows.Visible = False Then + GridControlWorkflows.Visible = True End If Dim oADDED = GET_LAST_ADDED(CURR_DT_OVERVIEW) @@ -1960,9 +1960,9 @@ Public Class frmMain lblCaptionMainGrid.Text = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, "") NO_WORKFLOWITEMS = True - GridControl_Docs.Visible = False + GridControlWorkflows.Visible = False bindsourcegrid.DataSource = Nothing - GridControl_Docs.DataSource = Nothing + GridControlWorkflows.DataSource = Nothing Try GridViewWorkflows.Columns.Clear() Catch ex As Exception @@ -1972,7 +1972,7 @@ Public Class frmMain End If - GridControl_Docs.Visible = True + GridControlWorkflows.Visible = True If TL_ICON = True Then 'Spalte für Status Icon erstellen Dim columnStateIcon As New DataColumn() @@ -2031,8 +2031,8 @@ Public Class frmMain bindsourcegrid.DataSource = CURR_DT_OVERVIEW - GridControl_Docs.DataSource = bindsourcegrid - GridControl_Docs.ForceInitialize() + GridControlWorkflows.DataSource = bindsourcegrid + GridControlWorkflows.ForceInitialize() Create_View_Caption() @@ -2132,11 +2132,11 @@ Public Class frmMain End If Else NO_WORKFLOWITEMS = True - GridControl_Docs.Visible = False + GridControlWorkflows.Visible = False 'BindingNavigator1.Dock = DockStyle.None - GridControl_Docs.DataSource = Nothing + GridControlWorkflows.DataSource = Nothing Try @@ -2166,13 +2166,13 @@ Public Class frmMain Await Decide_Load(False, True) SaveGridLayout() GridBuilder.WithFontSizeDelta(CONFIG.Config.GridFontSizeDelta) - If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() + If GridControlWorkflows.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() FRONTEND_ACTION = FA_NONE End Function Async Function Reset_GridLayout(FormLoad As Boolean) As Tasks.Task - If GridControl_Docs.Visible = True And FormOpenClose = False Then + If GridControlWorkflows.Visible = True And FormOpenClose = False Then RefreshHelper.SaveViewInfo() End If @@ -2327,7 +2327,7 @@ Public Class frmMain Private Sub GridViewWorkflows_LostFocus(sender As Object, e As EventArgs) Handles GridViewWorkflows.LostFocus ' Save expanded GroupRows - If GridControl_Docs.Visible = True And FormOpenClose = False Then + If GridControlWorkflows.Visible = True And FormOpenClose = False Then RefreshHelper.SaveViewInfo() End If End Sub @@ -2589,13 +2589,13 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ Exit Sub End If Timer_Inactivity_Reset_Disable("OverviewRefreshClick") - 'If GridControl_Docs.Visible = True And FormOpenClose = False Then + 'If GridControlWorkflows.Visible = True And FormOpenClose = False Then ' RefreshHelper.SaveViewInfo() ' SaveGridLayout() 'End If Await Decide_Load(False, True) LoadNavBar() - If GridControl_Docs.Visible = True And FormOpenClose = False Then + If GridControlWorkflows.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() End If End Sub @@ -2768,7 +2768,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ End If - If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() + If GridControlWorkflows.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() End If End Sub @@ -2780,7 +2780,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ GetBaseData("InactivateGM") LoadNavBar() Await Decide_Load(False) - If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() + If GridControlWorkflows.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() End Sub Private Sub GridViewWorkflows_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewWorkflows.ColumnFilterChanged