MS FlowSearch und Ansatz DocumentResultlist

2021-02-02 11:06:42 +01:00
parent 15653490b1
commit de685806f0
20 changed files with 635 additions and 156 deletions
--- a/GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb
+++ b/GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb
@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmFlowSearch
-    Inherits DevExpress.XtraEditors.XtraForm
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm

    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
    <System.Diagnostics.DebuggerNonUserCode()>
@@ -22,39 +22,70 @@ Partial Class frmFlowSearch
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowSearch))
        Dim TileItemElement1 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
        Dim TileItemElement2 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowSearch))
        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.CheckButton1 = New DevExpress.XtraEditors.CheckButton()
        Me.txtSearch = New System.Windows.Forms.TextBox()
        Me.lblFoundResult = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.TileControlMatch = New DevExpress.XtraEditors.TileControl()
        Me.TileGroup2 = New DevExpress.XtraEditors.TileGroup()
-        Me.TileGroup3 = New DevExpress.XtraEditors.TileGroup()
        Me.TileItem1 = New DevExpress.XtraEditors.TileItem()
        Me.TileItem2 = New DevExpress.XtraEditors.TileItem()
+        Me.TileGroup3 = New DevExpress.XtraEditors.TileGroup()
+        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.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()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.Color.DimGray
+        Me.Panel1.Controls.Add(Me.CheckButton1)
        Me.Panel1.Controls.Add(Me.txtSearch)
        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, 0)
+        Me.Panel1.Location = New System.Drawing.Point(0, 159)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(1245, 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.Name = "CheckButton1"
+        Me.CheckButton1.Size = New System.Drawing.Size(110, 45)
+        Me.CheckButton1.TabIndex = 5
+        Me.CheckButton1.Text = "Zeige Alles"
+        '
        'txtSearch
        '
        Me.txtSearch.BackColor = System.Drawing.Color.White
        Me.txtSearch.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSearch.Location = New System.Drawing.Point(16, 12)
+        Me.txtSearch.Location = New System.Drawing.Point(148, 11)
        Me.txtSearch.Name = "txtSearch"
        Me.txtSearch.Size = New System.Drawing.Size(167, 23)
        Me.txtSearch.TabIndex = 0
@@ -65,7 +96,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(12, 38)
+        Me.lblFoundResult.Location = New System.Drawing.Point(144, 37)
        Me.lblFoundResult.Name = "lblFoundResult"
        Me.lblFoundResult.Size = New System.Drawing.Size(53, 19)
        Me.lblFoundResult.TabIndex = 3
@@ -77,7 +108,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(185, 15)
+        Me.Label1.Location = New System.Drawing.Point(321, 14)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(43, 16)
        Me.Label1.TabIndex = 0
@@ -86,7 +117,7 @@ Partial Class frmFlowSearch
        'Panel2
        '
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel2.Location = New System.Drawing.Point(0, 474)
+        Me.Panel2.Location = New System.Drawing.Point(0, 452)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(1245, 18)
        Me.Panel2.TabIndex = 1
@@ -97,11 +128,11 @@ Partial Class frmFlowSearch
        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, 61)
+        Me.TileControlMatch.Location = New System.Drawing.Point(0, 220)
        Me.TileControlMatch.MaxId = 2
        Me.TileControlMatch.Name = "TileControlMatch"
        Me.TileControlMatch.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar
-        Me.TileControlMatch.Size = New System.Drawing.Size(1245, 413)
+        Me.TileControlMatch.Size = New System.Drawing.Size(1245, 232)
        Me.TileControlMatch.TabIndex = 2
        Me.TileControlMatch.Text = "TileControl1"
        '
@@ -112,10 +143,6 @@ Partial Class frmFlowSearch
        Me.TileGroup2.Name = "TileGroup2"
        Me.TileGroup2.Text = "Attribut1"
        '
-        'TileGroup3
-        '
-        Me.TileGroup3.Name = "TileGroup3"
-        '
        'TileItem1
        '
        Me.TileItem1.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
