MS Divers Globix,EDMI Service etc
This commit is contained in:
487
GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb
generated
487
GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb
generated
@@ -24,9 +24,8 @@ Partial Class frmFlowSearch
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowSearch))
|
||||
Dim TileItemElement3 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
||||
Dim TileItemElement4 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Dim TileItemElement1 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
||||
Dim TileItemElement2 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
||||
Me.CheckButton1 = New DevExpress.XtraEditors.CheckButton()
|
||||
Me.txtSearchTerm = New System.Windows.Forms.TextBox()
|
||||
Me.lblFoundResult = New System.Windows.Forms.Label()
|
||||
@@ -39,48 +38,50 @@ Partial Class frmFlowSearch
|
||||
Me.TileGroup3 = New DevExpress.XtraEditors.TileGroup()
|
||||
Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components)
|
||||
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
|
||||
Me.BarToggleSwitchItemDateALL = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.BarToggleSwitchItemCURRENTYEAR = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.BarToggleSwitchItemLASTYEAR = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.BarToggleSwitchItemCURRENTMONTH = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.BarToggleSwitchItemLASTMONTH = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.BarButtonGroup1 = New DevExpress.XtraBars.BarButtonGroup()
|
||||
Me.BarToggleSwitchItemTODAY = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.BarToggleSwitchItemYESTERDAY = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.BarCheckItem1 = New DevExpress.XtraBars.BarCheckItem()
|
||||
Me.BarToggleSwitchItem1 = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.BarToggleSwitchItem2 = New DevExpress.XtraBars.BarToggleSwitchItem()
|
||||
Me.BarEditItemDate = New DevExpress.XtraBars.BarEditItem()
|
||||
Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox()
|
||||
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.DockManager1 = New DevExpress.XtraBars.Docking.DockManager(Me.components)
|
||||
Me.panelContainer1 = New DevExpress.XtraBars.Docking.DockPanel()
|
||||
Me.DockPanel1 = New DevExpress.XtraBars.Docking.DockPanel()
|
||||
Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.CheckedListBoxCategories = New DevExpress.XtraEditors.CheckedListBoxControl()
|
||||
Me.ToggleSwitchLastMonth = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.ToggleSwitchCurrentMonth = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.ToggleSwitchLastYear = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.ToggleSwitchCurrentYear = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.ToggleSwitchYesterday = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.cmbAttributeDate = New System.Windows.Forms.ComboBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.ToggleSwitchToday = New DevExpress.XtraEditors.ToggleSwitch()
|
||||
Me.DockPanel3 = New DevExpress.XtraBars.Docking.DockPanel()
|
||||
Me.DockPanel3_Container = New DevExpress.XtraBars.Docking.ControlContainer()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.panelContainer1.SuspendLayout()
|
||||
Me.DockPanel1.SuspendLayout()
|
||||
Me.DockPanel1_Container.SuspendLayout()
|
||||
CType(Me.CheckedListBoxCategories, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchLastMonth.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchCurrentMonth.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchLastYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchCurrentYear.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.DockPanel3.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.Panel3.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.DimGray
|
||||
Me.Panel1.Controls.Add(Me.CheckButton1)
|
||||
Me.Panel1.Controls.Add(Me.txtSearchTerm)
|
||||
Me.Panel1.Controls.Add(Me.lblFoundResult)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 159)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(1237, 61)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'CheckButton1
|
||||
'
|
||||
Me.CheckButton1.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
|
||||
Me.CheckButton1.Appearance.Options.UseBackColor = True
|
||||
Me.CheckButton1.ImageOptions.SvgImage = CType(resources.GetObject("CheckButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.CheckButton1.Location = New System.Drawing.Point(7, 11)
|
||||
Me.CheckButton1.Location = New System.Drawing.Point(6, 6)
|
||||
Me.CheckButton1.Name = "CheckButton1"
|
||||
Me.CheckButton1.Size = New System.Drawing.Size(110, 45)
|
||||
Me.CheckButton1.TabIndex = 5
|
||||
@@ -90,7 +91,7 @@ Partial Class frmFlowSearch
|
||||
'
|
||||
Me.txtSearchTerm.BackColor = System.Drawing.Color.White
|
||||
Me.txtSearchTerm.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtSearchTerm.Location = New System.Drawing.Point(148, 11)
|
||||
Me.txtSearchTerm.Location = New System.Drawing.Point(124, 6)
|
||||
Me.txtSearchTerm.Name = "txtSearchTerm"
|
||||
Me.txtSearchTerm.Size = New System.Drawing.Size(167, 23)
|
||||
Me.txtSearchTerm.TabIndex = 0
|
||||
@@ -101,7 +102,7 @@ Partial Class frmFlowSearch
|
||||
Me.lblFoundResult.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblFoundResult.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblFoundResult.ForeColor = System.Drawing.Color.White
|
||||
Me.lblFoundResult.Location = New System.Drawing.Point(144, 37)
|
||||
Me.lblFoundResult.Location = New System.Drawing.Point(122, 32)
|
||||
Me.lblFoundResult.Name = "lblFoundResult"
|
||||
Me.lblFoundResult.Size = New System.Drawing.Size(53, 19)
|
||||
Me.lblFoundResult.TabIndex = 3
|
||||
@@ -113,7 +114,7 @@ Partial Class frmFlowSearch
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.ForeColor = System.Drawing.Color.White
|
||||
Me.Label1.Location = New System.Drawing.Point(321, 14)
|
||||
Me.Label1.Location = New System.Drawing.Point(297, 9)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(43, 16)
|
||||
Me.Label1.TabIndex = 0
|
||||
@@ -122,9 +123,9 @@ Partial Class frmFlowSearch
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.Panel2.Location = New System.Drawing.Point(0, 627)
|
||||
Me.Panel2.Location = New System.Drawing.Point(202, 627)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(1237, 18)
|
||||
Me.Panel2.Size = New System.Drawing.Size(1035, 18)
|
||||
Me.Panel2.TabIndex = 1
|
||||
'
|
||||
'TileControlMatch
|
||||
@@ -133,17 +134,18 @@ Partial Class frmFlowSearch
|
||||
Me.TileControlMatch.AppearanceGroupText.Options.UseForeColor = True
|
||||
Me.TileControlMatch.AppearanceText.ForeColor = System.Drawing.Color.Yellow
|
||||
Me.TileControlMatch.AppearanceText.Options.UseForeColor = True
|
||||
Me.TileControlMatch.BackColor = System.Drawing.Color.DimGray
|
||||
Me.TileControlMatch.BackColor = System.Drawing.Color.DarkGray
|
||||
Me.TileControlMatch.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TileControlMatch.Groups.Add(Me.TileGroup2)
|
||||
Me.TileControlMatch.Groups.Add(Me.TileGroup3)
|
||||
Me.TileControlMatch.Location = New System.Drawing.Point(0, 220)
|
||||
Me.TileControlMatch.Location = New System.Drawing.Point(0, 0)
|
||||
Me.TileControlMatch.MaxId = 2
|
||||
Me.TileControlMatch.Name = "TileControlMatch"
|
||||
Me.TileControlMatch.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar
|
||||
Me.TileControlMatch.ShowGroupText = True
|
||||
Me.TileControlMatch.Size = New System.Drawing.Size(1237, 407)
|
||||
Me.TileControlMatch.Size = New System.Drawing.Size(1035, 415)
|
||||
Me.TileControlMatch.TabIndex = 2
|
||||
Me.TileControlMatch.TabStop = False
|
||||
Me.TileControlMatch.Text = "TileControl1"
|
||||
Me.TileControlMatch.ToolTipController = Me.ToolTipController1
|
||||
'
|
||||
@@ -158,8 +160,8 @@ Partial Class frmFlowSearch
|
||||
'
|
||||
Me.TileItem1.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.TileItem1.AppearanceItem.Normal.Options.UseBackColor = True
|
||||
TileItemElement3.Text = "TileItem1"
|
||||
Me.TileItem1.Elements.Add(TileItemElement3)
|
||||
TileItemElement1.Text = "TileItem1"
|
||||
Me.TileItem1.Elements.Add(TileItemElement1)
|
||||
Me.TileItem1.Id = 0
|
||||
Me.TileItem1.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide
|
||||
Me.TileItem1.Name = "TileItem1"
|
||||
@@ -168,8 +170,8 @@ Partial Class frmFlowSearch
|
||||
'
|
||||
Me.TileItem2.AppearanceItem.Normal.BackColor = System.Drawing.Color.White
|
||||
Me.TileItem2.AppearanceItem.Normal.Options.UseBackColor = True
|
||||
TileItemElement4.Text = "TileItem2"
|
||||
Me.TileItem2.Elements.Add(TileItemElement4)
|
||||
TileItemElement2.Text = "TileItem2"
|
||||
Me.TileItem2.Elements.Add(TileItemElement2)
|
||||
Me.TileItem2.Id = 1
|
||||
Me.TileItem2.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
|
||||
Me.TileItem2.Name = "TileItem2"
|
||||
@@ -187,127 +189,23 @@ Partial Class frmFlowSearch
|
||||
'RibbonControl1
|
||||
'
|
||||
Me.RibbonControl1.ExpandCollapseItem.Id = 0
|
||||
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarToggleSwitchItemDateALL, Me.BarToggleSwitchItemCURRENTYEAR, Me.BarToggleSwitchItemLASTYEAR, Me.BarToggleSwitchItemCURRENTMONTH, Me.BarToggleSwitchItemLASTMONTH, Me.BarButtonGroup1, Me.BarToggleSwitchItemTODAY, Me.BarToggleSwitchItemYESTERDAY, Me.BarCheckItem1, Me.BarToggleSwitchItem1, Me.BarToggleSwitchItem2, Me.BarEditItemDate})
|
||||
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem})
|
||||
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.RibbonControl1.MaxItemId = 13
|
||||
Me.RibbonControl1.Name = "RibbonControl1"
|
||||
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
|
||||
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemComboBox1})
|
||||
Me.RibbonControl1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.MacOffice
|
||||
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.RibbonControl1.ShowToolbarCustomizeItem = False
|
||||
Me.RibbonControl1.Size = New System.Drawing.Size(1237, 159)
|
||||
Me.RibbonControl1.Size = New System.Drawing.Size(1237, 146)
|
||||
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
|
||||
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
|
||||
'
|
||||
'BarToggleSwitchItemDateALL
|
||||
'
|
||||
Me.BarToggleSwitchItemDateALL.BindableChecked = True
|
||||
Me.BarToggleSwitchItemDateALL.Caption = "keine Eingrenzung"
|
||||
Me.BarToggleSwitchItemDateALL.Checked = True
|
||||
Me.BarToggleSwitchItemDateALL.Id = 1
|
||||
Me.BarToggleSwitchItemDateALL.Name = "BarToggleSwitchItemDateALL"
|
||||
'
|
||||
'BarToggleSwitchItemCURRENTYEAR
|
||||
'
|
||||
Me.BarToggleSwitchItemCURRENTYEAR.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Left
|
||||
Me.BarToggleSwitchItemCURRENTYEAR.Caption = "Aktuelles Jahr"
|
||||
Me.BarToggleSwitchItemCURRENTYEAR.Id = 2
|
||||
Me.BarToggleSwitchItemCURRENTYEAR.Name = "BarToggleSwitchItemCURRENTYEAR"
|
||||
'
|
||||
'BarToggleSwitchItemLASTYEAR
|
||||
'
|
||||
Me.BarToggleSwitchItemLASTYEAR.Caption = "Letztes Jahr"
|
||||
Me.BarToggleSwitchItemLASTYEAR.Id = 3
|
||||
Me.BarToggleSwitchItemLASTYEAR.Name = "BarToggleSwitchItemLASTYEAR"
|
||||
'
|
||||
'BarToggleSwitchItemCURRENTMONTH
|
||||
'
|
||||
Me.BarToggleSwitchItemCURRENTMONTH.Alignment = DevExpress.XtraBars.BarItemLinkAlignment.Right
|
||||
Me.BarToggleSwitchItemCURRENTMONTH.Caption = "Aktueller Monat"
|
||||
Me.BarToggleSwitchItemCURRENTMONTH.Id = 4
|
||||
Me.BarToggleSwitchItemCURRENTMONTH.Name = "BarToggleSwitchItemCURRENTMONTH"
|
||||
'
|
||||
'BarToggleSwitchItemLASTMONTH
|
||||
'
|
||||
Me.BarToggleSwitchItemLASTMONTH.Caption = "LetzterMonat"
|
||||
Me.BarToggleSwitchItemLASTMONTH.Id = 5
|
||||
Me.BarToggleSwitchItemLASTMONTH.Name = "BarToggleSwitchItemLASTMONTH"
|
||||
'
|
||||
'BarButtonGroup1
|
||||
'
|
||||
Me.BarButtonGroup1.Caption = "BarButtonGroup1"
|
||||
Me.BarButtonGroup1.Id = 6
|
||||
Me.BarButtonGroup1.Name = "BarButtonGroup1"
|
||||
'
|
||||
'BarToggleSwitchItemTODAY
|
||||
'
|
||||
Me.BarToggleSwitchItemTODAY.Caption = "Heute"
|
||||
Me.BarToggleSwitchItemTODAY.Id = 7
|
||||
Me.BarToggleSwitchItemTODAY.Name = "BarToggleSwitchItemTODAY"
|
||||
'
|
||||
'BarToggleSwitchItemYESTERDAY
|
||||
'
|
||||
Me.BarToggleSwitchItemYESTERDAY.Caption = "Gestern"
|
||||
Me.BarToggleSwitchItemYESTERDAY.Id = 8
|
||||
Me.BarToggleSwitchItemYESTERDAY.Name = "BarToggleSwitchItemYESTERDAY"
|
||||
'
|
||||
'BarCheckItem1
|
||||
'
|
||||
Me.BarCheckItem1.Caption = "BarCheckItem1"
|
||||
Me.BarCheckItem1.Id = 9
|
||||
Me.BarCheckItem1.Name = "BarCheckItem1"
|
||||
'
|
||||
'BarToggleSwitchItem1
|
||||
'
|
||||
Me.BarToggleSwitchItem1.Caption = "BarToggleSwitchItem1"
|
||||
Me.BarToggleSwitchItem1.Id = 10
|
||||
Me.BarToggleSwitchItem1.Name = "BarToggleSwitchItem1"
|
||||
'
|
||||
'BarToggleSwitchItem2
|
||||
'
|
||||
Me.BarToggleSwitchItem2.Caption = "BarToggleSwitchItem2"
|
||||
Me.BarToggleSwitchItem2.Id = 11
|
||||
Me.BarToggleSwitchItem2.Name = "BarToggleSwitchItem2"
|
||||
'
|
||||
'BarEditItemDate
|
||||
'
|
||||
Me.BarEditItemDate.Caption = "Attribut Datum"
|
||||
Me.BarEditItemDate.Edit = Me.RepositoryItemComboBox1
|
||||
Me.BarEditItemDate.EditWidth = 120
|
||||
Me.BarEditItemDate.Id = 12
|
||||
Me.BarEditItemDate.Name = "BarEditItemDate"
|
||||
'
|
||||
'RepositoryItemComboBox1
|
||||
'
|
||||
Me.RepositoryItemComboBox1.AutoHeight = False
|
||||
Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
|
||||
Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1"
|
||||
'
|
||||
'RibbonPage1
|
||||
'
|
||||
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2})
|
||||
Me.RibbonPage1.Name = "RibbonPage1"
|
||||
Me.RibbonPage1.Text = "Start"
|
||||
'
|
||||
'RibbonPageGroup1
|
||||
'
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemDateALL)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarEditItemDate)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonGroup1)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemTODAY, True)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemYESTERDAY)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemCURRENTYEAR, True)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemLASTYEAR)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemLASTMONTH, True)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemCURRENTMONTH)
|
||||
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
|
||||
Me.RibbonPageGroup1.Text = "Eingrenzung Datum"
|
||||
'
|
||||
'RibbonPageGroup2
|
||||
'
|
||||
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
|
||||
Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
|
||||
'
|
||||
'RibbonStatusBar1
|
||||
'
|
||||
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 645)
|
||||
@@ -320,6 +218,230 @@ Partial Class frmFlowSearch
|
||||
Me.RibbonPage2.Name = "RibbonPage2"
|
||||
Me.RibbonPage2.Text = "RibbonPage2"
|
||||
'
|
||||
'DockManager1
|
||||
'
|
||||
Me.DockManager1.Form = Me
|
||||
Me.DockManager1.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.panelContainer1})
|
||||
Me.DockManager1.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.StatusBar", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl", "DevExpress.XtraBars.ToolbarForm.ToolbarFormControl"})
|
||||
'
|
||||
'panelContainer1
|
||||
'
|
||||
Me.panelContainer1.ActiveChild = Me.DockPanel1
|
||||
Me.panelContainer1.Controls.Add(Me.DockPanel1)
|
||||
Me.panelContainer1.Controls.Add(Me.DockPanel3)
|
||||
Me.panelContainer1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left
|
||||
Me.panelContainer1.ID = New System.Guid("2c41e5f4-f976-4b22-a22e-afe12cfdaa3d")
|
||||
Me.panelContainer1.Location = New System.Drawing.Point(0, 146)
|
||||
Me.panelContainer1.Name = "panelContainer1"
|
||||
Me.panelContainer1.OriginalSize = New System.Drawing.Size(202, 200)
|
||||
Me.panelContainer1.Size = New System.Drawing.Size(202, 499)
|
||||
Me.panelContainer1.Tabbed = True
|
||||
Me.panelContainer1.Text = "panelContainer1"
|
||||
'
|
||||
'DockPanel1
|
||||
'
|
||||
Me.DockPanel1.Appearance.BackColor = System.Drawing.Color.DarkGray
|
||||
Me.DockPanel1.Appearance.Options.UseBackColor = True
|
||||
Me.DockPanel1.Controls.Add(Me.DockPanel1_Container)
|
||||
Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill
|
||||
Me.DockPanel1.Font = New System.Drawing.Font("Calibri", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.DockPanel1.ID = New System.Guid("1ff5d42b-085b-405c-85c0-e49f75099dd0")
|
||||
Me.DockPanel1.Location = New System.Drawing.Point(3, 46)
|
||||
Me.DockPanel1.Name = "DockPanel1"
|
||||
Me.DockPanel1.Options.AllowFloating = False
|
||||
Me.DockPanel1.Options.ShowCloseButton = False
|
||||
Me.DockPanel1.Options.ShowMaximizeButton = False
|
||||
Me.DockPanel1.OriginalSize = New System.Drawing.Size(220, 421)
|
||||
Me.DockPanel1.Size = New System.Drawing.Size(195, 421)
|
||||
Me.DockPanel1.Text = "Datum"
|
||||
'
|
||||
'DockPanel1_Container
|
||||
'
|
||||
Me.DockPanel1_Container.Controls.Add(Me.Label3)
|
||||
Me.DockPanel1_Container.Controls.Add(Me.CheckedListBoxCategories)
|
||||
Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchLastMonth)
|
||||
Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchCurrentMonth)
|
||||
Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchLastYear)
|
||||
Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchCurrentYear)
|
||||
Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchYesterday)
|
||||
Me.DockPanel1_Container.Controls.Add(Me.cmbAttributeDate)
|
||||
Me.DockPanel1_Container.Controls.Add(Me.Label2)
|
||||
Me.DockPanel1_Container.Controls.Add(Me.ToggleSwitchToday)
|
||||
Me.DockPanel1_Container.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DockPanel1_Container.Name = "DockPanel1_Container"
|
||||
Me.DockPanel1_Container.Size = New System.Drawing.Size(195, 421)
|
||||
Me.DockPanel1_Container.TabIndex = 0
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.ForeColor = System.Drawing.Color.White
|
||||
Me.Label3.Location = New System.Drawing.Point(9, 197)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(75, 17)
|
||||
Me.Label3.TabIndex = 16
|
||||
Me.Label3.Text = "Kategorien:"
|
||||
'
|
||||
'CheckedListBoxCategories
|
||||
'
|
||||
Me.CheckedListBoxCategories.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.CheckedListBoxCategories.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.CheckedListBoxCategories.Appearance.Options.UseFont = True
|
||||
Me.CheckedListBoxCategories.CheckOnClick = True
|
||||
Me.CheckedListBoxCategories.Location = New System.Drawing.Point(12, 217)
|
||||
Me.CheckedListBoxCategories.Name = "CheckedListBoxCategories"
|
||||
Me.CheckedListBoxCategories.Size = New System.Drawing.Size(174, 201)
|
||||
Me.CheckedListBoxCategories.TabIndex = 15
|
||||
'
|
||||
'ToggleSwitchLastMonth
|
||||
'
|
||||
Me.ToggleSwitchLastMonth.Location = New System.Drawing.Point(12, 175)
|
||||
Me.ToggleSwitchLastMonth.MenuManager = Me.RibbonControl1
|
||||
Me.ToggleSwitchLastMonth.Name = "ToggleSwitchLastMonth"
|
||||
Me.ToggleSwitchLastMonth.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.ToggleSwitchLastMonth.Properties.Appearance.ForeColor = System.Drawing.Color.White
|
||||
Me.ToggleSwitchLastMonth.Properties.Appearance.Options.UseFont = True
|
||||
Me.ToggleSwitchLastMonth.Properties.Appearance.Options.UseForeColor = True
|
||||
Me.ToggleSwitchLastMonth.Properties.OffText = "Letzter Monat"
|
||||
Me.ToggleSwitchLastMonth.Properties.OnText = "Letzter Monat"
|
||||
Me.ToggleSwitchLastMonth.Size = New System.Drawing.Size(151, 19)
|
||||
Me.ToggleSwitchLastMonth.TabIndex = 14
|
||||
'
|
||||
'ToggleSwitchCurrentMonth
|
||||
'
|
||||
Me.ToggleSwitchCurrentMonth.Location = New System.Drawing.Point(12, 150)
|
||||
Me.ToggleSwitchCurrentMonth.MenuManager = Me.RibbonControl1
|
||||
Me.ToggleSwitchCurrentMonth.Name = "ToggleSwitchCurrentMonth"
|
||||
Me.ToggleSwitchCurrentMonth.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.ToggleSwitchCurrentMonth.Properties.Appearance.ForeColor = System.Drawing.Color.White
|
||||
Me.ToggleSwitchCurrentMonth.Properties.Appearance.Options.UseFont = True
|
||||
Me.ToggleSwitchCurrentMonth.Properties.Appearance.Options.UseForeColor = True
|
||||
Me.ToggleSwitchCurrentMonth.Properties.OffText = "Aktueller Monat"
|
||||
Me.ToggleSwitchCurrentMonth.Properties.OnText = "Aktueller Monat"
|
||||
Me.ToggleSwitchCurrentMonth.Size = New System.Drawing.Size(174, 19)
|
||||
Me.ToggleSwitchCurrentMonth.TabIndex = 13
|
||||
'
|
||||
'ToggleSwitchLastYear
|
||||
'
|
||||
Me.ToggleSwitchLastYear.Location = New System.Drawing.Point(12, 125)
|
||||
Me.ToggleSwitchLastYear.MenuManager = Me.RibbonControl1
|
||||
Me.ToggleSwitchLastYear.Name = "ToggleSwitchLastYear"
|
||||
Me.ToggleSwitchLastYear.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.ToggleSwitchLastYear.Properties.Appearance.ForeColor = System.Drawing.Color.White
|
||||
Me.ToggleSwitchLastYear.Properties.Appearance.Options.UseFont = True
|
||||
Me.ToggleSwitchLastYear.Properties.Appearance.Options.UseForeColor = True
|
||||
Me.ToggleSwitchLastYear.Properties.OffText = "Letztes Jahr"
|
||||
Me.ToggleSwitchLastYear.Properties.OnText = "Letztes Jahr"
|
||||
Me.ToggleSwitchLastYear.Size = New System.Drawing.Size(151, 19)
|
||||
Me.ToggleSwitchLastYear.TabIndex = 5
|
||||
'
|
||||
'ToggleSwitchCurrentYear
|
||||
'
|
||||
Me.ToggleSwitchCurrentYear.Location = New System.Drawing.Point(12, 100)
|
||||
Me.ToggleSwitchCurrentYear.MenuManager = Me.RibbonControl1
|
||||
Me.ToggleSwitchCurrentYear.Name = "ToggleSwitchCurrentYear"
|
||||
Me.ToggleSwitchCurrentYear.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.ToggleSwitchCurrentYear.Properties.Appearance.ForeColor = System.Drawing.Color.White
|
||||
Me.ToggleSwitchCurrentYear.Properties.Appearance.Options.UseFont = True
|
||||
Me.ToggleSwitchCurrentYear.Properties.Appearance.Options.UseForeColor = True
|
||||
Me.ToggleSwitchCurrentYear.Properties.OffText = "Aktuelles Jahr"
|
||||
Me.ToggleSwitchCurrentYear.Properties.OnText = "Aktuelles Jahr"
|
||||
Me.ToggleSwitchCurrentYear.Size = New System.Drawing.Size(151, 19)
|
||||
Me.ToggleSwitchCurrentYear.TabIndex = 4
|
||||
'
|
||||
'ToggleSwitchYesterday
|
||||
'
|
||||
Me.ToggleSwitchYesterday.Location = New System.Drawing.Point(12, 75)
|
||||
Me.ToggleSwitchYesterday.MenuManager = Me.RibbonControl1
|
||||
Me.ToggleSwitchYesterday.Name = "ToggleSwitchYesterday"
|
||||
Me.ToggleSwitchYesterday.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.ToggleSwitchYesterday.Properties.Appearance.ForeColor = System.Drawing.Color.White
|
||||
Me.ToggleSwitchYesterday.Properties.Appearance.Options.UseFont = True
|
||||
Me.ToggleSwitchYesterday.Properties.Appearance.Options.UseForeColor = True
|
||||
Me.ToggleSwitchYesterday.Properties.OffText = "Gestern"
|
||||
Me.ToggleSwitchYesterday.Properties.OnText = "Gestern"
|
||||
Me.ToggleSwitchYesterday.Size = New System.Drawing.Size(115, 19)
|
||||
Me.ToggleSwitchYesterday.TabIndex = 3
|
||||
'
|
||||
'cmbAttributeDate
|
||||
'
|
||||
Me.cmbAttributeDate.FormattingEnabled = True
|
||||
Me.cmbAttributeDate.Location = New System.Drawing.Point(12, 25)
|
||||
Me.cmbAttributeDate.Name = "cmbAttributeDate"
|
||||
Me.cmbAttributeDate.Size = New System.Drawing.Size(174, 21)
|
||||
Me.cmbAttributeDate.TabIndex = 1
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.ForeColor = System.Drawing.Color.White
|
||||
Me.Label2.Location = New System.Drawing.Point(9, 7)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(135, 15)
|
||||
Me.Label2.TabIndex = 0
|
||||
Me.Label2.Text = "Datum-Attribut wählen:"
|
||||
'
|
||||
'ToggleSwitchToday
|
||||
'
|
||||
Me.ToggleSwitchToday.Location = New System.Drawing.Point(12, 50)
|
||||
Me.ToggleSwitchToday.MenuManager = Me.RibbonControl1
|
||||
Me.ToggleSwitchToday.Name = "ToggleSwitchToday"
|
||||
Me.ToggleSwitchToday.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.ToggleSwitchToday.Properties.Appearance.ForeColor = System.Drawing.Color.White
|
||||
Me.ToggleSwitchToday.Properties.Appearance.Options.UseFont = True
|
||||
Me.ToggleSwitchToday.Properties.Appearance.Options.UseForeColor = True
|
||||
Me.ToggleSwitchToday.Properties.OffText = "Heute"
|
||||
Me.ToggleSwitchToday.Properties.OnText = "Heute"
|
||||
Me.ToggleSwitchToday.Size = New System.Drawing.Size(102, 19)
|
||||
Me.ToggleSwitchToday.TabIndex = 2
|
||||
'
|
||||
'DockPanel3
|
||||
'
|
||||
Me.DockPanel3.Appearance.BackColor = System.Drawing.Color.DarkGray
|
||||
Me.DockPanel3.Appearance.Options.UseBackColor = True
|
||||
Me.DockPanel3.Controls.Add(Me.DockPanel3_Container)
|
||||
Me.DockPanel3.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill
|
||||
Me.DockPanel3.ID = New System.Guid("08fbe6c7-4310-499d-bd16-beeb37a1d906")
|
||||
Me.DockPanel3.Location = New System.Drawing.Point(3, 46)
|
||||
Me.DockPanel3.Name = "DockPanel3"
|
||||
Me.DockPanel3.Options.AllowFloating = False
|
||||
Me.DockPanel3.OriginalSize = New System.Drawing.Size(220, 421)
|
||||
Me.DockPanel3.Size = New System.Drawing.Size(195, 421)
|
||||
Me.DockPanel3.Text = "Attribute"
|
||||
'
|
||||
'DockPanel3_Container
|
||||
'
|
||||
Me.DockPanel3_Container.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DockPanel3_Container.Name = "DockPanel3_Container"
|
||||
Me.DockPanel3_Container.Size = New System.Drawing.Size(195, 421)
|
||||
Me.DockPanel3_Container.TabIndex = 0
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.BackColor = System.Drawing.Color.DarkGray
|
||||
Me.Panel1.Controls.Add(Me.CheckButton1)
|
||||
Me.Panel1.Controls.Add(Me.txtSearchTerm)
|
||||
Me.Panel1.Controls.Add(Me.lblFoundResult)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel1.Location = New System.Drawing.Point(202, 146)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(1035, 66)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'Panel3
|
||||
'
|
||||
Me.Panel3.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Panel3.Controls.Add(Me.TileControlMatch)
|
||||
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Panel3.Location = New System.Drawing.Point(202, 212)
|
||||
Me.Panel3.Name = "Panel3"
|
||||
Me.Panel3.Size = New System.Drawing.Size(1035, 415)
|
||||
Me.Panel3.TabIndex = 9
|
||||
'
|
||||
'frmFlowSearch
|
||||
'
|
||||
Me.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
@@ -327,26 +449,38 @@ Partial Class frmFlowSearch
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1237, 667)
|
||||
Me.Controls.Add(Me.TileControlMatch)
|
||||
Me.Controls.Add(Me.Panel2)
|
||||
Me.Controls.Add(Me.Panel3)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Controls.Add(Me.Panel2)
|
||||
Me.Controls.Add(Me.panelContainer1)
|
||||
Me.Controls.Add(Me.RibbonStatusBar1)
|
||||
Me.Controls.Add(Me.RibbonControl1)
|
||||
Me.IconOptions.SvgImage = CType(resources.GetObject("frmFlowSearch.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||
Me.IconOptions.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.Flow
|
||||
Me.Name = "frmFlowSearch"
|
||||
Me.Ribbon = Me.RibbonControl1
|
||||
Me.StatusBar = Me.RibbonStatusBar1
|
||||
Me.Text = "FlowSearch"
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DockManager1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.panelContainer1.ResumeLayout(False)
|
||||
Me.DockPanel1.ResumeLayout(False)
|
||||
Me.DockPanel1_Container.ResumeLayout(False)
|
||||
Me.DockPanel1_Container.PerformLayout()
|
||||
CType(Me.CheckedListBoxCategories, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchLastMonth.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchCurrentMonth.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchLastYear.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchCurrentYear.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchYesterday.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.ToggleSwitchToday.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.DockPanel3.ResumeLayout(False)
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.RepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel3.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents txtSearchTerm As TextBox
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents lblFoundResult As Label
|
||||
@@ -358,23 +492,26 @@ Partial Class frmFlowSearch
|
||||
Friend WithEvents TileGroup3 As DevExpress.XtraEditors.TileGroup
|
||||
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
|
||||
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
|
||||
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents BarToggleSwitchItemDateALL As DevExpress.XtraBars.BarToggleSwitchItem
|
||||
Friend WithEvents BarToggleSwitchItemCURRENTYEAR As DevExpress.XtraBars.BarToggleSwitchItem
|
||||
Friend WithEvents BarToggleSwitchItemLASTYEAR As DevExpress.XtraBars.BarToggleSwitchItem
|
||||
Friend WithEvents BarToggleSwitchItemCURRENTMONTH As DevExpress.XtraBars.BarToggleSwitchItem
|
||||
Friend WithEvents BarToggleSwitchItemLASTMONTH As DevExpress.XtraBars.BarToggleSwitchItem
|
||||
Friend WithEvents BarButtonGroup1 As DevExpress.XtraBars.BarButtonGroup
|
||||
Friend WithEvents BarToggleSwitchItemTODAY As DevExpress.XtraBars.BarToggleSwitchItem
|
||||
Friend WithEvents BarToggleSwitchItemYESTERDAY As DevExpress.XtraBars.BarToggleSwitchItem
|
||||
Friend WithEvents BarCheckItem1 As DevExpress.XtraBars.BarCheckItem
|
||||
Friend WithEvents BarToggleSwitchItem1 As DevExpress.XtraBars.BarToggleSwitchItem
|
||||
Friend WithEvents BarToggleSwitchItem2 As DevExpress.XtraBars.BarToggleSwitchItem
|
||||
Friend WithEvents CheckButton1 As DevExpress.XtraEditors.CheckButton
|
||||
Friend WithEvents BarEditItemDate As DevExpress.XtraBars.BarEditItem
|
||||
Friend WithEvents RepositoryItemComboBox1 As DevExpress.XtraEditors.Repository.RepositoryItemComboBox
|
||||
Friend WithEvents ToolTipController1 As DevExpress.Utils.ToolTipController
|
||||
Friend WithEvents DockManager1 As DevExpress.XtraBars.Docking.DockManager
|
||||
Friend WithEvents DockPanel1 As DevExpress.XtraBars.Docking.DockPanel
|
||||
Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents panelContainer1 As DevExpress.XtraBars.Docking.DockPanel
|
||||
Friend WithEvents DockPanel3 As DevExpress.XtraBars.Docking.DockPanel
|
||||
Friend WithEvents DockPanel3_Container As DevExpress.XtraBars.Docking.ControlContainer
|
||||
Friend WithEvents Panel3 As Panel
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents cmbAttributeDate As ComboBox
|
||||
Friend WithEvents ToggleSwitchToday As DevExpress.XtraEditors.ToggleSwitch
|
||||
Friend WithEvents ToggleSwitchYesterday As DevExpress.XtraEditors.ToggleSwitch
|
||||
Friend WithEvents ToggleSwitchLastYear As DevExpress.XtraEditors.ToggleSwitch
|
||||
Friend WithEvents ToggleSwitchCurrentYear As DevExpress.XtraEditors.ToggleSwitch
|
||||
Friend WithEvents ToggleSwitchLastMonth As DevExpress.XtraEditors.ToggleSwitch
|
||||
Friend WithEvents ToggleSwitchCurrentMonth As DevExpress.XtraEditors.ToggleSwitch
|
||||
Friend WithEvents CheckedListBoxCategories As DevExpress.XtraEditors.CheckedListBoxControl
|
||||
Friend WithEvents Label3 As Label
|
||||
End Class
|
||||
|
||||
@@ -141,24 +141,13 @@
|
||||
<metadata name="ToolTipController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<data name="frmFlowSearch.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
|
||||
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
|
||||
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAANoCAAAC77u/
|
||||
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
|
||||
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
|
||||
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
|
||||
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
|
||||
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
|
||||
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
|
||||
OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
|
||||
dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9Ilpvb20iPg0KICAgIDxwYXRoIGQ9Ik0yNy43LDI1LjNM
|
||||
MjAuNSwxOGMxLTEuNCwxLjUtMy4yLDEuNS01YzAtNS00LTktOS05cy05LDQtOSw5YzAsNSw0LDksOSw5
|
||||
YzEuOSwwLDMuNi0wLjYsNS0xLjVsNy4zLDcuMyAgIGMwLjMsMC4zLDAuOSwwLjMsMS4yLDBsMS4yLTEu
|
||||
MkMyOC4xLDI2LjIsMjguMSwyNS42LDI3LjcsMjUuM3ogTTYsMTNjMC0zLjksMy4xLTcsNy03czcsMy4x
|
||||
LDcsN2MwLDMuOS0zLjEsNy03LDdTNiwxNi45LDYsMTN6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4N
|
||||
Cjwvc3ZnPgs=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="DockManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>170, 17</value>
|
||||
</metadata>
|
||||
<metadata name="panelContainer1.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<metadata name="DockPanel3.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -22,6 +22,9 @@ Public Class frmFlowSearch
|
||||
Private SEARCH_FACT_DATE As String = "MONTH(OBJ.ADDED_WHEN) <> 13"
|
||||
Private SEARCH_FACT_DATE_ATTRIBUTE = "ADDED_WHEN"
|
||||
Private Language_Term_Object As String
|
||||
Private LIMITATION_DATE As Boolean = False
|
||||
Private TOGGLE_Change As Boolean = False
|
||||
Private CATEGORIES_SELECTED As String = ""
|
||||
Public Sub New(pBaseSearchSql As String)
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
@@ -37,25 +40,31 @@ Public Class frmFlowSearch
|
||||
End Sub
|
||||
Private Sub frmFlowSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Try
|
||||
RibbonControl1.Minimized = True
|
||||
TileControlMatch.Groups.Clear()
|
||||
Dim oDT As DataTable = ASorDB.GetDatatable("IDB", $"SELECT * FROM VWIDB_BE_ATTRIBUTE", "VWIDB_BE_ATTRIBUTE", "", "ATTR_TITLE")
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
RepositoryItemComboBox1.Items.Add(IDB_ADDED_WHEN_String_German)
|
||||
Else
|
||||
RepositoryItemComboBox1.Items.Add(IDB_ADDED_WHEN_String_Englisch)
|
||||
End If
|
||||
|
||||
Dim oDTCategory As DataTable = ASorDB.GetDatatable("IDB", $"SELECT 'NONE' as CATEGORY", "VWAPPSERV_CATEGORIES", "", "CATEGORY")
|
||||
If Not IsNothing(oDTCategory) Then
|
||||
CheckedListBoxCategories.DataSource = oDTCategory
|
||||
CheckedListBoxCategories.DisplayMember = "CATEGORY"
|
||||
End If
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
cmbAttributeDate.Items.Add(IDB_ADDED_WHEN_String_German)
|
||||
Else
|
||||
cmbAttributeDate.Items.Add(IDB_ADDED_WHEN_String_Englisch)
|
||||
End If
|
||||
Dim oDT As DataTable = ASorDB.GetDatatable("IDB", $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE TYPE_ID = 5 AND LANG_ID = {My.Application.User.LanguageID}", "VWIDB_BE_ATTRIBUTE", $"TYPE_ID = 5 AND LANG_ID = {My.Application.User.LanguageID}")
|
||||
For Each oRow As DataRow In oDT.Rows
|
||||
If oRow.Item("TYPE_ID") = 5 Then
|
||||
RepositoryItemComboBox1.Items.Add(oRow.Item("ATTR_TITLE"))
|
||||
End If
|
||||
cmbAttributeDate.Items.Add(oRow.Item("ATTR_TITLE"))
|
||||
Next
|
||||
'Dim editor As BarEditItem = BarEditItemDate
|
||||
' editor = TryCast(BarEditItemDate, ComboBoxEdit)
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
BarEditItemDate.EditValue = "Erstellt Wann"
|
||||
cmbAttributeDate.SelectedIndex = 0
|
||||
' BarEditItemDate.EditValue = "Erstellt Wann"
|
||||
Else
|
||||
BarEditItemDate.EditValue = "Added when"
|
||||
cmbAttributeDate.SelectedIndex = 1
|
||||
' BarEditItemDate.EditValue = "Added when"
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
@@ -64,25 +73,7 @@ Public Class frmFlowSearch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub RepositoryItemComboBox1_EditValueChanged(sender As Object, e As EventArgs) Handles RepositoryItemComboBox1.EditValueChanged
|
||||
Try
|
||||
Dim oEditor As ComboBoxEdit
|
||||
Dim oEditValue As String
|
||||
oEditor = TryCast(RibbonControl1.Manager.ActiveEditor, ComboBoxEdit)
|
||||
oEditValue = oEditor.EditValue
|
||||
|
||||
If oEditValue = IDB_ADDED_WHEN_String_German Or oEditValue = IDB_ADDED_WHEN_String_Englisch Then
|
||||
SEARCH_FACT_DATE_ATTRIBUTE = "ADDED_WHEN"
|
||||
Else
|
||||
SEARCH_FACT_DATE_ATTRIBUTE = oEditValue
|
||||
SEARCH_FACT_DATE = $"MONTH(GRPDATE.[{SEARCH_FACT_DATE_ATTRIBUTE}]) <> 13"
|
||||
End If
|
||||
SearchContent()
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearchTerm.TextChanged
|
||||
Try
|
||||
|
||||
@@ -108,6 +99,8 @@ Public Class frmFlowSearch
|
||||
If txtSearchTerm.Text = String.Empty Then
|
||||
Exit Sub
|
||||
End If
|
||||
GET_SELECTED_CATEGORIES()
|
||||
|
||||
Dim oSearchValue = Trim(txtSearchTerm.Text)
|
||||
oLastAttribute = ""
|
||||
Dim oSQL = BASE_SEARCHCommand.Replace("@SEARCH_STRING", oSearchValue)
|
||||
@@ -183,6 +176,8 @@ Public Class frmFlowSearch
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
lblFoundResult.Text = $"Unexpected Error in SearchContent {ex.Message}"
|
||||
lblFoundResult.Visible = True
|
||||
End Try
|
||||
|
||||
|
||||
@@ -335,16 +330,33 @@ Public Class frmFlowSearch
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub txtSearch_Enter(sender As Object, e As EventArgs) Handles txtSearchTerm.GotFocus
|
||||
Private Sub txtSearch_GotFocus(sender As Object, e As EventArgs) Handles txtSearchTerm.GotFocus
|
||||
Label1.Visible = True
|
||||
Dim oTEXTBOX As TextBox = CType(sender, TextBox)
|
||||
oTEXTBOX.BackColor = Color.FromArgb(255, 214, 47)
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub txtSearchTerm_Leave(sender As Object, e As EventArgs) Handles txtSearchTerm.Leave
|
||||
Dim oTEXTBOX As TextBox = CType(sender, TextBox)
|
||||
oTEXTBOX.BackColor = Color.White
|
||||
End Sub
|
||||
Sub GET_SELECTED_CATEGORIES()
|
||||
CATEGORIES_SELECTED = ""
|
||||
Dim i As Integer = 0
|
||||
For Each item As Object In CheckedListBoxCategories.CheckedItems
|
||||
Dim row As DataRowView = TryCast(item, DataRowView)
|
||||
Dim oItem = $"'{row("CATEGORY")}'"
|
||||
If i = 0 Then
|
||||
CATEGORIES_SELECTED = oItem
|
||||
End If
|
||||
If Not CATEGORIES_SELECTED.StartsWith(oItem) Then
|
||||
CATEGORIES_SELECTED &= String.Format(",{0}", oItem)
|
||||
End If
|
||||
|
||||
i += 1
|
||||
Next item
|
||||
End Sub
|
||||
|
||||
Private Sub TileControlMatch_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControlMatch.ItemClick
|
||||
Try
|
||||
@@ -356,7 +368,7 @@ Public Class frmFlowSearch
|
||||
Dim oSplit = oItem.Tag.ToString.Split("|")
|
||||
Try
|
||||
oHandle = SplashScreenManager.ShowOverlayForm(Me)
|
||||
Dim oDT As DataTable = ASorDB.GetDatatable("IDB", $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = {oSplit(1)}", "VWIDB_BE_ATTRIBUTE", $"ATTR_ID = {oSplit(1)}")
|
||||
Dim oDT As DataTable = ASorDB.GetDatatable("IDB", $"SELECT * FROM VWIDB_BE_ATTRIBUTE WHERE ATTR_ID = {oSplit(1)} AND LANG_ID = {My.Application.User.LanguageID}", "VWIDB_BE_ATTRIBUTE", $"ATTR_ID = {oSplit(1)} AND LANG_ID = {My.Application.User.LanguageID}")
|
||||
Dim oType = oDT.Rows(0).Item("TYPE_NAME")
|
||||
Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT_PER_TILE {oSplit(0)},{My.Application.User.UserId},'{oType}',{oSplit(1)},'{My.Application.User.Language}'"
|
||||
Dim oDTOBJECT_RESULT As DataTable = My.DatabaseIDB.GetDatatable(oEXECSQL)
|
||||
@@ -391,88 +403,8 @@ Public Class frmFlowSearch
|
||||
Logger.Error(ex)
|
||||
End Try
|
||||
End Function
|
||||
Private Sub BarToggleSwitchItem_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarToggleSwitchItemCURRENTYEAR.CheckedChanged, BarToggleSwitchItemLASTYEAR.CheckedChanged, BarToggleSwitchItemCURRENTMONTH.CheckedChanged,
|
||||
BarToggleSwitchItemLASTMONTH.CheckedChanged, BarToggleSwitchItemTODAY.CheckedChanged, BarToggleSwitchItemYESTERDAY.CheckedChanged
|
||||
Dim btsi As BarToggleSwitchItem = TryCast(sender, BarToggleSwitchItem)
|
||||
If btsi.Checked = True Then
|
||||
BarToggleSwitchItemDateALL.Checked = False
|
||||
Dim oWHENDATE As String
|
||||
Select Case btsi.Name
|
||||
Case "BarToggleSwitchItemCURRENTYEAR"
|
||||
oWHENDATE = GET_DATE_LIMITATION("YEAR(@ATTRIBUTE) = YEAR(GETDATE())")
|
||||
Case "BarToggleSwitchItemLASTYEAR"
|
||||
oWHENDATE = GET_DATE_LIMITATION("YEAR(@ATTRIBUTE) = (YEAR(GETDATE()) -1)")
|
||||
Case "BarToggleSwitchItemCURRENTMONTH"
|
||||
oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = MONTH(GETDATE())")
|
||||
Case "BarToggleSwitchItemLASTMONTH"
|
||||
Dim currentDate As DateTime = DateTime.Now
|
||||
If currentDate.Month = 1 Then
|
||||
oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = 12 " & vbNewLine & "AND YEAR(@ATTRIBUTE) = (YEAR(GETDATE()) -1)")
|
||||
Else
|
||||
oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = (MONTH(GETDATE()) -1)")
|
||||
End If
|
||||
|
||||
Case "BarToggleSwitchItemTODAY"
|
||||
oWHENDATE = GET_DATE_LIMITATION("convert(DATE,@ATTRIBUTE) = convert(DATE,GETDATE())")
|
||||
Case "BarToggleSwitchItemYESTERDAY"
|
||||
oWHENDATE = GET_DATE_LIMITATION("convert(DATE,@ATTRIBUTE) = convert(DATE,GETDATE()-1)")
|
||||
End Select
|
||||
SEARCH_FACT_DATE = oWHENDATE
|
||||
Select Case btsi.Name
|
||||
Case "BarToggleSwitchItemCURRENTYEAR"
|
||||
BarToggleSwitchItemLASTYEAR.Checked = False
|
||||
BarToggleSwitchItemCURRENTMONTH.Checked = False
|
||||
BarToggleSwitchItemLASTMONTH.Checked = False
|
||||
BarToggleSwitchItemTODAY.Checked = False
|
||||
BarToggleSwitchItemYESTERDAY.Checked = False
|
||||
Case "BarToggleSwitchItemLASTYEAR"
|
||||
BarToggleSwitchItemCURRENTYEAR.Checked = False
|
||||
BarToggleSwitchItemCURRENTMONTH.Checked = False
|
||||
BarToggleSwitchItemLASTMONTH.Checked = False
|
||||
BarToggleSwitchItemTODAY.Checked = False
|
||||
BarToggleSwitchItemYESTERDAY.Checked = False
|
||||
Case "BarToggleSwitchItemCURRENTMONTH"
|
||||
BarToggleSwitchItemCURRENTYEAR.Checked = False
|
||||
BarToggleSwitchItemLASTYEAR.Checked = False
|
||||
BarToggleSwitchItemLASTMONTH.Checked = False
|
||||
BarToggleSwitchItemTODAY.Checked = False
|
||||
BarToggleSwitchItemYESTERDAY.Checked = False
|
||||
Case "BarToggleSwitchItemLASTMONTH"
|
||||
BarToggleSwitchItemCURRENTYEAR.Checked = False
|
||||
BarToggleSwitchItemLASTYEAR.Checked = False
|
||||
BarToggleSwitchItemCURRENTMONTH.Checked = False
|
||||
BarToggleSwitchItemTODAY.Checked = False
|
||||
BarToggleSwitchItemYESTERDAY.Checked = False
|
||||
Case "BarToggleSwitchItemTODAY"
|
||||
BarToggleSwitchItemCURRENTYEAR.Checked = False
|
||||
BarToggleSwitchItemLASTYEAR.Checked = False
|
||||
BarToggleSwitchItemCURRENTMONTH.Checked = False
|
||||
BarToggleSwitchItemYESTERDAY.Checked = False
|
||||
Case "BarToggleSwitchItemYESTERDAY"
|
||||
BarToggleSwitchItemCURRENTYEAR.Checked = False
|
||||
BarToggleSwitchItemLASTYEAR.Checked = False
|
||||
BarToggleSwitchItemCURRENTMONTH.Checked = False
|
||||
BarToggleSwitchItemTODAY.Checked = False
|
||||
End Select
|
||||
Start_FlowSearch()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub BarToggleSwitchItemDateALL_CheckedChanged(sender As Object, e As ItemClickEventArgs) Handles BarToggleSwitchItemDateALL.CheckedChanged
|
||||
Dim btn As BarToggleSwitchItem = TryCast(sender, BarToggleSwitchItem)
|
||||
If btn.Checked = True Then
|
||||
BarToggleSwitchItemCURRENTYEAR.Checked = False
|
||||
BarToggleSwitchItemLASTYEAR.Checked = False
|
||||
BarToggleSwitchItemCURRENTMONTH.Checked = False
|
||||
BarToggleSwitchItemLASTMONTH.Checked = False
|
||||
BarToggleSwitchItemCURRENTMONTH.Checked = False
|
||||
BarToggleSwitchItemTODAY.Checked = False
|
||||
'SEARCH_FACT_DATE = "MONTH(OBJ.ADDED_WHEN) <> 13"
|
||||
End If
|
||||
Start_FlowSearch()
|
||||
|
||||
End Sub
|
||||
Sub Start_FlowSearch(Optional AllOver As Boolean = False)
|
||||
If txtSearchTerm.Text <> String.Empty Or AllOver = True Then
|
||||
SearchContent()
|
||||
@@ -484,7 +416,7 @@ Public Class frmFlowSearch
|
||||
End Sub
|
||||
|
||||
Private Sub CheckButton1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckButton1.CheckedChanged
|
||||
If BarToggleSwitchItemDateALL.Checked = True Then
|
||||
If LIMITATION_DATE = True Then
|
||||
Dim result As MsgBoxResult
|
||||
If My.Application.User.Language = "de-DE" Then
|
||||
result = MessageBox.Show("Wollen Sie wirklich eine Suche über alle Objekte starten?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
@@ -508,5 +440,99 @@ Public Class frmFlowSearch
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cmbAttributeDate_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbAttributeDate.SelectedIndexChanged
|
||||
If cmbAttributeDate.SelectedIndex <> -1 Then
|
||||
Try
|
||||
|
||||
Dim oEditValue As String = cmbAttributeDate.SelectedItem.ToString
|
||||
|
||||
If oEditValue = IDB_ADDED_WHEN_String_German Or oEditValue = IDB_ADDED_WHEN_String_Englisch Then
|
||||
SEARCH_FACT_DATE_ATTRIBUTE = "ADDED_WHEN"
|
||||
Else
|
||||
SEARCH_FACT_DATE_ATTRIBUTE = oEditValue
|
||||
SEARCH_FACT_DATE = $"MONTH(GRPDATE.[{SEARCH_FACT_DATE_ATTRIBUTE}]) <> 13"
|
||||
End If
|
||||
SearchContent()
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub DockManager1_StartDocking(sender As Object, e As Docking.DockPanelCancelEventArgs) Handles DockManager1.StartDocking
|
||||
e.Cancel = True
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub ToggleSwitchDate_Toggled(sender As Object, e As EventArgs) Handles ToggleSwitchToday.Toggled, ToggleSwitchYesterday.Toggled, ToggleSwitchCurrentYear.Toggled, ToggleSwitchLastYear.Toggled,
|
||||
ToggleSwitchLastMonth.Toggled, ToggleSwitchCurrentMonth.Toggled
|
||||
If TOGGLE_Change = True Then
|
||||
Exit Sub
|
||||
End If
|
||||
Dim oToggle As ToggleSwitch = TryCast(sender, ToggleSwitch)
|
||||
|
||||
If oToggle.IsOn Then
|
||||
TOGGLE_Change = True
|
||||
LIMITATION_DATE = True
|
||||
Dim oWHENDATE As String
|
||||
Select Case oToggle.Name
|
||||
Case "ToggleSwitchCurrentYear"
|
||||
ToggleSwitchLastYear.IsOn = False
|
||||
ToggleSwitchCurrentMonth.IsOn = False
|
||||
ToggleSwitchLastMonth.IsOn = False
|
||||
ToggleSwitchToday.IsOn = False
|
||||
ToggleSwitchYesterday.IsOn = False
|
||||
oWHENDATE = GET_DATE_LIMITATION("YEAR(@ATTRIBUTE) = YEAR(GETDATE())")
|
||||
Case "ToggleSwitchLastYear"
|
||||
ToggleSwitchCurrentYear.IsOn = False
|
||||
ToggleSwitchCurrentMonth.IsOn = False
|
||||
ToggleSwitchLastMonth.IsOn = False
|
||||
ToggleSwitchToday.IsOn = False
|
||||
ToggleSwitchYesterday.IsOn = False
|
||||
oWHENDATE = GET_DATE_LIMITATION("YEAR(@ATTRIBUTE) = (YEAR(GETDATE()) -1)")
|
||||
Case "ToggleSwitchCurrentMonth"
|
||||
ToggleSwitchCurrentYear.IsOn = False
|
||||
ToggleSwitchLastYear.IsOn = False
|
||||
ToggleSwitchToday.IsOn = False
|
||||
ToggleSwitchYesterday.IsOn = False
|
||||
ToggleSwitchLastMonth.IsOn = False
|
||||
oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = MONTH(GETDATE())")
|
||||
Case "ToggleSwitchLastMonth"
|
||||
ToggleSwitchCurrentYear.IsOn = False
|
||||
ToggleSwitchLastYear.IsOn = False
|
||||
ToggleSwitchCurrentMonth.IsOn = False
|
||||
ToggleSwitchToday.IsOn = False
|
||||
ToggleSwitchYesterday.IsOn = False
|
||||
Dim currentDate As DateTime = DateTime.Now
|
||||
If currentDate.Month = 1 Then
|
||||
oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = 12 " & vbNewLine & "AND YEAR(@ATTRIBUTE) = (YEAR(GETDATE()) -1)")
|
||||
Else
|
||||
oWHENDATE = GET_DATE_LIMITATION("MONTH(@ATTRIBUTE) = (MONTH(GETDATE()) -1)")
|
||||
End If
|
||||
Case "ToggleSwitchToday"
|
||||
ToggleSwitchCurrentYear.IsOn = False
|
||||
ToggleSwitchLastYear.IsOn = False
|
||||
ToggleSwitchCurrentMonth.IsOn = False
|
||||
ToggleSwitchYesterday.IsOn = False
|
||||
oWHENDATE = GET_DATE_LIMITATION("convert(DATE,@ATTRIBUTE) = convert(DATE,GETDATE())")
|
||||
Case "ToggleSwitchYesterday"
|
||||
ToggleSwitchCurrentYear.IsOn = False
|
||||
ToggleSwitchLastYear.IsOn = False
|
||||
ToggleSwitchCurrentMonth.IsOn = False
|
||||
ToggleSwitchToday.IsOn = False
|
||||
oWHENDATE = GET_DATE_LIMITATION("convert(DATE,@ATTRIBUTE) = convert(DATE,GETDATE()-1)")
|
||||
End Select
|
||||
SEARCH_FACT_DATE = oWHENDATE
|
||||
TOGGLE_Change = False
|
||||
Else
|
||||
If ToggleSwitchToday.IsOn = False And ToggleSwitchYesterday.IsOn = False And ToggleSwitchCurrentYear.IsOn = False And ToggleSwitchLastYear.IsOn = False And ToggleSwitchLastMonth.IsOn = False And ToggleSwitchCurrentMonth.IsOn = False Then
|
||||
LIMITATION_DATE = False
|
||||
|
||||
End If
|
||||
End If
|
||||
Start_FlowSearch()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user