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

MS FlowSearch

Browse Source
This commit is contained in:
SchreiberM
2021-01-20 16:55:50 +01:00
parent 0a77e55b7d
commit 0bd0d0d40c
7 changed files with 246 additions and 574 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
GUIs.ZooFlow/ClassInit.vb
View File

@@ -313,22 +313,22 @@ Public Class ClassInit
For Each oLine In oLines
_Logger.Debug(oLine.Trim)
If oLine = "NO_BASICCONF" Then
My.Application.User.HideBasicConfig = True
MyApplication.User.HideBasicConfig = True
ElseIf oLine.StartsWith("SEARCH_STRING_ATTRID") Then
Try
Dim oResult = oLine.Replace("SEARCH_STRING_ATTRID=", "")
My.Application.Search.StringAttributeId = Long.Parse(oResult)
MyApplication.Search.SelectInStringAttributeIds = oResult
Catch ex As Exception
My.Application.Search.StringAttributeId = -1
MyApplication.Search.SelectInStringAttributeIds = ""
End Try
ElseIf oLine.StartsWith("SEARCH_INT_ATTRID") Then
Try
Dim oResult = oLine.Replace("SEARCH_INT_ATTRID=", "")
My.Application.Search.IntegerAttributeId = Long.Parse(oResult)
MyApplication.Search.SelectInIntegerAttributeIds = oResult
Catch ex As Exception
My.Application.Search.IntegerAttributeId = -1
MyApplication.Search.SelectInIntegerAttributeIds = ""
End Try
Else
_Logger.Info($"Wrong WorkingMode: {oLine}")