AppStd/ClipboardWatcher
AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Bugfixing CountDocs

Browse Source
This commit is contained in:
SchreiberM 2019-10-31 10:17:21 +01:00
parent b3158f7a1e
commit 77ee901233
2 changed files with 52 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
app/.vs/DD_Clipboard_Watcher/DesignTimeBuild/.dtbcache
View File

Binary file not shown.

97
app/DD_Clipboard_Searcher/frmStart.vb
View File

@ -189,66 +189,73 @@ Public Class frmStart
End If
End Sub
Sub CHECK_PROFILE_MATCH()
Logger.Debug("...now CHECK_PROFILE_MATCH...")
Dim oProfiles = CURRENT_MATCHING_PROFILES
Dim oInvalidDocumentSQL = False
Dim oInvalidDataSQL = False
'Dim oInvalidDocumentSQL = False
'Dim oInvalidDataSQL = False
Dim oPatterns As New ClassPatterns(LogConfig)
'Dim oPatterns As New ClassPatterns(LogConfig)
Dim oEnv = GetEnvironment()
For Each oProfile In oProfiles
Dim oResultDocs As Integer = 0
Dim oResultData As Integer = 0
'For Each oProfile In oProfiles
' Dim oResultDocs As Integer = 0
' Dim oResultData As Integer = 0
Dim oDataSearches As DataTable = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
Dim oDocSearches As DataTable = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
' Dim oDataSearches As DataTable = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
' Dim oDocSearches As DataTable = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
For Each oRow As DataRow In oDataSearches.Rows
Dim oCountCommand = String.Empty
Try
oCountCommand = oRow.Item("COUNT_COMMAND")
' For Each oRow As DataRow In oDataSearches.Rows
' Dim oCountCommand = String.Empty
' Try
' oCountCommand = oRow.Item("COUNT_COMMAND")
If oCountCommand = String.Empty Then
Continue For
End If
' If oCountCommand = String.Empty Then
' Continue For
' End If
oCountCommand = oPatterns.ReplaceUserValues(oCountCommand, oEnv.User)
oCountCommand = oPatterns.ReplaceInternalValues(oCountCommand)
' oCountCommand = oPatterns.ReplaceUserValues(oCountCommand, oEnv.User)
' oCountCommand = oPatterns.ReplaceInternalValues(oCountCommand)
oResultData += Database.GetScalarValue(oCountCommand)
Catch ex As Exception
Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oCountCommand)
oInvalidDataSQL = True
End Try
Next
' oResultData += Database.GetScalarValue(oCountCommand)
' Catch ex As Exception
' Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oCountCommand)
' oInvalidDataSQL = True
' End Try
' Next
For Each oRow As DataRow In oDocSearches.Rows
Dim oCountCommand = String.Empty
Try
oCountCommand = oRow.Item("COUNT_COMMAND")
' For Each oRow As DataRow In oDocSearches.Rows
' Dim oCountCommand = String.Empty
' Try
' oCountCommand = oRow.Item("COUNT_COMMAND")
If oCountCommand = String.Empty Then
Continue For
End If
' If oCountCommand = String.Empty Then
' Continue For
' End If
oCountCommand = oPatterns.ReplaceUserValues(oCountCommand, oEnv.User)
oCountCommand = oPatterns.ReplaceInternalValues(oCountCommand)
' oCountCommand = oPatterns.ReplaceUserValues(oCountCommand, oEnv.User)
' oCountCommand = oPatterns.ReplaceInternalValues(oCountCommand)
' Logger.Debug($"Now again checking countDocs: sql so far: {oCountCommand}")
' oResultDocs += Database.GetScalarValue(oCountCommand)
' Logger.Debug($"Now oResultDocs is: {oResultDocs}")
' Catch ex As Exception
' Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oCountCommand)
' oInvalidDocumentSQL = True
' End Try
' Next
oResultDocs += Database.GetScalarValue(oCountCommand)
Catch ex As Exception
Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oCountCommand)
oInvalidDocumentSQL = True
End Try
Next
' oProfile.CountData = oResultData
' If oProfile.CountDocs > 0 Then
' Logger.Debug($"For hell no replacing JJ as CountDocs already has a result > 0!!!")
' Else
' oProfile.CountDocs = oResultDocs
' End If
oProfile.CountData = oResultData
oProfile.CountDocs = oResultDocs
Next
'Next
If oInvalidDocumentSQL Or oInvalidDataSQL Then
MsgBox("Ein oder mehrere Abfragen konnten nicht ausgeführt werden. Bitte überprüfen Sie das Log.", MsgBoxStyle.Exclamation, "Warnung")
Exit Sub
End If
'If oInvalidDocumentSQL Or oInvalidDataSQL Then
' MsgBox("Ein oder mehrere Abfragen konnten nicht ausgeführt werden. Bitte überprüfen Sie das Log.", MsgBoxStyle.Exclamation, "Warnung")
' Exit Sub
'End If
Dim oParams = New ClipboardWatcherParams() With {
.ClipboardContents = CURRENT_CLIPBOARD_CONTENTS,