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

fix grouped profile column be able to be ungrouped

Browse Source
This commit is contained in:
Jonathan Jenne 2022-08-11 13:23:51 +02:00
parent 7592e9aa47
commit 52ead09c75
3 changed files with 191 additions and 190 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
app/DD_PM_WINDREAM/frmMain.Designer.vb generated
View File

@ -29,7 +29,7 @@ Partial Class frmMain
Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl() 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.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl()
Me.NavBarGroupProfiles = New DevExpress.XtraNavBar.NavBarGroup() Me.NavBarGroupProfiles = New DevExpress.XtraNavBar.NavBarGroup()
Me.cmsNavPane = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cmsNavPane = New System.Windows.Forms.ContextMenuStrip(Me.components)
@ -183,7 +183,7 @@ Partial Class frmMain
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).BeginInit() 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() CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cmsNavPane.SuspendLayout() Me.cmsNavPane.SuspendLayout()
CType(Me.bindsourcegrid, System.ComponentModel.ISupportInitialize).BeginInit() 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.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.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.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.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.GridView_Docs.Appearance.EvenRow.BackColor = System.Drawing.Color.Azure
Me.GridViewWFItems.Appearance.EvenRow.Options.UseBackColor = True Me.GridView_Docs.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewWFItems.Appearance.ViewCaption.ForeColor = System.Drawing.Color.Black Me.GridView_Docs.Appearance.ViewCaption.ForeColor = System.Drawing.Color.Black
Me.GridViewWFItems.Appearance.ViewCaption.Options.UseForeColor = True Me.GridView_Docs.Appearance.ViewCaption.Options.UseForeColor = True
Me.GridViewWFItems.Appearance.ViewCaption.Options.UseTextOptions = True Me.GridView_Docs.Appearance.ViewCaption.Options.UseTextOptions = True
Me.GridViewWFItems.Appearance.ViewCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near Me.GridView_Docs.Appearance.ViewCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near
Me.GridViewWFItems.GridControl = Me.GridControl_Docs Me.GridView_Docs.GridControl = Me.GridControl_Docs
Me.GridViewWFItems.Name = "GridViewWFItems" Me.GridView_Docs.Name = "GridView_Docs"
Me.GridViewWFItems.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView_Docs.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewWFItems.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView_Docs.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewWFItems.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[True] Me.GridView_Docs.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[True]
Me.GridViewWFItems.OptionsBehavior.AllowGroupExpandAnimation = DevExpress.Utils.DefaultBoolean.[True] Me.GridView_Docs.OptionsBehavior.AllowGroupExpandAnimation = DevExpress.Utils.DefaultBoolean.[True]
Me.GridViewWFItems.OptionsBehavior.Editable = False Me.GridView_Docs.OptionsBehavior.Editable = False
Me.GridViewWFItems.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridView_Docs.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewWFItems.OptionsSelection.MultiSelect = True Me.GridView_Docs.OptionsSelection.MultiSelect = True
Me.GridViewWFItems.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect Me.GridView_Docs.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewWFItems.OptionsView.ColumnAutoWidth = False Me.GridView_Docs.OptionsView.ColumnAutoWidth = False
Me.GridViewWFItems.OptionsView.EnableAppearanceEvenRow = True Me.GridView_Docs.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewWFItems.OptionsView.ShowAutoFilterRow = True Me.GridView_Docs.OptionsView.ShowAutoFilterRow = True
Me.GridViewWFItems.OptionsView.ShowErrorPanel = DevExpress.Utils.DefaultBoolean.[True] Me.GridView_Docs.OptionsView.ShowErrorPanel = DevExpress.Utils.DefaultBoolean.[True]
Me.GridViewWFItems.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False] Me.GridView_Docs.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewWFItems.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False] Me.GridView_Docs.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewWFItems.OptionsView.ShowViewCaption = True Me.GridView_Docs.OptionsView.ShowViewCaption = True
resources.ApplyResources(Me.GridViewWFItems, "GridViewWFItems") resources.ApplyResources(Me.GridView_Docs, "GridView_Docs")
' '
'NavBarControl1 'NavBarControl1
' '
@ -1475,7 +1475,7 @@ Partial Class frmMain
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).EndInit() 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() CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.cmsNavPane.ResumeLayout(False) Me.cmsNavPane.ResumeLayout(False)
CType(Me.bindsourcegrid, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.bindsourcegrid, System.ComponentModel.ISupportInitialize).EndInit()
@ -1506,7 +1506,7 @@ Partial Class frmMain
Friend WithEvents cmsNavPane As ContextMenuStrip Friend WithEvents cmsNavPane As ContextMenuStrip
Friend WithEvents tsmiValidationProfil As ToolStripMenuItem Friend WithEvents tsmiValidationProfil As ToolStripMenuItem
Friend WithEvents GridControl_Docs As DevExpress.XtraGrid.GridControl 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 bindsourcegrid As BindingSource
Friend WithEvents Timer5Mins As Timer Friend WithEvents Timer5Mins As Timer
Friend WithEvents ToolTip1 As ToolTip Friend WithEvents ToolTip1 As ToolTip

10
app/DD_PM_WINDREAM/frmMain.resx
View File

@ -125,7 +125,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAASQBCQEkAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CAAAAk1TRnQBSQFMAgEBAgEAASwBCQEsAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -204,7 +204,7 @@
<data name="GridControl_Docs.Location" type="System.Drawing.Point, System.Drawing"> <data name="GridControl_Docs.Location" type="System.Drawing.Point, System.Drawing">
<value>233, 0</value> <value>233, 0</value>
</data> </data>
<data name="GridViewWFItems.ViewCaption" xml:space="preserve"> <data name="GridView_Docs.ViewCaption" xml:space="preserve">
<value>Gesamtübersicht Workflows</value> <value>Gesamtübersicht Workflows</value>
</data> </data>
<data name="GridControl_Docs.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControl_Docs.Size" type="System.Drawing.Size, System.Drawing">
@ -1997,10 +1997,10 @@
<data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve"> <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
<value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;GridViewWFItems.Name" xml:space="preserve"> <data name="&gt;&gt;GridView_Docs.Name" xml:space="preserve">
<value>GridViewWFItems</value> <value>GridView_Docs</value>
</data> </data>
<data name="&gt;&gt;GridViewWFItems.Type" xml:space="preserve"> <data name="&gt;&gt;GridView_Docs.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;NavBarGroupProfiles.Name" xml:space="preserve"> <data name="&gt;&gt;NavBarGroupProfiles.Name" xml:space="preserve">

