101 lines
4.0 KiB
VB.net
101 lines
4.0 KiB
VB.net
Imports DigitalData.Modules.Logging
|
|
Imports DigitalData.Modules.ZooFlow
|
|
|
|
Public Class ProfileSearches
|
|
Private _LogConfig As LogConfig
|
|
Private _Logger As Logger
|
|
Private _Environment As Environment
|
|
Private _Params As ClipboardWatcherParams
|
|
|
|
Public Class Search
|
|
Public Guid As Integer
|
|
Public DataTable As DataTable
|
|
Public TabIndex As Integer
|
|
Public TabCaption As String
|
|
Public ProfileId As Integer
|
|
Public SQLCommand As String
|
|
End Class
|
|
|
|
Public Sub New(LogConfig As LogConfig, Environment As Environment, Params As ClipboardWatcherParams)
|
|
_LogConfig = LogConfig
|
|
_Logger = LogConfig.GetLogger()
|
|
_Environment = Environment
|
|
_Params = Params
|
|
End Sub
|
|
|
|
Public Async Function LoadDocumentSearchesAsync() As Task(Of List(Of Search))
|
|
Return Await Task.Run(AddressOf DoLoadDocumentSearches)
|
|
End Function
|
|
|
|
Private Function DoLoadDocumentSearches() As List(Of Search)
|
|
Dim oMatchingIds = String.Join(",", _Params.MatchingProfiles.Select(Function(p) p.Guid).ToArray())
|
|
Dim oSQL As String = $"SELECT * FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID in ({oMatchingIds}) ORDER BY TAB_INDEX"
|
|
Dim oSearchesDataTable = _Environment.Database.GetDatatable(oSQL)
|
|
Dim oDocSearches As New List(Of Search)
|
|
Dim oCounter As Integer = 0
|
|
Dim oPatterns As New Patterns.ClassPatterns(_LogConfig)
|
|
|
|
For Each oRow As DataRow In oSearchesDataTable.Rows
|
|
Dim oProfileId As Integer = oRow.Item("PROFILE_ID")
|
|
Dim oTabTitle As String = oRow.Item("TAB_TITLE")
|
|
Dim oConnectionId As Integer = oRow.Item("CONN_ID")
|
|
Dim oGuid As Integer = oRow.Item("GUID")
|
|
|
|
oSQL = oRow.Item("SQL_COMMAND")
|
|
oSQL = oPatterns.ReplaceUserValues(oSQL, _Environment.User)
|
|
oSQL = oPatterns.ReplaceInternalValues(oSQL)
|
|
oSQL = oPatterns.ReplaceClipboardContents(oSQL, _Params.ClipboardContents)
|
|
|
|
Dim oDatatable As DataTable = _Environment.Database.GetDatatable(oSQL, oConnectionId)
|
|
oDocSearches.Add(New Search() With {
|
|
.Guid = oGuid,
|
|
.DataTable = oDatatable,
|
|
.ProfileId = oProfileId,
|
|
.TabCaption = oTabTitle,
|
|
.TabIndex = oCounter,
|
|
.SQLCommand = oSQL
|
|
})
|
|
|
|
oCounter += 1
|
|
Next
|
|
|
|
Return oDocSearches
|
|
End Function
|
|
|
|
Public Async Function LoadDataSearchesAsync() As Task(Of List(Of Search))
|
|
Return Await Task.Run(AddressOf DoLoadDataSearches)
|
|
End Function
|
|
|
|
Private Function DoLoadDataSearches() As List(Of Search)
|
|
Dim oMatchingIds = String.Join(",", _Params.MatchingProfiles.Select(Function(p) p.Guid).ToArray())
|
|
Dim oSQL As String = $"SELECT * FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID in ({oMatchingIds}) ORDER BY TAB_INDEX"
|
|
Dim oSearchesDataTable = _Environment.Database.GetDatatable(oSQL)
|
|
Dim oDataSearches As New List(Of Search)
|
|
Dim oCounter As Integer = 0
|
|
Dim oPatterns As New Patterns.ClassPatterns(_LogConfig)
|
|
|
|
For Each oRow As DataRow In oSearchesDataTable.Rows
|
|
Dim oProfileId As Integer = oRow.Item("PROFILE_ID")
|
|
Dim oTabTitle As String = oRow.Item("TAB_TITLE")
|
|
Dim oConnectionId As Integer = oRow.Item("CONN_ID")
|
|
|
|
oSQL = oRow.Item("SQL_COMMAND")
|
|
oSQL = oPatterns.ReplaceUserValues(oSQL, _Environment.User)
|
|
oSQL = oPatterns.ReplaceInternalValues(oSQL)
|
|
|
|
Dim oDatatable As DataTable = _Environment.Database.GetDatatable(oSQL, oConnectionId)
|
|
oDataSearches.Add(New Search() With {
|
|
.DataTable = oDatatable,
|
|
.ProfileId = oProfileId,
|
|
.TabCaption = oTabTitle,
|
|
.TabIndex = oCounter,
|
|
.SQLCommand = oSQL
|
|
})
|
|
|
|
oCounter += 1
|
|
Next
|
|
|
|
Return oDataSearches
|
|
End Function
|
|
End Class
|