MS GridControlWorkflows
This commit is contained in:
parent
254885966e
commit
eaa1b001bc
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user