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

MS GridControlWorkflows

Browse Source
This commit is contained in:
SchreiberM 2024-01-15 10:02:58 +01:00
parent 254885966e
commit eaa1b001bc
1 changed files with 30 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
app/TaskFlow/frmMain.vb
View File

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