MS Globix FlowSearch

GUIs.ZooFlow/Search/frmFlowSearch.vb

@@ -13,6 +13,7 @@ Public Class frmFlowSearch
     Dim oAttributeCount As Integer = 1
     Dim BASE_SEARCHCommand As String
     Private LastSearchForm As frmDocumentResultList
+    Private ASorDB As ClassDataASorDB
     Public Sub New(pBaseSearchSql As String)
 
 
@@ -21,6 +22,7 @@ Public Class frmFlowSearch
         BASE_SEARCHCommand = pBaseSearchSql
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
         Logger = My.LogConfig.GetLogger()
+        ASorDB = New ClassDataASorDB(My.LogConfig)
     End Sub
 
     Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged
@@ -273,8 +275,9 @@ Public Class frmFlowSearch
             Dim oSplit = oItem.Tag.ToString.Split("|")
             Try
                 oHandle = SplashScreenManager.ShowOverlayForm(Me)
-
-                Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT_PER_TILE '{oSplit(0)}',{My.Application.User.UserId},'{oSearchData.SelectInStringAttributeIds}','{oSearchData.SelectInIntegerAttributeIds}'"
+                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 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)
                 If Not IsNothing(oDTOBJECT_RESULT) Then
                     oItemsFound = True
@@ -288,9 +291,6 @@ Public Class frmFlowSearch
                 SplashScreenManager.CloseOverlayForm(oHandle)
 
             End Try
-            Return oItemsFound
-
-
         Catch ex As Exception
             MsgBox($"Error while loading Searches: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
             Logger.Error(ex)