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

MS nach Nullverweis frmMAtch

Browse Source
This commit is contained in:
SchreiberM 2020-12-28 11:16:04 +01:00
parent ca03492326
commit 93cc0acfbd
2 changed files with 33 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
GUIs.ClipboardWatcher/ProfileSearches.vb
View File

@ -29,7 +29,7 @@ Public Class ProfileSearches
Try Try
If _Environment.Service.IsActive = True Then If _Environment.Service.IsActive = True Then
Try Try
Dim oSplit() As String = _Environment.Service.Address.Split(":") Dim oSplit() As String = _Environment.Service.Address.Split(";")
Dim oAppServerAddress As String = oSplit(0) Dim oAppServerAddress As String = oSplit(0)
Dim oAppServerPort As Integer = 9000 Dim oAppServerPort As Integer = 9000
If oSplit.Length = 2 Then If oSplit.Length = 2 Then
@ -38,7 +38,7 @@ Public Class ProfileSearches
_Client = New Client(LogConfig, oAppServerAddress, oAppServerPort) _Client = New Client(LogConfig, oAppServerAddress, oAppServerPort)
If Not IsNothing(_Client) Then If Not IsNothing(_Client) Then
If _Client.Connect() Then If _Client.Connect() Then
_Logger.Debug("ProfileSearches: Appserver connected successfully!")
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
@ -59,15 +59,18 @@ Public Class ProfileSearches
Private Function DoLoadDocumentSearches(ProfileId As Integer) As List(Of Search) Private Function DoLoadDocumentSearches(ProfileId As Integer) As List(Of Search)
Dim oSQL As String = $"SELECT * FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {ProfileId} ORDER BY TAB_INDEX" Dim oSQL As String = $"SELECT * FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {ProfileId} ORDER BY TAB_INDEX"
Dim oSearchesDataTable As DataTable Dim oSearchesDataTable As DataTable
Dim o = _Environment.Service.Address
If _Environment.Service.IsActive = True Then If _Environment.Service.IsActive = True Then
Dim oTableResult As TableResult = _Client.GetDatatableByName("TBCW_PROF_DOC_SEARCH", $"PROFILE_ID = {ProfileId}", "TAB_INDEX") Dim oTableResult As TableResult = _Client.GetDatatableByName("TBCW_PROF_DOC_SEARCH", $"PROFILE_ID = {ProfileId}", "TAB_INDEX")
oSearchesDataTable = oTableResult.Table oSearchesDataTable = oTableResult.Table
If oSearchesDataTable Is Nothing Then
_Logger.Warn("TBCW_PROF_DOC_SEARCH from ApPServer is nothing: Failover started...")
oSearchesDataTable = _Environment.Database.GetDatatable(oSQL)
End If
Else Else
oSearchesDataTable = _Environment.Database.GetDatatable(oSQL) oSearchesDataTable = _Environment.Database.GetDatatable(oSQL)
End If End If
Dim oDocSearches As New List(Of Search) Dim oDocSearches As New List(Of Search)
If Not IsNothing(oSearchesDataTable) Then
Dim oCounter As Integer = 0 Dim oCounter As Integer = 0
Dim oPatterns As New ClassPatterns(_LogConfig) Dim oPatterns As New ClassPatterns(_LogConfig)
@ -101,6 +104,11 @@ Public Class ProfileSearches
oCounter += 1 oCounter += 1
Next Next
Else
End If
Return oDocSearches Return oDocSearches
End Function End Function

2
GUIs.ZooFlow/Config/ClassConfig.vb
View File

@ -41,7 +41,7 @@ Public Class ClassConfig
Public Property ConnectionString As String = String.Empty Public Property ConnectionString As String = String.Empty
<GlobalSetting> <GlobalSetting>
Public Property AppServerConfig As String = "172.24.12.39:9000" Public Property AppServerConfig As String = String.Empty
' === Logging Configuration ' === Logging Configuration
Public Property LogDebug As Boolean = False Public Property LogDebug As Boolean = False