MS Label Caption View
This commit is contained in:
parent
d7eedc08d5
commit
254885966e
362
app/TaskFlow/frmMain.Designer.vb
generated
362
app/TaskFlow/frmMain.Designer.vb
generated
@ -28,26 +28,8 @@ Partial Class frmMain
|
||||
Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
|
||||
Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl()
|
||||
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)
|
||||
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.GridControlWorkflows = New DevExpress.XtraGrid.GridControl()
|
||||
Me.GridViewWorkflows = New DevExpress.XtraGrid.Views.Grid.GridView()
|
||||
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
|
||||
Me.bbtniRefresh = 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.RibbonPageGroup9 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
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.DocumentViewerBarManager1 = New DevExpress.XtraPrinting.Preview.DocumentViewerBarManager(Me.components)
|
||||
Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
|
||||
@ -194,16 +196,17 @@ Partial Class frmMain
|
||||
Me.BarButtonItem9 = New DevExpress.XtraBars.BarButtonItem()
|
||||
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel1.SuspendLayout()
|
||||
CType(Me.GridControl_Docs, 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()
|
||||
Me.ContextMenuNotifyIcon.SuspendLayout()
|
||||
CType(Me.GridControlWorkflows, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.GridViewWorkflows, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.cmbGridFontSize, 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.RepositoryItemProgressBar2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.RepositoryItemZoomTrackBar1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@ -243,154 +246,46 @@ Partial Class frmMain
|
||||
'
|
||||
'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)
|
||||
resources.ApplyResources(Me.Panel1, "Panel1")
|
||||
Me.Panel1.Name = "Panel1"
|
||||
'
|
||||
'GridControl_Docs
|
||||
'GridControlWorkflows
|
||||
'
|
||||
resources.ApplyResources(Me.GridControl_Docs, "GridControl_Docs")
|
||||
Me.GridControl_Docs.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean)
|
||||
Me.GridControl_Docs.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
|
||||
Me.GridControl_Docs.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControl_Docs.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
|
||||
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.GridView_Docs
|
||||
Me.GridControl_Docs.Name = "GridControl_Docs"
|
||||
Me.GridControl_Docs.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView_Docs})
|
||||
resources.ApplyResources(Me.GridControlWorkflows, "GridControlWorkflows")
|
||||
Me.GridControlWorkflows.MainView = Me.GridViewWorkflows
|
||||
Me.GridControlWorkflows.MenuManager = Me.RibbonControl1
|
||||
Me.GridControlWorkflows.Name = "GridControlWorkflows"
|
||||
Me.GridControlWorkflows.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewWorkflows})
|
||||
'
|
||||
'GridView_Docs
|
||||
'GridViewWorkflows
|
||||
'
|
||||
Me.GridView_Docs.Appearance.EvenRow.BackColor = System.Drawing.Color.Azure
|
||||
Me.GridView_Docs.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridView_Docs.Appearance.ViewCaption.Font = CType(resources.GetObject("GridView_Docs.Appearance.ViewCaption.Font"), System.Drawing.Font)
|
||||
Me.GridView_Docs.Appearance.ViewCaption.ForeColor = System.Drawing.Color.Black
|
||||
Me.GridView_Docs.Appearance.ViewCaption.Options.UseFont = True
|
||||
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
|
||||
'
|
||||
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
|
||||
Me.GridViewWorkflows.Appearance.EvenRow.BackColor = System.Drawing.Color.Azure
|
||||
Me.GridViewWorkflows.Appearance.EvenRow.Options.UseBackColor = True
|
||||
Me.GridViewWorkflows.Appearance.ViewCaption.Font = CType(resources.GetObject("GridViewWorkflows.Appearance.ViewCaption.Font"), System.Drawing.Font)
|
||||
Me.GridViewWorkflows.Appearance.ViewCaption.ForeColor = System.Drawing.Color.Black
|
||||
Me.GridViewWorkflows.Appearance.ViewCaption.Options.UseFont = True
|
||||
Me.GridViewWorkflows.Appearance.ViewCaption.Options.UseForeColor = True
|
||||
Me.GridViewWorkflows.Appearance.ViewCaption.Options.UseTextOptions = True
|
||||
Me.GridViewWorkflows.Appearance.ViewCaption.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Near
|
||||
Me.GridViewWorkflows.GridControl = Me.GridControlWorkflows
|
||||
Me.GridViewWorkflows.Name = "GridViewWorkflows"
|
||||
Me.GridViewWorkflows.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.GridViewWorkflows.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.GridViewWorkflows.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.GridViewWorkflows.OptionsBehavior.AllowGroupExpandAnimation = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.GridViewWorkflows.OptionsBehavior.Editable = False
|
||||
Me.GridViewWorkflows.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.GridViewWorkflows.OptionsSelection.MultiSelect = True
|
||||
Me.GridViewWorkflows.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
|
||||
Me.GridViewWorkflows.OptionsView.ColumnAutoWidth = False
|
||||
Me.GridViewWorkflows.OptionsView.EnableAppearanceEvenRow = True
|
||||
Me.GridViewWorkflows.OptionsView.ShowAutoFilterRow = True
|
||||
Me.GridViewWorkflows.OptionsView.ShowErrorPanel = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.GridViewWorkflows.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.GridViewWorkflows.OptionsView.ShowVerticalLines = DevExpress.Utils.DefaultBoolean.[False]
|
||||
'
|
||||
'RibbonControl1
|
||||
'
|
||||
@ -948,6 +843,119 @@ Partial Class frmMain
|
||||
Me.RepositoryItemTrackBar1.Name = "RepositoryItemTrackBar1"
|
||||
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
|
||||
'
|
||||
Me.barDockControlTop.CausesValidation = False
|
||||
@ -1595,16 +1603,18 @@ Partial Class frmMain
|
||||
Me.StatusBar = Me.RibbonStatusBar1
|
||||
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
CType(Me.GridControl_Docs, 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()
|
||||
Me.ContextMenuNotifyIcon.ResumeLayout(False)
|
||||
CType(Me.GridControlWorkflows, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.GridViewWorkflows, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.cmbGridFontSize, 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.RepositoryItemProgressBar2, 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 cmsNavPane As ContextMenuStrip
|
||||
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 Timer5Mins As Timer
|
||||
Friend WithEvents ToolTip1 As ToolTip
|
||||
@ -1782,4 +1790,8 @@ Partial Class frmMain
|
||||
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents RibbonPageGroup9 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
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
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -161,7 +161,7 @@ Public Class frmMain
|
||||
FormOpenClose = True
|
||||
LOGGER.Debug("Initializing MainForm....")
|
||||
|
||||
GridBuilder = New GridBuilder(GridView_Docs)
|
||||
GridBuilder = New GridBuilder(GridViewWorkflows)
|
||||
GridBuilder.WithFontSizeDelta(CONFIG.Config.GridFontSizeDelta)
|
||||
|
||||
Dim oFontSettings = New List(Of FontSetting) From {
|
||||
@ -177,7 +177,7 @@ Public Class frmMain
|
||||
FirstOrDefault()
|
||||
|
||||
' 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")
|
||||
omsgTitleWarning = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("MsgboxTitleWarning")
|
||||
@ -628,7 +628,7 @@ Public Class frmMain
|
||||
|
||||
Try
|
||||
Dim xml As String = GetLayoutName_GridMain()
|
||||
GridView_Docs.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
|
||||
GridViewWorkflows.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
LOGGER.Info("Error while saving GridLayout MainGrid: " & ex.Message)
|
||||
@ -642,7 +642,7 @@ Public Class frmMain
|
||||
|
||||
Try
|
||||
Dim oXml As String = GetLayoutName_GridMain()
|
||||
GridView_Docs.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout)
|
||||
GridViewWorkflows.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout)
|
||||
Catch ex As Exception
|
||||
LOGGER.Info("Error while restoring layout MainGrid: " & ex.Message)
|
||||
End Try
|
||||
@ -654,41 +654,41 @@ Public Class frmMain
|
||||
Dim xml As String = GetLayoutName_GridMain()
|
||||
IO.File.Delete(xml)
|
||||
Try
|
||||
GridView_Docs.Columns.Clear()
|
||||
GridViewWorkflows.Columns.Clear()
|
||||
Catch ex As Exception
|
||||
If IsNothing(GridView_Docs) Then
|
||||
LOGGER.Warn("Somehow GridView_Docs is nothing....")
|
||||
If IsNothing(GridViewWorkflows) Then
|
||||
LOGGER.Warn("Somehow GridViewWorkflows is nothing....")
|
||||
Else
|
||||
If IsNothing(GridView_Docs.Columns) Then
|
||||
LOGGER.Warn("Somehow GridView_Docs.Columns is nothing....")
|
||||
If IsNothing(GridViewWorkflows.Columns) Then
|
||||
LOGGER.Warn("Somehow GridViewWorkflows.Columns is nothing....")
|
||||
|
||||
End If
|
||||
End If
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
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
|
||||
GridViewWorkflows.PopulateColumns()
|
||||
If GridViewWorkflows.Columns.Count > 0 Then
|
||||
GridViewWorkflows.Columns.Item("PROFILE_ID").Visible = False
|
||||
GridViewWorkflows.Columns.Item("GUID").Visible = False
|
||||
Try
|
||||
GridView_Docs.Columns.Item(FullFilepatColName).Visible = False
|
||||
GridViewWorkflows.Columns.Item(FullFilepatColName).Visible = False
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Try
|
||||
'GridView_Docs.Columns.Item("DocID").Visible = False
|
||||
GridView_Docs.Columns.Item("TL_STATE").Visible = False
|
||||
'GridViewWorkflows.Columns.Item("DocID").Visible = False
|
||||
GridViewWorkflows.Columns.Item("TL_STATE").Visible = False
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
Try
|
||||
If TL_ICON = True Then
|
||||
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
|
||||
GridViewWorkflows.Columns.Item("ICON").MaxWidth = 24
|
||||
GridViewWorkflows.Columns.Item("ICON").MinWidth = 24
|
||||
GridViewWorkflows.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
|
||||
GridViewWorkflows.Columns.Item("ICON").Fixed = FixedStyle.Left
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
@ -697,18 +697,18 @@ Public Class frmMain
|
||||
|
||||
If IDB_ACTIVE = True Then
|
||||
Try
|
||||
If GridView_Docs.Columns.Item("CONV_YN") IsNot Nothing Then
|
||||
GridView_Docs.Columns.Item("CONV_YN").Visible = False
|
||||
If GridViewWorkflows.Columns.Item("CONV_YN") IsNot Nothing Then
|
||||
GridViewWorkflows.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
|
||||
GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24
|
||||
GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
|
||||
GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").MaxWidth = 24
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").MinWidth = 24
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
|
||||
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 If
|
||||
|
||||
@ -716,12 +716,12 @@ Public Class frmMain
|
||||
Try
|
||||
oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
|
||||
oReducedColName = oReducedColName.Replace("]", "")
|
||||
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
|
||||
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
||||
GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
|
||||
GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
||||
Catch ex As Exception
|
||||
Try
|
||||
GridView_Docs.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.FormatType = FormatType.DateTime
|
||||
GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
||||
|
||||
Catch ex1 As Exception
|
||||
LOGGER.Warn($"(ResetLayout)Column [{oReducedColName}] or [Zuletzt bearbeitet] not part of OverviewSQL")
|
||||
@ -730,20 +730,20 @@ Public Class frmMain
|
||||
End Try
|
||||
|
||||
Try
|
||||
GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
|
||||
GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
|
||||
GridViewWorkflows.Columns.Item("GROUP_TEXT").Visible = False
|
||||
GridViewWorkflows.Columns.Item("GROUP_COLOR").Visible = False
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Try
|
||||
If GridView_Docs.Columns.ColumnByFieldName("ROW_COLOR") IsNot Nothing Then
|
||||
GridView_Docs.Columns.Item("ROW_COLOR").Visible = False
|
||||
If GridViewWorkflows.Columns.ColumnByFieldName("ROW_COLOR") IsNot Nothing Then
|
||||
GridViewWorkflows.Columns.Item("ROW_COLOR").Visible = False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
' GridView_Docs.OptionsView.ShowIndicator = False
|
||||
' GridViewWorkflows.OptionsView.ShowIndicator = False
|
||||
|
||||
End If
|
||||
|
||||
@ -857,10 +857,10 @@ Public Class frmMain
|
||||
|
||||
GRID_LOAD_TYPE = "PROFILE#" & _tag.ToString
|
||||
TimerRefresh.Stop()
|
||||
GridView_Docs.ShowLoadingPanel()
|
||||
GridViewWorkflows.ShowLoadingPanel()
|
||||
DetailLinkActive = True
|
||||
Await Load_single_Profile(True)
|
||||
GridView_Docs.HideLoadingPanel()
|
||||
GridViewWorkflows.HideLoadingPanel()
|
||||
TimerRefresh.Start()
|
||||
Else
|
||||
CURRENT_CLICKED_PROFILE_TITLE = Nothing
|
||||
@ -870,7 +870,7 @@ Public Class frmMain
|
||||
ElseIf _tag = "OVERVIEW" Then
|
||||
OverviewOrDEtail = "OVERVIEW"
|
||||
GRID_LOAD_TYPE = "OVERVIEW"
|
||||
GridView_Docs.ShowLoadingPanel()
|
||||
GridViewWorkflows.ShowLoadingPanel()
|
||||
TimerRefresh.Stop()
|
||||
Dim oForce As Boolean = False
|
||||
If DetailLinkActive = True Then
|
||||
@ -879,13 +879,13 @@ Public Class frmMain
|
||||
OVERVIEW_ADDED_WHEN = ""
|
||||
End If
|
||||
Await Load_Grid_Overview(False, True, True)
|
||||
GridView_Docs.HideLoadingPanel()
|
||||
GridViewWorkflows.HideLoadingPanel()
|
||||
TimerRefresh.Start()
|
||||
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...")
|
||||
Await Load_Grid_Overview(False, True, True)
|
||||
GridView_Docs.HideLoadingPanel()
|
||||
GridViewWorkflows.HideLoadingPanel()
|
||||
TimerRefresh.Start()
|
||||
RefreshHelper.LoadViewInfo()
|
||||
End If
|
||||
@ -976,8 +976,8 @@ Public Class frmMain
|
||||
|
||||
RestoreLayout()
|
||||
|
||||
'GridView_Docs.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)
|
||||
'GridViewWorkflows.ViewCaption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NoWorkflowData")} {CURRENT_CLICKED_PROFILE_TITLE}"
|
||||
lblCaptionMainGrid.Text = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, CURRENT_CLICKED_PROFILE_TITLE)
|
||||
|
||||
End If
|
||||
|
||||
@ -994,10 +994,10 @@ Public Class frmMain
|
||||
FRONTEND_ACTION = "Create_Basic_View"
|
||||
GridControl_Docs.DataSource = Nothing
|
||||
Try
|
||||
GridView_Docs.Columns.Clear()
|
||||
GridViewWorkflows.Columns.Clear()
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
LOGGER.Warn("Could not clear GridView_Docs.Columns")
|
||||
LOGGER.Warn("Could not clear GridViewWorkflows.Columns")
|
||||
End Try
|
||||
If TL_ICON = True Then
|
||||
' Spalte für Status Icon erstellen
|
||||
@ -1052,13 +1052,13 @@ Public Class frmMain
|
||||
oRow.Item("CONVERSATION") = My.Resources.conversation
|
||||
End Select
|
||||
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
|
||||
|
||||
Next
|
||||
bindsourcegrid.DataSource = CURR_DT_OVERVIEW
|
||||
GridControl_Docs.DataSource = bindsourcegrid
|
||||
Dim objectCount_Descr = GridView_Docs.RowCount.ToString
|
||||
Dim objectCount_Descr = GridViewWorkflows.RowCount.ToString
|
||||
|
||||
'Dim ocapt = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("DescItems")
|
||||
|
||||
@ -1072,24 +1072,24 @@ Public Class frmMain
|
||||
RestoreLayout()
|
||||
|
||||
|
||||
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
|
||||
GridView_Docs.Columns.Item("GUID").Visible = False
|
||||
GridViewWorkflows.Columns.Item("PROFILE_ID").Visible = False
|
||||
GridViewWorkflows.Columns.Item("GUID").Visible = False
|
||||
Try
|
||||
GridView_Docs.Columns.Item(FullFilepatColName).Visible = False
|
||||
GridViewWorkflows.Columns.Item(FullFilepatColName).Visible = False
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
Try
|
||||
'GridView_Docs.Columns.Item("DocID").Visible = False
|
||||
GridView_Docs.Columns.Item("TL_STATE").Visible = False
|
||||
'GridViewWorkflows.Columns.Item("DocID").Visible = False
|
||||
GridViewWorkflows.Columns.Item("TL_STATE").Visible = False
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Try
|
||||
If TL_ICON = True Then
|
||||
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
|
||||
GridViewWorkflows.Columns.Item("ICON").MaxWidth = 24
|
||||
GridViewWorkflows.Columns.Item("ICON").MinWidth = 24
|
||||
GridViewWorkflows.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
|
||||
GridViewWorkflows.Columns.Item("ICON").Fixed = FixedStyle.Left
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
@ -1097,17 +1097,17 @@ Public Class frmMain
|
||||
|
||||
|
||||
Try
|
||||
GridView_Docs.Columns.Item("CONV_YN").Visible = False
|
||||
GridViewWorkflows.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
|
||||
GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24
|
||||
GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
|
||||
GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").MaxWidth = 24
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").MinWidth = 24
|
||||
GridViewWorkflows.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")
|
||||
LOGGER.Info("Create_Basic_View2 - Column CONVERSATION obviously is not part of GridViewWorkflows - Trying to Rest Layout")
|
||||
ResetLayout()
|
||||
FRONTEND_ACTION = FA_NONE
|
||||
Exit Sub
|
||||
@ -1115,16 +1115,16 @@ Public Class frmMain
|
||||
End If
|
||||
|
||||
|
||||
' GridView_Docs.OptionsView.ShowIndicator = False
|
||||
' GridViewWorkflows.OptionsView.ShowIndicator = False
|
||||
Try
|
||||
Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
|
||||
oReducedColName = oReducedColName.Replace("]", "")
|
||||
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
|
||||
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
||||
GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
|
||||
GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
||||
Catch ex As Exception
|
||||
Try
|
||||
GridView_Docs.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.FormatType = FormatType.DateTime
|
||||
GridViewWorkflows.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
|
||||
@ -1133,8 +1133,8 @@ Public Class frmMain
|
||||
|
||||
LOGGER.Debug("All columns in CreateBasicView created")
|
||||
Try
|
||||
GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
|
||||
GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
|
||||
GridViewWorkflows.Columns.Item("GROUP_TEXT").Visible = False
|
||||
GridViewWorkflows.Columns.Item("GROUP_COLOR").Visible = False
|
||||
Catch ex As Exception
|
||||
If OverviewOrDEtail = "OVERVIEW" Then
|
||||
LOGGER.Warn("ATTENTION: GROUP COLUMNS NOT PART OF GRID")
|
||||
@ -1154,7 +1154,7 @@ Public Class frmMain
|
||||
Continue For
|
||||
End If
|
||||
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 GridDXColumnEditName = oActGridColumn.ColumnEditName
|
||||
Dim GridDXFieldName = oActGridColumn.FieldName
|
||||
@ -1178,7 +1178,7 @@ Public Class frmMain
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
For Each oActGridColumn As GridColumn In GridView_Docs.Columns
|
||||
For Each oActGridColumn As GridColumn In GridViewWorkflows.Columns
|
||||
If oActGridColumn.Caption = "" Then
|
||||
Continue For
|
||||
End If
|
||||
@ -1311,7 +1311,7 @@ Public Class frmMain
|
||||
TimerRefresh.Enabled = False
|
||||
End If
|
||||
|
||||
GridView_Docs.ShowLoadingPanel()
|
||||
GridViewWorkflows.ShowLoadingPanel()
|
||||
TimerRefresh.Stop()
|
||||
FRONTEND_ACTION = "DECIDE_LOAD"
|
||||
If GRID_LOAD_TYPE = "OVERVIEW" Then
|
||||
@ -1321,23 +1321,23 @@ Public Class frmMain
|
||||
Await Load_single_Profile(ForceReload)
|
||||
End If
|
||||
FRONTEND_ACTION = FA_NONE
|
||||
GridView_Docs.HideLoadingPanel()
|
||||
GridViewWorkflows.HideLoadingPanel()
|
||||
TimerRefresh.Start()
|
||||
|
||||
If SHOW_MASS_VALIDATOR = False Then
|
||||
GridView_Docs.OptionsSelection.MultiSelect = False
|
||||
GridView_Docs.OptionsSelection.MultiSelectMode = GridMultiSelectMode.RowSelect
|
||||
GridViewWorkflows.OptionsSelection.MultiSelect = False
|
||||
GridViewWorkflows.OptionsSelection.MultiSelectMode = GridMultiSelectMode.RowSelect
|
||||
BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
||||
Else
|
||||
BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
|
||||
|
||||
GridView_Docs.OptionsSelection.MultiSelect = True
|
||||
GridView_Docs.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect
|
||||
GridViewWorkflows.OptionsSelection.MultiSelect = True
|
||||
GridViewWorkflows.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect
|
||||
End If
|
||||
If GridView_Docs.OptionsView.ShowAutoFilterRow = True Then
|
||||
If GridViewWorkflows.OptionsView.ShowAutoFilterRow = True Then
|
||||
BarCheckItemAutofilter.Checked = True
|
||||
End If
|
||||
If GridView_Docs.OptionsFind.AlwaysVisible Then
|
||||
If GridViewWorkflows.OptionsFind.AlwaysVisible Then
|
||||
BarCheckItemShowSearch.Checked = True
|
||||
End If
|
||||
GridIsLoaded = True
|
||||
@ -1526,7 +1526,7 @@ Public Class frmMain
|
||||
bsiMessage.ItemAppearance.Normal.ForeColor = Color.Black
|
||||
Exit Sub
|
||||
End If
|
||||
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
|
||||
Dim hitInfo As GridHitInfo = GridViewWorkflows.CalcHitInfo(GridCursorLocation)
|
||||
bsiMessage.Caption = ""
|
||||
bsiMessage.ItemAppearance.Normal.BackColor = Color.Transparent
|
||||
Dim OItemScopeInfo = "No Item so far"
|
||||
@ -1541,9 +1541,9 @@ Public Class frmMain
|
||||
End If
|
||||
Dim oHitProfilID
|
||||
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
|
||||
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
|
||||
|
||||
LOGGER.Debug("Clicked ProfileId: [{0}]", oHitProfilID)
|
||||
@ -1565,11 +1565,11 @@ Public Class frmMain
|
||||
|
||||
Dim oIds As New List(Of Integer)
|
||||
Dim oGroupRowHandle = hitInfo.RowHandle
|
||||
Dim oChildRowCount = GridView_Docs.GetChildRowCount(oGroupRowHandle)
|
||||
Dim oChildRowCount = GridViewWorkflows.GetChildRowCount(oGroupRowHandle)
|
||||
|
||||
For index = 0 To oChildRowCount - 1
|
||||
Dim oChildRowHandle = GridView_Docs.GetChildRowHandle(oGroupRowHandle, index)
|
||||
Dim oRow = GridView_Docs.GetRow(oChildRowHandle)
|
||||
Dim oChildRowHandle = GridViewWorkflows.GetChildRowHandle(oGroupRowHandle, index)
|
||||
Dim oRow = GridViewWorkflows.GetRow(oChildRowHandle)
|
||||
Dim oDocId = oRow.Item("DocId")
|
||||
oIds.Add(oDocId)
|
||||
Next
|
||||
@ -1577,8 +1577,8 @@ Public Class frmMain
|
||||
LOGGER.Debug("[{0}] DocIds loaded", oIds.Count)
|
||||
|
||||
If oIds.Count = 0 Then
|
||||
For index = 0 To GridView_Docs.RowCount
|
||||
Dim oRow = GridView_Docs.GetRow(index)
|
||||
For index = 0 To GridViewWorkflows.RowCount
|
||||
Dim oRow = GridViewWorkflows.GetRow(index)
|
||||
|
||||
If oRow Is Nothing Then
|
||||
Continue For
|
||||
@ -1613,7 +1613,7 @@ Public Class frmMain
|
||||
|
||||
End If
|
||||
|
||||
'GridView_Docs.EndSelection()
|
||||
'GridViewWorkflows.EndSelection()
|
||||
CURRENT_JUMP_DOC_GUID = 0
|
||||
|
||||
If IsNothing(hitInfo) Then
|
||||
@ -1630,10 +1630,10 @@ Public Class frmMain
|
||||
startedFrom = "CMGROUP"
|
||||
LOGGER.Debug($"Item_Scope: InGroupRow")
|
||||
OItemScopeInfo = "InGroupRow"
|
||||
groupRowText = GridView_Docs.GetGroupRowDisplayText(hitInfo.RowHandle)
|
||||
groupRowText = GridViewWorkflows.GetGroupRowDisplayText(hitInfo.RowHandle)
|
||||
OItemScopeInfo = $"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
|
||||
GridViewItem_Clicked = "ROW"
|
||||
OItemScopeInfo = "InDataRow"
|
||||
@ -1641,10 +1641,10 @@ Public Class frmMain
|
||||
If GRID_LOAD_TYPE = "OVERVIEW" Then
|
||||
OItemScopeInfo = $"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}"
|
||||
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
|
||||
OItemScopeInfo = $"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...")
|
||||
Dim oFocusedDocGUID
|
||||
Try
|
||||
oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
|
||||
oFocusedDocGUID = GridViewWorkflows.GetFocusedRowCellValue(GridViewWorkflows.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 = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DocID"))
|
||||
oFocusedDocID = GridViewWorkflows.GetFocusedRowCellValue(GridViewWorkflows.Columns("DocID"))
|
||||
Catch ex As Exception
|
||||
FormHelper.ShowInfoMessage("Could not get DocID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning)
|
||||
End Try
|
||||
@ -1724,8 +1724,8 @@ Public Class frmMain
|
||||
Exit Sub
|
||||
End If
|
||||
LOGGER.Debug($"Item_Scope: GotDocID {oFocusedDocID} and DocGUID {oFocusedDocGUID}")
|
||||
If Not IsNothing(GridView_Docs.Columns(FullFilepatColName)) Then
|
||||
Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns(FullFilepatColName))
|
||||
If Not IsNothing(GridViewWorkflows.Columns(FullFilepatColName)) Then
|
||||
Dim DOC_PATH = GridViewWorkflows.GetFocusedRowCellValue(GridViewWorkflows.Columns(FullFilepatColName))
|
||||
If IsNothing(DOC_PATH) Then
|
||||
LOGGER.Warn("In hitInfo.InDataRow: FULL_FILE_PATH is nothing!!!")
|
||||
Exit Sub
|
||||
@ -1821,7 +1821,7 @@ Public Class frmMain
|
||||
Private Sub Create_Groups()
|
||||
Try
|
||||
LOGGER.Debug("Now Working on Groups..")
|
||||
GridView_Docs.OptionsView.ShowGroupPanel = False
|
||||
GridViewWorkflows.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
|
||||
@ -1830,7 +1830,7 @@ Public Class frmMain
|
||||
|
||||
LOGGER.Debug($"Adding group [{oGroupName}] for Grid...")
|
||||
Try
|
||||
Dim oGroupColumn As GridColumn = GridView_Docs.Columns.Item(oGroupName)
|
||||
Dim oGroupColumn As GridColumn = GridViewWorkflows.Columns.Item(oGroupName)
|
||||
|
||||
If oGroupColumn IsNot Nothing Then
|
||||
oGroupColumn.GroupIndex = oindex
|
||||
@ -1849,17 +1849,17 @@ Public Class frmMain
|
||||
End If
|
||||
|
||||
Try
|
||||
GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
|
||||
GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
|
||||
GridViewWorkflows.Columns.Item("GROUP_TEXT").Visible = False
|
||||
GridViewWorkflows.Columns.Item("GROUP_COLOR").Visible = False
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
For index = 0 To GridView_Docs.GroupCount - 1
|
||||
'Dim v = GridView_Docs.GroupedColumns(index).ToString
|
||||
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")
|
||||
For index = 0 To GridViewWorkflows.GroupCount - 1
|
||||
'Dim v = GridViewWorkflows.GroupedColumns(index).ToString
|
||||
LOGGER.Debug($"Adding tag [{GridViewWorkflows.Columns.Item("PROFILE_ID")}] for group...")
|
||||
Dim sd = GridViewWorkflows.GroupedColumns(index).GetTextCaption
|
||||
GridViewWorkflows.GroupedColumns(index).Tag = GridViewWorkflows.Columns.Item("PROFILE_ID")
|
||||
Next
|
||||
GridView_Docs.CollapseAllGroups()
|
||||
GridViewWorkflows.CollapseAllGroups()
|
||||
LOGGER.Debug("finished Grouping!")
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
@ -1907,7 +1907,7 @@ Public Class frmMain
|
||||
bindsourcegrid.DataSource = Nothing
|
||||
GridControl_Docs.DataSource = Nothing
|
||||
Try
|
||||
GridView_Docs.Columns.Clear()
|
||||
GridViewWorkflows.Columns.Clear()
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
|
||||
@ -1956,15 +1956,15 @@ Public Class frmMain
|
||||
If CURR_DT_OVERVIEW.Rows.Count = 0 Then
|
||||
|
||||
|
||||
'GridView_Docs.ViewCaption = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NoWorkflowData")
|
||||
GridView_Docs.ViewCaption = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, "")
|
||||
' lblCaptionMainGrid.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NoWorkflowData")
|
||||
lblCaptionMainGrid.Text = String.Format(S.Aktuell_keine_Workflowdaten_vorhanden___0_, "")
|
||||
|
||||
NO_WORKFLOWITEMS = True
|
||||
GridControl_Docs.Visible = False
|
||||
bindsourcegrid.DataSource = Nothing
|
||||
GridControl_Docs.DataSource = Nothing
|
||||
Try
|
||||
GridView_Docs.Columns.Clear()
|
||||
GridViewWorkflows.Columns.Clear()
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
End Try
|
||||
@ -2022,7 +2022,7 @@ Public Class frmMain
|
||||
oRow.Item("CONVERSATION") = My.Resources.conversation
|
||||
End Select
|
||||
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
|
||||
End Try
|
||||
|
||||
@ -2061,12 +2061,12 @@ Public Class frmMain
|
||||
|
||||
Try
|
||||
Create_Groups()
|
||||
GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
|
||||
GridView_Docs.Columns.Item("GUID").Visible = False
|
||||
GridViewWorkflows.Columns.Item("PROFILE_ID").Visible = False
|
||||
GridViewWorkflows.Columns.Item("GUID").Visible = False
|
||||
Try
|
||||
GridView_Docs.Columns.Item(FullFilepatColName).Visible = False
|
||||
'GridView_Docs.Columns.Item("DocID").Visible = False
|
||||
GridView_Docs.Columns.Item("TL_STATE").Visible = False
|
||||
GridViewWorkflows.Columns.Item(FullFilepatColName).Visible = False
|
||||
'GridViewWorkflows.Columns.Item("DocID").Visible = False
|
||||
GridViewWorkflows.Columns.Item("TL_STATE").Visible = False
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
@ -2074,10 +2074,10 @@ Public Class frmMain
|
||||
|
||||
If TL_ICON = True Then
|
||||
Try
|
||||
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
|
||||
GridViewWorkflows.Columns.Item("ICON").MaxWidth = 24
|
||||
GridViewWorkflows.Columns.Item("ICON").MinWidth = 24
|
||||
GridViewWorkflows.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
|
||||
GridViewWorkflows.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
@ -2085,8 +2085,8 @@ Public Class frmMain
|
||||
End If
|
||||
|
||||
Try
|
||||
If GridView_Docs.Columns.Item("CONV_YN") IsNot Nothing Then
|
||||
GridView_Docs.Columns.Item("CONV_YN").Visible = False
|
||||
If GridViewWorkflows.Columns.Item("CONV_YN") IsNot Nothing Then
|
||||
GridViewWorkflows.Columns.Item("CONV_YN").Visible = False
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
@ -2094,26 +2094,26 @@ Public Class frmMain
|
||||
End Try
|
||||
If IDB_ACTIVE = True Then
|
||||
Try
|
||||
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
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").MaxWidth = 24
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").MinWidth = 24
|
||||
GridViewWorkflows.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
|
||||
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 If
|
||||
|
||||
|
||||
'GridView_Docs.OptionsView.ShowIndicator = False
|
||||
LOGGER.Debug("GridView_Docs.Columns loaded...")
|
||||
'GridViewWorkflows.OptionsView.ShowIndicator = False
|
||||
LOGGER.Debug("GridViewWorkflows.Columns loaded...")
|
||||
Try
|
||||
Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
|
||||
oReducedColName = oReducedColName.Replace("]", "")
|
||||
If Not IsNothing(GridView_Docs.Columns(oReducedColName)) Then
|
||||
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
|
||||
GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
||||
ElseIf Not IsNothing(GridView_Docs.Columns("Zuletzt bearbeitet")) Then
|
||||
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
|
||||
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
||||
If Not IsNothing(GridViewWorkflows.Columns(oReducedColName)) Then
|
||||
GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
|
||||
GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
||||
ElseIf Not IsNothing(GridViewWorkflows.Columns("Zuletzt bearbeitet")) Then
|
||||
GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
|
||||
GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
@ -2126,8 +2126,8 @@ Public Class frmMain
|
||||
LOGGER.Error(ex)
|
||||
LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message)
|
||||
End Try
|
||||
If GridView_Docs.Columns.Count <= 5 Then
|
||||
LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
|
||||
If GridViewWorkflows.Columns.Count <= 5 Then
|
||||
LOGGER.Info("GridViewWorkflows.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
|
||||
Await Reset_GridLayout(pFormLoad)
|
||||
End If
|
||||
Else
|
||||
@ -2140,7 +2140,7 @@ Public Class frmMain
|
||||
|
||||
|
||||
Try
|
||||
GridView_Docs.Columns.Clear()
|
||||
GridViewWorkflows.Columns.Clear()
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
End Try
|
||||
@ -2186,11 +2186,11 @@ Public Class frmMain
|
||||
InResetlayout = False
|
||||
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")
|
||||
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
|
||||
' Added
|
||||
If FormOpenClose = True And GridIsLoaded = False Then
|
||||
@ -2271,7 +2271,7 @@ Public Class frmMain
|
||||
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 hi As GridHitInfo = view.CalcHitInfo(e.Location)
|
||||
Dim groupRowButtonClicked = (hi.HitTest = GridHitTest.RowGroupButton)
|
||||
@ -2284,13 +2284,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 = 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
|
||||
|
||||
ElseIf hi.InDataRow Then
|
||||
GridViewItem_Clicked = "ROW"
|
||||
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
|
||||
|
||||
Else
|
||||
@ -2318,14 +2318,14 @@ Public Class frmMain
|
||||
|
||||
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")
|
||||
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")
|
||||
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
|
||||
If GridControl_Docs.Visible = True And FormOpenClose = False Then
|
||||
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")
|
||||
|
||||
Try
|
||||
GridView_Docs.ClearFindFilter()
|
||||
GridView_Docs.ClearColumnsFilter()
|
||||
GridViewWorkflows.ClearFindFilter()
|
||||
GridViewWorkflows.ClearColumnsFilter()
|
||||
SaveGridLayout()
|
||||
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()
|
||||
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
|
||||
Exit Sub
|
||||
End If
|
||||
@ -2704,7 +2704,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
|
||||
Else
|
||||
IsFilterMode = False
|
||||
Try
|
||||
Dim oRowColorCellValue = GridView_Docs.GetRowCellValue(e.RowHandle, "ROW_COLOR")
|
||||
Dim oRowColorCellValue = GridViewWorkflows.GetRowCellValue(e.RowHandle, "ROW_COLOR")
|
||||
If Not IsNothing(oRowColorCellValue) Then
|
||||
Dim oColor As Color
|
||||
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()
|
||||
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
|
||||
If FormShown = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Timer_Inactivity_Reset_Disable("GridView_Docs.ColumnFilterChanged")
|
||||
Timer_Inactivity_Reset_Disable("GridViewWorkflows.ColumnFilterChanged")
|
||||
Create_View_Caption()
|
||||
If Ev_Filter_Panel_Closed = False Then
|
||||
Dim objectCount_Descr As String = S.Filter_aktiv
|
||||
|
||||
GridView_Docs.ViewCaption += $"|{objectCount_Descr}"
|
||||
lblCaptionMainGrid.Text += $"|{objectCount_Descr}"
|
||||
Else
|
||||
Ev_Filter_Panel_Closed = False
|
||||
End If
|
||||
If GridView_Docs.ActiveFilterEnabled Then
|
||||
If GridViewWorkflows.ActiveFilterEnabled Then
|
||||
|
||||
End If
|
||||
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()
|
||||
Try
|
||||
'Dim oGroupCount As Integer = 0
|
||||
'For index = 0 To GridView_Docs.RowCount
|
||||
' Dim oRow = GridView_Docs.GetRow(index)
|
||||
'For index = 0 To GridViewWorkflows.RowCount
|
||||
' Dim oRow = GridViewWorkflows.GetRow(index)
|
||||
' If oRow Is Nothing Then
|
||||
' Continue For
|
||||
' End If
|
||||
' If GridView_Docs.GetRowExpanded(index) = True Then
|
||||
' If GridViewWorkflows.GetRowExpanded(index) = True Then
|
||||
' oGroupCount += 1
|
||||
' End If
|
||||
|
||||
'Next
|
||||
Dim oRowCount = GridView_Docs.RowCount
|
||||
Dim oRowCount = GridViewWorkflows.RowCount
|
||||
|
||||
oRowCount = oRowCount '- oGroupCount
|
||||
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
|
||||
Sub Create_View_Caption()
|
||||
Try
|
||||
GridView_Docs.ViewCaption = S.Gesamtübersicht
|
||||
lblCaptionMainGrid.Text = S.Gesamtübersicht
|
||||
|
||||
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 {
|
||||
.ExportMode = XlsxExportMode.SingleFile
|
||||
}
|
||||
GridView_Docs.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
|
||||
GridViewWorkflows.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
|
||||
End If
|
||||
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 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")
|
||||
End Sub
|
||||
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
|
||||
|
||||
|
||||
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")
|
||||
End Sub
|
||||
|
||||
@ -2965,7 +2965,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
|
||||
|
||||
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)
|
||||
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
|
||||
@ -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
|
||||
If GridIsLoaded = True Then
|
||||
GridView_Docs.OptionsView.ShowAutoFilterRow = BarCheckItemAutofilter.Checked
|
||||
GridViewWorkflows.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
|
||||
GridView_Docs.OptionsFind.AlwaysVisible = BarCheckItemShowSearch.Checked
|
||||
GridViewWorkflows.OptionsFind.AlwaysVisible = BarCheckItemShowSearch.Checked
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@ -3009,7 +3009,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
|
||||
End Sub
|
||||
|
||||
Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
|
||||
GridView_Docs.ShowCustomization()
|
||||
GridViewWorkflows.ShowCustomization()
|
||||
End Sub
|
||||
|
||||
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
|
||||
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 oFilePath = DatabaseFallback.GetScalarValueECM(oSQL)
|
||||
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
|
||||
Try
|
||||
Dim oSelectedRows As Integer() = GridView_Docs.GetSelectedRows()
|
||||
Dim oHitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
|
||||
Dim oSelectedRows As Integer() = GridViewWorkflows.GetSelectedRows()
|
||||
Dim oHitInfo As GridHitInfo = GridViewWorkflows.CalcHitInfo(GridCursorLocation)
|
||||
Dim oSelectedRowHandle As Integer = oHitInfo.RowHandle
|
||||
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
|
||||
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
|
||||
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
|
||||
|
||||
Dim oDocID = GridView_Docs.GetRowCellValue(oRowHandle, "DocID")
|
||||
Dim oDocID = GridViewWorkflows.GetRowCellValue(oRowHandle, "DocID")
|
||||
If IsNothing(oDocID) Then
|
||||
Continue For
|
||||
End If
|
||||
Dim R As DataRow = NewDatatable.NewRow
|
||||
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_GUID = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
|
||||
CURRENT_DOC_GUID = GridViewWorkflows.GetRowCellValue(oRowHandle, "GUID")
|
||||
R("DocID") = CURRENT_DOC_ID
|
||||
R("FULL_PATH") = DOC_PATH
|
||||
R("DOC_GUID") = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
|
||||
R("DOC_GUID") = GridViewWorkflows.GetRowCellValue(oRowHandle, "GUID")
|
||||
NewDatatable.Rows.Add(R)
|
||||
Next
|
||||
|
||||
@ -3158,11 +3158,11 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_
|
||||
End Try
|
||||
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")
|
||||
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
|
||||
If e.Button = Windows.Forms.MouseButtons.Right Then
|
||||
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
|
||||
|
||||
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")
|
||||
RowCount()
|
||||
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
|
||||
Open_Notifications_Form()
|
||||
End Sub
|
||||
|
||||
Private Sub GridViewWFItems_Click(sender As Object, e As EventArgs) Handles GridViewWorkflows.Click
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Loading…
x
Reference in New Issue
Block a user