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
Download Patch File Download Diff File Expand all files Collapse all files

309
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -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