AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2021-03-04 09:10:39 +01:00
parent 902add9d31
commit 838b1cb61e
8 changed files with 48 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
GUIs.ZooFlow/Search/frmFlowSearch.vb
View File

@@ -42,8 +42,8 @@ Public Class frmFlowSearch
Try
RibbonControl1.Minimized = True
TileControlMatch.Groups.Clear()
Dim oDTCategory As DataTable = ASorDB.GetDatatable("IDB", $"SELECT 'NONE' as CATEGORY", "VWAPPSERV_CATEGORIES", "", "CATEGORY")
Dim oSQL = "select DISTINCT TERM_VALUE AS CATEGORY ,ATTRIBUTE_ID from VWIDB_CATEGORIES_PER_OBJECT_AND_LANGUAGE WHERE LANGUAGE_ID = @LANGUAGE_ID ORDER BY TERM_VALUE"
Dim oDTCategory As DataTable = ASorDB.GetDatatable("IDB", $"SELECT 'NONE' as CATEGORY", "VWIDB_CATEGORIES_PER_OBJECT_AND_LANGUAGE", "", "CATEGORY")
If Not IsNothing(oDTCategory) Then
CheckedListBoxCategories.DataSource = oDTCategory
CheckedListBoxCategories.DisplayMember = "CATEGORY"
@@ -112,6 +112,10 @@ Public Class frmFlowSearch
oSQL = oSQL.Replace("MONTH(OBJ.ADDED_WHEN) <> 13", SEARCH_FACT_DATE)
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})")
End If
Dim oResultCountAttributes As Integer = 0
TileControlMatch.Groups.Clear()