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

MS Label Caption View

Browse Source
This commit is contained in:
SchreiberM 2024-01-15 10:01:15 +01:00
parent d7eedc08d5
commit 254885966e
3 changed files with 939 additions and 897 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

362
app/TaskFlow/frmMain.Designer.vb generated
View File

@ -28,26 +28,8 @@ Partial Class frmMain
Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
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.GridControlWorkflows = New DevExpress.XtraGrid.GridControl()
Me.GridView_Docs = New DevExpress.XtraGrid.Views.Grid.GridView() Me.GridViewWorkflows = 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)
Me.tsmiValidationProfil = New System.Windows.Forms.ToolStripMenuItem()
Me.NavBarGroupMore = New DevExpress.XtraNavBar.NavBarGroup()
Me.NavBarItemOverview = New DevExpress.XtraNavBar.NavBarItem()
Me.bindsourcegrid = New System.Windows.Forms.BindingSource(Me.components)
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.ContextMenuNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.PopupErinnerungInaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.AnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OutOfRangePMFixierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components)
Me.TimerReminder = New System.Windows.Forms.Timer(Me.components)
Me.Timer5Mins = New System.Windows.Forms.Timer(Me.components)
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.bbtniRefresh = New DevExpress.XtraBars.BarButtonItem() Me.bbtniRefresh = New DevExpress.XtraBars.BarButtonItem()
Me.bbtniMonitor = New DevExpress.XtraBars.BarButtonItem() Me.bbtniMonitor = New DevExpress.XtraBars.BarButtonItem()
@ -116,6 +98,26 @@ Partial Class frmMain
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup9 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup9 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RepositoryItemTrackBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemTrackBar() Me.RepositoryItemTrackBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemTrackBar()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.lblCaptionMainGrid = New System.Windows.Forms.Label()
Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl()
Me.NavBarGroupProfiles = New DevExpress.XtraNavBar.NavBarGroup()
Me.cmsNavPane = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.tsmiValidationProfil = New System.Windows.Forms.ToolStripMenuItem()
Me.NavBarGroupMore = New DevExpress.XtraNavBar.NavBarGroup()
Me.NavBarItemOverview = New DevExpress.XtraNavBar.NavBarItem()
Me.bindsourcegrid = New System.Windows.Forms.BindingSource(Me.components)
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.ContextMenuNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.PopupErinnerungInaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.AnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OutOfRangePMFixierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components)
Me.TimerReminder = New System.Windows.Forms.Timer(Me.components)
Me.Timer5Mins = New System.Windows.Forms.Timer(Me.components)
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl()
Me.DocumentViewerBarManager1 = New DevExpress.XtraPrinting.Preview.DocumentViewerBarManager(Me.components) Me.DocumentViewerBarManager1 = New DevExpress.XtraPrinting.Preview.DocumentViewerBarManager(Me.components)
Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
@ -194,16 +196,17 @@ Partial Class frmMain
Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
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.GridControlWorkflows, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView_Docs, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewWorkflows, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cmsNavPane.SuspendLayout()
CType(Me.bindsourcegrid, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuNotifyIcon.SuspendLayout()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cmbGridFontSize, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.cmbGridFontSize, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemTrackBar1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemTrackBar1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cmsNavPane.SuspendLayout()
CType(Me.bindsourcegrid, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuNotifyIcon.SuspendLayout()
CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemProgressBar2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemProgressBar2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemZoomTrackBar1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RepositoryItemZoomTrackBar1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -243,154 +246,46 @@ Partial Class frmMain
' '
'Panel1 'Panel1
' '
Me.Panel1.Controls.Add(Me.GridControl_Docs) Me.Panel1.Controls.Add(Me.GridControlWorkflows)
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Controls.Add(Me.NavBarControl1) Me.Panel1.Controls.Add(Me.NavBarControl1)
resources.ApplyResources(Me.Panel1, "Panel1") resources.ApplyResources(Me.Panel1, "Panel1")
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
' '
'GridControl_Docs 'GridControlWorkflows
' '
resources.ApplyResources(Me.GridControl_Docs, "GridControl_Docs") resources.ApplyResources(Me.GridControlWorkflows, "GridControlWorkflows")
Me.GridControl_Docs.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean) Me.GridControlWorkflows.MainView = Me.GridViewWorkflows
Me.GridControl_Docs.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles) Me.GridControlWorkflows.MenuManager = Me.RibbonControl1
Me.GridControl_Docs.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout) Me.GridControlWorkflows.Name = "GridControlWorkflows"
Me.GridControl_Docs.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode) Me.GridControlWorkflows.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewWorkflows})
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.GridView_Docs
Me.GridControl_Docs.Name = "GridControl_Docs"
Me.GridControl_Docs.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView_Docs})
' '
'GridView_Docs 'GridViewWorkflows
' '
Me.GridView_Docs.Appearance.EvenRow.BackColor = System.Drawing.Color.Azure Me.GridViewWorkflows.Appearance.EvenRow.BackColor = System.Drawing.Color.Azure
Me.GridView_Docs.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewWorkflows.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView_Docs.Appearance.ViewCaption.Font = CType(resources.GetObject("GridView_Docs.Appearance.ViewCaption.Font"), System.Drawing.Font) Me.GridViewWorkflows.Appearance.ViewCaption.Font = CType(resources.GetObject("GridViewWorkflows.Appearance.ViewCaption.Font"), System.Drawing.Font)
Me.GridView_Docs.Appearance.ViewCaption.ForeColor = System.Drawing.Color.Black Me.GridViewWorkflows.Appearance.ViewCaption.ForeColor = System.Drawing.Color.Black
Me.GridView_Docs.Appearance.ViewCaption.Options.UseFont = True Me.GridViewWorkflows.Appearance.ViewCaption.Options.UseFont = True
Me.GridView_Docs.Appearance.ViewCaption.Options.UseForeColor = True Me.GridViewWorkflows.Appearance.ViewCaption.Options.UseForeColor = True
Me.GridView_Docs.Appearance.ViewCaption.Options.UseTextOptions = True Me.GridViewWorkflows.Appearance.ViewCaption.Options.UseTextOptions = True
Me.GridView_Docs.Appearance.ViewCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near Me.GridViewWorkflows.Appearance.ViewCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near
Me.GridView_Docs.GridControl = Me.GridControl_Docs Me.GridViewWorkflows.GridControl = Me.GridControlWorkflows
Me.GridView_Docs.Name = "GridView_Docs" Me.GridViewWorkflows.Name = "GridViewWorkflows"
Me.GridView_Docs.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewWorkflows.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView_Docs.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewWorkflows.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView_Docs.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[True] Me.GridViewWorkflows.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[True]
Me.GridView_Docs.OptionsBehavior.AllowGroupExpandAnimation = DevExpress.Utils.DefaultBoolean.[True] Me.GridViewWorkflows.OptionsBehavior.AllowGroupExpandAnimation = DevExpress.Utils.DefaultBoolean.[True]
Me.GridView_Docs.OptionsBehavior.Editable = False Me.GridViewWorkflows.OptionsBehavior.Editable = False
Me.GridView_Docs.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewWorkflows.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView_Docs.OptionsSelection.MultiSelect = True Me.GridViewWorkflows.OptionsSelection.MultiSelect = True
Me.GridView_Docs.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect Me.GridViewWorkflows.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridView_Docs.OptionsView.ColumnAutoWidth = False Me.GridViewWorkflows.OptionsView.ColumnAutoWidth = False
Me.GridView_Docs.OptionsView.EnableAppearanceEvenRow = True Me.GridViewWorkflows.OptionsView.EnableAppearanceEvenRow = True
Me.GridView_Docs.OptionsView.ShowAutoFilterRow = True Me.GridViewWorkflows.OptionsView.ShowAutoFilterRow = True
Me.GridView_Docs.OptionsView.ShowErrorPanel = DevExpress.Utils.DefaultBoolean.[True] Me.GridViewWorkflows.OptionsView.ShowErrorPanel = DevExpress.Utils.DefaultBoolean.[True]
Me.GridView_Docs.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewWorkflows.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView_Docs.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False] Me.GridViewWorkflows.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView_Docs.OptionsView.ShowViewCaption = True
resources.ApplyResources(Me.GridView_Docs, "GridView_Docs")
'
'NavBarControl1
'
Me.NavBarControl1.ActiveGroup = Me.NavBarGroupProfiles
Me.NavBarControl1.ContextMenuStrip = Me.cmsNavPane
resources.ApplyResources(Me.NavBarControl1, "NavBarControl1")
Me.NavBarControl1.Groups.AddRange(New DevExpress.XtraNavBar.NavBarGroup() {Me.NavBarGroupMore, Me.NavBarGroupProfiles})
Me.NavBarControl1.Items.AddRange(New DevExpress.XtraNavBar.NavBarItem() {Me.NavBarItemOverview})
Me.NavBarControl1.Name = "NavBarControl1"
Me.NavBarControl1.OptionsNavPane.ExpandedWidth = CType(resources.GetObject("resource.ExpandedWidth"), Integer)
Me.NavBarControl1.PaintStyleKind = DevExpress.XtraNavBar.NavBarViewKind.NavigationPane
Me.NavBarControl1.ShowIcons = DevExpress.Utils.DefaultBoolean.[True]
Me.NavBarControl1.View = New DevExpress.XtraNavBar.ViewInfo.StandardSkinExplorerBarViewInfoRegistrator("Office 2019 White")
'
'NavBarGroupProfiles
'
resources.ApplyResources(Me.NavBarGroupProfiles, "NavBarGroupProfiles")
Me.NavBarGroupProfiles.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText
Me.NavBarGroupProfiles.ImageOptions.LargeImage = CType(resources.GetObject("NavBarGroupProfiles.ImageOptions.LargeImage"), System.Drawing.Image)
Me.NavBarGroupProfiles.Name = "NavBarGroupProfiles"
'
'cmsNavPane
'
Me.cmsNavPane.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.cmsNavPane.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiValidationProfil})
Me.cmsNavPane.Name = "cmsNavPane"
resources.ApplyResources(Me.cmsNavPane, "cmsNavPane")
'
'tsmiValidationProfil
'
Me.tsmiValidationProfil.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go1
Me.tsmiValidationProfil.Name = "tsmiValidationProfil"
resources.ApplyResources(Me.tsmiValidationProfil, "tsmiValidationProfil")
'
'NavBarGroupMore
'
resources.ApplyResources(Me.NavBarGroupMore, "NavBarGroupMore")
Me.NavBarGroupMore.Expanded = True
Me.NavBarGroupMore.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText
Me.NavBarGroupMore.ImageOptions.LargeImage = CType(resources.GetObject("NavBarGroupMore.ImageOptions.LargeImage"), System.Drawing.Image)
Me.NavBarGroupMore.ItemLinks.AddRange(New DevExpress.XtraNavBar.NavBarItemLink() {New DevExpress.XtraNavBar.NavBarItemLink(Me.NavBarItemOverview)})
Me.NavBarGroupMore.Name = "NavBarGroupMore"
'
'NavBarItemOverview
'
Me.NavBarItemOverview.Appearance.Image = CType(resources.GetObject("NavBarItemOverview.Appearance.Image"), System.Drawing.Image)
Me.NavBarItemOverview.Appearance.Options.UseImage = True
resources.ApplyResources(Me.NavBarItemOverview, "NavBarItemOverview")
Me.NavBarItemOverview.ImageOptions.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[False]
Me.NavBarItemOverview.ImageOptions.LargeImage = CType(resources.GetObject("NavBarItemOverview.ImageOptions.LargeImage"), System.Drawing.Image)
Me.NavBarItemOverview.Name = "NavBarItemOverview"
Me.NavBarItemOverview.Tag = "OVERVIEW"
'
'NotifyIcon1
'
Me.NotifyIcon1.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
Me.NotifyIcon1.ContextMenuStrip = Me.ContextMenuNotifyIcon
resources.ApplyResources(Me.NotifyIcon1, "NotifyIcon1")
'
'ContextMenuNotifyIcon
'
Me.ContextMenuNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PopupErinnerungInaktivierenToolStripMenuItem, Me.ToolStripSeparator1, Me.AnzeigenToolStripMenuItem, Me.OutOfRangePMFixierenToolStripMenuItem})
Me.ContextMenuNotifyIcon.Name = "ContextMenuNotifyIcon"
resources.ApplyResources(Me.ContextMenuNotifyIcon, "ContextMenuNotifyIcon")
'
'PopupErinnerungInaktivierenToolStripMenuItem
'
Me.PopupErinnerungInaktivierenToolStripMenuItem.Name = "PopupErinnerungInaktivierenToolStripMenuItem"
resources.ApplyResources(Me.PopupErinnerungInaktivierenToolStripMenuItem, "PopupErinnerungInaktivierenToolStripMenuItem")
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
'
'AnzeigenToolStripMenuItem
'
Me.AnzeigenToolStripMenuItem.Name = "AnzeigenToolStripMenuItem"
resources.ApplyResources(Me.AnzeigenToolStripMenuItem, "AnzeigenToolStripMenuItem")
'
'OutOfRangePMFixierenToolStripMenuItem
'
Me.OutOfRangePMFixierenToolStripMenuItem.Name = "OutOfRangePMFixierenToolStripMenuItem"
resources.ApplyResources(Me.OutOfRangePMFixierenToolStripMenuItem, "OutOfRangePMFixierenToolStripMenuItem")
'
'TimerRefresh
'
Me.TimerRefresh.Interval = 120000
'
'TimerReminder
'
'
'Timer5Mins
'
Me.Timer5Mins.Enabled = True
Me.Timer5Mins.Interval = 350000
'
'RibbonStatusBar1
'
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
' '
'RibbonControl1 'RibbonControl1
' '
@ -948,6 +843,119 @@ Partial Class frmMain
Me.RepositoryItemTrackBar1.Name = "RepositoryItemTrackBar1" Me.RepositoryItemTrackBar1.Name = "RepositoryItemTrackBar1"
Me.RepositoryItemTrackBar1.ShowLabels = True Me.RepositoryItemTrackBar1.ShowLabels = True
' '
'RibbonStatusBar1
'
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
'
'Panel2
'
Me.Panel2.Controls.Add(Me.lblCaptionMainGrid)
resources.ApplyResources(Me.Panel2, "Panel2")
Me.Panel2.Name = "Panel2"
'
'lblCaptionMainGrid
'
resources.ApplyResources(Me.lblCaptionMainGrid, "lblCaptionMainGrid")
Me.lblCaptionMainGrid.Name = "lblCaptionMainGrid"
'
'NavBarControl1
'
Me.NavBarControl1.ActiveGroup = Me.NavBarGroupProfiles
Me.NavBarControl1.ContextMenuStrip = Me.cmsNavPane
resources.ApplyResources(Me.NavBarControl1, "NavBarControl1")
Me.NavBarControl1.Groups.AddRange(New DevExpress.XtraNavBar.NavBarGroup() {Me.NavBarGroupMore, Me.NavBarGroupProfiles})
Me.NavBarControl1.Items.AddRange(New DevExpress.XtraNavBar.NavBarItem() {Me.NavBarItemOverview})
Me.NavBarControl1.Name = "NavBarControl1"
Me.NavBarControl1.OptionsNavPane.ExpandedWidth = CType(resources.GetObject("resource.ExpandedWidth"), Integer)
Me.NavBarControl1.PaintStyleKind = DevExpress.XtraNavBar.NavBarViewKind.NavigationPane
Me.NavBarControl1.ShowIcons = DevExpress.Utils.DefaultBoolean.[True]
Me.NavBarControl1.View = New DevExpress.XtraNavBar.ViewInfo.StandardSkinExplorerBarViewInfoRegistrator("Office 2019 White")
'
'NavBarGroupProfiles
'
resources.ApplyResources(Me.NavBarGroupProfiles, "NavBarGroupProfiles")
Me.NavBarGroupProfiles.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText
Me.NavBarGroupProfiles.ImageOptions.LargeImage = CType(resources.GetObject("NavBarGroupProfiles.ImageOptions.LargeImage"), System.Drawing.Image)
Me.NavBarGroupProfiles.Name = "NavBarGroupProfiles"
'
'cmsNavPane
'
Me.cmsNavPane.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.cmsNavPane.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiValidationProfil})
Me.cmsNavPane.Name = "cmsNavPane"
resources.ApplyResources(Me.cmsNavPane, "cmsNavPane")
'
'tsmiValidationProfil
'
Me.tsmiValidationProfil.Image = Global.DD_ProcessManager.My.Resources.Resources.database_go1
Me.tsmiValidationProfil.Name = "tsmiValidationProfil"
resources.ApplyResources(Me.tsmiValidationProfil, "tsmiValidationProfil")
'
'NavBarGroupMore
'
resources.ApplyResources(Me.NavBarGroupMore, "NavBarGroupMore")
Me.NavBarGroupMore.Expanded = True
Me.NavBarGroupMore.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText
Me.NavBarGroupMore.ImageOptions.LargeImage = CType(resources.GetObject("NavBarGroupMore.ImageOptions.LargeImage"), System.Drawing.Image)
Me.NavBarGroupMore.ItemLinks.AddRange(New DevExpress.XtraNavBar.NavBarItemLink() {New DevExpress.XtraNavBar.NavBarItemLink(Me.NavBarItemOverview)})
Me.NavBarGroupMore.Name = "NavBarGroupMore"
'
'NavBarItemOverview
'
Me.NavBarItemOverview.Appearance.Image = CType(resources.GetObject("NavBarItemOverview.Appearance.Image"), System.Drawing.Image)
Me.NavBarItemOverview.Appearance.Options.UseImage = True
resources.ApplyResources(Me.NavBarItemOverview, "NavBarItemOverview")
Me.NavBarItemOverview.ImageOptions.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[False]
Me.NavBarItemOverview.ImageOptions.LargeImage = CType(resources.GetObject("NavBarItemOverview.ImageOptions.LargeImage"), System.Drawing.Image)
Me.NavBarItemOverview.Name = "NavBarItemOverview"
Me.NavBarItemOverview.Tag = "OVERVIEW"
'
'NotifyIcon1
'
Me.NotifyIcon1.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
Me.NotifyIcon1.ContextMenuStrip = Me.ContextMenuNotifyIcon
resources.ApplyResources(Me.NotifyIcon1, "NotifyIcon1")
'
'ContextMenuNotifyIcon
'
Me.ContextMenuNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PopupErinnerungInaktivierenToolStripMenuItem, Me.ToolStripSeparator1, Me.AnzeigenToolStripMenuItem, Me.OutOfRangePMFixierenToolStripMenuItem})
Me.ContextMenuNotifyIcon.Name = "ContextMenuNotifyIcon"
resources.ApplyResources(Me.ContextMenuNotifyIcon, "ContextMenuNotifyIcon")
'
'PopupErinnerungInaktivierenToolStripMenuItem
'
Me.PopupErinnerungInaktivierenToolStripMenuItem.Name = "PopupErinnerungInaktivierenToolStripMenuItem"
resources.ApplyResources(Me.PopupErinnerungInaktivierenToolStripMenuItem, "PopupErinnerungInaktivierenToolStripMenuItem")
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
'
'AnzeigenToolStripMenuItem
'
Me.AnzeigenToolStripMenuItem.Name = "AnzeigenToolStripMenuItem"
resources.ApplyResources(Me.AnzeigenToolStripMenuItem, "AnzeigenToolStripMenuItem")
'
'OutOfRangePMFixierenToolStripMenuItem
'
Me.OutOfRangePMFixierenToolStripMenuItem.Name = "OutOfRangePMFixierenToolStripMenuItem"
resources.ApplyResources(Me.OutOfRangePMFixierenToolStripMenuItem, "OutOfRangePMFixierenToolStripMenuItem")
'
'TimerRefresh
'
Me.TimerRefresh.Interval = 120000
'
'TimerReminder
'
'
'Timer5Mins
'
Me.Timer5Mins.Enabled = True
Me.Timer5Mins.Interval = 350000
'
'barDockControlTop 'barDockControlTop
' '
Me.barDockControlTop.CausesValidation = False Me.barDockControlTop.CausesValidation = False
@ -1595,16 +1603,18 @@ Partial Class frmMain
Me.StatusBar = Me.RibbonStatusBar1 Me.StatusBar = Me.RibbonStatusBar1
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.GridControlWorkflows, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView_Docs, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewWorkflows, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.cmsNavPane.ResumeLayout(False)
CType(Me.bindsourcegrid, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuNotifyIcon.ResumeLayout(False)
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cmbGridFontSize, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.cmbGridFontSize, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemTrackBar1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemTrackBar1, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.cmsNavPane.ResumeLayout(False)
CType(Me.bindsourcegrid, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuNotifyIcon.ResumeLayout(False)
CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemProgressBar2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemProgressBar2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemZoomTrackBar1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.RepositoryItemZoomTrackBar1, System.ComponentModel.ISupportInitialize).EndInit()
@ -1626,8 +1636,6 @@ Partial Class frmMain
Friend WithEvents NavBarItemOverview As DevExpress.XtraNavBar.NavBarItem Friend WithEvents NavBarItemOverview As DevExpress.XtraNavBar.NavBarItem
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 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
@ -1782,4 +1790,8 @@ Partial Class frmMain
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup9 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup9 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RepositoryItemTrackBar1 As DevExpress.XtraEditors.Repository.RepositoryItemTrackBar Friend WithEvents RepositoryItemTrackBar1 As DevExpress.XtraEditors.Repository.RepositoryItemTrackBar
Friend WithEvents Panel2 As Panel
Friend WithEvents lblCaptionMainGrid As Label
Friend WithEvents GridControlWorkflows As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewWorkflows As DevExpress.XtraGrid.Views.Grid.GridView
End Class End Class

1120
app/TaskFlow/frmMain.resx
View File

File diff suppressed because it is too large Load Diff

354
app/TaskFlow/frmMain.vb
View File

@ -161,7 +161,7 @@ Public Class frmMain
FormOpenClose = True FormOpenClose = True
LOGGER.Debug("Initializing MainForm....") LOGGER.Debug("Initializing MainForm....")
GridBuilder = New GridBuilder(GridView_Docs) GridBuilder = New GridBuilder(GridViewWorkflows)
GridBuilder.WithFontSizeDelta(CONFIG.Config.GridFontSizeDelta) GridBuilder.WithFontSizeDelta(CONFIG.Config.GridFontSizeDelta)
Dim oFontSettings = New List(Of FontSetting) From { Dim oFontSettings = New List(Of FontSetting) From {
@ -177,7 +177,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, GridView_Docs, "GUID") RefreshHelper = New RefreshHelper(LOGCONFIG, GridViewWorkflows, "GUID")
omsgOpenWorkflow = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("WorkflowIsActive1") omsgOpenWorkflow = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("WorkflowIsActive1")
omsgTitleWarning = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("MsgboxTitleWarning") omsgTitleWarning = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("MsgboxTitleWarning")
@ -628,7 +628,7 @@ Public Class frmMain
Try Try
Dim xml As String = GetLayoutName_GridMain() Dim xml As String = GetLayoutName_GridMain()
GridView_Docs.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout) GridViewWorkflows.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Error while saving GridLayout MainGrid: " & ex.Message) LOGGER.Info("Error while saving GridLayout MainGrid: " & ex.Message)
@ -642,7 +642,7 @@ Public Class frmMain
Try Try
Dim oXml As String = GetLayoutName_GridMain() Dim oXml As String = GetLayoutName_GridMain()
GridView_Docs.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout) GridViewWorkflows.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout)
Catch ex As Exception Catch ex As Exception
LOGGER.Info("Error while restoring layout MainGrid: " & ex.Message) LOGGER.Info("Error while restoring layout MainGrid: " & ex.Message)
End Try End Try
@ -654,41 +654,41 @@ Public Class frmMain
Dim xml As String = GetLayoutName_GridMain() Dim xml As String = GetLayoutName_GridMain()
IO.File.Delete(xml) IO.File.Delete(xml)
Try Try
GridView_Docs.Columns.Clear() GridViewWorkflows.Columns.Clear()
Catch ex As Exception Catch ex As Exception
If IsNothing(GridView_Docs) Then If IsNothing(GridViewWorkflows) Then
LOGGER.Warn("Somehow GridView_Docs is nothing....") LOGGER.Warn("Somehow GridViewWorkflows is nothing....")
Else Else
If IsNothing(GridView_Docs.Columns) Then If IsNothing(GridViewWorkflows.Columns) Then
LOGGER.Warn("Somehow GridView_Docs.Columns is nothing....") LOGGER.Warn("Somehow GridViewWorkflows.Columns is nothing....")
End If End If
End If End If
Exit Sub Exit Sub
End Try End Try
GridView_Docs.PopulateColumns() GridViewWorkflows.PopulateColumns()
If GridView_Docs.Columns.Count > 0 Then If GridViewWorkflows.Columns.Count > 0 Then
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False GridViewWorkflows.Columns.Item("PROFILE_ID").Visible = False
GridView_Docs.Columns.Item("GUID").Visible = False GridViewWorkflows.Columns.Item("GUID").Visible = False
Try Try
GridView_Docs.Columns.Item(FullFilepatColName).Visible = False GridViewWorkflows.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 'GridViewWorkflows.Columns.Item("DocID").Visible = False
GridView_Docs.Columns.Item("TL_STATE").Visible = False GridViewWorkflows.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
GridView_Docs.Columns.Item("ICON").MaxWidth = 24 GridViewWorkflows.Columns.Item("ICON").MaxWidth = 24
GridView_Docs.Columns.Item("ICON").MinWidth = 24 GridViewWorkflows.Columns.Item("ICON").MinWidth = 24
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White GridViewWorkflows.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left GridViewWorkflows.Columns.Item("ICON").Fixed = FixedStyle.Left
End If End If
Catch ex As Exception Catch ex As Exception
@ -697,18 +697,18 @@ Public Class frmMain
If IDB_ACTIVE = True Then If IDB_ACTIVE = True Then
Try Try
If GridView_Docs.Columns.Item("CONV_YN") IsNot Nothing Then If GridViewWorkflows.Columns.Item("CONV_YN") IsNot Nothing Then
GridView_Docs.Columns.Item("CONV_YN").Visible = False GridViewWorkflows.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
GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24 GridViewWorkflows.Columns.Item("CONVERSATION").MaxWidth = 24
GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24 GridViewWorkflows.Columns.Item("CONVERSATION").MinWidth = 24
GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left GridViewWorkflows.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 GridViewWorkflows")
End Try End Try
End If End If
@ -716,12 +716,12 @@ Public Class frmMain
Try Try
oReducedColName = LAST_EDITED_COLUMN.Replace("[", "") oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
oReducedColName = oReducedColName.Replace("]", "") oReducedColName = oReducedColName.Replace("]", "")
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception Catch ex As Exception
Try Try
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex1 As Exception Catch ex1 As Exception
LOGGER.Warn($"(ResetLayout)Column [{oReducedColName}] or [Zuletzt bearbeitet] not part of OverviewSQL") LOGGER.Warn($"(ResetLayout)Column [{oReducedColName}] or [Zuletzt bearbeitet] not part of OverviewSQL")
@ -730,20 +730,20 @@ Public Class frmMain
End Try End Try
Try Try
GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False GridViewWorkflows.Columns.Item("GROUP_TEXT").Visible = False
GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False GridViewWorkflows.Columns.Item("GROUP_COLOR").Visible = False
Catch ex As Exception Catch ex As Exception
End Try End Try
Try Try
If GridView_Docs.Columns.ColumnByFieldName("ROW_COLOR") IsNot Nothing Then If GridViewWorkflows.Columns.ColumnByFieldName("ROW_COLOR") IsNot Nothing Then
GridView_Docs.Columns.Item("ROW_COLOR").Visible = False GridViewWorkflows.Columns.Item("ROW_COLOR").Visible = False
End If End If
Catch ex As Exception Catch ex As Exception
End Try End Try
' GridView_Docs.OptionsView.ShowIndicator = False ' GridViewWorkflows.OptionsView.ShowIndicator = False
End If End If
@ -857,10 +857,10 @@ Public Class frmMain
GRID_LOAD_TYPE = "PROFILE#" & _tag.ToString GRID_LOAD_TYPE = "PROFILE#" & _tag.ToString
TimerRefresh.Stop() TimerRefresh.Stop()
GridView_Docs.ShowLoadingPanel() GridViewWorkflows.ShowLoadingPanel()
DetailLinkActive = True DetailLinkActive = True
Await Load_single_Profile(True) Await Load_single_Profile(True)
GridView_Docs.HideLoadingPanel() GridViewWorkflows.HideLoadingPanel()
TimerRefresh.Start() TimerRefresh.Start()
Else Else
CURRENT_CLICKED_PROFILE_TITLE = Nothing CURRENT_CLICKED_PROFILE_TITLE = Nothing
@ -870,7 +870,7 @@ Public Class frmMain
ElseIf _tag = "OVERVIEW" Then ElseIf _tag = "OVERVIEW" Then
OverviewOrDEtail = "OVERVIEW" OverviewOrDEtail = "OVERVIEW"
GRID_LOAD_TYPE = "OVERVIEW" GRID_LOAD_TYPE = "OVERVIEW"
GridView_Docs.ShowLoadingPanel() GridViewWorkflows.ShowLoadingPanel()
TimerRefresh.Stop() TimerRefresh.Stop()
Dim oForce As Boolean = False Dim oForce As Boolean = False
If DetailLinkActive = True Then If DetailLinkActive = True Then
@ -879,13 +879,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)
GridView_Docs.HideLoadingPanel() GridViewWorkflows.HideLoadingPanel()
TimerRefresh.Start() TimerRefresh.Start()
RefreshHelper.LoadViewInfo() RefreshHelper.LoadViewInfo()
If GridView_Docs.GroupCount = 0 And IsNothing(GridView_Docs.Columns("GROUP_TEXT")) Then If GridViewWorkflows.GroupCount = 0 And IsNothing(GridViewWorkflows.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)
GridView_Docs.HideLoadingPanel() GridViewWorkflows.HideLoadingPanel()
TimerRefresh.Start() TimerRefresh.Start()
RefreshHelper.LoadViewInfo() RefreshHelper.LoadViewInfo()
End If End If
@ -976,8 +976,8 @@ Public Class frmMain
RestoreLayout() RestoreLayout()
'GridView_Docs.ViewCaption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NoWorkflowData")} {CURRENT_CLICKED_PROFILE_TITLE}" 'GridViewWorkflows.ViewCaption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NoWorkflowData")} {CURRENT_CLICKED_PROFILE_TITLE}"
GridView_Docs.ViewCaption = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, CURRENT_CLICKED_PROFILE_TITLE) lblCaptionMainGrid.Text = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, CURRENT_CLICKED_PROFILE_TITLE)
End If End If
@ -994,10 +994,10 @@ Public Class frmMain
FRONTEND_ACTION = "Create_Basic_View" FRONTEND_ACTION = "Create_Basic_View"
GridControl_Docs.DataSource = Nothing GridControl_Docs.DataSource = Nothing
Try Try
GridView_Docs.Columns.Clear() GridViewWorkflows.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 GridViewWorkflows.Columns")
End Try End Try
If TL_ICON = True Then If TL_ICON = True Then
' Spalte für Status Icon erstellen ' Spalte für Status Icon erstellen
@ -1052,13 +1052,13 @@ Public Class frmMain
oRow.Item("CONVERSATION") = My.Resources.conversation oRow.Item("CONVERSATION") = My.Resources.conversation
End Select End Select
Catch ex As Exception Catch ex As Exception
LOGGER.Warn("Create_Basic_View1 - Column CONVERSATION obviously is not part of GridView_Docs") LOGGER.Warn("Create_Basic_View1 - Column CONVERSATION obviously is not part of GridViewWorkflows")
End Try End Try
Next Next
bindsourcegrid.DataSource = CURR_DT_OVERVIEW bindsourcegrid.DataSource = CURR_DT_OVERVIEW
GridControl_Docs.DataSource = bindsourcegrid GridControl_Docs.DataSource = bindsourcegrid
Dim objectCount_Descr = GridView_Docs.RowCount.ToString Dim objectCount_Descr = GridViewWorkflows.RowCount.ToString
'Dim ocapt = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("DescItems") 'Dim ocapt = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("DescItems")
@ -1072,24 +1072,24 @@ Public Class frmMain
RestoreLayout() RestoreLayout()
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False GridViewWorkflows.Columns.Item("PROFILE_ID").Visible = False
GridView_Docs.Columns.Item("GUID").Visible = False GridViewWorkflows.Columns.Item("GUID").Visible = False
Try Try
GridView_Docs.Columns.Item(FullFilepatColName).Visible = False GridViewWorkflows.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 'GridViewWorkflows.Columns.Item("DocID").Visible = False
GridView_Docs.Columns.Item("TL_STATE").Visible = False GridViewWorkflows.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
GridView_Docs.Columns.Item("ICON").MaxWidth = 24 GridViewWorkflows.Columns.Item("ICON").MaxWidth = 24
GridView_Docs.Columns.Item("ICON").MinWidth = 24 GridViewWorkflows.Columns.Item("ICON").MinWidth = 24
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White GridViewWorkflows.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left GridViewWorkflows.Columns.Item("ICON").Fixed = FixedStyle.Left
End If End If
Catch ex As Exception Catch ex As Exception
@ -1097,17 +1097,17 @@ Public Class frmMain
Try Try
GridView_Docs.Columns.Item("CONV_YN").Visible = False GridViewWorkflows.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
GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24 GridViewWorkflows.Columns.Item("CONVERSATION").MaxWidth = 24
GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24 GridViewWorkflows.Columns.Item("CONVERSATION").MinWidth = 24
GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left GridViewWorkflows.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 GridViewWorkflows - Trying to Rest Layout")
ResetLayout() ResetLayout()
FRONTEND_ACTION = FA_NONE FRONTEND_ACTION = FA_NONE
Exit Sub Exit Sub
@ -1115,16 +1115,16 @@ Public Class frmMain
End If End If
' GridView_Docs.OptionsView.ShowIndicator = False ' GridViewWorkflows.OptionsView.ShowIndicator = False
Try Try
Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "") Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
oReducedColName = oReducedColName.Replace("]", "") oReducedColName = oReducedColName.Replace("]", "")
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception Catch ex As Exception
Try Try
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridViewWorkflows.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
@ -1133,8 +1133,8 @@ Public Class frmMain
LOGGER.Debug("All columns in CreateBasicView created") LOGGER.Debug("All columns in CreateBasicView created")
Try Try
GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False GridViewWorkflows.Columns.Item("GROUP_TEXT").Visible = False
GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False GridViewWorkflows.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")
@ -1154,7 +1154,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 GridView_Docs.Columns For Each oActGridColumn As GridColumn In GridViewWorkflows.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
@ -1178,7 +1178,7 @@ Public Class frmMain
End If End If
End If End If
Next Next
For Each oActGridColumn As GridColumn In GridView_Docs.Columns For Each oActGridColumn As GridColumn In GridViewWorkflows.Columns
If oActGridColumn.Caption = "" Then If oActGridColumn.Caption = "" Then
Continue For Continue For
End If End If
@ -1311,7 +1311,7 @@ Public Class frmMain
TimerRefresh.Enabled = False TimerRefresh.Enabled = False
End If End If
GridView_Docs.ShowLoadingPanel() GridViewWorkflows.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
@ -1321,23 +1321,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
GridView_Docs.HideLoadingPanel() GridViewWorkflows.HideLoadingPanel()
TimerRefresh.Start() TimerRefresh.Start()
If SHOW_MASS_VALIDATOR = False Then If SHOW_MASS_VALIDATOR = False Then
GridView_Docs.OptionsSelection.MultiSelect = False GridViewWorkflows.OptionsSelection.MultiSelect = False
GridView_Docs.OptionsSelection.MultiSelectMode = GridMultiSelectMode.RowSelect GridViewWorkflows.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
GridView_Docs.OptionsSelection.MultiSelect = True GridViewWorkflows.OptionsSelection.MultiSelect = True
GridView_Docs.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect GridViewWorkflows.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect
End If End If
If GridView_Docs.OptionsView.ShowAutoFilterRow = True Then If GridViewWorkflows.OptionsView.ShowAutoFilterRow = True Then
BarCheckItemAutofilter.Checked = True BarCheckItemAutofilter.Checked = True
End If End If
If GridView_Docs.OptionsFind.AlwaysVisible Then If GridViewWorkflows.OptionsFind.AlwaysVisible Then
BarCheckItemShowSearch.Checked = True BarCheckItemShowSearch.Checked = True
End If End If
GridIsLoaded = True GridIsLoaded = True
@ -1526,7 +1526,7 @@ Public Class frmMain
bsiMessage.ItemAppearance.Normal.ForeColor = Color.Black bsiMessage.ItemAppearance.Normal.ForeColor = Color.Black
Exit Sub Exit Sub
End If End If
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation) Dim hitInfo As GridHitInfo = GridViewWorkflows.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"
@ -1541,9 +1541,9 @@ Public Class frmMain
End If End If
Dim oHitProfilID Dim oHitProfilID
If hitInfo.InGroupRow Then If hitInfo.InGroupRow Then
oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridView_Docs.Columns("PROFILE_ID")) oHitProfilID = GridViewWorkflows.GetRowCellValue(GridViewWorkflows.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridViewWorkflows.Columns("PROFILE_ID"))
ElseIf hitInfo.InDataRow Then ElseIf hitInfo.InDataRow Then
oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID")) oHitProfilID = GridViewWorkflows.GetRowCellValue(GridViewWorkflows.GetDataRowHandleByGroupRowHandle(GridViewWorkflows.GetParentRowHandle(hitInfo.RowHandle)), GridViewWorkflows.Columns("PROFILE_ID"))
End If End If
LOGGER.Debug("Clicked ProfileId: [{0}]", oHitProfilID) LOGGER.Debug("Clicked ProfileId: [{0}]", oHitProfilID)
@ -1565,11 +1565,11 @@ Public Class frmMain
Dim oIds As New List(Of Integer) Dim oIds As New List(Of Integer)
Dim oGroupRowHandle = hitInfo.RowHandle Dim oGroupRowHandle = hitInfo.RowHandle
Dim oChildRowCount = GridView_Docs.GetChildRowCount(oGroupRowHandle) Dim oChildRowCount = GridViewWorkflows.GetChildRowCount(oGroupRowHandle)
For index = 0 To oChildRowCount - 1 For index = 0 To oChildRowCount - 1
Dim oChildRowHandle = GridView_Docs.GetChildRowHandle(oGroupRowHandle, index) Dim oChildRowHandle = GridViewWorkflows.GetChildRowHandle(oGroupRowHandle, index)
Dim oRow = GridView_Docs.GetRow(oChildRowHandle) Dim oRow = GridViewWorkflows.GetRow(oChildRowHandle)
Dim oDocId = oRow.Item("DocId") Dim oDocId = oRow.Item("DocId")
oIds.Add(oDocId) oIds.Add(oDocId)
Next Next
@ -1577,8 +1577,8 @@ Public Class frmMain
LOGGER.Debug("[{0}] DocIds loaded", oIds.Count) LOGGER.Debug("[{0}] DocIds loaded", oIds.Count)
If oIds.Count = 0 Then If oIds.Count = 0 Then
For index = 0 To GridView_Docs.RowCount For index = 0 To GridViewWorkflows.RowCount
Dim oRow = GridView_Docs.GetRow(index) Dim oRow = GridViewWorkflows.GetRow(index)
If oRow Is Nothing Then If oRow Is Nothing Then
Continue For Continue For
@ -1613,7 +1613,7 @@ Public Class frmMain
End If End If
'GridView_Docs.EndSelection() 'GridViewWorkflows.EndSelection()
CURRENT_JUMP_DOC_GUID = 0 CURRENT_JUMP_DOC_GUID = 0
If IsNothing(hitInfo) Then If IsNothing(hitInfo) Then
@ -1630,10 +1630,10 @@ Public Class frmMain
startedFrom = "CMGROUP" startedFrom = "CMGROUP"
LOGGER.Debug($"Item_Scope: InGroupRow") LOGGER.Debug($"Item_Scope: InGroupRow")
OItemScopeInfo = "InGroupRow" OItemScopeInfo = "InGroupRow"
groupRowText = GridView_Docs.GetGroupRowDisplayText(hitInfo.RowHandle) groupRowText = GridViewWorkflows.GetGroupRowDisplayText(hitInfo.RowHandle)
OItemScopeInfo = $"groupRowText {groupRowText}" OItemScopeInfo = $"groupRowText {groupRowText}"
LOGGER.Debug($"Item_Scope: groupRowText {groupRowText}") LOGGER.Debug($"Item_Scope: groupRowText {groupRowText}")
' oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridView_Docs.Columns("PROFILE_ID")) ' oHitProfilID = GridViewWorkflows.GetRowCellValue(GridViewWorkflows.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridViewWorkflows.Columns("PROFILE_ID"))
ElseIf hitInfo.InDataRow Then ElseIf hitInfo.InDataRow Then
GridViewItem_Clicked = "ROW" GridViewItem_Clicked = "ROW"
OItemScopeInfo = "InDataRow" OItemScopeInfo = "InDataRow"
@ -1641,10 +1641,10 @@ 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 = GridView_Docs.GetGroupRowDisplayText(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)) groupRowText = GridViewWorkflows.GetGroupRowDisplayText(GridViewWorkflows.GetParentRowHandle(hitInfo.RowHandle))
OItemScopeInfo = $"OVERVIEWgroupRowText {groupRowText}" OItemScopeInfo = $"OVERVIEWgroupRowText {groupRowText}"
LOGGER.Debug($"Item_Scope: OVERVIEWgroupRowText {groupRowText}") LOGGER.Debug($"Item_Scope: OVERVIEWgroupRowText {groupRowText}")
' oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID")) ' oHitProfilID = GridViewWorkflows.GetRowCellValue(GridViewWorkflows.GetDataRowHandleByGroupRowHandle(GridViewWorkflows.GetParentRowHandle(hitInfo.RowHandle)), GridViewWorkflows.Columns("PROFILE_ID"))
Else Else
OItemScopeInfo = $"NOT GRID_LOAD_TYPE = OVERVIEW" OItemScopeInfo = $"NOT GRID_LOAD_TYPE = OVERVIEW"
LOGGER.Debug($"Item_Scope: NOT GRID_LOAD_TYPE = OVERVIEW") LOGGER.Debug($"Item_Scope: NOT GRID_LOAD_TYPE = OVERVIEW")
@ -1697,14 +1697,14 @@ Public Class frmMain
LOGGER.Debug($"Item_Scope: hitInfo.InDataRow...") LOGGER.Debug($"Item_Scope: hitInfo.InDataRow...")
Dim oFocusedDocGUID Dim oFocusedDocGUID
Try Try
oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID")) oFocusedDocGUID = GridViewWorkflows.GetFocusedRowCellValue(GridViewWorkflows.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 = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DocID")) oFocusedDocID = GridViewWorkflows.GetFocusedRowCellValue(GridViewWorkflows.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
@ -1724,8 +1724,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(GridView_Docs.Columns(FullFilepatColName)) Then If Not IsNothing(GridViewWorkflows.Columns(FullFilepatColName)) Then
Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns(FullFilepatColName)) Dim DOC_PATH = GridViewWorkflows.GetFocusedRowCellValue(GridViewWorkflows.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
@ -1821,7 +1821,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..")
GridView_Docs.OptionsView.ShowGroupPanel = False GridViewWorkflows.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
@ -1830,7 +1830,7 @@ Public Class frmMain
LOGGER.Debug($"Adding group [{oGroupName}] for Grid...") LOGGER.Debug($"Adding group [{oGroupName}] for Grid...")
Try Try
Dim oGroupColumn As GridColumn = GridView_Docs.Columns.Item(oGroupName) Dim oGroupColumn As GridColumn = GridViewWorkflows.Columns.Item(oGroupName)
If oGroupColumn IsNot Nothing Then If oGroupColumn IsNot Nothing Then
oGroupColumn.GroupIndex = oindex oGroupColumn.GroupIndex = oindex
@ -1849,17 +1849,17 @@ Public Class frmMain
End If End If
Try Try
GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False GridViewWorkflows.Columns.Item("GROUP_TEXT").Visible = False
GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False GridViewWorkflows.Columns.Item("GROUP_COLOR").Visible = False
Catch ex As Exception Catch ex As Exception
End Try End Try
For index = 0 To GridView_Docs.GroupCount - 1 For index = 0 To GridViewWorkflows.GroupCount - 1
'Dim v = GridView_Docs.GroupedColumns(index).ToString 'Dim v = GridViewWorkflows.GroupedColumns(index).ToString
LOGGER.Debug($"Adding tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...") LOGGER.Debug($"Adding tag [{GridViewWorkflows.Columns.Item("PROFILE_ID")}] for group...")
Dim sd = GridView_Docs.GroupedColumns(index).GetTextCaption Dim sd = GridViewWorkflows.GroupedColumns(index).GetTextCaption
GridView_Docs.GroupedColumns(index).Tag = GridView_Docs.Columns.Item("PROFILE_ID") GridViewWorkflows.GroupedColumns(index).Tag = GridViewWorkflows.Columns.Item("PROFILE_ID")
Next Next
GridView_Docs.CollapseAllGroups() GridViewWorkflows.CollapseAllGroups()
LOGGER.Debug("finished Grouping!") LOGGER.Debug("finished Grouping!")
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -1907,7 +1907,7 @@ Public Class frmMain
bindsourcegrid.DataSource = Nothing bindsourcegrid.DataSource = Nothing
GridControl_Docs.DataSource = Nothing GridControl_Docs.DataSource = Nothing
Try Try
GridView_Docs.Columns.Clear() GridViewWorkflows.Columns.Clear()
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -1956,15 +1956,15 @@ Public Class frmMain
If CURR_DT_OVERVIEW.Rows.Count = 0 Then If CURR_DT_OVERVIEW.Rows.Count = 0 Then
'GridView_Docs.ViewCaption = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NoWorkflowData") ' lblCaptionMainGrid.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NoWorkflowData")
GridView_Docs.ViewCaption = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, "") lblCaptionMainGrid.Text = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, "")
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
GridView_Docs.Columns.Clear() GridViewWorkflows.Columns.Clear()
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
@ -2022,7 +2022,7 @@ Public Class frmMain
oRow.Item("CONVERSATION") = My.Resources.conversation oRow.Item("CONVERSATION") = My.Resources.conversation
End Select End Select
Catch ex As Exception Catch ex As Exception
LOGGER.Warn("Load_Grid_Overview - Column CONVERSATION obviously is not part of GridView_Docs") LOGGER.Warn("Load_Grid_Overview - Column CONVERSATION obviously is not part of GridViewWorkflows")
Exit For Exit For
End Try End Try
@ -2061,12 +2061,12 @@ Public Class frmMain
Try Try
Create_Groups() Create_Groups()
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False GridViewWorkflows.Columns.Item("PROFILE_ID").Visible = False
GridView_Docs.Columns.Item("GUID").Visible = False GridViewWorkflows.Columns.Item("GUID").Visible = False
Try Try
GridView_Docs.Columns.Item(FullFilepatColName).Visible = False GridViewWorkflows.Columns.Item(FullFilepatColName).Visible = False
'GridView_Docs.Columns.Item("DocID").Visible = False 'GridViewWorkflows.Columns.Item("DocID").Visible = False
GridView_Docs.Columns.Item("TL_STATE").Visible = False GridViewWorkflows.Columns.Item("TL_STATE").Visible = False
Catch ex As Exception Catch ex As Exception
End Try End Try
@ -2074,10 +2074,10 @@ Public Class frmMain
If TL_ICON = True Then If TL_ICON = True Then
Try Try
GridView_Docs.Columns.Item("ICON").MaxWidth = 24 GridViewWorkflows.Columns.Item("ICON").MaxWidth = 24
GridView_Docs.Columns.Item("ICON").MinWidth = 24 GridViewWorkflows.Columns.Item("ICON").MinWidth = 24
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White GridViewWorkflows.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left GridViewWorkflows.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
Catch ex As Exception Catch ex As Exception
End Try End Try
@ -2085,8 +2085,8 @@ Public Class frmMain
End If End If
Try Try
If GridView_Docs.Columns.Item("CONV_YN") IsNot Nothing Then If GridViewWorkflows.Columns.Item("CONV_YN") IsNot Nothing Then
GridView_Docs.Columns.Item("CONV_YN").Visible = False GridViewWorkflows.Columns.Item("CONV_YN").Visible = False
End If End If
Catch ex As Exception Catch ex As Exception
@ -2094,26 +2094,26 @@ Public Class frmMain
End Try End Try
If IDB_ACTIVE = True Then If IDB_ACTIVE = True Then
Try Try
GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24 GridViewWorkflows.Columns.Item("CONVERSATION").MaxWidth = 24
GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24 GridViewWorkflows.Columns.Item("CONVERSATION").MinWidth = 24
GridView_Docs.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left GridViewWorkflows.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 GridViewWorkflows")
End Try End Try
End If End If
'GridView_Docs.OptionsView.ShowIndicator = False 'GridViewWorkflows.OptionsView.ShowIndicator = False
LOGGER.Debug("GridView_Docs.Columns loaded...") LOGGER.Debug("GridViewWorkflows.Columns loaded...")
Try Try
Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "") Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
oReducedColName = oReducedColName.Replace("]", "") oReducedColName = oReducedColName.Replace("]", "")
If Not IsNothing(GridView_Docs.Columns(oReducedColName)) Then If Not IsNothing(GridViewWorkflows.Columns(oReducedColName)) Then
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
ElseIf Not IsNothing(GridView_Docs.Columns("Zuletzt bearbeitet")) Then ElseIf Not IsNothing(GridViewWorkflows.Columns("Zuletzt bearbeitet")) Then
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss" GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
End If End If
Catch ex As Exception Catch ex As Exception
@ -2126,8 +2126,8 @@ 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 GridView_Docs.Columns.Count <= 5 Then If GridViewWorkflows.Columns.Count <= 5 Then
LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False) LOGGER.Info("GridViewWorkflows.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
Await Reset_GridLayout(pFormLoad) Await Reset_GridLayout(pFormLoad)
End If End If
Else Else
@ -2140,7 +2140,7 @@ Public Class frmMain
Try Try
GridView_Docs.Columns.Clear() GridViewWorkflows.Columns.Clear()
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
@ -2186,11 +2186,11 @@ Public Class frmMain
InResetlayout = False InResetlayout = False
End Function End Function
Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick Private Sub GridViewWorkflows_DoubleClick(sender As Object, e As EventArgs) Handles GridViewWorkflows.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 GridView_Docs.CustomDrawGroupRow Private Sub GridViewWorkflows_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridViewWorkflows.CustomDrawGroupRow
Try Try
' Added ' Added
If FormOpenClose = True And GridIsLoaded = False Then If FormOpenClose = True And GridIsLoaded = False Then
@ -2271,7 +2271,7 @@ Public Class frmMain
End Function End Function
Private Sub GridView_Docs_MouseDown(sender As Object, e As MouseEventArgs) Handles GridView_Docs.MouseDown Private Sub GridViewWorkflows_MouseDown(sender As Object, e As MouseEventArgs) Handles GridViewWorkflows.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)
@ -2284,13 +2284,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 = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID")) CURRENT_CLICKED_PROFILE_ID = GridViewWorkflows.GetRowCellValue(GridViewWorkflows.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridViewWorkflows.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 = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID")) CURRENT_CLICKED_PROFILE_ID = GridViewWorkflows.GetRowCellValue(GridViewWorkflows.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridViewWorkflows.Columns("PROFILE_ID"))
End If End If
Else Else
@ -2318,14 +2318,14 @@ Public Class frmMain
End Sub End Sub
Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridView_Docs.ColumnWidthChanged Private Sub GridViewWorkflows_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridViewWorkflows.ColumnWidthChanged
GridLayout_Changed("ColumnWidthChanged") GridLayout_Changed("ColumnWidthChanged")
End Sub End Sub
Private Sub GridView_Docs_EndSorting(sender As Object, e As EventArgs) Handles GridView_Docs.EndSorting Private Sub GridViewWorkflows_EndSorting(sender As Object, e As EventArgs) Handles GridViewWorkflows.EndSorting
GridLayout_Changed("EndSorting") GridLayout_Changed("EndSorting")
End Sub End Sub
Private Sub GridView_Docs_LostFocus(sender As Object, e As EventArgs) Handles GridView_Docs.LostFocus Private Sub GridViewWorkflows_LostFocus(sender As Object, e As EventArgs) Handles GridViewWorkflows.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()
@ -2521,8 +2521,8 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
Timer_Inactivity_Reset_Disable("LöscheAlleFilterToolStripMenuItem") Timer_Inactivity_Reset_Disable("LöscheAlleFilterToolStripMenuItem")
Try Try
GridView_Docs.ClearFindFilter() GridViewWorkflows.ClearFindFilter()
GridView_Docs.ClearColumnsFilter() GridViewWorkflows.ClearColumnsFilter()
SaveGridLayout() SaveGridLayout()
Catch ex As Exception Catch ex As Exception
@ -2690,7 +2690,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
BringMonitor2Front() BringMonitor2Front()
End Sub End Sub
Private Sub GridView_Docs_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridView_Docs.RowStyle Private Sub GridViewWorkflows_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridViewWorkflows.RowStyle
If FormShown = False Then If FormShown = False Then
Exit Sub Exit Sub
End If End If
@ -2704,7 +2704,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
Else Else
IsFilterMode = False IsFilterMode = False
Try Try
Dim oRowColorCellValue = GridView_Docs.GetRowCellValue(e.RowHandle, "ROW_COLOR") Dim oRowColorCellValue = GridViewWorkflows.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
@ -2783,22 +2783,22 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
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 GridView_Docs.ColumnFilterChanged Private Sub GridViewWorkflows_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewWorkflows.ColumnFilterChanged
Try Try
If FormShown = False Then If FormShown = False Then
Exit Sub Exit Sub
End If End If
Timer_Inactivity_Reset_Disable("GridView_Docs.ColumnFilterChanged") Timer_Inactivity_Reset_Disable("GridViewWorkflows.ColumnFilterChanged")
Create_View_Caption() Create_View_Caption()
If Ev_Filter_Panel_Closed = False Then If Ev_Filter_Panel_Closed = False Then
Dim objectCount_Descr As String = S.Filter_aktiv Dim objectCount_Descr As String = S.Filter_aktiv
GridView_Docs.ViewCaption += $"|{objectCount_Descr}" lblCaptionMainGrid.Text += $"|{objectCount_Descr}"
Else Else
Ev_Filter_Panel_Closed = False Ev_Filter_Panel_Closed = False
End If End If
If GridView_Docs.ActiveFilterEnabled Then If GridViewWorkflows.ActiveFilterEnabled Then
End If End If
GridLayout_Changed("ColumnFilterChanged") GridLayout_Changed("ColumnFilterChanged")
@ -2810,17 +2810,17 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
Sub RowCount() Sub RowCount()
Try Try
'Dim oGroupCount As Integer = 0 'Dim oGroupCount As Integer = 0
'For index = 0 To GridView_Docs.RowCount 'For index = 0 To GridViewWorkflows.RowCount
' Dim oRow = GridView_Docs.GetRow(index) ' Dim oRow = GridViewWorkflows.GetRow(index)
' If oRow Is Nothing Then ' If oRow Is Nothing Then
' Continue For ' Continue For
' End If ' End If
' If GridView_Docs.GetRowExpanded(index) = True Then ' If GridViewWorkflows.GetRowExpanded(index) = True Then
' oGroupCount += 1 ' oGroupCount += 1
' End If ' End If
'Next 'Next
Dim oRowCount = GridView_Docs.RowCount Dim oRowCount = GridViewWorkflows.RowCount
oRowCount = oRowCount '- oGroupCount oRowCount = oRowCount '- oGroupCount
Dim objectCount_Descr = $"[{oRowCount.ToString}]" Dim objectCount_Descr = $"[{oRowCount.ToString}]"
@ -2834,7 +2834,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
End Sub End Sub
Sub Create_View_Caption() Sub Create_View_Caption()
Try Try
GridView_Docs.ViewCaption = S.Gesamtübersicht lblCaptionMainGrid.Text = S.Gesamtübersicht
Catch ex As Exception Catch ex As Exception
@ -2848,7 +2848,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
Dim oOptions As New XlsxExportOptions() With { Dim oOptions As New XlsxExportOptions() With {
.ExportMode = XlsxExportMode.SingleFile .ExportMode = XlsxExportMode.SingleFile
} }
GridView_Docs.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions) GridViewWorkflows.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
End If End If
End Sub End Sub
@ -2943,7 +2943,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
End Try End Try
End Sub End Sub
Private Sub GridView_Docs_ColumnPositionChanged(sender As Object, e As EventArgs) Handles GridView_Docs.ColumnPositionChanged Private Sub GridViewWorkflows_ColumnPositionChanged(sender As Object, e As EventArgs) Handles GridViewWorkflows.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)
@ -2957,7 +2957,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
End Sub End Sub
Private Sub GridView_Docs_EndGrouping(sender As Object, e As EventArgs) Handles GridView_Docs.EndGrouping Private Sub GridViewWorkflows_EndGrouping(sender As Object, e As EventArgs) Handles GridViewWorkflows.EndGrouping
GridLayout_Changed("EndGrouping") GridLayout_Changed("EndGrouping")
End Sub End Sub
@ -2965,7 +2965,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
End Sub End Sub
Private Sub GridView_Docs_KeyDown(sender As Object, e As KeyEventArgs) Handles GridView_Docs.KeyDown Private Sub GridViewWorkflows_KeyDown(sender As Object, e As KeyEventArgs) Handles GridViewWorkflows.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
@ -2977,13 +2977,13 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
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
GridView_Docs.OptionsView.ShowAutoFilterRow = BarCheckItemAutofilter.Checked GridViewWorkflows.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
GridView_Docs.OptionsFind.AlwaysVisible = BarCheckItemShowSearch.Checked GridViewWorkflows.OptionsFind.AlwaysVisible = BarCheckItemShowSearch.Checked
End If End If
End Sub End Sub
@ -3009,7 +3009,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
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
GridView_Docs.ShowCustomization() GridViewWorkflows.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
@ -3022,7 +3022,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
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 = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID")) Dim oFocusedDocGUID = GridViewWorkflows.GetFocusedRowCellValue(GridViewWorkflows.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
@ -3037,8 +3037,8 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
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() = GridView_Docs.GetSelectedRows() Dim oSelectedRows As Integer() = GridViewWorkflows.GetSelectedRows()
Dim oHitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation) Dim oHitInfo As GridHitInfo = GridViewWorkflows.CalcHitInfo(GridCursorLocation)
Dim oSelectedRowHandle As Integer = oHitInfo.RowHandle Dim oSelectedRowHandle As Integer = oHitInfo.RowHandle
Dim oWorkedFiles As Integer = 0 Dim oWorkedFiles As Integer = 0
@ -3052,7 +3052,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
Exit Sub Exit Sub
End If End If
oProfileId = GridView_Docs.GetRowCellValue(oSelectedRows.Last(), GridView_Docs.Columns("PROFILE_ID")) oProfileId = GridViewWorkflows.GetRowCellValue(oSelectedRows.Last(), GridViewWorkflows.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)
@ -3095,18 +3095,18 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
For Each oRowHandle As Integer In oSelectedRows For Each oRowHandle As Integer In oSelectedRows
Dim oDocID = GridView_Docs.GetRowCellValue(oRowHandle, "DocID") Dim oDocID = GridViewWorkflows.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 = GridView_Docs.GetRowCellValue(oRowHandle, FullFilepatColName) Dim DOC_PATH = GridViewWorkflows.GetRowCellValue(oRowHandle, FullFilepatColName)
' CURRENT_DOC_PATH = DOC_PATH ' CURRENT_DOC_PATH = DOC_PATH
CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(oRowHandle, "GUID") CURRENT_DOC_GUID = GridViewWorkflows.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") = GridView_Docs.GetRowCellValue(oRowHandle, "GUID") R("DOC_GUID") = GridViewWorkflows.GetRowCellValue(oRowHandle, "GUID")
NewDatatable.Rows.Add(R) NewDatatable.Rows.Add(R)
Next Next
@ -3158,11 +3158,11 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
End Try End Try
End Sub End Sub
Private Sub GridViewWFItems_SelectionChanged(sender As Object, e As DevExpress.Data.SelectionChangedEventArgs) Handles GridView_Docs.SelectionChanged Private Sub GridViewWFItems_SelectionChanged(sender As Object, e As DevExpress.Data.SelectionChangedEventArgs) Handles GridViewWorkflows.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 GridView_Docs.Click Private Sub GridViewWFItems_Click(sender As Object, e As MouseEventArgs) Handles GridViewWorkflows.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
@ -3183,7 +3183,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
End Sub End Sub
Private Sub GridViewWFItems_SubstituteFilter(sender As Object, e As DevExpress.Data.SubstituteFilterEventArgs) Handles GridView_Docs.SubstituteFilter Private Sub GridViewWFItems_SubstituteFilter(sender As Object, e As DevExpress.Data.SubstituteFilterEventArgs) Handles GridViewWorkflows.SubstituteFilter
GridLayout_Changed("GridViewWFItems_SubstituteFilter") GridLayout_Changed("GridViewWFItems_SubstituteFilter")
RowCount() RowCount()
End Sub End Sub
@ -3284,4 +3284,8 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
Private Sub BBtnItmNotfications_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BBtnItmNotfications.ItemClick Private Sub BBtnItmNotfications_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BBtnItmNotfications.ItemClick
Open_Notifications_Form() Open_Notifications_Form()
End Sub End Sub
Private Sub GridViewWFItems_Click(sender As Object, e As EventArgs) Handles GridViewWorkflows.Click
End Sub
End Class End Class