MS Zooflow Test

GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb

@@ -38,6 +38,7 @@ 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.BarStaticInfoItem = New DevExpress.XtraBars.BarStaticItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
@@ -134,7 +135,7 @@ 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.DarkGray
+        Me.TileControlMatch.BackColor = System.Drawing.Color.WhiteSmoke
         Me.TileControlMatch.Dock = System.Windows.Forms.DockStyle.Fill
         Me.TileControlMatch.Groups.Add(Me.TileGroup2)
         Me.TileControlMatch.Groups.Add(Me.TileGroup3)
@@ -189,9 +190,9 @@ Partial Class frmFlowSearch
         'RibbonControl1
         '
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarStaticInfoItem})
         Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 13
+        Me.RibbonControl1.MaxItemId = 14
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.RibbonControl1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.MacOffice
@@ -201,6 +202,11 @@ Partial Class frmFlowSearch
         Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
         Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
         '
+        'BarStaticInfoItem
+        '
+        Me.BarStaticInfoItem.Id = 13
+        Me.BarStaticInfoItem.Name = "BarStaticInfoItem"
+        '
         'RibbonPage1
         '
         Me.RibbonPage1.Name = "RibbonPage1"
@@ -208,6 +214,7 @@ Partial Class frmFlowSearch
         '
         'RibbonStatusBar1
         '
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticInfoItem)
         Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 645)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
@@ -253,7 +260,7 @@ Partial Class frmFlowSearch
         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"
+        Me.DockPanel1.Text = "Einschränkungen"
         '
         'DockPanel1_Container
         '
@@ -421,7 +428,7 @@ Partial Class frmFlowSearch
         '
         'Panel1
         '
-        Me.Panel1.BackColor = System.Drawing.Color.DarkGray
+        Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Panel1.Controls.Add(Me.CheckButton1)
         Me.Panel1.Controls.Add(Me.txtSearchTerm)
         Me.Panel1.Controls.Add(Me.lblFoundResult)
@@ -455,7 +462,7 @@ Partial Class frmFlowSearch
         Me.Controls.Add(Me.panelContainer1)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
-        Me.IconOptions.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.Flow
+        Me.IconOptions.SvgImage = CType(resources.GetObject("frmFlowSearch.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.KeyPreview = True
         Me.Name = "frmFlowSearch"
         Me.Ribbon = Me.RibbonControl1
@@ -515,4 +522,5 @@ Partial Class frmFlowSearch
     Friend WithEvents ToggleSwitchCurrentMonth As DevExpress.XtraEditors.ToggleSwitch
     Friend WithEvents CheckedListBoxCategories As DevExpress.XtraEditors.CheckedListBoxControl
     Friend WithEvents Label3 As Label
+    Friend WithEvents BarStaticInfoItem As DevExpress.XtraBars.BarStaticItem
 End Class

GUIs.ZooFlow/Search/frmFlowSearch.resx

@@ -150,4 +150,30 @@
   <metadata name="DockPanel3.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</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
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFsEAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
+        MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
+        aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
+        c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
+        O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
+        ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
+        c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJTdGF0ZU1hY2hpbmUi
+        Pg0KICAgIDxwYXRoIGQ9Ik0xNiw2aC0yTDQsMjJsMiwyaDE4bDItMkwxNiw2eiBNMjMuMiwyMkg2Ljhs
+        LTAuMy0wLjNMMTUsOC4ybDguNSwxMy41TDIzLjIsMjJ6IiBjbGFzcz0iQmxhY2siIC8+DQogICAgPHBh
+        dGggZD0iTTUsMjhjLTIuOCwwLTUtMi4yLTUtNXMyLjItNSw1LTVzNSwyLjIsNSw1UzcuOCwyOCw1LDI4
+        eiBNMzAsMjNjMC0yLjgtMi4yLTUtNS01cy01LDIuMi01LDVzMi4yLDUsNSw1ICAgUzMwLDI1LjgsMzAs
+        MjN6IE0yMCw3YzAtMi44LTIuMi01LTUtNXMtNSwyLjItNSw1czIuMiw1LDUsNVMyMCw5LjgsMjAsN3oi
+        IGNsYXNzPSJCbHVlIiAvPg0KICA8L2c+DQo8L3N2Zz4L
+</value>
+  </data>
 </root>

GUIs.ZooFlow/Search/frmFlowSearch.vb

@@ -100,7 +100,7 @@ Public Class frmFlowSearch
                 oSQL = oSQL.Replace("--INNER JOIN VWIDB_GROUP_DATA_DATE", "INNER JOIN VWIDB_GROUP_DATA_DATE")
             End If
             If CATEGORIES_SELECTED <> String.Empty Then
-                oSQL = oSQL.Replace("--AND ATTR.TITLE IN ('')", $"AND ATTR.TITLE IN ({CATEGORIES_SELECTED})")
+                oSQL = oSQL.Replace("--AND ATTR_TERM.TERM_VALUE IN ('')", $"AND ATTR_TERM.TERM_VALUE IN ({CATEGORIES_SELECTED})")
             End If
 
             Dim oResultCountAttributes As Integer = 0
@@ -193,6 +193,10 @@ Public Class frmFlowSearch
                 End If
                 oItemsFound = True
                 OpenResultForm(oDTOBJECT_RESULT)
+            Else
+                BarStaticInfoItem.Caption = "Check PRFLOW_SEARCH_GET_RESULT: Nothing"
+                BarStaticInfoItem.ItemAppearance.Normal.BackColor = Color.Orange
+                Return False
             End If