MS Zooflow Test

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