fix grouped profile column be able to be ungrouped
This commit is contained in:
Jonathan Jenne
parent
7592e9aa47
commit
52ead09c75
62
app/DD_PM_WINDREAM/frmMain.Designer.vb
generated
62
app/DD_PM_WINDREAM/frmMain.Designer.vb
generated
@ -29,7 +29,7 @@ Partial Class frmMain
|
||||
Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl()
|
||||
Me.GridViewWFItems = New DevExpress.XtraGrid.Views.Grid.GridView()
|
||||
Me.GridView_Docs = New DevExpress.XtraGrid.Views.Grid.GridView()
|
||||
Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl()
|
||||
Me.NavBarGroupProfiles = New DevExpress.XtraNavBar.NavBarGroup()
|
||||
Me.cmsNavPane = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
@ -183,7 +183,7 @@ Partial Class frmMain
|
||||
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.GridViewWFItems, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.GridView_Docs, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.cmsNavPane.SuspendLayout()
|
||||
CType(Me.bindsourcegrid, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@ -245,36 +245,36 @@ Partial Class frmMain
|
||||
Me.GridControl_Docs.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
|
||||
Me.GridControl_Docs.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
|
||||
Me.GridControl_Docs.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
|
||||
Me.GridControl_Docs.MainView = Me.GridViewWFItems
|
||||
Me.GridControl_Docs.MainView = Me.GridView_Docs
|
||||
Me.GridControl_Docs.Name = "GridControl_Docs"
|
||||
Me.GridControl_Docs.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewWFItems})
|
||||
Me.GridControl_Docs.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView_Docs})
|
||||
'
|
||||
'GridViewWFItems
|
||||
'GridView_Docs
|
||||
'
|
||||
Me.GridViewWFItems.Appearance.EvenRow.BackColor = System.Drawing.Color.Azure
|
||||
Me.GridViewWFItems.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridViewWFItems.Appearance.ViewCaption.ForeColor = System.Drawing.Color.Black
|
||||
Me.GridViewWFItems.Appearance.ViewCaption.Options.UseForeColor = True
|
||||
Me.GridViewWFItems.Appearance.ViewCaption.Options.UseTextOptions = True
|
||||
Me.GridViewWFItems.Appearance.ViewCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near
|
||||
Me.GridViewWFItems.GridControl = Me.GridControl_Docs
|
||||
Me.GridViewWFItems.Name = "GridViewWFItems"
|
||||
Me.GridViewWFItems.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.GridViewWFItems.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.GridViewWFItems.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.GridViewWFItems.OptionsBehavior.AllowGroupExpandAnimation = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.GridViewWFItems.OptionsBehavior.Editable = False
|
||||
Me.GridViewWFItems.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.GridViewWFItems.OptionsSelection.MultiSelect = True
|
||||
Me.GridViewWFItems.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
|
||||
Me.GridViewWFItems.OptionsView.ColumnAutoWidth = False
|
||||
Me.GridViewWFItems.OptionsView.EnableAppearanceEvenRow = True
|
||||
Me.GridViewWFItems.OptionsView.ShowAutoFilterRow = True
|
||||
Me.GridViewWFItems.OptionsView.ShowErrorPanel = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.GridViewWFItems.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.GridViewWFItems.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.GridViewWFItems.OptionsView.ShowViewCaption = True
|
||||
resources.ApplyResources(Me.GridViewWFItems, "GridViewWFItems")
|
||||
Me.GridView_Docs.Appearance.EvenRow.BackColor = System.Drawing.Color.Azure
|
||||
Me.GridView_Docs.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridView_Docs.Appearance.ViewCaption.ForeColor = System.Drawing.Color.Black
|
||||
Me.GridView_Docs.Appearance.ViewCaption.Options.UseForeColor = True
|
||||
Me.GridView_Docs.Appearance.ViewCaption.Options.UseTextOptions = True
|
||||
Me.GridView_Docs.Appearance.ViewCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near
|
||||
Me.GridView_Docs.GridControl = Me.GridControl_Docs
|
||||
Me.GridView_Docs.Name = "GridView_Docs"
|
||||
Me.GridView_Docs.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.GridView_Docs.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.GridView_Docs.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.GridView_Docs.OptionsBehavior.AllowGroupExpandAnimation = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.GridView_Docs.OptionsBehavior.Editable = False
|
||||
Me.GridView_Docs.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.GridView_Docs.OptionsSelection.MultiSelect = True
|
||||
Me.GridView_Docs.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
|
||||
Me.GridView_Docs.OptionsView.ColumnAutoWidth = False
|
||||
Me.GridView_Docs.OptionsView.EnableAppearanceEvenRow = True
|
||||
Me.GridView_Docs.OptionsView.ShowAutoFilterRow = True
|
||||
Me.GridView_Docs.OptionsView.ShowErrorPanel = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.GridView_Docs.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.GridView_Docs.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.GridView_Docs.OptionsView.ShowViewCaption = True
|
||||
resources.ApplyResources(Me.GridView_Docs, "GridView_Docs")
|
||||
'
|
||||
'NavBarControl1
|
||||
'
|
||||
@ -1475,7 +1475,7 @@ Partial Class frmMain
|
||||
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.GridViewWFItems, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.GridView_Docs, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.cmsNavPane.ResumeLayout(False)
|
||||
CType(Me.bindsourcegrid, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
@ -1506,7 +1506,7 @@ Partial Class frmMain
|
||||
Friend WithEvents cmsNavPane As ContextMenuStrip
|
||||
Friend WithEvents tsmiValidationProfil As ToolStripMenuItem
|
||||
Friend WithEvents GridControl_Docs As DevExpress.XtraGrid.GridControl
|
||||
Friend WithEvents GridViewWFItems As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Friend WithEvents GridView_Docs As DevExpress.XtraGrid.Views.Grid.GridView
|
||||
Friend WithEvents bindsourcegrid As BindingSource
|
||||
Friend WithEvents Timer5Mins As Timer
|
||||
Friend WithEvents ToolTip1 As ToolTip
|
||||
|
||||
@ -125,7 +125,7 @@
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
|
||||
CAAAAk1TRnQBSQFMAgEBAgEAASQBCQEkAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
CAAAAk1TRnQBSQFMAgEBAgEAASwBCQEsAQkBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
@ -204,7 +204,7 @@
|
||||
<data name="GridControl_Docs.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>233, 0</value>
|
||||
</data>
|
||||
<data name="GridViewWFItems.ViewCaption" xml:space="preserve">
|
||||
<data name="GridView_Docs.ViewCaption" xml:space="preserve">
|
||||
<value>Gesamtübersicht Workflows</value>
|
||||
</data>
|
||||
<data name="GridControl_Docs.Size" type="System.Drawing.Size, System.Drawing">
|
||||
@ -1997,10 +1997,10 @@
|
||||
<data name=">>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>
|
||||
</data>
|
||||
<data name=">>GridViewWFItems.Name" xml:space="preserve">
|
||||
<value>GridViewWFItems</value>
|
||||
<data name=">>GridView_Docs.Name" xml:space="preserve">
|
||||
<value>GridView_Docs</value>
|
||||
</data>
|
||||
<data name=">>GridViewWFItems.Type" xml:space="preserve">
|
||||
<data name=">>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>
|
||||
</data>
|
||||
<data name=">>NavBarGroupProfiles.Name" xml:space="preserve">
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user