Imports System.Drawing
Imports System.IO
Imports System.Windows.Forms
Imports DevExpress.Utils
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraPrinting
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Logging
Imports DigitalData.Modules.ZooFlow
Imports DigitalData.Modules.Language
Imports DigitalData.Modules.EDMI.API
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.BandedGrid
Imports System.ComponentModel

Public Class frmDocumentResultList
    Implements IResultForm

    Private _LogConfig As LogConfig
    Private _Logger As Logger
    Private _Config As ConfigManager(Of DocumentResultConfig)
    Private _Environment As Environment
    Private _Params As DocumentResultParams
    Private _ResultLists As List(Of DocumentResult)

    Private _ActiveGrid As GridControl = Nothing
    Private _ActiveGridBand As GridBand = Nothing
    Private _ActiveRowHandle As Integer = Constants.NO_ROW_HANDLE

    Private Const COLUMN_ICON = "ICON"
    Private Const COLUMN_FILEPATH = "FULL_FILENAME"
    Private Const COLUMN_FILENAME = "Filename"
    Private Const COLUMN_DOCID = "DocID"

    Private _IsLoading As Boolean = True
    Private _IsLegacy As Boolean = True
    Private _IDBClient As Client

    Public Property ShouldReturnToPreviousForm As Boolean = False Implements IResultForm.ShouldReturnToPreviousForm

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

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        Dim oConfigPath As String = Path.Combine(Application.UserAppDataPath, "ResultList", Params.WindowGuid)

        _LogConfig = LogConfig
        _Logger = LogConfig.GetLogger()
        _Config = New ConfigManager(Of DocumentResultConfig)(LogConfig, oConfigPath, oConfigPath)
        _Environment = Environment
        _Params = Params
        _ResultLists = Params.Results

        MaybeInitIDB()
    End Sub

    Private Sub MaybeInitIDB()
        _IsLegacy = Not _Environment.Service.IsActive
        If _Environment.Service.IsActive Then
            Dim oSplit As List(Of String) = _Environment.Service.Address.Split(";").ToList()
            Dim oAddress As String = oSplit.Item(0)
            Dim oPort As Integer = oSplit.Item(1)

            _IDBClient = New Client(_LogConfig, oAddress, oPort)

            If Not _IDBClient.Connect() Then
                _Logger.Warn("Client could not connect to Service at [{0}]", _Environment.Service.Address)
            End If
        End If
    End Sub

    Private Sub frmDocumentResultList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            ' Load config
            SplitContainerControl1.SplitterPosition = _Config.Config.SplitContainer1Distance
            SwitchMainContainerHorizontal.Checked = _Config.Config.SplitContainer1Horizontal
            SplitContainerControl2.SplitterPosition = _Config.Config.SplitContainer2Distance
            SwitchDetailContainerHorizontal.Checked = _Config.Config.SplitContainer2Horizontal

            If _IsLegacy = False Then
                ' Location and size will be managed by the ZooFlow Search Window
                If Utils.IsVisibleOnAnyScreen(_Config.Config.WindowLocation) Then
                    If Utils.LocationIsVisible(_Config.Config.WindowLocation) Then
                        Location = _Config.Config.WindowLocation
                    End If
                    If Utils.SizeIsVisible(_Config.Config.WindowSize) Then
                        Size = _Config.Config.WindowSize
                    End If
                End If

                SwitchMainContainerHorizontal.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
                SwitchDetailContainerHorizontal.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
            End If

            'RibbonControl.Minimized = True

            ' Initialize Viewer with GDPicture.NET License
            DocumentViewer1.Init(_LogConfig, _Environment.Settings.GdPictureKey)

            AddHandler GridView1.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
            AddHandler GridView2.FocusedRowChanged, AddressOf GridView_FocusedRowChanged
            AddHandler GridView3.FocusedRowChanged, AddressOf GridView_FocusedRowChanged

            UpdateTotalResults(_ResultLists)
            UpdateGridData(_ResultLists)
        Catch ex As Exception
            _Logger.Error(ex)
            MessageBox.Show("Error while loading results:" & vbNewLine & vbNewLine & ex.Message, Text)
        Finally
            _IsLoading = False
        End Try
    End Sub

    Public Function RefreshResults(pResults As IEnumerable(Of BaseResult)) As Boolean Implements IResultForm.RefreshResults
        _IsLoading = True
        Try
            UpdateTotalResults(_ResultLists)
            UpdateGridData(_ResultLists)

            Return True
        Catch ex As Exception
            _Logger.Error(ex)
            MessageBox.Show("Error while loading results:" & vbNewLine & vbNewLine & ex.Message, Text)
            Return False
        Finally
            _IsLoading = False
        End Try
    End Function

    Private Sub UpdateGridData(pResultList As List(Of DocumentResult))
        ' Load Grids
        For index = 0 To _ResultLists.Count - 1
            Select Case index
                Case 0
                    Dim oResult As DocumentResult = _ResultLists.Item(0)
                    CreateDocumentGrid(GridView1, oResult.Datatable)
                    UpdateGridHeader(_ResultLists, index, oResult.Datatable.Rows.Count)
                Case 1
                    Dim oResult As DocumentResult = _ResultLists.Item(1)
                    CreateDocumentGrid(GridView2, oResult.Datatable)
                    UpdateGridHeader(_ResultLists, index, oResult.Datatable.Rows.Count)

                Case 2
                    Dim oResult As DocumentResult = _ResultLists.Item(2)
                    CreateDocumentGrid(GridView3, oResult.Datatable)
                    UpdateGridHeader(_ResultLists, index, oResult.Datatable.Rows.Count)

                Case Else
                    MessageBox.Show(Constants.MESSAGE_TOO_MANY_SEARCHES, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                    Exit For
            End Select
        Next

        ' Hide Grids depending on Result count
        Select Case _ResultLists.Count
            Case 0

                SplitContainerControl1.SetPanelCollapsed(True)
                SplitContainerControl2.SetPanelCollapsed(True)

                SwitchMainContainerHorizontal.Enabled = False
                SwitchDetailContainerHorizontal.Enabled = False

                MessageBox.Show(Constants.MESSAGE_ERROR_IN_SEARCHES, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Case 1
                SplitContainerControl1.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel1
                SplitContainerControl2.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel1

                SplitContainerControl1.SetPanelCollapsed(True)
                SplitContainerControl2.SetPanelCollapsed(True)

                SwitchMainContainerHorizontal.Enabled = False
                SwitchDetailContainerHorizontal.Enabled = False
            Case 2
                SplitContainerControl1.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Both
                SplitContainerControl2.PanelVisibility = DevExpress.XtraEditors.SplitPanelVisibility.Panel1

                SplitContainerControl2.SetPanelCollapsed(True)

                SwitchDetailContainerHorizontal.Enabled = False
        End Select
    End Sub

    Private Sub UpdateTotalResults(pResultList As List(Of DocumentResult))
        Dim oTotalResults = 0

        For Each oList In pResultList
            oTotalResults += oList.Datatable.Rows.Count
        Next

        labelResultCount.Caption = String.Format(labelResultCount.Caption, oTotalResults)
    End Sub

    Private Sub UpdateGridHeader(pResultList As List(Of DocumentResult), pIndex As Integer, pCount As Integer)
        Select Case pIndex
            Case 0
                Dim oResult = pResultList.Item(0)
                GridBand1.Caption = $"{oResult.Title} ({pCount})"

            Case 1
                Dim oResult = pResultList.Item(1)
                GridBand2.Caption = $"{oResult.Title} ({pCount})"

            Case 2
                Dim oResult = pResultList.Item(2)
                GridBand3.Caption = $"{oResult.Title} ({pCount})"
        End Select
    End Sub

    Private Async Sub GridView_FocusedRowChanged(sender As GridView, e As FocusedRowChangedEventArgs)
        _ActiveRowHandle = e.FocusedRowHandle

        If _IsLegacy Then
            If e.FocusedRowHandle >= 0 Then
                DocumentViewer1.CloseDocument()

                Dim oRow = sender.GetDataRow(e.FocusedRowHandle)
                Dim oFullPath = oRow.Item(COLUMN_FILEPATH)

                DocumentViewer1.LoadFile(oFullPath)
            End If

        Else
            If e.FocusedRowHandle >= 0 Then
                DocumentViewer1.CloseDocument()

                Dim oRow = sender.GetDataRow(e.FocusedRowHandle)
                Dim oObjectId = oRow.Item(COLUMN_DOCID)

                Dim oInfo = Await _IDBClient.GetDocumentInfo(_Environment.User.UserId, oObjectId)
            End If

        End If
    End Sub

    Private Sub CreateDocumentGrid(GridView As GridView, Datatable As DataTable)
        Dim oDocDatatable As New DataTable
        Try
            'Die Icon Colum erstellen und konfigurieren
            oDocDatatable.Columns.Add(New DataColumn() With {
                .DataType = GetType(Image),
                .ColumnName = COLUMN_ICON,
                .Caption = ""
            })
            oDocDatatable.Columns.Add(New DataColumn() With {
                .DataType = GetType(String),
                .ColumnName = COLUMN_FILEPATH,
                .Caption = "Fullpath"
            })
            oDocDatatable.Columns.Add(New DataColumn() With {
                .DataType = GetType(Int32),
                .ColumnName = COLUMN_DOCID,
                .Caption = "DocID"
            })
            oDocDatatable.Columns.Add(New DataColumn() With {
                .DataType = GetType(String),
                .ColumnName = "Filename",
                .Caption = "Filename"
            })

            Dim oRestColArray As New List(Of String)
            For Each oColumn As DataColumn In Datatable.Columns
                If oColumn.ColumnName <> COLUMN_DOCID And oColumn.ColumnName <> COLUMN_FILEPATH And oColumn.ColumnName <> COLUMN_FILENAME Then
                    Dim oNewColumn As New DataColumn() With {
                        .DataType = oColumn.DataType,
                        .ColumnName = oColumn.ColumnName,
                        .Caption = oColumn.Caption
                    }

                    oDocDatatable.Columns.Add(oNewColumn)
                    oRestColArray.Add(oNewColumn.ColumnName)
                End If
            Next

            For Each oRow As DataRow In Datatable.Rows
                Dim oFullpath = oRow.Item(COLUMN_FILEPATH)
                Dim oDocID = oRow.Item(COLUMN_DOCID)
                Dim oFilename = Path.GetFileName(oFullpath)
                Dim oNewRow As DataRow
                oNewRow = oDocDatatable.NewRow()

                'Icon zuweisen
                oNewRow.Item(0) = GetIconByExtension(oFullpath)

                'Den Filepath mitgeben
                oNewRow.Item(1) = oFullpath
                oNewRow.Item(2) = oDocID
                oNewRow.Item(3) = oFilename

                Dim oIndex = 4 'Fängt bei 4 an, um die definierten Spalten zu überspringen
                For Each oColumnName As String In oRestColArray
                    Dim oRowValue
                    oRowValue = oRow.Item(oColumnName)
                    oNewRow.Item(oIndex) = oRowValue
                    oIndex += 1
                Next

                oDocDatatable.Rows.Add(oNewRow)
            Next

            Dim oGridControl As GridControl = GridView.GridControl
            oGridControl.DataSource = oDocDatatable
            oGridControl.ForceInitialize()

            Dim oCreated, oChanged As String
            If _Environment.User.Language <> "de-DE" Then
                oChanged = "Changed"
                oCreated = "Created"
            Else
                oChanged = "Geändert"
                oCreated = "Erstellt"
            End If

            Try
                GridView.Columns.Item(COLUMN_DOCID).Visible = False
                GridView.Columns.Item(COLUMN_FILEPATH).Visible = False
                GridView.Columns.Item(COLUMN_ICON).MaxWidth = 24
                GridView.Columns.Item(COLUMN_ICON).MinWidth = 24

                If _IsLegacy = False Then
                    ' Hide Fullpath completely in IDB Mode
                    GridView.Columns.Item(COLUMN_FILEPATH).OptionsColumn.ShowInCustomizationForm = False
                End If

                Dim oCreatedColumn = GridView.Columns(oCreated)
                If Not IsNothing(oCreatedColumn) Then
                    oCreatedColumn.DisplayFormat.FormatType = FormatType.DateTime
                    oCreatedColumn.DisplayFormat.FormatString = _Environment.User.DateFormat & " HH:MM:ss"
                End If

                Dim oChangedColumn = GridView.Columns(oChanged)
                If Not IsNothing(oChangedColumn) Then
                    oChangedColumn.DisplayFormat.FormatType = FormatType.DateTime
                    oChangedColumn.DisplayFormat.FormatString = _Environment.User.DateFormat & " HH:MM:ss"
                End If

                ' Alle Spalten aus ReadOnly setzen, danach werden alle passenden auf nicht ReadOnly gesetzt
                For Each oColumn As GridColumn In GridView.Columns
                    oColumn.OptionsColumn.AllowEdit = False
                Next
            Catch ex As Exception
                _Logger.Error(ex)
            End Try

            GridView.OptionsView.BestFitMaxRowCount = -1
            GridView.BestFitColumns(True)
        Catch ex As Exception
            _Logger.Error(ex)
        End Try
    End Sub

    Private Function GetIconByExtension(FilePath As String) As Bitmap
        Dim oFileextension = Path.GetExtension(FilePath)

        Select Case oFileextension.ToUpper
            Case ".csv".ToUpper
                Return My.Resources.xls
            Case ".txt".ToUpper
                Return My.Resources.txt
            Case ".pdf".ToUpper
                Return My.Resources.pdf
            Case ".doc".ToUpper
                Return My.Resources.doc
            Case ".docx".ToUpper
                Return My.Resources.doc
            Case ".xls".ToUpper
                Return My.Resources.xls
            Case ".xlsx".ToUpper
                Return My.Resources.xls
            Case ".xlsm".ToUpper
                Return My.Resources.xls
            Case ".ppt".ToUpper
                Return My.Resources.ppt
            Case ".pptx".ToUpper
                Return My.Resources.ppt
            Case ".dwg".ToUpper
                Return My.Resources.dwg
            Case ".dxf".ToUpper
                Return My.Resources.dxf
            Case ".msg".ToUpper
                Return My.Resources._page
            Case ".msg".ToUpper
                Return My.Resources._page
            Case ".tif".ToUpper
                Return My.Resources.tiff
            Case ".tiff".ToUpper
                Return My.Resources.tiff
            Case ".jpg".ToUpper
                Return My.Resources.jpg
            Case Else
                Return My.Resources._blank
        End Select
    End Function


    Private Sub SwitchMainContainerHorizontal_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SwitchMainContainerHorizontal.CheckedChanged
        SplitContainerControl1.Horizontal = SwitchMainContainerHorizontal.Checked

        If _Config IsNot Nothing And _IsLoading = False Then
            _Config.Config.SplitContainer1Horizontal = SwitchMainContainerHorizontal.Checked
            _Config.Save()
        End If
    End Sub

    Private Sub SwitchDetailContainerHorizontal2_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles SwitchDetailContainerHorizontal.CheckedChanged
        SplitContainerControl2.Horizontal = SwitchDetailContainerHorizontal.Checked

        If _Config IsNot Nothing And _IsLoading = False Then
            _Config.Config.SplitContainer2Horizontal = SwitchDetailContainerHorizontal.Checked
            _Config.Save()
        End If
    End Sub

    Private Sub BarButtonItemExportGrid1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemExportGrid1.ItemClick
        Dim oActiveGrid = GetActiveGridControl()

        If oActiveGrid IsNot Nothing Then
            Dim oGridBand = _ActiveGridBand

            XtraSaveFileDialog.FileName = Utils.ConvertTextToSlug(oGridBand.Caption) & ".xlsx"
            XtraSaveFileDialog.DefaultExt = ".xlsx"

            If XtraSaveFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
                Dim oOptions As New XlsxExportOptions() With {
                    .ExportMode = XlsxExportMode.SingleFile
                }
                oActiveGrid.ExportToXlsx(XtraSaveFileDialog.FileName, oOptions)
            End If

        Else
            MessageBox.Show("Bitte wählen Sie eine Tabelle aus, die Sie exportieren möchten", Text, MessageBoxButtons.OK)
        End If
    End Sub

    Private Sub SplitContainerControl1_SplitterPositionChanged(sender As Object, e As EventArgs) Handles SplitContainerControl1.SplitterPositionChanged
        If _IsLoading = False Then
            _Config.Config.SplitContainer1Distance = SplitContainerControl1.SplitterPosition
            _Config.Save()
        End If
    End Sub

    Private Sub SplitContainerControl2_SplitterPositionChanged(sender As Object, e As EventArgs) Handles SplitContainerControl2.SplitterPositionChanged
        If _IsLoading = False Then
            _Config.Config.SplitContainer2Distance = SplitContainerControl2.SplitterPosition
            _Config.Save()
        End If
    End Sub

    Private Function GetActiveRow() As DataRow
        Dim oActiveGrid = GetActiveGridControl()
        Dim oActiveRowhandle = GetActiveRowHandle()

        If oActiveGrid IsNot Nothing And oActiveRowhandle <> Constants.NO_ROW_HANDLE Then
            Dim oView = DirectCast(oActiveGrid.DefaultView, GridView)
            Dim oRow = oView.GetDataRow(oActiveRowhandle)
            Return oRow
        Else
            Return Nothing
        End If
    End Function

    Private Function GetActiveGridControl() As GridControl
        If _ActiveGrid Is Nothing Then
            Return Nothing
        End If

        Return _ActiveGrid
    End Function

    Private Function GetActiveRowHandle() As Integer
        If _ActiveRowHandle = Constants.NO_ROW_HANDLE Then
            Return Constants.NO_ROW_HANDLE
        End If

        Return _ActiveRowHandle
    End Function

    Private Sub GridControl_Enter(sender As GridControl, e As EventArgs) Handles GridControl1.Enter, GridControl2.Enter, GridControl3.Enter
        _ActiveGrid = sender
        SetActiveGridBand()
    End Sub

    Private Sub GridView1_FocusedRowChanged(sender As GridView, e As FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged, GridView2.FocusedRowChanged, GridView3.FocusedRowChanged
        Dim oGrid As GridControl = sender.GridControl
        _ActiveGrid = oGrid
    End Sub

    Private Sub SetActiveGridBand()
        If _ActiveGrid.Equals(GridControl1) Then
            _ActiveGridBand = GridBand1
        ElseIf _ActiveGrid.Equals(GridControl2) Then
            _ActiveGridBand = GridBand2
        ElseIf _ActiveGrid.Equals(GridControl3) Then
            _ActiveGridBand = GridBand3
        Else
            _ActiveGridBand = Nothing
        End If
    End Sub

    Private Sub OpenFolderPath()
        Try
            Dim oRow = GetActiveRow()

            If oRow IsNot Nothing Then
                Dim oFilename = oRow.Item(COLUMN_FILEPATH)
                Dim oDirectory = IO.Path.GetDirectoryName(oFilename)
                Process.Start(oDirectory)
            End If
        Catch ex As Exception
            _Logger.Error(ex)
        End Try
    End Sub

    Private Sub OpenFile()
        Try
            Dim oRow = GetActiveRow()

            If oRow IsNot Nothing Then
                Dim oFilename = oRow.Item(COLUMN_FILEPATH)
                Process.Start(oFilename)
            End If
        Catch ex As Exception
            _Logger.Error(ex)
        End Try
    End Sub

    Private Sub CopyFileName()
        Try
            Dim oRow = GetActiveRow()

            If oRow IsNot Nothing Then
                Dim oFilename = oRow.Item(COLUMN_FILEPATH)
                Clipboard.SetText(oFilename)
            End If
        Catch ex As Exception
            _Logger.Error(ex)
        End Try
    End Sub

    Private Sub OpenProperties()
        Try
            Dim oRow = GetActiveRow()

            If oRow IsNot Nothing Then
                Dim oObjectId = oRow.Item(COLUMN_DOCID)
                Dim oPropertyDialog As New frmObjectPropertyDialog(_LogConfig, _Environment, oObjectId)
                oPropertyDialog.Show()
            End If
        Catch ex As Exception
            _Logger.Error(ex)
        End Try
    End Sub

    Private Sub GridView1_ColumnFilterChanged(sender As GridView, e As EventArgs) Handles GridView1.ColumnFilterChanged
        Dim oRowCount = sender.RowCount
        UpdateGridHeader(_ResultLists, 0, oRowCount)
    End Sub

    Private Sub GridView2_ColumnFilterChanged(sender As GridView, e As EventArgs) Handles GridView2.ColumnFilterChanged
        Dim oRowCount = sender.RowCount
        UpdateGridHeader(_ResultLists, 1, oRowCount)
    End Sub

    Private Sub GridView3_ColumnFilterChanged(sender As GridView, e As EventArgs) Handles GridView3.ColumnFilterChanged
        Dim oRowCount = sender.RowCount
        UpdateGridHeader(_ResultLists, 2, oRowCount)
    End Sub

    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonBack.ItemClick
        ShouldReturnToPreviousForm = True
        Close()
    End Sub

    Private Sub frmDocumentResultList_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Try
            _Config.Config.WindowLocation = Location
            _Config.Config.WindowSize = Size
            _Config.Save()

            DocumentViewer1.Done()
        Catch ex As Exception
            _Logger.Error(ex)
        End Try
    End Sub

    Private Sub GridControl_DoubleClick(sender As Object, e As EventArgs) Handles GridControl1.DoubleClick, GridControl2.DoubleClick, GridControl3.DoubleClick
        OpenFile()
    End Sub

    Private Sub GridView_PopupMenuShowing(sender As Object, e As PopupMenuShowingEventArgs) Handles GridView1.PopupMenuShowing, GridView2.PopupMenuShowing, GridView3.PopupMenuShowing
        Try
            Dim oView As GridView = sender

            If e.MenuType = GridMenuType.Row Then
                Dim oRowHandle = e.HitInfo.RowHandle
                Dim oRow As DataRow = oView.GetDataRow(oRowHandle)
                Dim oFilepath As String = oRow.Item(COLUMN_FILEPATH)
                Dim oObjectId As Long = oRow.Item(COLUMN_DOCID)
                Dim oMenu As New DocumentPropertyMenu(
                    _LogConfig,
                    _Environment,
                    oFilepath,
                    oObjectId)

                e.Menu.Items.Clear()

                For Each oItem In oMenu.GetMenuItems(_IsLegacy)
                    e.Menu.Items.Add(oItem)
                Next
            End If
        Catch ex As Exception
            _Logger.Error(ex)
            MsgBox("Unexpected Error while preparing context menu", MsgBoxStyle.Critical, Text)
        End Try
    End Sub
End Class