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

MS Amatch Anpassung und DB Log

Browse Source
This commit is contained in:
SchreiberM
2019-10-31 10:18:22 +01:00
parent 811613cdea
commit 7c2cf206ab
3 changed files with 52 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
GUIs.ClipboardWatcher/frmMatch.vb
View File

@@ -70,27 +70,31 @@ Public Class frmMatch
End If
If oCreatedTiles = 0 Then
_Logger.Warn("No Results found for ""{0}""", _Params.ClipboardContents)
_Logger.Warn("No Tiles Created: No Results found for ""{0}""", _Params.ClipboardContents)
Close()
End If
Dim oMatchString = IIf(oCreatedTiles = 1, "1 Profil", $"{oCreatedTiles} Profile")
Label1.Text = String.Format(Label1.Text, oMatchString, _Params.ClipboardContents)
_Logger.Debug($"Created Tiles: {oCreatedTiles} ")
If oCreatedTiles = 1 Then
Dim oProfile As ProfileData = _Params.MatchingProfiles.First()
Dim oProfileSearch As New ProfileSearches(_LogConfig, _Environment, _Params)
If oProfile.CountData > 0 Then
Dim oSearches = Await oProfileSearch.LoadDataSearchesAsync(oProfile.Guid)
OpenDataResults(oProfile, oSearches)
Hide()
ElseIf oProfile.CountDocs > 0 Then
If oProfile.CountDocs > 0 And oProfile.CountData = 0 Then
_Logger.Debug($"ONLY Docs")
'ONLY DOCS AND NÒ DATA
Dim oSearches = Await oProfileSearch.LoadDocumentSearchesAsync(oProfile.Guid)
OpenDocumentResults(oProfile, oSearches)
Hide()
ElseIf oProfile.CountDocs > 0 And oProfile.CountData > 0 Then
_Logger.Debug($"Docs AND Data")
ElseIf oProfile.CountDocs = 0 And oProfile.CountData > 0 Then
_Logger.Debug($"ONLY Data")
Dim oSearches = Await oProfileSearch.LoadDataSearchesAsync(oProfile.Guid)
OpenDataResults(oProfile, oSearches)
Hide()
End If
End If
End Sub
@@ -121,10 +125,13 @@ Public Class frmMatch
'End If
If oProfile.ProfileType = ProfileType.ANY Or oProfile.ProfileType = ProfileType.DOCS_ONLY Then
_Logger.Debug("Docs only or ProfileTypeAny")
If oProfile.CountDocs > 0 Then
Dim oItem = CreateTile(oProfile, $"{oProfile.CountDocs} Dokumente")
Dim oItem = CreateTile(oProfile, $"{oProfile.CountDocs} Dateien")
oDocumentGroup.Items.Add(oItem)
oCreatedTiles += 1
Else
_Logger.Debug("NO Doc-Results!")
End If
End If
@@ -133,6 +140,8 @@ Public Class frmMatch
Dim oItem = CreateTile(oProfile, $"{oProfile.CountData} Datensätze")
oDataGroup.Items.Add(oItem)
oCreatedTiles += 1
Else
_Logger.Debug("NO Data-Results!")
End If
End If
Next