Modules/ClipboardWatcher/frmMatch.vb

Imports System.Drawing
Imports System.Windows.Forms
Imports DevExpress.XtraEditors
Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.Windows
Imports DigitalData.Modules.Language
Imports DigitalData.Modules.ZooFlow
Imports DigitalData.Modules.ZooFlow.Params

''' <summary>
''' 
''' Selfcontained:
''' - Config (Location of Window)
''' 
''' Environment:
''' - Pattern Replacement Values
''' - User Info (isAdmin, etc)
''' - License Info?
''' - ConnectionString
''' 
''' Parameters:
''' - Matching Profiles as List Of ProfileData
''' - Clipboard Content as String
''' </summary>
Public Class frmMatch
    Private _LogConfig As LogConfig
    Private _Logger As Logger
    Private _Environment As Environment
    Private _Params As ClipboardWatcherParams

    Private PrimaryFont As New Font("Segoe UI", 12, FontStyle.Bold)
    Private SecondaryFont As New Font("Segoe UI", 10)

    Private OpenForms As New List(Of IResultForm)
    Private ShouldHideInitially As Boolean = False

    Private Const NO_COUNT_SQL As Integer = 99998
    Private Const INVALID_COUNT_SQL As Integer = 99999

    Private Enum ProfileType
        ANY = 0
        DOCS_ONLY = 1
        DATA_ONLY = 2
    End Enum

    Public Sub New(LogConfig As LogConfig, Environment As Environment, Params As ClipboardWatcherParams)
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        _LogConfig = LogConfig
        _Logger = LogConfig.GetLogger()
        _Environment = Environment
        _Params = Params
    End Sub

    Private Sub frmMatch_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim oCreatedTiles = CreateTiles()

        If oCreatedTiles = -1 Then
            Exit Sub
        End If

        If oCreatedTiles = 0 Then
            _Logger.Warn("No Results found for ""{0}""", _Params.ClipboardContents)
            Close()
        End If

        Dim oMatchString = IIf(oCreatedTiles = 1, "1 Match", $"{oCreatedTiles} Matches")
        Label1.Text = String.Format(Label1.Text, oMatchString, _Params.ClipboardContents)

        If oCreatedTiles = 1 Then
            Dim oProfile As ProfileData = _Params.MatchingProfiles.First()
            ' TODO Open Result Forms
        End If
    End Sub

    Function CreateTiles() As Integer
        Try
            Dim oCreatedTiles As Integer = 0
            Dim oDocumentGroup = TileControlMatch.Groups.Item("TileGroupDocuments")
            Dim oDataGroup = TileControlMatch.Groups.Item("TileGroupData")
            Dim oDataDocumentsGroup = TileControlMatch.Groups.Item("TileGroupDocumentsData")

            oDocumentGroup.Items.Clear()
            oDataGroup.Items.Clear()

            For Each oProfile As ProfileData In _Params.MatchingProfiles
                If oProfile.ProfileType = ProfileType.ANY Then
                    If oProfile.CountData > 0 And oProfile.CountDocs > 0 Then
                        Dim oCountText = oProfile.CountData + oProfile.CountDocs
                        Dim oItem = CreateTile(oProfile, $"{oCountText} Ergebnisse")
                        oDataDocumentsGroup.Items.Add(oItem)
                        oCreatedTiles += 1
                    End If
                End If

                If oProfile.ProfileType = ProfileType.ANY Or oProfile.ProfileType = ProfileType.DOCS_ONLY Then
                    If oProfile.CountDocs > 0 Then
                        Dim oItem = CreateTile(oProfile, $"{oProfile.CountDocs} Dokumente")
                        oDocumentGroup.Items.Add(oItem)
                        oCreatedTiles += 1
                    End If
                End If

                If oProfile.ProfileType = ProfileType.ANY Or oProfile.ProfileType = ProfileType.DATA_ONLY Then
                    If oProfile.CountData > 0 Then
                        Dim oItem = CreateTile(oProfile, $"{oProfile.CountData} Datensätze")
                        oDataGroup.Items.Add(oItem)
                        oCreatedTiles += 1
                    End If
                End If
            Next

            Return oCreatedTiles
        Catch ex As Exception
            _Logger.Error(ex)
            MsgBox("Error while creating profile tiles!" & vbNewLine & ex.Message)
            Return -1
        End Try
    End Function

    Private Function CreateTile(Profile As ProfileData, CountText As String) As TileItem
        Dim oItem As New TileItem() With {.Tag = Profile.Guid}
        oItem.Elements.Clear()

        Dim oNameElement = New TileItemElement With {
            .Text = Profile.Name,
            .TextAlignment = TileItemContentAlignment.TopLeft
        }
        oNameElement.Appearance.Normal.Font = PrimaryFont
        oItem.Elements.Add(oNameElement)

        Dim oCommentElement = New TileItemElement With {
            .Text = Profile.Comment,
            .TextAlignment = TileItemContentAlignment.MiddleLeft
        }
        oCommentElement.Appearance.Normal.Font = SecondaryFont
        oItem.Elements.Add(oCommentElement)

        Dim oCountElement = New TileItemElement With {
            .Text = GetCountText(Profile, CountText),
            .TextAlignment = TileItemContentAlignment.BottomRight
        }
        oCountElement.Appearance.Normal.Font = SecondaryFont
        oItem.Elements.Add(oCountElement)

        Return oItem
    End Function

    Private Function GetCountText(Profile As ProfileData, CountText As String) As String
        Dim oText As String = "No implemented"

        If Profile.CountData = INVALID_COUNT_SQL Then
            oText = "Invalid SQL!"
        ElseIf Profile.CountData = NO_COUNT_SQL Then
            oText = "No SQL!"
        Else
            oText = CountText
        End If

        If Profile.CountDocs = INVALID_COUNT_SQL Then
            oText = "Invalid SQL!"
        ElseIf Profile.CountDocs = NO_COUNT_SQL Then
            oText = "No SQL!"
        Else
            oText = CountText
        End If

        Return oText
    End Function

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        Dim oForm As New frmTreeView(_Params.MatchTreeView.Nodes) With {
            .StartPosition = FormStartPosition.CenterScreen
        }
        oForm.ShowDialog()
    End Sub

    Private Async Sub TileControlMatch_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControlMatch.ItemClick
        Dim oItem As TileItem = e.Item
        Dim oProfileId As Integer = oItem.Tag

        Dim oProfileSearch As New ProfileSearches(_LogConfig, _Environment, _Params)
        Dim oProfile As ProfileData = _Params.MatchingProfiles.
            Where(Function(p) p.Guid = oProfileId).
            ToList().
            First()

        Select Case oItem.Group.Name
            Case TileGroupData.Name
                'OpenResultForms(oProfileId, ProfileType.DATA_ONLY)

            Case TileGroupDocuments.Name
                Dim oSearches = Await oProfileSearch.LoadDocumentSearchesAsync()
                OpenDocumentResults(oProfile, oSearches)

            Case Else
                'OpenResultForms(oProfileId, ProfileType.ANY)
        End Select

        Hide()
    End Sub

    Private Sub OpenDocumentResults(Profile As ProfileData, Searches As List(Of ProfileSearches.Search))
        Dim oNameSlug = Language.Utils.ConvertTextToSlug(Profile.Name)
        Dim oSearchGuids = Searches.Select(Function(s) s.Guid).ToArray
        Dim oWindowGuid = $"{Profile.Guid}-{oNameSlug}-{String.Join("-", oSearchGuids)}"
        Dim oParams = New ResultListParams() With {
            .WindowGuid = oWindowGuid
        }

        For Each oSearch In Searches
            oParams.Results.Add(New DocumentResult() With {
                .Title = oSearch.TabCaption,
                .Datatable = oSearch.DataTable
            })
        Next

        Dim oForm As New frmDocumentResultList(_LogConfig, _Environment, oParams)
        oForm.Show()
    End Sub

    Private Sub OpenResultForms(ProfileId As Integer, OpenType As ProfileType)
        'If OpenType = ProfileType.ANY Or OpenType = ProfileType.DOCS_ONLY Then
        '    ' Show Result Document Form
        '    Dim oForm As New frmResult(_LogConfig, _Environment, _Params, frmResult.ResultType.Document)
        '    AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
        '    OpenForms.Add(oForm)

        '    oForm.Show()
        'End If

        'If OpenType = ProfileType.ANY Or OpenType = ProfileType.DATA_ONLY Then
        '    ' Show Result Data Form
        '    Dim oForm As New frmResult(_LogConfig, _Environment, _Params, frmResult.ResultType.Data)
        '    AddHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
        '    OpenForms.Add(oForm)

        '    oForm.Show()
        'End If
    End Sub

    Private Sub ProfileResultForm_Closed(sender As Object, e As FormClosedEventArgs)
        Dim oShouldOpenAgain As Boolean = False
        Dim oThisForm = New List(Of IResultForm) From {sender}

        If TypeOf sender Is frmResult Then
            For Each oForm As IResultForm In OpenForms
                ' Determine if frmProfileMatch should be shown
                If oForm.ShouldReturnToMatchForm Then
                    oShouldOpenAgain = True
                End If
            Next
        End If

        ' If frmProfileMatch should be shown, close all windows of this profile
        If oShouldOpenAgain Then
            For Each oForm As Form In OpenForms.Except(oThisForm)
                ' Remove the Handler to prevent a loop
                RemoveHandler oForm.FormClosed, AddressOf ProfileResultForm_Closed
                oForm.Close()
            Next

            Show()
        End If
    End Sub
End Class