Imports System.IO

Public Class Class_DOC_SEARCH
    Private Shared DT_RESULTLIST_OPTIONS As DataTable
    Private Shared ENTITY_ID As Integer
    Private Shared RECORD_ID As Integer
    Private Shared Function GET_DOCSEARCH_DATATABLE(Type As String)
        Try
            Dim OPTION1
            Dim OPTION2
            Dim OPTION3
            Dim OPTION4
            Dim OPTION5
            If DT_RESULTLIST_OPTIONS.Rows.Count = 0 Then
                OPTION1 = 0
                OPTION2 = 0
                OPTION3 = 0
                OPTION4 = 0
                OPTION5 = 0
            Else
                OPTION1 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION1_CTRL")
                OPTION2 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION2_CTRL")
                OPTION3 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION3_CTRL")
                OPTION4 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION4_CTRL")
                OPTION5 = DT_RESULTLIST_OPTIONS.Rows(0).Item("OPTION5_CTRL")
            End If

            Dim SQL_DOC_SEARCH
            If Type = "ENTITY" Then
                '  SQL_DOC_SEARCH = String.Format("SELECT 	* ," & _
                '    "(CASE (SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}) " & _
                '    "WHEN {1} THEN " & _
                '    "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {2} AND RECORD_ID = {0}) " & _
                '    "ELSE '' END) AS OPTION1," & _
                '    "CASE (SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = 3305) " & _
                '    "WHEN {1} THEN " & _
                '    "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {3} AND RECORD_ID = {0}) " & _
                '    "ELSE '' END AS OPTION2," & _
                '    "CASE (SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = 3305) " & _
                '    "WHEN {1} THEN " & _
                '    "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {4} AND RECORD_ID = {0}) " & _
                '    "ELSE '' END AS OPTION3," & _
                '    "CASE (SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = 3305) " & _
                '    "WHEN {1} THEN " & _
                '    "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {5} AND RECORD_ID = {0}) " & _
                '    "ELSE '' END AS OPTION4 " & _
                '"FROM VWPMO_WD_DOC_SEARCH WHERE ENTITY_ID LIKE '%#{1}%'", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4)
                SQL_DOC_SEARCH = String.Format("SELECT 	* ," & _
                 "CASE " & _
                 "WHEN [ENTITY_ID] LIKE '%#{1}%' THEN " & _
                 "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {2} AND RECORD_ID = {0}) " & _
                 "ELSE '' END AS OPTION1," & _
                 "CASE " & _
                 "WHEN [ENTITY_ID] LIKE '%#{1}%' THEN " & _
                 "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {3} AND RECORD_ID = {0}) " & _
                 "ELSE '' END AS OPTION2," & _
                 "CASE " & _
                 "WHEN [ENTITY_ID] LIKE '%#{1}%' THEN " & _
                 "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {4} AND RECORD_ID = {0}) " & _
                 "ELSE '' END AS OPTION3," & _
                 "CASE " & _
                 "WHEN [ENTITY_ID] LIKE '%#{1}%' THEN " & _
                 "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {5} AND RECORD_ID = {0}) " & _
                 "ELSE '' END AS OPTION4 " & _
             "FROM VWPMO_WD_DOC_SEARCH WHERE ENTITY_ID LIKE '%#{1}#%'", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4)
            Else
                SQL_DOC_SEARCH = String.Format("SELECT 	* ," & _
                "(CASE (SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}) " & _
                "WHEN {1} THEN " & _
                "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {2} AND RECORD_ID = {0}) " & _
                "ELSE '' END) AS OPTION1," & _
                "CASE (SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}) " & _
                "WHEN {1} THEN " & _
                "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {3} AND RECORD_ID = {0}) " & _
                "ELSE '' END AS OPTION2," & _
                "CASE (SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}) " & _
                "WHEN {1} THEN " & _
                "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {4} AND RECORD_ID = {0}) " & _
                "ELSE '' END AS OPTION3," & _
                "CASE (SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}) " & _
                "WHEN {1} THEN " & _
                "	(SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {5} AND RECORD_ID = {0}) " & _
                "ELSE '' END AS OPTION4 " & _
            "FROM VWPMO_WD_DOC_SEARCH WHERE RECORD_ID LIKE '%#{0}#%' AND ENTITY_ID LIKE '%#{1}#%'", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4)
            End If
            Return ClassDatabase.Return_Datatable_Connection(SQL_DOC_SEARCH, 1)
        Catch ex As Exception
            ClassLogger.Add("Unexpected Error in GET_DOCSEARCH_DATATABLE: " & ex.Message, True)
            Return Nothing
        End Try
    End Function
    Public Shared Function Get_DOC_RESULTTABLE(vDT_RESULTLIST_OPTIONS As DataTable, DT_WINDREAM_RESULTLIST As DataTable, ENT_ID As Integer, REC_ID As Integer, vType As String)
        Dim COL_ARRAY_RESULTLIST As List(Of String)
        ENTITY_ID = ENT_ID
        DT_RESULTLIST_OPTIONS = vDT_RESULTLIST_OPTIONS
        RECORD_ID = REC_ID
        Try
            Dim sw As New Stopwatch
            sw.Start()
            Dim elapsed As Double
            Dim DT_FILE_RESULT As DataTable = GET_DOCSEARCH_DATATABLE(vType)
            CURRENT_DOC_RESULTS = DT_FILE_RESULT
            If IsNothing(DT_FILE_RESULT) Then
                ClassLogger.Add(">> ATTENTION: GET_DOCSEARCH_DATATABLE IS NOTHING!!", False)
                Return Nothing
            End If
            elapsed = sw.Elapsed.TotalSeconds
            sw.Stop()
            sw.Reset()
            Console.WriteLine(">> GET_DOCSEARCH_DATATABLE took " & Format(elapsed, "0.000000000") & " seconds")
            If LogErrorsOnly = False Then ClassLogger.Add(" >> Run GET_DOCSEARCH_DATATABLE took " & Format(elapsed, "0.000000000") & " seconds", False)
            sw.Start()
            Dim DTGrid As New DataTable
            Dim ColArrayDEFINITION As New List(Of String)
            Try
                'Die Icon Colum erstellen und konfigurieren
                Dim colIcon As New System.Data.DataColumn()
                colIcon.DataType = GetType(Image)
                colIcon.ColumnName = "ICON"
                colIcon.Caption = ""
                DTGrid.Columns.Add(colIcon)
                '
                Dim colPath As New System.Data.DataColumn()
                colPath.DataType = GetType(String)
                colPath.ColumnName = "FULLPATH"
                colPath.Caption = "Fullpath"
                DTGrid.Columns.Add(colPath)

                Dim colOtype As New System.Data.DataColumn()
                colOtype.DataType = GetType(String)
                colOtype.ColumnName = "OBJECTTYPE"
                colOtype.Caption = "Objecttype"
                DTGrid.Columns.Add(colOtype)
                Dim colDocID As New System.Data.DataColumn()
                colDocID.DataType = GetType(String)
                colDocID.ColumnName = "DocID"
                colDocID.Caption = "DocID"
                DTGrid.Columns.Add(colDocID)


                If Not DT_WINDREAM_RESULTLIST Is Nothing And DT_WINDREAM_RESULTLIST.Rows.Count >= 1 Then
                    Dim ColCount As Integer = 1
                    For Each rw As DataRow In DT_WINDREAM_RESULTLIST.Rows
                        Dim ColumnName = rw.Item("HEADER_CAPTION")
                        Dim Width = rw.Item("WIDTH")
                        If IsNothing(Width) Or IsDBNull(Width) Then
                            Width = 200
                        End If
                        'Die Spalte definieren
                        DTGrid.Columns.Add(ColumnName)
                        ColCount += 1
                    Next
                    'Jetzt das Array zusammenbauen um die Spaltenwerte zu erhalten
                    For Each rw As DataRow In DT_WINDREAM_RESULTLIST.Rows
                        ColArrayDEFINITION.Add(rw.Item("COLUMN_VIEW"))
                    Next
                End If
            Catch ex As Exception
                MsgBox("Unexpected Error in Construct Datatable for GridResult: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            End Try
            elapsed = sw.Elapsed.TotalSeconds
            sw.Stop()
            sw.Reset()
            Console.WriteLine(">> DTGrid-Definition took " & Format(elapsed, "0.000000000") & " seconds")
            If LogErrorsOnly = False Then ClassLogger.Add(" >> DTGrid-Definition took " & Format(elapsed, "0.000000000") & " seconds", False)
            sw.Start()
            COL_ARRAY_RESULTLIST = ColArrayDEFINITION

            For Each FILE_ROW As DataRow In DT_FILE_RESULT.Rows

                Dim fullpath = FILE_ROW.Item("FULL_FILENAME")
                Dim objecttype = FILE_ROW.Item("OBJECTTYPE")
                Dim DocID = FILE_ROW.Item("DocID")
                'Dim Folderpath = Path.GetDirectoryName(fullpath)
                Dim filename = Path.GetFileName(fullpath)
                Dim extension = Path.GetExtension(fullpath)
                '                Try
                Dim NewRow As DataRow
                NewRow = DTGrid.NewRow()

                'Icon zuweisen
                Select Case extension
                    Case ".csv"
                        NewRow.Item(0) = My.Resources.doc_excel_csv
                    Case ".txt"
                        NewRow.Item(0) = My.Resources.text
                    Case ".pdf"
                        NewRow.Item(0) = My.Resources.pdf
                    Case ".doc"
                        NewRow.Item(0) = My.Resources.doc
                    Case ".docx"
                        NewRow.Item(0) = My.Resources.doc
                    Case ".xls"
                        NewRow.Item(0) = My.Resources.xls
                    Case ".xlsx"
                        NewRow.Item(0) = My.Resources.xls
                    Case ".ppt"
                        NewRow.Item(0) = My.Resources.ppt
                    Case ".pptx"
                        NewRow.Item(0) = My.Resources.ppt
                    Case ".dwg"
                        NewRow.Item(0) = My.Resources.dwg
                    Case Else
                        NewRow.Item(0) = My.Resources._blank
                End Select
                'Den Filepath mitgeben
                NewRow.Item(1) = fullpath
                NewRow.Item(2) = objecttype
                NewRow.Item(3) = DocID
                Dim i = 4 'Fängt bei 2 an, um die definierten Spalten zu überspringen
                For Each Colname As String In ColArrayDEFINITION
                    Dim rowvalue
                    Try
                        If LogErrorsOnly = False Then ClassLogger.Add(" >> now rowvalue for Colname '" & Colname & "'", False)
                        rowvalue = FILE_ROW.Item(Colname)
                        If LogErrorsOnly = False Then ClassLogger.Add(" >> rowvalue : '" & rowvalue.ToString & "'", False)
                    Catch ex As Exception
                        ClassLogger.Add("Unexpected Error in GetVariableValue for Column '" & Colname & "- Error: " & ex.Message)
                        If Colname.ToString.StartsWith("doct") Or Colname.ToString.StartsWith("Dokum") Then
                            rowvalue = ""
                        Else
                            rowvalue = "Error getting rowvalue"
                        End If
                    End Try
                    NewRow.Item(i) = rowvalue.ToString
                    i += 1
                Next
                DTGrid.Rows.Add(NewRow)
                '                Catch ex As Exception
                '                    ClassLogger.Add("Unexpected Error in CreateRow for doc '" & filename & "- Error: " & ex.Message)
                '                End Try
            Next


            Return DTGrid

            elapsed = sw.Elapsed.TotalSeconds
            sw.Stop()
            sw.Reset()
            If LogErrorsOnly = False Then ClassLogger.Add(" >> Run Get_DOC_RESULTTABLE took " & Format(elapsed, "0.000000000") & " seconds", False)
        Catch ex As Exception
            MsgBox("Unexpected Error in Get_DOC_RESULTTABLE: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            Return Nothing
        End Try
    End Function

    Public Shared Function REFRESH_DOC_TABLE_RESULTS()
        Try
            Dim execute = "EXEC[dbo].[PRPMO_DOCRESULT_CHANGE]"
            Return ClassDatabase.Execute_non_Query_withConn(execute, 1)
        Catch ex As Exception
            MsgBox("Unexpected Error in REFRESH_TABLE_RESULTS: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            Return False
        End Try
    End Function
End Class