@@ -136,6 +163,129 @@ Partial Class frmFlowSearch
        Me.TileItem2.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
        Me.TileItem2.Name = "TileItem2"
        '
+        'TileGroup3
+        '
+        Me.TileGroup3.Name = "TileGroup3"
+        '
+        '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.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.MaxItemId = 12
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.ShowToolbarCustomizeItem = False
+        Me.RibbonControl1.Size = New System.Drawing.Size(1245, 159)
+        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.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"
+        '
+        '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.BarButtonGroup1)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemCURRENTMONTH)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemLASTMONTH)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemTODAY)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarToggleSwitchItemYESTERDAY)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "Datumeingränzung"
+        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarToggleSwitchItemCURRENTYEAR)
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarToggleSwitchItemLASTYEAR)
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 470)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1245, 22)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
        'frmFlowSearch
        '
        Me.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
@@ -146,12 +296,18 @@ Partial Class frmFlowSearch
        Me.Controls.Add(Me.TileControlMatch)
        Me.Controls.Add(Me.Panel2)
        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
        Me.IconOptions.SvgImage = CType(resources.GetObject("frmFlowSearch.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
        Me.Name = "frmFlowSearch"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
        Me.Text = "FlowSearch"
        Me.Panel1.ResumeLayout(False)
        Me.Panel1.PerformLayout()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
+        Me.PerformLayout()

    End Sub

@@ -165,4 +321,22 @@ Partial Class frmFlowSearch
    Friend WithEvents TileItem1 As DevExpress.XtraEditors.TileItem
    Friend WithEvents TileItem2 As DevExpress.XtraEditors.TileItem
    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
 End Class
--- a/GUIs.ZooFlow/Search/frmFlowSearch.resx
+++ b/GUIs.ZooFlow/Search/frmFlowSearch.resx
@@ -118,6 +118,26 @@
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="CheckButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
+        WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl
+        Pg0KICA8ZyBpZD0iQmFyY29kZSI+DQogICAgPHBhdGggZD0iTTI5LDRIMUMwLjUsNCwwLDQuNSwwLDV2
+        MjJjMCwwLjUsMC41LDEsMSwxaDI4YzAuNSwwLDEtMC41LDEtMVY1QzMwLDQuNSwyOS41LDQsMjksNHog
+        TTI4LDI2SDJWNmgyNlYyNnogICAgTTYsMjRINFY4aDJWMjR6IE0xMCwyMEg4VjhoMlYyMHogTTE0LDI0
+        aC0yVjhoMlYyNHogTTE4LDIwaC0yVjhoMlYyMHogTTIyLDIwaC0yVjhoMlYyMHogTTI2LDI0aC0yVjho
+        MlYyNHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
  <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
--- a/GUIs.ZooFlow/Search/frmFlowSearch.vb
+++ b/GUIs.ZooFlow/Search/frmFlowSearch.vb
@@ -2,6 +2,7 @@
 Imports DevExpress.XtraEditors
 Imports DigitalData.GUIs.Common
 Imports DevExpress.XtraSplashScreen
+Imports DevExpress.XtraBars

 Public Class frmFlowSearch
    Private Logger As Logger
@@ -14,6 +15,9 @@ Public Class frmFlowSearch
    Dim BASE_SEARCHCommand As String
    Private LastSearchForm As frmDocumentResultList
    Private ASorDB As ClassDataASorDB
+    Private EventtoggleChange As Boolean = False
+
+    Private SEARCH_FACT_DATE As String = "MONTH(OBJ.ADDED_WHEN) <> 13"
    Public Sub New(pBaseSearchSql As String)


@@ -33,7 +37,7 @@ Public Class frmFlowSearch
                Exit Sub
            End If
            lblFoundResult.Visible = False
-            SearchContent(Trim(txtSearch.Text))
+            Start_FlowSearch()

        Catch ex As Exception
            lblFoundResult.Text = "Unexpected error in FlowSearch - Check Your log"
@@ -49,6 +53,11 @@ Public Class frmFlowSearch
        Try
            oLastAttribute = ""
            Dim oSQL = BASE_SEARCHCommand.Replace("@SEARCH_STRING", oSearchValue)
+
+
+            If BarToggleSwitchItemDateALL.Checked = False Then
+                oSQL = oSQL.Replace("MONTH(OBJ.ADDED_WHEN) <> 13", SEARCH_FACT_DATE)
+            End If
            Dim oResultCountAttributes As Integer = 0
            TileControlMatch.Groups.Clear()

@@ -100,7 +109,8 @@ Public Class frmFlowSearch
                Else
                    If oResultsfromSearchDT.Rows.Count = 0 Then
                        Reset_Form()
-
+                        lblFoundResult.Text = "No Results"
+                        lblFoundResult.Visible = True
                    End If
                End If

@@ -122,9 +132,14 @@ Public Class frmFlowSearch
        Try
            oHandle = SplashScreenManager.ShowOverlayForm(Me)

-            Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT '{pSearchValue}',{My.Application.User.UserId},'{oSearchData.SelectInStringAttributeIds}','{oSearchData.SelectInIntegerAttributeIds}'"
+            Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT '{pSearchValue}','{SEARCH_FACT_DATE}', {My.Application.User.UserId},'{oSearchData.SelectInStringAttributeIds}','{oSearchData.SelectInIntegerAttributeIds}'"
            Dim oDTOBJECT_RESULT As DataTable = My.DatabaseIDB.GetDatatable(oEXECSQL)
            If Not IsNothing(oDTOBJECT_RESULT) Then
+                If oDTOBJECT_RESULT.Rows.Count = 0 Then
+                    lblFoundResult.Text = "No Results"
+                    lblFoundResult.Visible = True
+                    Return False
+                End If
                oItemsFound = True
                OpenResultForm(oDTOBJECT_RESULT)
            End If
@@ -296,4 +311,115 @@ Public Class frmFlowSearch
            Logger.Error(ex)
        End Try
    End Sub
+
+    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 = "YEAR(OBJ.ADDED_WHEN) = YEAR(GETDATE())"
+                Case "BarToggleSwitchItemLASTYEAR"
+                    oWHENDATE = "YEAR(OBJ.ADDED_WHEN) = (YEAR(GETDATE()) -1)"
+                Case "BarToggleSwitchItemCURRENTMONTH"
+                Case "BarToggleSwitchItemLASTMONTH"
+                    Dim currentDate As DateTime = DateTime.Now
+                    If currentDate.Month = 1 Then
+                        oWHENDATE = "MONTH(OBJ.ADDED_WHEN) = 12 " & vbNewLine & "AND YEAR(OBJ.ADDED_WHEN) = (YEAR(GETDATE()) -1)"
+                    Else
+                        oWHENDATE = "MONTH(OBJ.ADDED_WHEN) = MONTH(GETDATE())"
+                    End If
+
+                Case "BarToggleSwitchItemTODAY"
+                    oWHENDATE = "convert(DATE,OBJ.ADDED_WHEN) = convert(DATE,GETDATE())"
+                Case "BarToggleSwitchItemYESTERDAY"
+                    oWHENDATE = "convert(DATE,OBJ.ADDED_WHEN) = 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 txtSearch.Text <> String.Empty Or AllOver = True Then
+            SearchContent(Trim(txtSearch.Text))
+        End If
+    End Sub
+
+    Private Sub btnFindAll_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Private Sub CheckButton1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckButton1.CheckedChanged
+        If BarToggleSwitchItemDateALL.Checked = 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)
+            Else
+                result = MessageBox.Show("Do You really want to start a search without limitation?", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+            End If
+            If result = MsgBoxResult.No Then
+                Exit Sub
+            End If
+        End If
+        StartSearch_Full("")
+        CheckButton1.Checked = True
+    End Sub
+
+    Private Sub btnFindAll_Click_1(sender As Object, e As EventArgs)
+
+    End Sub
 End Class