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

last minute bugfixing

Browse Source
This commit is contained in:
Jonathan Jenne 2019-10-29 17:36:43 +01:00
parent 9e7f2e2770
commit b3158f7a1e
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj
View File

@ -97,6 +97,10 @@
<Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Patterns, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\DDMonorepo\Modules.Patterns\bin\Debug\DigitalData.Modules.Patterns.dll</HintPath>
</Reference>
<Reference Include="DigitalData.Modules.Windows">
<HintPath>..\..\..\DDMonorepo\Windows\bin\Debug\DigitalData.Modules.Windows.dll</HintPath>
</Reference>

13
app/DD_Clipboard_Searcher/frmStart.vb
View File

@ -5,6 +5,7 @@ Imports DD_Clipboard_Watcher.ClassConstants
Imports DD_Clipboard_Watcher.ClassWindowAPI
Imports DigitalData.Modules.ZooFlow
Imports DigitalData.Modules.ClipboardWatcher
Imports DigitalData.Modules.Patterns
Public Class frmStart
Private WithEvents Hotkey As New ClassHotkey(Me)
@ -192,6 +193,9 @@ Public Class frmStart
Dim oInvalidDocumentSQL = False
Dim oInvalidDataSQL = False
Dim oPatterns As New ClassPatterns(LogConfig)
Dim oEnv = GetEnvironment()
For Each oProfile In oProfiles
Dim oResultDocs As Integer = 0
Dim oResultData As Integer = 0
@ -208,7 +212,9 @@ Public Class frmStart
Continue For
End If
oCountCommand = clsPatterns.ReplaceAllValues(oCountCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid)
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)
@ -225,7 +231,9 @@ Public Class frmStart
Continue For
End If
oCountCommand = clsPatterns.ReplaceAllValues(oCountCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid)
oCountCommand = oPatterns.ReplaceUserValues(oCountCommand, oEnv.User)
oCountCommand = oPatterns.ReplaceInternalValues(oCountCommand)
oResultDocs += Database.GetScalarValue(oCountCommand)
Catch ex As Exception
Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oCountCommand)
@ -242,7 +250,6 @@ Public Class frmStart
Exit Sub
End If
Dim oEnv = GetEnvironment()
Dim oParams = New ClipboardWatcherParams() With {
.ClipboardContents = CURRENT_CLIPBOARD_CONTENTS,
.MatchingProfiles = oProfiles,