diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index ffd571f..8be09ae 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -29,7 +29,7 @@ Partial Class frmMain Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.Panel1 = New System.Windows.Forms.Panel() Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl() - Me.GridViewWFItems = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridView_Docs = New DevExpress.XtraGrid.Views.Grid.GridView() Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl() Me.NavBarGroupProfiles = New DevExpress.XtraNavBar.NavBarGroup() Me.cmsNavPane = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -183,7 +183,7 @@ Partial Class frmMain CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridViewWFItems, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView_Docs, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.cmsNavPane.SuspendLayout() CType(Me.bindsourcegrid, System.ComponentModel.ISupportInitialize).BeginInit() @@ -245,36 +245,36 @@ Partial Class frmMain Me.GridControl_Docs.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode) Me.GridControl_Docs.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation) Me.GridControl_Docs.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType) - Me.GridControl_Docs.MainView = Me.GridViewWFItems + Me.GridControl_Docs.MainView = Me.GridView_Docs Me.GridControl_Docs.Name = "GridControl_Docs" - Me.GridControl_Docs.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewWFItems}) + Me.GridControl_Docs.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView_Docs}) ' - 'GridViewWFItems + 'GridView_Docs ' - Me.GridViewWFItems.Appearance.EvenRow.BackColor = System.Drawing.Color.Azure - Me.GridViewWFItems.Appearance.EvenRow.Options.UseBackColor = True - Me.GridViewWFItems.Appearance.ViewCaption.ForeColor = System.Drawing.Color.Black - Me.GridViewWFItems.Appearance.ViewCaption.Options.UseForeColor = True - Me.GridViewWFItems.Appearance.ViewCaption.Options.UseTextOptions = True - Me.GridViewWFItems.Appearance.ViewCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near - Me.GridViewWFItems.GridControl = Me.GridControl_Docs - Me.GridViewWFItems.Name = "GridViewWFItems" - Me.GridViewWFItems.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewWFItems.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewWFItems.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[True] - Me.GridViewWFItems.OptionsBehavior.AllowGroupExpandAnimation = DevExpress.Utils.DefaultBoolean.[True] - Me.GridViewWFItems.OptionsBehavior.Editable = False - Me.GridViewWFItems.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewWFItems.OptionsSelection.MultiSelect = True - Me.GridViewWFItems.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect - Me.GridViewWFItems.OptionsView.ColumnAutoWidth = False - Me.GridViewWFItems.OptionsView.EnableAppearanceEvenRow = True - Me.GridViewWFItems.OptionsView.ShowAutoFilterRow = True - Me.GridViewWFItems.OptionsView.ShowErrorPanel = DevExpress.Utils.DefaultBoolean.[True] - Me.GridViewWFItems.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewWFItems.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False] - Me.GridViewWFItems.OptionsView.ShowViewCaption = True - resources.ApplyResources(Me.GridViewWFItems, "GridViewWFItems") + Me.GridView_Docs.Appearance.EvenRow.BackColor = System.Drawing.Color.Azure + Me.GridView_Docs.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView_Docs.Appearance.ViewCaption.ForeColor = System.Drawing.Color.Black + Me.GridView_Docs.Appearance.ViewCaption.Options.UseForeColor = True + Me.GridView_Docs.Appearance.ViewCaption.Options.UseTextOptions = True + Me.GridView_Docs.Appearance.ViewCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near + Me.GridView_Docs.GridControl = Me.GridControl_Docs + Me.GridView_Docs.Name = "GridView_Docs" + Me.GridView_Docs.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView_Docs.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView_Docs.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[True] + Me.GridView_Docs.OptionsBehavior.AllowGroupExpandAnimation = DevExpress.Utils.DefaultBoolean.[True] + Me.GridView_Docs.OptionsBehavior.Editable = False + Me.GridView_Docs.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView_Docs.OptionsSelection.MultiSelect = True + Me.GridView_Docs.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect + Me.GridView_Docs.OptionsView.ColumnAutoWidth = False + Me.GridView_Docs.OptionsView.EnableAppearanceEvenRow = True + Me.GridView_Docs.OptionsView.ShowAutoFilterRow = True + Me.GridView_Docs.OptionsView.ShowErrorPanel = DevExpress.Utils.DefaultBoolean.[True] + Me.GridView_Docs.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView_Docs.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView_Docs.OptionsView.ShowViewCaption = True + resources.ApplyResources(Me.GridView_Docs, "GridView_Docs") ' 'NavBarControl1 ' @@ -1475,7 +1475,7 @@ Partial Class frmMain CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridViewWFItems, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView_Docs, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.cmsNavPane.ResumeLayout(False) CType(Me.bindsourcegrid, System.ComponentModel.ISupportInitialize).EndInit() @@ -1506,7 +1506,7 @@ Partial Class frmMain Friend WithEvents cmsNavPane As ContextMenuStrip Friend WithEvents tsmiValidationProfil As ToolStripMenuItem Friend WithEvents GridControl_Docs As DevExpress.XtraGrid.GridControl - Friend WithEvents GridViewWFItems As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridView_Docs As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents bindsourcegrid As BindingSource Friend WithEvents Timer5Mins As Timer Friend WithEvents ToolTip1 As ToolTip diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 76f443d..0f2e358 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -125,7 +125,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAASQBCQEkAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAASwBCQEsAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -204,7 +204,7 @@ 233, 0 - + Gesamtübersicht Workflows @@ -1997,10 +1997,10 @@ DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - GridViewWFItems + + GridView_Docs - + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 4e26483..2d3e083 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -148,7 +148,7 @@ Public Class frmMain FormOpenClose = True LOGGER.Debug("Initializing MainForm....") - GridBuilder = New GridBuilder(GridViewWFItems) + GridBuilder = New GridBuilder(GridView_Docs) GridBuilder.WithFontSizeDelta(CONFIG.Config.GridFontSizeDelta) Dim oFontSettings = New List(Of FontSetting) From { @@ -164,7 +164,7 @@ Public Class frmMain FirstOrDefault() ' Create helper to save/load expanded GroupColumns at runtime - RefreshHelper = New RefreshHelper(LOGCONFIG, GridViewWFItems, "GUID") + RefreshHelper = New RefreshHelper(LOGCONFIG, GridView_Docs, "GUID") If User.Language <> "de-DE" Then omsgOpenWorkflow = "Please close the active workflow!" @@ -562,7 +562,7 @@ Public Class frmMain Try Dim xml As String = GetXML_LayoutName() - GridViewWFItems.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout) + GridView_Docs.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout) Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Error while saving GridLayout: " & ex.Message) @@ -576,7 +576,7 @@ Public Class frmMain Try Dim oXml As String = GetXML_LayoutName() - GridViewWFItems.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout) + GridView_Docs.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout) Catch ex As Exception LOGGER.Error(ex) LOGGER.Info("Error while restoring layout: " & ex.Message) @@ -589,12 +589,12 @@ Public Class frmMain Dim xml As String = GetXML_LayoutName() IO.File.Delete(xml) Try - GridViewWFItems.Columns.Clear() + GridView_Docs.Columns.Clear() Catch ex As Exception - If IsNothing(GridViewWFItems) Then + If IsNothing(GridView_Docs) Then LOGGER.Warn("Somehow GridView_Docs is nothing....") Else - If IsNothing(GridViewWFItems.Columns) Then + If IsNothing(GridView_Docs.Columns) Then LOGGER.Warn("Somehow GridView_Docs.Columns is nothing....") End If @@ -602,28 +602,28 @@ Public Class frmMain Exit Sub End Try - GridViewWFItems.PopulateColumns() - If GridViewWFItems.Columns.Count > 0 Then - GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False - GridViewWFItems.Columns.Item("GUID").Visible = False + GridView_Docs.PopulateColumns() + If GridView_Docs.Columns.Count > 0 Then + GridView_Docs.Columns.Item("PROFILE_ID").Visible = False + GridView_Docs.Columns.Item("GUID").Visible = False Try - GridViewWFItems.Columns.Item(FullFilepatColName).Visible = False + GridView_Docs.Columns.Item(FullFilepatColName).Visible = False Catch ex As Exception End Try Try 'GridView_Docs.Columns.Item("DocID").Visible = False - GridViewWFItems.Columns.Item("TL_STATE").Visible = False + GridView_Docs.Columns.Item("TL_STATE").Visible = False Catch ex As Exception End Try Try If TL_ICON = True Then - GridViewWFItems.Columns.Item("ICON").MaxWidth = 24 - GridViewWFItems.Columns.Item("ICON").MinWidth = 24 - GridViewWFItems.Columns.Item("ICON").AppearanceCell.BackColor = Color.White - GridViewWFItems.Columns.Item("ICON").Fixed = FixedStyle.Left + GridView_Docs.Columns.Item("ICON").MaxWidth = 24 + GridView_Docs.Columns.Item("ICON").MinWidth = 24 + GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White + GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left End If Catch ex As Exception @@ -632,16 +632,16 @@ Public Class frmMain If IDB_ACTIVE = True Then Try - If GridViewWFItems.Columns.Item("CONV_YN") IsNot Nothing Then - GridViewWFItems.Columns.Item("CONV_YN").Visible = False + If GridView_Docs.Columns.Item("CONV_YN") IsNot Nothing Then + GridView_Docs.Columns.Item("CONV_YN").Visible = False End If Catch ex As Exception LOGGER.Info("ResetLayout - Check wether Column CONV_YN is part of select/view..now checking CONVERSATION") End Try Try - GridViewWFItems.Columns.Item("CONVERSATION").MaxWidth = 24 - GridViewWFItems.Columns.Item("CONVERSATION").MinWidth = 24 - GridViewWFItems.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left + GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24 + GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24 + GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left Catch ex As Exception LOGGER.Info("ResetLayout - Column CONVERSATION obviously is not part of GridView_Docs") End Try @@ -651,12 +651,12 @@ Public Class frmMain Try Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "") oReducedColName = oReducedColName.Replace("]", "") - GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime - GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" Catch ex As Exception Try - GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime - GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" Catch ex1 As Exception LOGGER.Warn("(ResetLayout)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL") End Try @@ -664,15 +664,15 @@ Public Class frmMain End Try Try - GridViewWFItems.Columns.Item("GROUP_TEXT").Visible = False - GridViewWFItems.Columns.Item("GROUP_COLOR").Visible = False + GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False + GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False Catch ex As Exception End Try Try - If GridViewWFItems.Columns.ColumnByFieldName("ROW_COLOR") IsNot Nothing Then - GridViewWFItems.Columns.Item("ROW_COLOR").Visible = False + If GridView_Docs.Columns.ColumnByFieldName("ROW_COLOR") IsNot Nothing Then + GridView_Docs.Columns.Item("ROW_COLOR").Visible = False End If Catch ex As Exception @@ -790,10 +790,10 @@ Public Class frmMain GRID_LOAD_TYPE = "PROFILE#" & _tag.ToString TimerRefresh.Stop() - GridViewWFItems.ShowLoadingPanel() + GridView_Docs.ShowLoadingPanel() DetailLinkActive = True Await Load_single_Profile(True) - GridViewWFItems.HideLoadingPanel() + GridView_Docs.HideLoadingPanel() TimerRefresh.Start() Else CURRENT_CLICKED_PROFILE_TITLE = Nothing @@ -803,7 +803,7 @@ Public Class frmMain ElseIf _tag = "OVERVIEW" Then OverviewOrDEtail = "OVERVIEW" GRID_LOAD_TYPE = "OVERVIEW" - GridViewWFItems.ShowLoadingPanel() + GridView_Docs.ShowLoadingPanel() TimerRefresh.Stop() Dim oForce As Boolean = False If DetailLinkActive = True Then @@ -812,13 +812,13 @@ Public Class frmMain OVERVIEW_ADDED_WHEN = "" End If Await Load_Grid_Overview(False, True, True) - GridViewWFItems.HideLoadingPanel() + GridView_Docs.HideLoadingPanel() TimerRefresh.Start() RefreshHelper.LoadViewInfo() - If GridViewWFItems.GroupCount = 0 And IsNothing(GridViewWFItems.Columns("GROUP_TEXT")) Then + If GridView_Docs.GroupCount = 0 And IsNothing(GridView_Docs.Columns("GROUP_TEXT")) Then LOGGER.Info("NO GROUPS AFTER CLICK OVERVIEW...CREATING GROUPS NEW...") Await Load_Grid_Overview(False, True, True) - GridViewWFItems.HideLoadingPanel() + GridView_Docs.HideLoadingPanel() TimerRefresh.Start() RefreshHelper.LoadViewInfo() End If @@ -899,7 +899,7 @@ Public Class frmMain OVERVIEW_CHANGED_WHEN = oChanged OVERVIEW_COUNT = oCOUNT End If - GridViewWFItems.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE + GridView_Docs.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE If CURR_DT_OVERVIEW.Rows.Count = 0 Then NO_WORKFLOWITEMS = True Else @@ -908,7 +908,7 @@ Public Class frmMain Create_Basic_View() RestoreLayout() - GridViewWFItems.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE + GridView_Docs.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE End If End If @@ -924,7 +924,7 @@ Public Class frmMain FRONTEND_ACTION = "Create_Basic_View" GridControl_Docs.DataSource = Nothing Try - GridViewWFItems.Columns.Clear() + GridView_Docs.Columns.Clear() Catch ex As Exception LOGGER.Error(ex) LOGGER.Warn("Could not clear GridView_Docs.Columns") @@ -988,7 +988,7 @@ Public Class frmMain Next bindsourcegrid.DataSource = CURR_DT_OVERVIEW GridControl_Docs.DataSource = bindsourcegrid - Dim objectCount_Descr = GridViewWFItems.RowCount.ToString + Dim objectCount_Descr = GridView_Docs.RowCount.ToString If USER_LANGUAGE = "de-DE" Then objectCount_Descr &= " Vorgänge" Else @@ -1002,24 +1002,24 @@ Public Class frmMain RestoreLayout() - GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False - GridViewWFItems.Columns.Item("GUID").Visible = False + GridView_Docs.Columns.Item("PROFILE_ID").Visible = False + GridView_Docs.Columns.Item("GUID").Visible = False Try - GridViewWFItems.Columns.Item(FullFilepatColName).Visible = False + GridView_Docs.Columns.Item(FullFilepatColName).Visible = False Catch ex As Exception End Try Try 'GridView_Docs.Columns.Item("DocID").Visible = False - GridViewWFItems.Columns.Item("TL_STATE").Visible = False + GridView_Docs.Columns.Item("TL_STATE").Visible = False Catch ex As Exception End Try Try If TL_ICON = True Then - GridViewWFItems.Columns.Item("ICON").MaxWidth = 24 - GridViewWFItems.Columns.Item("ICON").MinWidth = 24 - GridViewWFItems.Columns.Item("ICON").AppearanceCell.BackColor = Color.White - GridViewWFItems.Columns.Item("ICON").Fixed = FixedStyle.Left + GridView_Docs.Columns.Item("ICON").MaxWidth = 24 + GridView_Docs.Columns.Item("ICON").MinWidth = 24 + GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White + GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left End If Catch ex As Exception @@ -1027,15 +1027,15 @@ Public Class frmMain Try - GridViewWFItems.Columns.Item("CONV_YN").Visible = False + GridView_Docs.Columns.Item("CONV_YN").Visible = False Catch ex As Exception LOGGER.Info("Create_Basic_View - Check wether Column CONV_YN is part of select/view") End Try If IDB_ACTIVE = True Then Try - GridViewWFItems.Columns.Item("CONVERSATION").MaxWidth = 24 - GridViewWFItems.Columns.Item("CONVERSATION").MinWidth = 24 - GridViewWFItems.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left + GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24 + GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24 + GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left Catch ex As Exception LOGGER.Info("Create_Basic_View2 - Column CONVERSATION obviously is not part of GridView_Docs - Trying to Rest Layout") ResetLayout() @@ -1049,12 +1049,12 @@ Public Class frmMain Try Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "") oReducedColName = oReducedColName.Replace("]", "") - GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime - GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" Catch ex As Exception Try - GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime - GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" Catch ex1 As Exception LOGGER.Warn("(CreateBasicView)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL") End Try @@ -1063,8 +1063,8 @@ Public Class frmMain LOGGER.Debug("All columns in CreateBasicView created") Try - GridViewWFItems.Columns.Item("GROUP_TEXT").Visible = False - GridViewWFItems.Columns.Item("GROUP_COLOR").Visible = False + GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False + GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False Catch ex As Exception If OverviewOrDEtail = "OVERVIEW" Then LOGGER.Warn("ATTENTION: GROUP COLUMNS NOT PART OF GRID") @@ -1086,7 +1086,7 @@ Public Class frmMain Continue For End If Dim oViewColumn_exists As Boolean = False - For Each oActGridColumn As GridColumn In GridViewWFItems.Columns + For Each oActGridColumn As GridColumn In GridView_Docs.Columns Dim oGridDXFieldName = oActGridColumn.FieldName Dim GridDXColumnEditName = oActGridColumn.ColumnEditName Dim GridDXFieldName = oActGridColumn.FieldName @@ -1110,7 +1110,7 @@ Public Class frmMain End If End If Next - For Each oActGridColumn As GridColumn In GridViewWFItems.Columns + For Each oActGridColumn As GridColumn In GridView_Docs.Columns If oActGridColumn.Caption = "" Then Continue For End If @@ -1246,7 +1246,7 @@ Public Class frmMain TimerRefresh.Enabled = False End If - GridViewWFItems.ShowLoadingPanel() + GridView_Docs.ShowLoadingPanel() TimerRefresh.Stop() FRONTEND_ACTION = "DECIDE_LOAD" If GRID_LOAD_TYPE = "OVERVIEW" Then @@ -1256,23 +1256,23 @@ Public Class frmMain Await Load_single_Profile(ForceReload) End If FRONTEND_ACTION = FA_NONE - GridViewWFItems.HideLoadingPanel() + GridView_Docs.HideLoadingPanel() TimerRefresh.Start() If SHOW_MASS_VALIDATOR = False Then - GridViewWFItems.OptionsSelection.MultiSelect = False - GridViewWFItems.OptionsSelection.MultiSelectMode = GridMultiSelectMode.RowSelect + GridView_Docs.OptionsSelection.MultiSelect = False + GridView_Docs.OptionsSelection.MultiSelectMode = GridMultiSelectMode.RowSelect BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Never Else BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Always - GridViewWFItems.OptionsSelection.MultiSelect = True - GridViewWFItems.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect + GridView_Docs.OptionsSelection.MultiSelect = True + GridView_Docs.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect End If - If GridViewWFItems.OptionsView.ShowAutoFilterRow = True Then + If GridView_Docs.OptionsView.ShowAutoFilterRow = True Then BarCheckItemAutofilter.Checked = True End If - If GridViewWFItems.OptionsFind.AlwaysVisible Then + If GridView_Docs.OptionsFind.AlwaysVisible Then BarCheckItemShowSearch.Checked = True End If GridIsLoaded = True @@ -1459,7 +1459,7 @@ Public Class frmMain bsiMessage.ItemAppearance.Normal.BackColor = Color.Red Exit Sub End If - Dim hitInfo As GridHitInfo = GridViewWFItems.CalcHitInfo(GridCursorLocation) + Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation) bsiMessage.Caption = "" bsiMessage.ItemAppearance.Normal.BackColor = Color.Transparent Dim OItemScopeInfo = "No Item so far" @@ -1472,9 +1472,9 @@ Public Class frmMain End If Dim oHitProfilID If hitInfo.InGroupRow Then - oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridViewWFItems.Columns("PROFILE_ID")) + oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridView_Docs.Columns("PROFILE_ID")) ElseIf hitInfo.InDataRow Then - oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(GridViewWFItems.GetParentRowHandle(hitInfo.RowHandle)), GridViewWFItems.Columns("PROFILE_ID")) + oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID")) End If If Len(oHitProfilID) > 0 Then If oHitProfilID > 0 Then @@ -1490,21 +1490,21 @@ Public Class frmMain Dim oIds As New List(Of Integer) Dim oCount As Integer = 0 '----------------------------- - Dim orows() As Integer = GridViewWFItems.GetSelectedRows + Dim orows() As Integer = GridView_Docs.GetSelectedRows Dim i As Integer For i = 0 To orows.Length - 1 Step i + 1 - Dim childRowCount As Integer = GridViewWFItems.GetChildRowCount(orows(i)) + Dim childRowCount As Integer = GridView_Docs.GetChildRowCount(orows(i)) Dim j As Integer Dim childRowIndex As Integer For j = 0 To childRowCount - 1 Step j + 1 - childRowIndex = GridViewWFItems.GetChildRowHandle(orows(i), j) - Dim oRow = GridViewWFItems.GetRow(childRowIndex) + childRowIndex = GridView_Docs.GetChildRowHandle(orows(i), j) + Dim oRow = GridView_Docs.GetRow(childRowIndex) oIds.Add(oRow.item("DocId")) Next Next If oIds.Count = 0 Then - For index = 0 To GridViewWFItems.RowCount - Dim oRow = GridViewWFItems.GetRow(index) + For index = 0 To GridView_Docs.RowCount + Dim oRow = GridView_Docs.GetRow(index) If oRow Is Nothing Then Continue For @@ -1558,7 +1558,7 @@ Public Class frmMain startedFrom = "CMGROUP" LOGGER.Debug($"Item_Scope: InGroupRow") OItemScopeInfo = "InGroupRow" - groupRowText = GridViewWFItems.GetGroupRowDisplayText(hitInfo.RowHandle) + groupRowText = GridView_Docs.GetGroupRowDisplayText(hitInfo.RowHandle) OItemScopeInfo = $"groupRowText {groupRowText}" LOGGER.Debug($"Item_Scope: groupRowText {groupRowText}") ' oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridViewWFItems.Columns("PROFILE_ID")) @@ -1569,7 +1569,7 @@ Public Class frmMain If GRID_LOAD_TYPE = "OVERVIEW" Then OItemScopeInfo = $"GRID_LOAD_TYPE = OVERVIEW" LOGGER.Debug($"Item_Scope: GRID_LOAD_TYPE = OVERVIEW") - groupRowText = GridViewWFItems.GetGroupRowDisplayText(GridViewWFItems.GetParentRowHandle(hitInfo.RowHandle)) + groupRowText = GridView_Docs.GetGroupRowDisplayText(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)) OItemScopeInfo = $"OVERVIEWgroupRowText {groupRowText}" LOGGER.Debug($"Item_Scope: OVERVIEWgroupRowText {groupRowText}") ' oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(GridViewWFItems.GetParentRowHandle(hitInfo.RowHandle)), GridViewWFItems.Columns("PROFILE_ID")) @@ -1625,14 +1625,14 @@ Public Class frmMain LOGGER.Debug($"Item_Scope: hitInfo.InDataRow...") Dim oFocusedDocGUID Try - oFocusedDocGUID = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns("GUID")) + oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID")) Catch ex As Exception FormHelper.ShowInfoMessage("Could not get DocGUID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning) End Try Dim oFocusedDocID Try - oFocusedDocID = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns("DocID")) + oFocusedDocID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DocID")) Catch ex As Exception FormHelper.ShowInfoMessage("Could not get DocID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning) End Try @@ -1650,8 +1650,8 @@ Public Class frmMain Exit Sub End If LOGGER.Debug($"Item_Scope: GotDocID {oFocusedDocID} and DocGUID {oFocusedDocGUID}") - If Not IsNothing(GridViewWFItems.Columns(FullFilepatColName)) Then - Dim DOC_PATH = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns(FullFilepatColName)) + If Not IsNothing(GridView_Docs.Columns(FullFilepatColName)) Then + Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns(FullFilepatColName)) If IsNothing(DOC_PATH) Then LOGGER.Warn("In hitInfo.InDataRow: FULL_FILE_PATH is nothing!!!") Exit Sub @@ -1751,7 +1751,7 @@ Public Class frmMain Private Sub Create_Groups() Try LOGGER.Debug("Now Working on Groups..") - GridViewWFItems.OptionsView.ShowGroupPanel = False + GridView_Docs.OptionsView.ShowGroupPanel = False Dim oindex As Integer = 0 If Not IsNothing(BASEDATA_DTGRID_GROUPS) Then For Each oGridGroup As DataRow In BASEDATA_DTGRID_GROUPS.Rows @@ -1760,15 +1760,15 @@ Public Class frmMain LOGGER.Debug($"Adding group [{oGroupName}] for Grid...") Try - Dim oGroupColumn As GridColumn = GridViewWFItems.Columns.Item(oGroupName) + Dim oGroupColumn As GridColumn = GridView_Docs.Columns.Item(oGroupName) If oGroupColumn IsNot Nothing Then oGroupColumn.GroupIndex = oindex oGroupColumn.Group() oGroupColumn.OptionsColumn.AllowGroup = DefaultBoolean.False - oGroupColumn.OptionsColumn.AllowMove = DefaultBoolean.False - oGroupColumn.OptionsColumn.AllowShowHide = DefaultBoolean.False - oGroupColumn.Visible = False + oGroupColumn.OptionsColumn.AllowMove = False + oGroupColumn.OptionsColumn.AllowShowHide = False + oGroupColumn.Caption = "Profile (Fixed)" End If Catch ex As Exception @@ -1779,17 +1779,17 @@ Public Class frmMain End If Try - GridViewWFItems.Columns.Item("GROUP_TEXT").Visible = False - GridViewWFItems.Columns.Item("GROUP_COLOR").Visible = False + GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False + GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False Catch ex As Exception End Try - For index = 0 To GridViewWFItems.GroupCount - 1 + For index = 0 To GridView_Docs.GroupCount - 1 'Dim v = GridView_Docs.GroupedColumns(index).ToString - LOGGER.Debug($"Adding tag [{GridViewWFItems.Columns.Item("PROFILE_ID")}] for group...") - Dim sd = GridViewWFItems.GroupedColumns(index).GetTextCaption - GridViewWFItems.GroupedColumns(index).Tag = GridViewWFItems.Columns.Item("PROFILE_ID") + LOGGER.Debug($"Adding tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...") + Dim sd = GridView_Docs.GroupedColumns(index).GetTextCaption + GridView_Docs.GroupedColumns(index).Tag = GridView_Docs.Columns.Item("PROFILE_ID") Next - GridViewWFItems.CollapseAllGroups() + GridView_Docs.CollapseAllGroups() LOGGER.Debug("finished Grouping!") Catch ex As Exception LOGGER.Error(ex) @@ -1836,7 +1836,7 @@ Public Class frmMain bindsourcegrid.DataSource = Nothing GridControl_Docs.DataSource = Nothing Try - GridViewWFItems.Columns.Clear() + GridView_Docs.Columns.Clear() Catch ex As Exception LOGGER.Error(ex) @@ -1884,16 +1884,16 @@ Public Class frmMain NO_WORKFLOWITEMS = False If CURR_DT_OVERVIEW.Rows.Count = 0 Then If USER_LANGUAGE = "de-DE" Then - GridViewWFItems.ViewCaption = "Aktuell keine Workflowdaten vorhanden!" + GridView_Docs.ViewCaption = "Aktuell keine Workflowdaten vorhanden!" Else - GridViewWFItems.ViewCaption = "No workflowdata!" + GridView_Docs.ViewCaption = "No workflowdata!" End If NO_WORKFLOWITEMS = True GridControl_Docs.Visible = False bindsourcegrid.DataSource = Nothing GridControl_Docs.DataSource = Nothing Try - GridViewWFItems.Columns.Clear() + GridView_Docs.Columns.Clear() Catch ex As Exception LOGGER.Error(ex) End Try @@ -1961,6 +1961,7 @@ Public Class frmMain bindsourcegrid.DataSource = CURR_DT_OVERVIEW GridControl_Docs.DataSource = bindsourcegrid + GridControl_Docs.ForceInitialize() Create_View_Caption() @@ -1989,12 +1990,12 @@ Public Class frmMain Try Create_Groups() - GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False - GridViewWFItems.Columns.Item("GUID").Visible = False + GridView_Docs.Columns.Item("PROFILE_ID").Visible = False + GridView_Docs.Columns.Item("GUID").Visible = False Try - GridViewWFItems.Columns.Item(FullFilepatColName).Visible = False + GridView_Docs.Columns.Item(FullFilepatColName).Visible = False 'GridView_Docs.Columns.Item("DocID").Visible = False - GridViewWFItems.Columns.Item("TL_STATE").Visible = False + GridView_Docs.Columns.Item("TL_STATE").Visible = False Catch ex As Exception End Try @@ -2002,10 +2003,10 @@ Public Class frmMain If TL_ICON = True Then Try - GridViewWFItems.Columns.Item("ICON").MaxWidth = 24 - GridViewWFItems.Columns.Item("ICON").MinWidth = 24 - GridViewWFItems.Columns.Item("ICON").AppearanceCell.BackColor = Color.White - GridViewWFItems.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left + GridView_Docs.Columns.Item("ICON").MaxWidth = 24 + GridView_Docs.Columns.Item("ICON").MinWidth = 24 + GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White + GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left Catch ex As Exception End Try @@ -2013,8 +2014,8 @@ Public Class frmMain End If Try - If GridViewWFItems.Columns.Item("CONV_YN") IsNot Nothing Then - GridViewWFItems.Columns.Item("CONV_YN").Visible = False + If GridView_Docs.Columns.Item("CONV_YN") IsNot Nothing Then + GridView_Docs.Columns.Item("CONV_YN").Visible = False End If Catch ex As Exception @@ -2022,9 +2023,9 @@ Public Class frmMain End Try If IDB_ACTIVE = True Then Try - GridViewWFItems.Columns.Item("CONVERSATION").MaxWidth = 24 - GridViewWFItems.Columns.Item("CONVERSATION").MinWidth = 24 - GridViewWFItems.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left + GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24 + GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24 + GridView_Docs.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left Catch ex As Exception LOGGER.Info("LoadGridOverview - Column CONVERSATION obviously not part of GridView_Docs") End Try @@ -2036,12 +2037,12 @@ Public Class frmMain Try Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "") oReducedColName = oReducedColName.Replace("]", "") - GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime - GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" Catch ex As Exception Try - GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime - GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime + GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" Catch ex1 As Exception LOGGER.Warn("(Warning LoadGridOverview)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL") End Try @@ -2053,7 +2054,7 @@ Public Class frmMain LOGGER.Error(ex) LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message) End Try - If GridViewWFItems.Columns.Count <= 5 Then + If GridView_Docs.Columns.Count <= 5 Then LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False) Await Reset_GridLayout(pFormLoad) End If @@ -2067,7 +2068,7 @@ Public Class frmMain Try - GridViewWFItems.Columns.Clear() + GridView_Docs.Columns.Clear() Catch ex As Exception LOGGER.Error(ex) End Try @@ -2112,11 +2113,11 @@ Public Class frmMain InResetlayout = False End Function - Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridViewWFItems.DoubleClick + Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick Item_Scope("DOUBLECLICK") End Sub - Private Sub GridView_Docs_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridViewWFItems.CustomDrawGroupRow + Private Sub GridView_Docs_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridView_Docs.CustomDrawGroupRow Try ' Added If FormOpenClose = True And GridIsLoaded = False Then @@ -2192,7 +2193,7 @@ Public Class frmMain End Function - Private Sub GridView_Docs_MouseDown(sender As Object, e As MouseEventArgs) Handles GridViewWFItems.MouseDown + Private Sub GridView_Docs_MouseDown(sender As Object, e As MouseEventArgs) Handles GridView_Docs.MouseDown Dim view As GridView = sender Dim hi As GridHitInfo = view.CalcHitInfo(e.Location) Dim groupRowButtonClicked = (hi.HitTest = GridHitTest.RowGroupButton) @@ -2205,13 +2206,13 @@ Public Class frmMain DXMouseEventArgs.GetMouseArgs(e).Handled = True GridViewItem_Clicked = "GROUP" If Not Application.OpenForms().OfType(Of frmValidator).Any Then - CURRENT_CLICKED_PROFILE_ID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridViewWFItems.Columns("PROFILE_ID")) + CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID")) End If ElseIf hi.InDataRow Then GridViewItem_Clicked = "ROW" If Not Application.OpenForms().OfType(Of frmValidator).Any Then - CURRENT_CLICKED_PROFILE_ID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridViewWFItems.Columns("PROFILE_ID")) + CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID")) End If Else @@ -2239,14 +2240,14 @@ Public Class frmMain End Sub - Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridViewWFItems.ColumnWidthChanged + Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridView_Docs.ColumnWidthChanged GridLayout_Changed("ColumnWidthChanged") End Sub - Private Sub GridView_Docs_EndSorting(sender As Object, e As EventArgs) Handles GridViewWFItems.EndSorting + Private Sub GridView_Docs_EndSorting(sender As Object, e As EventArgs) Handles GridView_Docs.EndSorting GridLayout_Changed("EndSorting") End Sub - Private Sub GridView_Docs_LostFocus(sender As Object, e As EventArgs) Handles GridViewWFItems.LostFocus + Private Sub GridView_Docs_LostFocus(sender As Object, e As EventArgs) Handles GridView_Docs.LostFocus ' Save expanded GroupRows If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.SaveViewInfo() @@ -2407,8 +2408,8 @@ Public Class frmMain Timer_Inactivity_Reset_Disable("LöscheAlleFilterToolStripMenuItem") Try - GridViewWFItems.ClearFindFilter() - GridViewWFItems.ClearColumnsFilter() + GridView_Docs.ClearFindFilter() + GridView_Docs.ClearColumnsFilter() SaveGridLayout() Catch ex As Exception @@ -2579,7 +2580,7 @@ Public Class frmMain BringMonitor2Front() End Sub - Private Sub GridView_Docs_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridViewWFItems.RowStyle + Private Sub GridView_Docs_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridView_Docs.RowStyle If FormShown = False Then Exit Sub End If @@ -2593,7 +2594,7 @@ Public Class frmMain Else IsFilterMode = False Try - Dim oRowColorCellValue = GridViewWFItems.GetRowCellValue(e.RowHandle, "ROW_COLOR") + Dim oRowColorCellValue = GridView_Docs.GetRowCellValue(e.RowHandle, "ROW_COLOR") If Not IsNothing(oRowColorCellValue) Then Dim oColor As Color Try @@ -2667,7 +2668,7 @@ Public Class frmMain If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() End Sub - Private Sub GridView_Docs_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewWFItems.ColumnFilterChanged + Private Sub GridView_Docs_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridView_Docs.ColumnFilterChanged Try If FormShown = False Then Exit Sub @@ -2682,11 +2683,11 @@ Public Class frmMain Else objectCount_Descr = " Filter aktiv" End If - GridViewWFItems.ViewCaption += $"|{objectCount_Descr}" + GridView_Docs.ViewCaption += $"|{objectCount_Descr}" Else Ev_Filter_Panel_Closed = False End If - If GridViewWFItems.ActiveFilterEnabled Then + If GridView_Docs.ActiveFilterEnabled Then End If GridLayout_Changed("ColumnFilterChanged") @@ -2708,7 +2709,7 @@ Public Class frmMain ' End If 'Next - Dim oRowCount = GridViewWFItems.RowCount + Dim oRowCount = GridView_Docs.RowCount oRowCount = oRowCount '- oGroupCount Dim objectCount_Descr = $"[{oRowCount.ToString}]" @@ -2727,9 +2728,9 @@ Public Class frmMain Try If USER_LANGUAGE = "de-DE" Then - GridViewWFItems.ViewCaption = "Gesamtübersicht" + GridView_Docs.ViewCaption = "Gesamtübersicht" Else - GridViewWFItems.ViewCaption = "Overview" + GridView_Docs.ViewCaption = "Overview" End If Catch ex As Exception @@ -2744,7 +2745,7 @@ Public Class frmMain Dim oOptions As New XlsxExportOptions() With { .ExportMode = XlsxExportMode.SingleFile } - GridViewWFItems.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions) + GridView_Docs.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions) End If End Sub @@ -2835,7 +2836,7 @@ Public Class frmMain End Try End Sub - Private Sub GridView_Docs_ColumnPositionChanged(sender As Object, e As EventArgs) Handles GridViewWFItems.ColumnPositionChanged + Private Sub GridView_Docs_ColumnPositionChanged(sender As Object, e As EventArgs) Handles GridView_Docs.ColumnPositionChanged GridLayout_Changed("ColumnPositionChanged") End Sub Private Sub GridLayout_Changed(oEvent As String) @@ -2849,7 +2850,7 @@ Public Class frmMain End Sub - Private Sub GridView_Docs_EndGrouping(sender As Object, e As EventArgs) Handles GridViewWFItems.EndGrouping + Private Sub GridView_Docs_EndGrouping(sender As Object, e As EventArgs) Handles GridView_Docs.EndGrouping GridLayout_Changed("EndGrouping") End Sub @@ -2857,7 +2858,7 @@ Public Class frmMain End Sub - Private Sub GridView_Docs_KeyDown(sender As Object, e As KeyEventArgs) Handles GridViewWFItems.KeyDown + Private Sub GridView_Docs_KeyDown(sender As Object, e As KeyEventArgs) Handles GridView_Docs.KeyDown Dim view As GridView = CType(sender, GridView) If e.Control AndAlso e.KeyCode = Keys.C Then If view.GetRowCellValue(view.FocusedRowHandle, view.FocusedColumn) IsNot Nothing AndAlso view.GetRowCellValue(view.FocusedRowHandle, view.FocusedColumn).ToString() <> [String].Empty Then @@ -2869,13 +2870,13 @@ Public Class frmMain Private Sub BarCheckItem1_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItemAutofilter.CheckedChanged If GridIsLoaded = True Then - GridViewWFItems.OptionsView.ShowAutoFilterRow = BarCheckItemAutofilter.Checked + GridView_Docs.OptionsView.ShowAutoFilterRow = BarCheckItemAutofilter.Checked End If End Sub Private Sub BarCheckItem1_CheckedChanged_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItemShowSearch.CheckedChanged If GridIsLoaded = True Then - GridViewWFItems.OptionsFind.AlwaysVisible = BarCheckItemShowSearch.Checked + GridView_Docs.OptionsFind.AlwaysVisible = BarCheckItemShowSearch.Checked End If End Sub @@ -2901,7 +2902,7 @@ Public Class frmMain End Sub Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick - GridViewWFItems.ShowCustomization() + GridView_Docs.ShowCustomization() End Sub Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemWFSingle.ItemClick @@ -2914,7 +2915,7 @@ Public Class frmMain Private Sub BarButtonItemFileLink_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemFileLink.ItemClick Dim oReceipiant = "" - Dim oFocusedDocGUID = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns("GUID")) + Dim oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID")) Dim oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({oFocusedDocGUID},1)" Dim oFilePath = DatabaseFallback.GetScalarValueECM(oSQL) If File.Exists(oFilePath) Then @@ -2929,8 +2930,8 @@ Public Class frmMain Private Async Sub BarButtonItemMassValidation_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemMassValidation.ItemClick Try - Dim oSelectedRows As Integer() = GridViewWFItems.GetSelectedRows() - Dim oHitInfo As GridHitInfo = GridViewWFItems.CalcHitInfo(GridCursorLocation) + Dim oSelectedRows As Integer() = GridView_Docs.GetSelectedRows() + Dim oHitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation) Dim oSelectedRowHandle As Integer = oHitInfo.RowHandle Dim oWorkedFiles As Integer = 0 @@ -2946,7 +2947,7 @@ Public Class frmMain Exit Sub End If - oProfileId = GridViewWFItems.GetRowCellValue(oSelectedRows.Last(), GridViewWFItems.Columns("PROFILE_ID")) + oProfileId = GridView_Docs.GetRowCellValue(oSelectedRows.Last(), GridView_Docs.Columns("PROFILE_ID")) If oProfileId = 0 Then FormHelper.ShowInfoMessage("Could not select a profile!", omsgTitleWarning) @@ -2987,18 +2988,18 @@ Public Class frmMain For Each oRowHandle As Integer In oSelectedRows - Dim oDocID = GridViewWFItems.GetRowCellValue(oRowHandle, "DocID") + Dim oDocID = GridView_Docs.GetRowCellValue(oRowHandle, "DocID") If IsNothing(oDocID) Then Continue For End If Dim R As DataRow = NewDatatable.NewRow CURRENT_DOC_ID = oDocID - Dim DOC_PATH = GridViewWFItems.GetRowCellValue(oRowHandle, FullFilepatColName) + Dim DOC_PATH = GridView_Docs.GetRowCellValue(oRowHandle, FullFilepatColName) ' CURRENT_DOC_PATH = DOC_PATH - CURRENT_DOC_GUID = GridViewWFItems.GetRowCellValue(oRowHandle, "GUID") + CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(oRowHandle, "GUID") R("DocID") = CURRENT_DOC_ID R("FULL_PATH") = DOC_PATH - R("DOC_GUID") = GridViewWFItems.GetRowCellValue(oRowHandle, "GUID") + R("DOC_GUID") = GridView_Docs.GetRowCellValue(oRowHandle, "GUID") NewDatatable.Rows.Add(R) Next @@ -3050,11 +3051,11 @@ Public Class frmMain End Try End Sub - Private Sub GridViewWFItems_SelectionChanged(sender As Object, e As DevExpress.Data.SelectionChangedEventArgs) Handles GridViewWFItems.SelectionChanged + Private Sub GridViewWFItems_SelectionChanged(sender As Object, e As DevExpress.Data.SelectionChangedEventArgs) Handles GridView_Docs.SelectionChanged Timer_Inactivity_Reset_Disable("GridViewWFItems_SelectionChanged") End Sub - Private Sub GridViewWFItems_Click(sender As Object, e As MouseEventArgs) Handles GridViewWFItems.Click + Private Sub GridViewWFItems_Click(sender As Object, e As MouseEventArgs) Handles GridView_Docs.Click Try If e.Button = Windows.Forms.MouseButtons.Right Then RibbonControl1.SelectedPage = RibbonPageTabelle @@ -3075,7 +3076,7 @@ Public Class frmMain End Sub - Private Sub GridViewWFItems_SubstituteFilter(sender As Object, e As DevExpress.Data.SubstituteFilterEventArgs) Handles GridViewWFItems.SubstituteFilter + Private Sub GridViewWFItems_SubstituteFilter(sender As Object, e As DevExpress.Data.SubstituteFilterEventArgs) Handles GridView_Docs.SubstituteFilter GridLayout_Changed("GridViewWFItems_SubstituteFilter") RowCount() End Sub