309
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -148,7 +148,7 @@ Public Class frmMain
FormOpenClose = True FormOpenClose = True
LOGGER.Debug("Initializing MainForm....") LOGGER.Debug("Initializing MainForm....")
GridBuilder = New GridBuilder(GridViewWFItems) GridBuilder = New GridBuilder(GridView_Docs)
GridBuilder.WithFontSizeDelta(CONFIG.Config.GridFontSizeDelta) GridBuilder.WithFontSizeDelta(CONFIG.Config.GridFontSizeDelta)
Dim oFontSettings = New List(Of FontSetting) From { Dim oFontSettings = New List(Of FontSetting) From {
@ -164,7 +164,7 @@ Public Class frmMain
FirstOrDefault() FirstOrDefault()
' Create helper to save/load expanded GroupColumns at runtime ' 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 If User.Language <> "de-DE" Then
omsgOpenWorkflow = "Please close the active workflow!" omsgOpenWorkflow = "Please close the active workflow!"
@ -562,7 +562,7 @@ Public Class frmMain
Try Try
Dim xml As String = GetXML_LayoutName() Dim xml As String = GetXML_LayoutName()
GridViewWFItems.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout) GridView_Docs.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Error while saving GridLayout: " & ex.Message) LOGGER.Info("Error while saving GridLayout: " & ex.Message)
@ -576,7 +576,7 @@ Public Class frmMain
Try Try
Dim oXml As String = GetXML_LayoutName() Dim oXml As String = GetXML_LayoutName()
GridViewWFItems.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout) GridView_Docs.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Error while restoring layout: " & ex.Message) LOGGER.Info("Error while restoring layout: " & ex.Message)
@ -589,12 +589,12 @@ Public Class frmMain
Dim xml As String = GetXML_LayoutName() Dim xml As String = GetXML_LayoutName()
IO.File.Delete(xml) IO.File.Delete(xml)
Try Try
GridViewWFItems.Columns.Clear() GridView_Docs.Columns.Clear()
Catch ex As Exception Catch ex As Exception
If IsNothing(GridViewWFItems) Then If IsNothing(GridView_Docs) Then
LOGGER.Warn("Somehow GridView_Docs is nothing....") LOGGER.Warn("Somehow GridView_Docs is nothing....")
Else Else
If IsNothing(GridViewWFItems.Columns) Then If IsNothing(GridView_Docs.Columns) Then
LOGGER.Warn("Somehow GridView_Docs.Columns is nothing....") LOGGER.Warn("Somehow GridView_Docs.Columns is nothing....")
End If End If
@ -602,28 +602,28 @@ Public Class frmMain
Exit Sub Exit Sub
End Try End Try
GridViewWFItems.PopulateColumns() GridView_Docs.PopulateColumns()
If GridViewWFItems.Columns.Count > 0 Then If GridView_Docs.Columns.Count > 0 Then
GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
GridViewWFItems.Columns.Item("GUID").Visible = False GridView_Docs.Columns.Item("GUID").Visible = False
Try Try
GridViewWFItems.Columns.Item(FullFilepatColName).Visible = False GridView_Docs.Columns.Item(FullFilepatColName).Visible = False
Catch ex As Exception Catch ex As Exception
End Try End Try
Try Try
'GridView_Docs.Columns.Item("DocID").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 Catch ex As Exception
End Try End Try
Try Try
If TL_ICON = True Then If TL_ICON = True Then
GridViewWFItems.Columns.Item("ICON").MaxWidth = 24 GridView_Docs.Columns.Item("ICON").MaxWidth = 24
GridViewWFItems.Columns.Item("ICON").MinWidth = 24 GridView_Docs.Columns.Item("ICON").MinWidth = 24
GridViewWFItems.Columns.Item("ICON").AppearanceCell.BackColor = Color.White GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridViewWFItems.Columns.Item("ICON").Fixed = FixedStyle.Left GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
End If End If
Catch ex As Exception Catch ex As Exception
@ -632,16 +632,16 @@ Public Class frmMain
If IDB_ACTIVE = True Then If IDB_ACTIVE = True Then
Try Try
If GridViewWFItems.Columns.Item("CONV_YN") IsNot Nothing Then If GridView_Docs.Columns.Item("CONV_YN") IsNot Nothing Then
GridViewWFItems.Columns.Item("CONV_YN").Visible = False GridView_Docs.Columns.Item("CONV_YN").Visible = False
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Info("ResetLayout - Check wether Column CONV_YN is part of select/view..now checking CONVERSATION") LOGGER.Info("ResetLayout - Check wether Column CONV_YN is part of select/view..now checking CONVERSATION")
End Try End Try
Try Try
GridViewWFItems.Columns.Item("CONVERSATION").MaxWidth = 24 GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24
GridViewWFItems.Columns.Item("CONVERSATION").MinWidth = 24 GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
GridViewWFItems.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
Catch ex As Exception Catch ex As Exception
LOGGER.Info("ResetLayout - Column CONVERSATION obviously is not part of GridView_Docs") LOGGER.Info("ResetLayout - Column CONVERSATION obviously is not part of GridView_Docs")
End Try End Try
@ -651,12 +651,12 @@ Public Class frmMain
Try Try
Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "") Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
oReducedColName = oReducedColName.Replace("]", "") oReducedColName = oReducedColName.Replace("]", "")
GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception Catch ex As Exception
Try Try
GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime GridView_Docs.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.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex1 As Exception Catch ex1 As Exception
LOGGER.Warn("(ResetLayout)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL") LOGGER.Warn("(ResetLayout)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL")
End Try End Try
@ -664,15 +664,15 @@ Public Class frmMain
End Try End Try
Try Try
GridViewWFItems.Columns.Item("GROUP_TEXT").Visible = False GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
GridViewWFItems.Columns.Item("GROUP_COLOR").Visible = False GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
Catch ex As Exception Catch ex As Exception
End Try End Try
Try Try
If GridViewWFItems.Columns.ColumnByFieldName("ROW_COLOR") IsNot Nothing Then If GridView_Docs.Columns.ColumnByFieldName("ROW_COLOR") IsNot Nothing Then
GridViewWFItems.Columns.Item("ROW_COLOR").Visible = False GridView_Docs.Columns.Item("ROW_COLOR").Visible = False
End If End If
Catch ex As Exception Catch ex As Exception
@ -790,10 +790,10 @@ Public Class frmMain
GRID_LOAD_TYPE = "PROFILE#" & _tag.ToString GRID_LOAD_TYPE = "PROFILE#" & _tag.ToString
TimerRefresh.Stop() TimerRefresh.Stop()
GridViewWFItems.ShowLoadingPanel() GridView_Docs.ShowLoadingPanel()
DetailLinkActive = True DetailLinkActive = True
Await Load_single_Profile(True) Await Load_single_Profile(True)
GridViewWFItems.HideLoadingPanel() GridView_Docs.HideLoadingPanel()
TimerRefresh.Start() TimerRefresh.Start()
Else Else
CURRENT_CLICKED_PROFILE_TITLE = Nothing CURRENT_CLICKED_PROFILE_TITLE = Nothing
@ -803,7 +803,7 @@ Public Class frmMain
ElseIf _tag = "OVERVIEW" Then ElseIf _tag = "OVERVIEW" Then
OverviewOrDEtail = "OVERVIEW" OverviewOrDEtail = "OVERVIEW"
GRID_LOAD_TYPE = "OVERVIEW" GRID_LOAD_TYPE = "OVERVIEW"
GridViewWFItems.ShowLoadingPanel() GridView_Docs.ShowLoadingPanel()
TimerRefresh.Stop() TimerRefresh.Stop()
Dim oForce As Boolean = False Dim oForce As Boolean = False
If DetailLinkActive = True Then If DetailLinkActive = True Then
@ -812,13 +812,13 @@ Public Class frmMain
OVERVIEW_ADDED_WHEN = "" OVERVIEW_ADDED_WHEN = ""
End If End If
Await Load_Grid_Overview(False, True, True) Await Load_Grid_Overview(False, True, True)
GridViewWFItems.HideLoadingPanel() GridView_Docs.HideLoadingPanel()
TimerRefresh.Start() TimerRefresh.Start()
RefreshHelper.LoadViewInfo() 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...") LOGGER.Info("NO GROUPS AFTER CLICK OVERVIEW...CREATING GROUPS NEW...")
Await Load_Grid_Overview(False, True, True) Await Load_Grid_Overview(False, True, True)
GridViewWFItems.HideLoadingPanel() GridView_Docs.HideLoadingPanel()
TimerRefresh.Start() TimerRefresh.Start()
RefreshHelper.LoadViewInfo() RefreshHelper.LoadViewInfo()
End If End If
@ -899,7 +899,7 @@ Public Class frmMain
OVERVIEW_CHANGED_WHEN = oChanged OVERVIEW_CHANGED_WHEN = oChanged
OVERVIEW_COUNT = oCOUNT OVERVIEW_COUNT = oCOUNT
End If 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 If CURR_DT_OVERVIEW.Rows.Count = 0 Then
NO_WORKFLOWITEMS = True NO_WORKFLOWITEMS = True
Else Else
@ -908,7 +908,7 @@ Public Class frmMain
Create_Basic_View() Create_Basic_View()
RestoreLayout() RestoreLayout()
GridViewWFItems.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE GridView_Docs.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
End If End If
End If End If
@ -924,7 +924,7 @@ Public Class frmMain
FRONTEND_ACTION = "Create_Basic_View" FRONTEND_ACTION = "Create_Basic_View"
GridControl_Docs.DataSource = Nothing GridControl_Docs.DataSource = Nothing
Try Try
GridViewWFItems.Columns.Clear() GridView_Docs.Columns.Clear()
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Warn("Could not clear GridView_Docs.Columns") LOGGER.Warn("Could not clear GridView_Docs.Columns")
@ -988,7 +988,7 @@ Public Class frmMain
Next Next
bindsourcegrid.DataSource = CURR_DT_OVERVIEW bindsourcegrid.DataSource = CURR_DT_OVERVIEW
GridControl_Docs.DataSource = bindsourcegrid GridControl_Docs.DataSource = bindsourcegrid
Dim objectCount_Descr = GridViewWFItems.RowCount.ToString Dim objectCount_Descr = GridView_Docs.RowCount.ToString
If USER_LANGUAGE = "de-DE" Then If USER_LANGUAGE = "de-DE" Then
objectCount_Descr &= " Vorgänge" objectCount_Descr &= " Vorgänge"
Else Else
@ -1002,24 +1002,24 @@ Public Class frmMain
RestoreLayout() RestoreLayout()
GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
GridViewWFItems.Columns.Item("GUID").Visible = False GridView_Docs.Columns.Item("GUID").Visible = False
Try Try
GridViewWFItems.Columns.Item(FullFilepatColName).Visible = False GridView_Docs.Columns.Item(FullFilepatColName).Visible = False
Catch ex As Exception Catch ex As Exception
End Try End Try
Try Try
'GridView_Docs.Columns.Item("DocID").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 Catch ex As Exception
End Try End Try
Try Try
If TL_ICON = True Then If TL_ICON = True Then
GridViewWFItems.Columns.Item("ICON").MaxWidth = 24 GridView_Docs.Columns.Item("ICON").MaxWidth = 24
GridViewWFItems.Columns.Item("ICON").MinWidth = 24 GridView_Docs.Columns.Item("ICON").MinWidth = 24
GridViewWFItems.Columns.Item("ICON").AppearanceCell.BackColor = Color.White GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridViewWFItems.Columns.Item("ICON").Fixed = FixedStyle.Left GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
End If End If
Catch ex As Exception Catch ex As Exception
@ -1027,15 +1027,15 @@ Public Class frmMain
Try Try
GridViewWFItems.Columns.Item("CONV_YN").Visible = False GridView_Docs.Columns.Item("CONV_YN").Visible = False
Catch ex As Exception Catch ex As Exception
LOGGER.Info("Create_Basic_View - Check wether Column CONV_YN is part of select/view") LOGGER.Info("Create_Basic_View - Check wether Column CONV_YN is part of select/view")
End Try End Try
If IDB_ACTIVE = True Then If IDB_ACTIVE = True Then
Try Try
GridViewWFItems.Columns.Item("CONVERSATION").MaxWidth = 24 GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24
GridViewWFItems.Columns.Item("CONVERSATION").MinWidth = 24 GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
GridViewWFItems.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
Catch ex As Exception Catch ex As Exception
LOGGER.Info("Create_Basic_View2 - Column CONVERSATION obviously is not part of GridView_Docs - Trying to Rest Layout") LOGGER.Info("Create_Basic_View2 - Column CONVERSATION obviously is not part of GridView_Docs - Trying to Rest Layout")
ResetLayout() ResetLayout()
@ -1049,12 +1049,12 @@ Public Class frmMain
Try Try
Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "") Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
oReducedColName = oReducedColName.Replace("]", "") oReducedColName = oReducedColName.Replace("]", "")
GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception Catch ex As Exception
Try Try
GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime GridView_Docs.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.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex1 As Exception Catch ex1 As Exception
LOGGER.Warn("(CreateBasicView)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL") LOGGER.Warn("(CreateBasicView)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL")
End Try End Try
@ -1063,8 +1063,8 @@ Public Class frmMain
LOGGER.Debug("All columns in CreateBasicView created") LOGGER.Debug("All columns in CreateBasicView created")
Try Try
GridViewWFItems.Columns.Item("GROUP_TEXT").Visible = False GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
GridViewWFItems.Columns.Item("GROUP_COLOR").Visible = False GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
Catch ex As Exception Catch ex As Exception
If OverviewOrDEtail = "OVERVIEW" Then If OverviewOrDEtail = "OVERVIEW" Then
LOGGER.Warn("ATTENTION: GROUP COLUMNS NOT PART OF GRID") LOGGER.Warn("ATTENTION: GROUP COLUMNS NOT PART OF GRID")
@ -1086,7 +1086,7 @@ Public Class frmMain
Continue For Continue For
End If End If
Dim oViewColumn_exists As Boolean = False 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 oGridDXFieldName = oActGridColumn.FieldName
Dim GridDXColumnEditName = oActGridColumn.ColumnEditName Dim GridDXColumnEditName = oActGridColumn.ColumnEditName
Dim GridDXFieldName = oActGridColumn.FieldName Dim GridDXFieldName = oActGridColumn.FieldName
@ -1110,7 +1110,7 @@ Public Class frmMain
End If End If
End If End If
Next Next
For Each oActGridColumn As GridColumn In GridViewWFItems.Columns For Each oActGridColumn As GridColumn In GridView_Docs.Columns
If oActGridColumn.Caption = "" Then If oActGridColumn.Caption = "" Then
Continue For Continue For
End If End If
@ -1246,7 +1246,7 @@ Public Class frmMain
TimerRefresh.Enabled = False TimerRefresh.Enabled = False
End If End If
GridViewWFItems.ShowLoadingPanel() GridView_Docs.ShowLoadingPanel()
TimerRefresh.Stop() TimerRefresh.Stop()
FRONTEND_ACTION = "DECIDE_LOAD" FRONTEND_ACTION = "DECIDE_LOAD"
If GRID_LOAD_TYPE = "OVERVIEW" Then If GRID_LOAD_TYPE = "OVERVIEW" Then
@ -1256,23 +1256,23 @@ Public Class frmMain
Await Load_single_Profile(ForceReload) Await Load_single_Profile(ForceReload)
End If End If
FRONTEND_ACTION = FA_NONE FRONTEND_ACTION = FA_NONE
GridViewWFItems.HideLoadingPanel() GridView_Docs.HideLoadingPanel()
TimerRefresh.Start() TimerRefresh.Start()
If SHOW_MASS_VALIDATOR = False Then If SHOW_MASS_VALIDATOR = False Then
GridViewWFItems.OptionsSelection.MultiSelect = False GridView_Docs.OptionsSelection.MultiSelect = False
GridViewWFItems.OptionsSelection.MultiSelectMode = GridMultiSelectMode.RowSelect GridView_Docs.OptionsSelection.MultiSelectMode = GridMultiSelectMode.RowSelect
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
GridViewWFItems.OptionsSelection.MultiSelect = True GridView_Docs.OptionsSelection.MultiSelect = True
GridViewWFItems.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect GridView_Docs.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect
End If End If
If GridViewWFItems.OptionsView.ShowAutoFilterRow = True Then If GridView_Docs.OptionsView.ShowAutoFilterRow = True Then
BarCheckItemAutofilter.Checked = True BarCheckItemAutofilter.Checked = True
End If End If
If GridViewWFItems.OptionsFind.AlwaysVisible Then If GridView_Docs.OptionsFind.AlwaysVisible Then
BarCheckItemShowSearch.Checked = True BarCheckItemShowSearch.Checked = True
End If End If
GridIsLoaded = True GridIsLoaded = True
@ -1459,7 +1459,7 @@ Public Class frmMain
bsiMessage.ItemAppearance.Normal.BackColor = Color.Red bsiMessage.ItemAppearance.Normal.BackColor = Color.Red
Exit Sub Exit Sub
End If End If
Dim hitInfo As GridHitInfo = GridViewWFItems.CalcHitInfo(GridCursorLocation) Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
bsiMessage.Caption = "" bsiMessage.Caption = ""
bsiMessage.ItemAppearance.Normal.BackColor = Color.Transparent bsiMessage.ItemAppearance.Normal.BackColor = Color.Transparent
Dim OItemScopeInfo = "No Item so far" Dim OItemScopeInfo = "No Item so far"
@ -1472,9 +1472,9 @@ Public Class frmMain
End If End If
Dim oHitProfilID Dim oHitProfilID
If hitInfo.InGroupRow Then 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 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 End If
If Len(oHitProfilID) > 0 Then If Len(oHitProfilID) > 0 Then
If oHitProfilID > 0 Then If oHitProfilID > 0 Then
@ -1490,21 +1490,21 @@ Public Class frmMain
Dim oIds As New List(Of Integer) Dim oIds As New List(Of Integer)
Dim oCount As Integer = 0 Dim oCount As Integer = 0
'----------------------------- '-----------------------------
Dim orows() As Integer = GridViewWFItems.GetSelectedRows Dim orows() As Integer = GridView_Docs.GetSelectedRows
Dim i As Integer Dim i As Integer
For i = 0 To orows.Length - 1 Step i + 1 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 j As Integer
Dim childRowIndex As Integer Dim childRowIndex As Integer
For j = 0 To childRowCount - 1 Step j + 1 For j = 0 To childRowCount - 1 Step j + 1
childRowIndex = GridViewWFItems.GetChildRowHandle(orows(i), j) childRowIndex = GridView_Docs.GetChildRowHandle(orows(i), j)
Dim oRow = GridViewWFItems.GetRow(childRowIndex) Dim oRow = GridView_Docs.GetRow(childRowIndex)
oIds.Add(oRow.item("DocId")) oIds.Add(oRow.item("DocId"))
Next Next
Next Next
If oIds.Count = 0 Then If oIds.Count = 0 Then
For index = 0 To GridViewWFItems.RowCount For index = 0 To GridView_Docs.RowCount
Dim oRow = GridViewWFItems.GetRow(index) Dim oRow = GridView_Docs.GetRow(index)
If oRow Is Nothing Then If oRow Is Nothing Then
Continue For Continue For
@ -1558,7 +1558,7 @@ Public Class frmMain
startedFrom = "CMGROUP" startedFrom = "CMGROUP"
LOGGER.Debug($"Item_Scope: InGroupRow") LOGGER.Debug($"Item_Scope: InGroupRow")
OItemScopeInfo = "InGroupRow" OItemScopeInfo = "InGroupRow"
groupRowText = GridViewWFItems.GetGroupRowDisplayText(hitInfo.RowHandle) groupRowText = GridView_Docs.GetGroupRowDisplayText(hitInfo.RowHandle)
OItemScopeInfo = $"groupRowText {groupRowText}" OItemScopeInfo = $"groupRowText {groupRowText}"
LOGGER.Debug($"Item_Scope: groupRowText {groupRowText}") LOGGER.Debug($"Item_Scope: groupRowText {groupRowText}")
' oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridViewWFItems.Columns("PROFILE_ID")) ' oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridViewWFItems.Columns("PROFILE_ID"))
@ -1569,7 +1569,7 @@ Public Class frmMain
If GRID_LOAD_TYPE = "OVERVIEW" Then If GRID_LOAD_TYPE = "OVERVIEW" Then
OItemScopeInfo = $"GRID_LOAD_TYPE = OVERVIEW" OItemScopeInfo = $"GRID_LOAD_TYPE = OVERVIEW"
LOGGER.Debug($"Item_Scope: 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}" OItemScopeInfo = $"OVERVIEWgroupRowText {groupRowText}"
LOGGER.Debug($"Item_Scope: OVERVIEWgroupRowText {groupRowText}") LOGGER.Debug($"Item_Scope: OVERVIEWgroupRowText {groupRowText}")
' oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(GridViewWFItems.GetParentRowHandle(hitInfo.RowHandle)), GridViewWFItems.Columns("PROFILE_ID")) ' 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...") LOGGER.Debug($"Item_Scope: hitInfo.InDataRow...")
Dim oFocusedDocGUID Dim oFocusedDocGUID
Try Try
oFocusedDocGUID = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns("GUID")) oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
Catch ex As Exception Catch ex As Exception
FormHelper.ShowInfoMessage("Could not get DocGUID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning) FormHelper.ShowInfoMessage("Could not get DocGUID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning)
End Try End Try
Dim oFocusedDocID Dim oFocusedDocID
Try Try
oFocusedDocID = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns("DocID")) oFocusedDocID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DocID"))
Catch ex As Exception Catch ex As Exception
FormHelper.ShowInfoMessage("Could not get DocID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning) FormHelper.ShowInfoMessage("Could not get DocID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning)
End Try End Try
@ -1650,8 +1650,8 @@ Public Class frmMain
Exit Sub Exit Sub
End If End If
LOGGER.Debug($"Item_Scope: GotDocID {oFocusedDocID} and DocGUID {oFocusedDocGUID}") LOGGER.Debug($"Item_Scope: GotDocID {oFocusedDocID} and DocGUID {oFocusedDocGUID}")
If Not IsNothing(GridViewWFItems.Columns(FullFilepatColName)) Then If Not IsNothing(GridView_Docs.Columns(FullFilepatColName)) Then
Dim DOC_PATH = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns(FullFilepatColName)) Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns(FullFilepatColName))
If IsNothing(DOC_PATH) Then If IsNothing(DOC_PATH) Then
LOGGER.Warn("In hitInfo.InDataRow: FULL_FILE_PATH is nothing!!!") LOGGER.Warn("In hitInfo.InDataRow: FULL_FILE_PATH is nothing!!!")
Exit Sub Exit Sub
@ -1751,7 +1751,7 @@ Public Class frmMain
Private Sub Create_Groups() Private Sub Create_Groups()
Try Try
LOGGER.Debug("Now Working on Groups..") LOGGER.Debug("Now Working on Groups..")
GridViewWFItems.OptionsView.ShowGroupPanel = False GridView_Docs.OptionsView.ShowGroupPanel = False
Dim oindex As Integer = 0 Dim oindex As Integer = 0
If Not IsNothing(BASEDATA_DTGRID_GROUPS) Then If Not IsNothing(BASEDATA_DTGRID_GROUPS) Then
For Each oGridGroup As DataRow In BASEDATA_DTGRID_GROUPS.Rows For Each oGridGroup As DataRow In BASEDATA_DTGRID_GROUPS.Rows
@ -1760,15 +1760,15 @@ Public Class frmMain
LOGGER.Debug($"Adding group [{oGroupName}] for Grid...") LOGGER.Debug($"Adding group [{oGroupName}] for Grid...")
Try Try
Dim oGroupColumn As GridColumn = GridViewWFItems.Columns.Item(oGroupName) Dim oGroupColumn As GridColumn = GridView_Docs.Columns.Item(oGroupName)
If oGroupColumn IsNot Nothing Then If oGroupColumn IsNot Nothing Then
oGroupColumn.GroupIndex = oindex oGroupColumn.GroupIndex = oindex
oGroupColumn.Group() oGroupColumn.Group()
oGroupColumn.OptionsColumn.AllowGroup = DefaultBoolean.False oGroupColumn.OptionsColumn.AllowGroup = DefaultBoolean.False
oGroupColumn.OptionsColumn.AllowMove = DefaultBoolean.False oGroupColumn.OptionsColumn.AllowMove = False
oGroupColumn.OptionsColumn.AllowShowHide = DefaultBoolean.False oGroupColumn.OptionsColumn.AllowShowHide = False
oGroupColumn.Visible = False oGroupColumn.Caption = "Profile (Fixed)"
End If End If
Catch ex As Exception Catch ex As Exception
@ -1779,17 +1779,17 @@ Public Class frmMain
End If End If
Try Try
GridViewWFItems.Columns.Item("GROUP_TEXT").Visible = False GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
GridViewWFItems.Columns.Item("GROUP_COLOR").Visible = False GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
Catch ex As Exception Catch ex As Exception
End Try End Try
For index = 0 To GridViewWFItems.GroupCount - 1 For index = 0 To GridView_Docs.GroupCount - 1
'Dim v = GridView_Docs.GroupedColumns(index).ToString 'Dim v = GridView_Docs.GroupedColumns(index).ToString
LOGGER.Debug($"Adding tag [{GridViewWFItems.Columns.Item("PROFILE_ID")}] for group...") LOGGER.Debug($"Adding tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...")
Dim sd = GridViewWFItems.GroupedColumns(index).GetTextCaption Dim sd = GridView_Docs.GroupedColumns(index).GetTextCaption
GridViewWFItems.GroupedColumns(index).Tag = GridViewWFItems.Columns.Item("PROFILE_ID") GridView_Docs.GroupedColumns(index).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
Next Next
GridViewWFItems.CollapseAllGroups() GridView_Docs.CollapseAllGroups()
LOGGER.Debug("finished Grouping!") LOGGER.Debug("finished Grouping!")
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -1836,7 +1836,7 @@ Public Class frmMain
bindsourcegrid.DataSource = Nothing bindsourcegrid.DataSource = Nothing
GridControl_Docs.DataSource = Nothing GridControl_Docs.DataSource = Nothing
Try Try
GridViewWFItems.Columns.Clear() GridView_Docs.Columns.Clear()
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -1884,16 +1884,16 @@ Public Class frmMain
NO_WORKFLOWITEMS = False NO_WORKFLOWITEMS = False
If CURR_DT_OVERVIEW.Rows.Count = 0 Then If CURR_DT_OVERVIEW.Rows.Count = 0 Then
If USER_LANGUAGE = "de-DE" Then If USER_LANGUAGE = "de-DE" Then
GridViewWFItems.ViewCaption = "Aktuell keine Workflowdaten vorhanden!" GridView_Docs.ViewCaption = "Aktuell keine Workflowdaten vorhanden!"
Else Else
GridViewWFItems.ViewCaption = "No workflowdata!" GridView_Docs.ViewCaption = "No workflowdata!"
End If End If
NO_WORKFLOWITEMS = True NO_WORKFLOWITEMS = True
GridControl_Docs.Visible = False GridControl_Docs.Visible = False
bindsourcegrid.DataSource = Nothing bindsourcegrid.DataSource = Nothing
GridControl_Docs.DataSource = Nothing GridControl_Docs.DataSource = Nothing
Try Try
GridViewWFItems.Columns.Clear() GridView_Docs.Columns.Clear()
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
@ -1961,6 +1961,7 @@ Public Class frmMain
bindsourcegrid.DataSource = CURR_DT_OVERVIEW bindsourcegrid.DataSource = CURR_DT_OVERVIEW
GridControl_Docs.DataSource = bindsourcegrid GridControl_Docs.DataSource = bindsourcegrid
GridControl_Docs.ForceInitialize()
Create_View_Caption() Create_View_Caption()
@ -1989,12 +1990,12 @@ Public Class frmMain
Try Try
Create_Groups() Create_Groups()
GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
GridViewWFItems.Columns.Item("GUID").Visible = False GridView_Docs.Columns.Item("GUID").Visible = False
Try Try
GridViewWFItems.Columns.Item(FullFilepatColName).Visible = False GridView_Docs.Columns.Item(FullFilepatColName).Visible = False
'GridView_Docs.Columns.Item("DocID").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 Catch ex As Exception
End Try End Try
@ -2002,10 +2003,10 @@ Public Class frmMain
If TL_ICON = True Then If TL_ICON = True Then
Try Try
GridViewWFItems.Columns.Item("ICON").MaxWidth = 24 GridView_Docs.Columns.Item("ICON").MaxWidth = 24
GridViewWFItems.Columns.Item("ICON").MinWidth = 24 GridView_Docs.Columns.Item("ICON").MinWidth = 24
GridViewWFItems.Columns.Item("ICON").AppearanceCell.BackColor = Color.White GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridViewWFItems.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
Catch ex As Exception Catch ex As Exception
End Try End Try
@ -2013,8 +2014,8 @@ Public Class frmMain
End If End If
Try Try
If GridViewWFItems.Columns.Item("CONV_YN") IsNot Nothing Then If GridView_Docs.Columns.Item("CONV_YN") IsNot Nothing Then
GridViewWFItems.Columns.Item("CONV_YN").Visible = False GridView_Docs.Columns.Item("CONV_YN").Visible = False
End If End If
Catch ex As Exception Catch ex As Exception
@ -2022,9 +2023,9 @@ Public Class frmMain
End Try End Try
If IDB_ACTIVE = True Then If IDB_ACTIVE = True Then
Try Try
GridViewWFItems.Columns.Item("CONVERSATION").MaxWidth = 24 GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24
GridViewWFItems.Columns.Item("CONVERSATION").MinWidth = 24 GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
GridViewWFItems.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left GridView_Docs.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
Catch ex As Exception Catch ex As Exception
LOGGER.Info("LoadGridOverview - Column CONVERSATION obviously not part of GridView_Docs") LOGGER.Info("LoadGridOverview - Column CONVERSATION obviously not part of GridView_Docs")
End Try End Try
@ -2036,12 +2037,12 @@ Public Class frmMain
Try Try
Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "") Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
oReducedColName = oReducedColName.Replace("]", "") oReducedColName = oReducedColName.Replace("]", "")
GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception Catch ex As Exception
Try Try
GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime GridView_Docs.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.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex1 As Exception Catch ex1 As Exception
LOGGER.Warn("(Warning LoadGridOverview)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL") LOGGER.Warn("(Warning LoadGridOverview)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL")
End Try End Try
@ -2053,7 +2054,7 @@ Public Class frmMain
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message) LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message)
End Try 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) LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
Await Reset_GridLayout(pFormLoad) Await Reset_GridLayout(pFormLoad)
End If End If
@ -2067,7 +2068,7 @@ Public Class frmMain
Try Try
GridViewWFItems.Columns.Clear() GridView_Docs.Columns.Clear()
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
@ -2112,11 +2113,11 @@ Public Class frmMain
InResetlayout = False InResetlayout = False
End Function 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") Item_Scope("DOUBLECLICK")
End Sub 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 Try
' Added ' Added
If FormOpenClose = True And GridIsLoaded = False Then If FormOpenClose = True And GridIsLoaded = False Then
@ -2192,7 +2193,7 @@ Public Class frmMain
End Function 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 view As GridView = sender
Dim hi As GridHitInfo = view.CalcHitInfo(e.Location) Dim hi As GridHitInfo = view.CalcHitInfo(e.Location)
Dim groupRowButtonClicked = (hi.HitTest = GridHitTest.RowGroupButton) Dim groupRowButtonClicked = (hi.HitTest = GridHitTest.RowGroupButton)
@ -2205,13 +2206,13 @@ Public Class frmMain
DXMouseEventArgs.GetMouseArgs(e).Handled = True DXMouseEventArgs.GetMouseArgs(e).Handled = True
GridViewItem_Clicked = "GROUP" GridViewItem_Clicked = "GROUP"
If Not Application.OpenForms().OfType(Of frmValidator).Any Then 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 End If
ElseIf hi.InDataRow Then ElseIf hi.InDataRow Then
GridViewItem_Clicked = "ROW" GridViewItem_Clicked = "ROW"
If Not Application.OpenForms().OfType(Of frmValidator).Any Then 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 End If
Else Else
@ -2239,14 +2240,14 @@ Public Class frmMain
End Sub 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") GridLayout_Changed("ColumnWidthChanged")
End Sub 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") GridLayout_Changed("EndSorting")
End Sub 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 ' Save expanded GroupRows
If GridControl_Docs.Visible = True And FormOpenClose = False Then If GridControl_Docs.Visible = True And FormOpenClose = False Then
RefreshHelper.SaveViewInfo() RefreshHelper.SaveViewInfo()
@ -2407,8 +2408,8 @@ Public Class frmMain
Timer_Inactivity_Reset_Disable("LöscheAlleFilterToolStripMenuItem") Timer_Inactivity_Reset_Disable("LöscheAlleFilterToolStripMenuItem")
Try Try
GridViewWFItems.ClearFindFilter() GridView_Docs.ClearFindFilter()
GridViewWFItems.ClearColumnsFilter() GridView_Docs.ClearColumnsFilter()
SaveGridLayout() SaveGridLayout()
Catch ex As Exception Catch ex As Exception
@ -2579,7 +2580,7 @@ Public Class frmMain
BringMonitor2Front() BringMonitor2Front()
End Sub 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 If FormShown = False Then
Exit Sub Exit Sub
End If End If
@ -2593,7 +2594,7 @@ Public Class frmMain
Else Else
IsFilterMode = False IsFilterMode = False
Try Try
Dim oRowColorCellValue = GridViewWFItems.GetRowCellValue(e.RowHandle, "ROW_COLOR") Dim oRowColorCellValue = GridView_Docs.GetRowCellValue(e.RowHandle, "ROW_COLOR")
If Not IsNothing(oRowColorCellValue) Then If Not IsNothing(oRowColorCellValue) Then
Dim oColor As Color Dim oColor As Color
Try Try
@ -2667,7 +2668,7 @@ Public Class frmMain
If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo() If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo()
End Sub 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 Try
If FormShown = False Then If FormShown = False Then
Exit Sub Exit Sub
@ -2682,11 +2683,11 @@ Public Class frmMain
Else Else
objectCount_Descr = " Filter aktiv" objectCount_Descr = " Filter aktiv"
End If End If
GridViewWFItems.ViewCaption += $"|{objectCount_Descr}" GridView_Docs.ViewCaption += $"|{objectCount_Descr}"
Else Else
Ev_Filter_Panel_Closed = False Ev_Filter_Panel_Closed = False
End If End If
If GridViewWFItems.ActiveFilterEnabled Then If GridView_Docs.ActiveFilterEnabled Then
End If End If
GridLayout_Changed("ColumnFilterChanged") GridLayout_Changed("ColumnFilterChanged")
@ -2708,7 +2709,7 @@ Public Class frmMain
' End If ' End If
'Next 'Next
Dim oRowCount = GridViewWFItems.RowCount Dim oRowCount = GridView_Docs.RowCount
oRowCount = oRowCount '- oGroupCount oRowCount = oRowCount '- oGroupCount
Dim objectCount_Descr = $"[{oRowCount.ToString}]" Dim objectCount_Descr = $"[{oRowCount.ToString}]"
@ -2727,9 +2728,9 @@ Public Class frmMain
Try Try
If USER_LANGUAGE = "de-DE" Then If USER_LANGUAGE = "de-DE" Then
GridViewWFItems.ViewCaption = "Gesamtübersicht" GridView_Docs.ViewCaption = "Gesamtübersicht"
Else Else
GridViewWFItems.ViewCaption = "Overview" GridView_Docs.ViewCaption = "Overview"
End If End If
Catch ex As Exception Catch ex As Exception
@ -2744,7 +2745,7 @@ Public Class frmMain
Dim oOptions As New XlsxExportOptions() With { Dim oOptions As New XlsxExportOptions() With {
.ExportMode = XlsxExportMode.SingleFile .ExportMode = XlsxExportMode.SingleFile
} }
GridViewWFItems.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions) GridView_Docs.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
End If End If
End Sub End Sub
@ -2835,7 +2836,7 @@ Public Class frmMain
End Try End Try
End Sub 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") GridLayout_Changed("ColumnPositionChanged")
End Sub End Sub
Private Sub GridLayout_Changed(oEvent As String) Private Sub GridLayout_Changed(oEvent As String)
@ -2849,7 +2850,7 @@ Public Class frmMain
End Sub 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") GridLayout_Changed("EndGrouping")
End Sub End Sub
@ -2857,7 +2858,7 @@ Public Class frmMain
End Sub 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) Dim view As GridView = CType(sender, GridView)
If e.Control AndAlso e.KeyCode = Keys.C Then 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 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 Private Sub BarCheckItem1_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItemAutofilter.CheckedChanged
If GridIsLoaded = True Then If GridIsLoaded = True Then
GridViewWFItems.OptionsView.ShowAutoFilterRow = BarCheckItemAutofilter.Checked GridView_Docs.OptionsView.ShowAutoFilterRow = BarCheckItemAutofilter.Checked
End If End If
End Sub End Sub
Private Sub BarCheckItem1_CheckedChanged_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItemShowSearch.CheckedChanged Private Sub BarCheckItem1_CheckedChanged_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItemShowSearch.CheckedChanged
If GridIsLoaded = True Then If GridIsLoaded = True Then
GridViewWFItems.OptionsFind.AlwaysVisible = BarCheckItemShowSearch.Checked GridView_Docs.OptionsFind.AlwaysVisible = BarCheckItemShowSearch.Checked
End If End If
End Sub End Sub
@ -2901,7 +2902,7 @@ Public Class frmMain
End Sub End Sub
Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
GridViewWFItems.ShowCustomization() GridView_Docs.ShowCustomization()
End Sub End Sub
Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemWFSingle.ItemClick 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 Private Sub BarButtonItemFileLink_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemFileLink.ItemClick
Dim oReceipiant = "" 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 oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({oFocusedDocGUID},1)"
Dim oFilePath = DatabaseFallback.GetScalarValueECM(oSQL) Dim oFilePath = DatabaseFallback.GetScalarValueECM(oSQL)
If File.Exists(oFilePath) Then 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 Private Async Sub BarButtonItemMassValidation_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemMassValidation.ItemClick
Try Try
Dim oSelectedRows As Integer() = GridViewWFItems.GetSelectedRows() Dim oSelectedRows As Integer() = GridView_Docs.GetSelectedRows()
Dim oHitInfo As GridHitInfo = GridViewWFItems.CalcHitInfo(GridCursorLocation) Dim oHitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
Dim oSelectedRowHandle As Integer = oHitInfo.RowHandle Dim oSelectedRowHandle As Integer = oHitInfo.RowHandle
Dim oWorkedFiles As Integer = 0 Dim oWorkedFiles As Integer = 0
@ -2946,7 +2947,7 @@ Public Class frmMain
Exit Sub Exit Sub
End If 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 If oProfileId = 0 Then
FormHelper.ShowInfoMessage("Could not select a profile!", omsgTitleWarning) FormHelper.ShowInfoMessage("Could not select a profile!", omsgTitleWarning)
@ -2987,18 +2988,18 @@ Public Class frmMain
For Each oRowHandle As Integer In oSelectedRows For Each oRowHandle As Integer In oSelectedRows
Dim oDocID = GridViewWFItems.GetRowCellValue(oRowHandle, "DocID") Dim oDocID = GridView_Docs.GetRowCellValue(oRowHandle, "DocID")
If IsNothing(oDocID) Then If IsNothing(oDocID) Then
Continue For Continue For
End If End If
Dim R As DataRow = NewDatatable.NewRow Dim R As DataRow = NewDatatable.NewRow
CURRENT_DOC_ID = oDocID 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_PATH = DOC_PATH
CURRENT_DOC_GUID = GridViewWFItems.GetRowCellValue(oRowHandle, "GUID") CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
R("DocID") = CURRENT_DOC_ID R("DocID") = CURRENT_DOC_ID
R("FULL_PATH") = DOC_PATH R("FULL_PATH") = DOC_PATH
R("DOC_GUID") = GridViewWFItems.GetRowCellValue(oRowHandle, "GUID") R("DOC_GUID") = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
NewDatatable.Rows.Add(R) NewDatatable.Rows.Add(R)
Next Next
@ -3050,11 +3051,11 @@ Public Class frmMain
End Try End Try
End Sub 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") Timer_Inactivity_Reset_Disable("GridViewWFItems_SelectionChanged")
End Sub 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 Try
If e.Button = Windows.Forms.MouseButtons.Right Then If e.Button = Windows.Forms.MouseButtons.Right Then
RibbonControl1.SelectedPage = RibbonPageTabelle RibbonControl1.SelectedPage = RibbonPageTabelle
@ -3075,7 +3076,7 @@ Public Class frmMain
End Sub 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") GridLayout_Changed("GridViewWFItems_SubstituteFilter")
RowCount() RowCount()
End Sub End Sub