DocSearchModul

app/DD_PM_WINDREAM/frmValidatorSearch.vb

@@ -1,17 +1,374 @@
-Public Class frmValidatorSearch
-    Public Sub RefreshTab1()
+Imports System.ComponentModel
+Imports System.IO
+Imports System.Runtime.InteropServices
+Imports DevExpress.Utils
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Columns
+Imports DevExpress.XtraGrid.Views.Base
+Imports DevExpress.XtraGrid.Views.Grid
+Imports DevExpress.XtraTab
+
+Public Class frmValidatorSearch
+    <DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
+    Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
+    End Function
+    Public Structure SHELLEXECUTEINFO
+        Public cbSize As Integer
+        Public fMask As Integer
+        Public hwnd As IntPtr
+        <MarshalAs(UnmanagedType.LPTStr)> Public lpVerb As String
+        <MarshalAs(UnmanagedType.LPTStr)> Public lpFile As String
+        <MarshalAs(UnmanagedType.LPTStr)> Public lpParameters As String
+        <MarshalAs(UnmanagedType.LPTStr)> Public lpDirectory As String
+        Dim nShow As Integer
+        Dim hInstApp As IntPtr
+        Dim lpIDList As IntPtr
+        <MarshalAs(UnmanagedType.LPTStr)> Public lpClass As String
+        Public hkeyClass As IntPtr
+        Public dwHotKey As Integer
+        Public hIcon As IntPtr
+        Public hProcess As IntPtr
+    End Structure
+#Region "Laufzeitvariablen & Konstanten"
+    Private Const SEE_MASK_INVOKEIDLIST = &HC
+    Private Const SEE_MASK_NOCLOSEPROCESS = &H40
+    Private Const SEE_MASK_FLAG_NO_UI = &H400
+    Public Const SW_SHOW As Short = 5
+#End Region
+    Public formLoaded As Boolean = False
+    Public _DTDocSearches As DataTable
+    Public _DTSQLSearches As DataTable
+    Private _frmValidator As frmValidator 'You need a reference to Form1
+    Private Shared BW_DocPath As String
+    Private Shared BW_DocID As Integer
+
+    Public Sub TabPreload(Panel1Collapsed As Boolean, Panel2Collapsed As Boolean, TabCountSQL As Integer, TabCountDoc As Integer, DTSQL As DataTable, DTDOC As DataTable)
+        Try
+            If Me.InvokeRequired() Then
+                Me.Invoke(Sub() TabPreload(Panel1Collapsed, Panel2Collapsed, TabCountSQL, TabCountDoc, DTSQL, DTDOC))
+            Else
+                '#### SQL Tabs Design Laden
+                SplitContainerSearches.Panel1Collapsed = Panel1Collapsed
+                SplitContainerSearches.Panel2Collapsed = Panel2Collapsed
+                If DTSQL.Rows.Count > 0 Then
+                    For p As Integer = 0 To XtraTabControlSQL.TabPages.Count - 1
+                        If XtraTabControlSQL.TabPages(p).TabIndex >= TabCountSQL Then
+                            XtraTabControlSQL.TabPages(p).PageVisible = False
+                        End If
+                    Next
+                    For p As Integer = 0 To XtraTabControlSQL.TabPages.Count - 1
+                        If XtraTabControlSQL.TabPages(p).TabIndex >= TabCountSQL Then
+                            Exit For
+                        End If
+                        XtraTabControlSQL.TabPages(p).Text = DTSQL.Rows(p).Item("TAB_TITLE")
+
+                    Next
+                End If
+
+                If DTDOC.Rows.Count > 0 Then
+                    '#### Doc Tabs Design Laden
+                    For p As Integer = 0 To XtraTabControlDocs.TabPages.Count - 1
+                        If XtraTabControlDocs.TabPages(p).TabIndex >= TabCountDoc Then
+                            XtraTabControlDocs.TabPages(p).PageVisible = False
+                        End If
+                    Next
+                    For p As Integer = 0 To XtraTabControlDocs.TabPages.Count - 1
+                        If XtraTabControlDocs.TabPages(p).TabIndex >= TabCountDoc Then
+                            Exit For
+                        End If
+                        XtraTabControlDocs.TabPages(p).Text = DTDOC.Rows(p).Item("TAB_TITLE")
+                    Next
+                End If
+
+
+            End If
+        Catch ex As Exception
+
+        End Try
+
+    End Sub
+    Public Sub RefreshTabSQL(ConID As Integer, SQLCommand As String, TabIndex As Integer, TabCaption As String)
         If Me.InvokeRequired() Then
-            Me.Invoke(Sub() RefreshTab1())
+            Me.Invoke(Sub() RefreshTabSQL(ConID, SQLCommand, TabIndex, TabCaption))
         Else
             'Code to refresh your textbox here
+            Refresh_Load_GridSQL(ConID, SQLCommand, TabIndex, TabCaption)
         End If
     End Sub
+    Public Sub RefreshTabDoc(ConID As Integer, SQLCommand As String, TabIndex As Integer, TabCaption As String)
+        If Me.InvokeRequired() Then
+            Me.Invoke(Sub() RefreshTabDoc(ConID, SQLCommand, TabIndex, TabCaption))
+        Else
+            'Code to refresh your textbox here
+            Refresh_Load_GridDoc(ConID, SQLCommand, TabIndex, TabCaption)
+        End If
+    End Sub
+    Sub Refresh_Load_GridSQL(ConID As Integer, SQLCommand As String, TabIndex As Integer, TabCaption As String)
+        'Try
+        Dim myGridControl As DevExpress.XtraGrid.GridControl
+        Dim myGridview As DevExpress.XtraGrid.Views.Grid.GridView
+        Select Case TabIndex
+            Case 0
+                GridControlSearch1.DataSource = Nothing
+                GridViewSearch1.Columns.Clear()
+                myGridview = GridViewSearch1
+                myGridControl = GridControlSearch1
+            Case 1
+                GridControlSearch2.DataSource = Nothing
+                GridViewSearch2.Columns.Clear()
+                myGridview = GridViewSearch2
+                myGridControl = GridControlSearch2
+            Case 2
+                GridControlSearch3.DataSource = Nothing
+                GridViewSearch3.Columns.Clear()
+                myGridview = GridViewSearch3
+                myGridControl = GridControlSearch3
+            Case 3
+                GridControlSearch4.DataSource = Nothing
+                GridViewSearch4.Columns.Clear()
+                myGridview = GridViewSearch4
+                myGridControl = GridControlSearch4
+            Case 4
+                GridControlSearch5.DataSource = Nothing
+                GridViewSearch5.Columns.Clear()
+                myGridview = GridViewSearch5
+                myGridControl = GridControlSearch5
+        End Select
+        myGridControl.ContextMenuStrip = ContextMenuStripSQL
+        Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SQLCommand, ConID)
+        If Not IsNothing(oDatatable) Then
+            XtraTabControlSQL.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
+            Select Case TabIndex
+                Case 0
+                    GridControlSearch1.DataSource = oDatatable
+                    GridViewSearch1.BestFitColumns(True)
+                Case 1
+                    GridControlSearch2.DataSource = oDatatable
+                    GridViewSearch2.BestFitColumns(True)
+                Case 2
+                    GridControlSearch3.DataSource = oDatatable
+                    GridViewSearch3.BestFitColumns(True)
+                Case 3
+                    GridControlSearch4.DataSource = oDatatable
+                    GridViewSearch4.BestFitColumns(True)
+                Case 4
+                    GridControlSearch5.DataSource = oDatatable
+                    GridViewSearch5.BestFitColumns(True)
 
+            End Select
+            tsslblSQL.Text = $"Tab {TabCaption} refreshed - {Now}"
+        End If
+        ' Catch ex As Exception
+
+        'End Try
+    End Sub
+    Sub Refresh_Load_GridDoc(ConID As Integer, SQLCommand As String, TabIndex As Integer, TabCaption As String)
+        'Try
+        Dim myGridControl As DevExpress.XtraGrid.GridControl
+        Dim myGridview As DevExpress.XtraGrid.Views.Grid.GridView
+        Select Case TabIndex
+            Case 0
+                GridControlDocSearch1.DataSource = Nothing
+                GridViewDocSearch1.Columns.Clear()
+                myGridview = GridViewDocSearch1
+                myGridControl = GridControlDocSearch1
+            Case 1
+                GridControlDocSearch2.DataSource = Nothing
+                GridViewDocSearch2.Columns.Clear()
+                myGridview = GridViewDocSearch2
+                myGridControl = GridControlDocSearch2
+            Case 2
+                GridControlDocSearch3.DataSource = Nothing
+                GridViewDocSearch3.Columns.Clear()
+                myGridview = GridViewDocSearch3
+                myGridControl = GridControlDocSearch3
+            Case 3
+                GridControlDocSearch4.DataSource = Nothing
+                GridViewDocSearch4.Columns.Clear()
+                myGridControl = GridControlDocSearch4
+                myGridview = GridViewDocSearch4
+            Case 4
+                GridControlDocSearch5.DataSource = Nothing
+                GridViewDocSearch5.Columns.Clear()
+                myGridControl = GridControlDocSearch5
+                myGridview = GridViewDocSearch5
+        End Select
+        myGridControl.ContextMenuStrip = ContextMenuStripWMFile
+        Dim oDatatable As DataTable = ClassDatabase.Return_Datatable_CS(SQLCommand, ConID)
+        If Not IsNothing(oDatatable) Then
+            XtraTabControlDocs.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
+            clsWMDocGrid.DTDocuments = oDatatable
+            'Select Case TabIndex
+            '    Case 0
+            '        GridControlDocSearch1.DataSource = oDatatable
+            '    Case 1
+            '        GridControlDocSearch2.DataSource = oDatatable
+            '    Case 2
+            '        GridControlDocSearch3.DataSource = oDatatable
+            '    Case 3
+            '        GridControlDocSearch4.DataSource = oDatatable
+            '    Case 4
+            '        GridControlDocSearch5.DataSource = oDatatable
+
+            'End Select
+            Create_GridControl(myGridview, oDatatable)
+            Dim oxmlPath As String = ""
+            oxmlPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
+
+            If File.Exists(oxmlPath) Then
+                myGridview.RestoreLayoutFromXml(oxmlPath)
+                myGridview.GuessAutoFilterRowValuesFromFilter()
+            End If
+            tslblState.Text = $"Tab {TabCaption} refreshed - {Now}"
+        Else
+            clsWMDocGrid.DTDocuments = Nothing
+        End If
+        'Catch ex As Exception
+
+        'End Try
+    End Sub
+    Private Function Create_GridControl(MyGridView As GridView, _datatable As DataTable) As GridView
+        Dim oMyDocDatatable As New DataTable
+        ' Try
+        'Die Icon Colum erstellen und konfigurieren
+        Dim oColIcon As New System.Data.DataColumn()
+        oColIcon.DataType = GetType(Image)
+        oColIcon.ColumnName = "ICON"
+        oColIcon.Caption = ""
+        oMyDocDatatable.Columns.Add(oColIcon)
+
+        Dim oColPath As New System.Data.DataColumn()
+        oColPath.DataType = GetType(String)
+        oColPath.ColumnName = "FULL_FILENAME"
+        oColPath.Caption = "Fullpath"
+        oMyDocDatatable.Columns.Add(oColPath)
+        Dim oColDocID As New System.Data.DataColumn()
+        oColDocID.DataType = GetType(Int32)
+        oColDocID.ColumnName = "DocID"
+        oColDocID.Caption = "DocID"
+        oMyDocDatatable.Columns.Add(oColDocID)
+        Dim oRestColArray As New List(Of String)
+        For Each oCol As DataColumn In _datatable.Columns
+            Dim onewColumn As New System.Data.DataColumn()
+            If oCol.ColumnName <> "DocID" And oCol.ColumnName <> "FULL_FILENAME" And oCol.ColumnName <> "Filename" Then
+
+                onewColumn.DataType = GetType(String)
+                onewColumn.ColumnName = oCol.ColumnName
+                onewColumn.Caption = oCol.Caption
+                oMyDocDatatable.Columns.Add(onewColumn)
+                oRestColArray.Add(onewColumn.ColumnName)
+            End If
+
+        Next
+        For Each FILE_ROW As DataRow In _datatable.Rows
+            Dim oFullpath = FILE_ROW.Item("FULL_FILENAME")
+            Dim oDocID = FILE_ROW.Item("DocID")
+            'Dim Folderpath = Path.GetDirectoryName(fullpath)
+            Dim oFilename = Path.GetFileName(oFullpath)
+            Dim oFileextension = Path.GetExtension(oFullpath)
+            Dim oNewRow As DataRow
+            oNewRow = oMyDocDatatable.NewRow()
+            'Icon zuweisen
+            Select Case oFileextension.ToUpper
+                Case ".csv".ToUpper
+                    oNewRow.Item(0) = My.Resources.doc_excel_csv
+                Case ".txt".ToUpper
+                    oNewRow.Item(0) = My.Resources.txt
+                Case ".pdf".ToUpper
+                    oNewRow.Item(0) = My.Resources.pdf
+                Case ".doc".ToUpper
+                    oNewRow.Item(0) = My.Resources.doc
+                Case ".docx".ToUpper
+                    oNewRow.Item(0) = My.Resources.doc
+                Case ".xls".ToUpper
+                    oNewRow.Item(0) = My.Resources.xls
+                Case ".xlsx".ToUpper
+                    oNewRow.Item(0) = My.Resources.xls
+                Case ".xlsm".ToUpper
+                    oNewRow.Item(0) = My.Resources.xls
+                Case ".ppt".ToUpper
+                    oNewRow.Item(0) = My.Resources.ppt
+                Case ".pptx".ToUpper
+                    oNewRow.Item(0) = My.Resources.ppt
+                Case ".dwg".ToUpper
+                    oNewRow.Item(0) = My.Resources.dwg
+                Case ".dxf".ToUpper
+                    oNewRow.Item(0) = My.Resources.dxf
+                Case ".msg".ToUpper
+                    oNewRow.Item(0) = My.Resources.email_go
+                Case ".msg".ToUpper
+                    oNewRow.Item(0) = My.Resources.email_go
+                Case Else
+                    oNewRow.Item(0) = My.Resources._blank
+            End Select
+            'Den Filepath mitgeben
+            oNewRow.Item(1) = oFullpath
+            oNewRow.Item(2) = oDocID
+
+            Dim i = 3 'Fängt bei 3 an, um die definierten Spalten zu überspringen
+            For Each Colname As String In oRestColArray
+                Dim oRowValue
+                oRowValue = FILE_ROW.Item(Colname)
+                oNewRow.Item(i) = oRowValue.ToString
+                i += 1
+            Next
+            oMyDocDatatable.Rows.Add(oNewRow)
+        Next
+        Dim sdsd As String = ""
+
+
+
+
+
+
+        Dim oGridControl As GridControl = MyGridView.GridControl
+        oGridControl.DataSource = oMyDocDatatable
+        oGridControl.ForceInitialize()
+        Try
+            MyGridView.Columns.Item("DocID").Visible = False
+        Catch ex As Exception
+        End Try
+        Try
+            MyGridView.Columns.Item("FULL_FILENAME").Visible = False
+        Catch ex As Exception
+        End Try
+
+        Dim created, changed As String
+        If USER_LANGUAGE <> "de-DE" Then
+            changed = "Changed"
+            created = "Created"
+        Else
+            changed = "Geändert"
+            created = "Erstellt"
+        End If
+
+        Dim createdColumn = MyGridView.Columns(created)
+        If Not IsNothing(createdColumn) Then
+            createdColumn.DisplayFormat.FormatType = FormatType.DateTime
+            createdColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
+        End If
+
+        Dim changedColumn = MyGridView.Columns(changed)
+        If Not IsNothing(changedColumn) Then
+            changedColumn.DisplayFormat.FormatType = FormatType.DateTime
+            changedColumn.DisplayFormat.FormatString = USER_DATE_FORMAT & " HH:MM:ss"
+        End If
+        ' Alle Spalten aus ReadOnly setzen, danach werden alle passenden auf nicht ReadOnly gesetzt
+        For Each column As GridColumn In MyGridView.Columns
+            column.OptionsColumn.AllowEdit = False
+        Next
+        MyGridView.Columns.Item("ICON").MaxWidth = 24
+        MyGridView.Columns.Item("ICON").MinWidth = 24
+        MyGridView.OptionsView.BestFitMaxRowCount = -1
+        MyGridView.BestFitColumns(True)
+        Return MyGridView
+    End Function
     Private Sub frmValidatorSearch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         Try
             ' Position und Größe speichern
             My.Settings.frmValidatorSearchSize = Me.Size
             My.Settings.frmValidatorSearchPosition = Me.Location
+            My.Settings.frmValSearchSplitterDistance = SplitContainerSearches.SplitterDistance
             My.Settings.Save()
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -20,6 +377,7 @@
     End Sub
 
     Private Sub frmValidatorSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
+        SplitContainerSearches.Panel1Collapsed = True
         If My.Settings.frmValidatorSearchPosition.IsEmpty = False Then
             If My.Settings.frmValidatorSearchPosition.X > 0 And My.Settings.frmValidatorSearchPosition.Y > 0 Then
                 Location = My.Settings.frmValidatorSearchPosition
@@ -28,5 +386,298 @@
         If My.Settings.frmValidatorSearchSize.IsEmpty = False Then
             Size = My.Settings.frmValidatorSearchSize
         End If
+        SplitContainerSearches.SplitterDistance = My.Settings.frmValSearchSplitterDistance
+        _frmValidator = frmValidator
+        ToolStripDropDownButtonFile.Visible = False
     End Sub
+
+    Private Sub frmValidatorSearch_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        formLoaded = True
+    End Sub
+
+    Private Sub XtraTabControlSQL_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControlSQL.SelectedPageChanged
+        If IsNothing(_DTSQLSearches) Then Exit Sub
+        Dim oConID = _DTSQLSearches.Rows(XtraTabControlSQL.SelectedTabPageIndex).Item("CONN_ID")
+        Dim oCommand = _DTSQLSearches.Rows(XtraTabControlSQL.SelectedTabPageIndex).Item("SQL_COMMAND")
+        oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
+        Dim oTabIndex = _DTSQLSearches.Rows(XtraTabControlSQL.SelectedTabPageIndex).Item("TAB_INDEX")
+        Dim oTabCaption = _DTSQLSearches.Rows(XtraTabControlSQL.SelectedTabPageIndex).Item("TAB_TITLE")
+        RefreshTabSQL(oConID, oCommand, oTabIndex, oTabCaption)
+    End Sub
+    Private Sub XtraTabControlDocs_SelectedPageChanged_1(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControlDocs.SelectedPageChanged
+        If IsNothing(_DTDocSearches) Then Exit Sub
+        Dim oConID = _DTDocSearches.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("CONN_ID")
+        Dim oCommand = _DTDocSearches.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("SQL_COMMAND")
+        oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
+        Dim oTabIndex = _DTDocSearches.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("TAB_INDEX")
+        Dim oTabCaption = _DTDocSearches.Rows(XtraTabControlDocs.SelectedTabPageIndex).Item("TAB_TITLE")
+        RefreshTabDoc(oConID, oCommand, oTabIndex, oTabCaption)
+    End Sub
+
+    Private Sub EigenschaftenDateiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenDateiToolStripMenuItem.Click
+        Show_File_Properties()
+    End Sub
+    Sub Show_File_Properties()
+        If IsNothing(clsWMDocGrid.DTDocuments) Then
+            MsgBox("Could not read file Parameters!", MsgBoxStyle.Exclamation)
+            Exit Sub
+        End If
+        For Each oRow As DataRow In clsWMDocGrid.DTDocuments.Rows
+            If oRow.Item("DOC_PATH") <> "" Then
+                Cursor = Cursors.WaitCursor
+                Dim sei As New SHELLEXECUTEINFO
+                sei.cbSize = Marshal.SizeOf(sei)
+                sei.lpVerb = "properties"
+                sei.lpFile = oRow.Item("DOC_PATH")
+                sei.nShow = SW_SHOW
+                sei.fMask = SEE_MASK_INVOKEIDLIST
+                If Not ShellExecuteEx(sei) Then
+                    Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
+                    MsgBox("Error in Open file propertys: " & ex.Message, MsgBoxStyle.Critical)
+                    LOGGER.Error(ex)
+                End If
+            End If
+            Cursor = Cursors.Default
+        Next
+    End Sub
+    Sub Refresh_DocID(myGrid As GridView)
+        clsWMDocGrid.ActiveDocGrid = myGrid
+        clsWMDocGrid.ActiveDocGrid.EndSelection()
+        clsWMDocGrid.GetDocItems()
+        If ToolStripDropDownButtonFile.Visible = False Then
+            ToolStripDropDownButtonFile.Visible = True
+        End If
+        If clsWMDocGrid.SELECTED_DOC_ID <> 0 Then
+            Dim msg = "Doc-ID: " & clsWMDocGrid.SELECTED_DOC_ID.ToString
+            tslblDocID.Text = msg
+            ToolStripDropDownButtonFile.Enabled = True
+        Else
+            tslblDocID.Text = "DocRow not selected"
+            ToolStripDropDownButtonFile.Enabled = False
+        End If
+    End Sub
+    Private Sub GridViewDocSearch1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewDocSearch1.FocusedRowChanged
+        Refresh_DocID(GridViewDocSearch1)
+    End Sub
+
+    Private Sub GridViewDocSearch2_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch2.FocusedRowChanged
+        Refresh_DocID(GridViewDocSearch2)
+    End Sub
+    Private Sub GridViewDocSearch3_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch3.FocusedRowChanged
+        Refresh_DocID(GridViewDocSearch3)
+    End Sub
+    Private Sub GridViewDocSearch4_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch4.FocusedRowChanged
+        Refresh_DocID(GridViewDocSearch4)
+    End Sub
+    Private Sub GridViewDocSearch5_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDocSearch5.FocusedRowChanged
+        Refresh_DocID(GridViewDocSearch5)
+    End Sub
+
+    Private Sub GridViewDocSearch1_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch1.FocusedColumnChanged
+        Refresh_DocID(GridViewDocSearch1)
+    End Sub
+
+    Private Sub GridViewDocSearch2_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch2.FocusedColumnChanged
+        Refresh_DocID(GridViewDocSearch2)
+    End Sub
+    Private Sub GridViewDocSearch3_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch3.FocusedColumnChanged
+        Refresh_DocID(GridViewDocSearch3)
+    End Sub
+    Private Sub GridViewDocSearch4_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch4.FocusedColumnChanged
+        Refresh_DocID(GridViewDocSearch4)
+    End Sub
+    Private Sub GridViewDocSearch5_FocusedColumnChanged(sender As Object, e As FocusedColumnChangedEventArgs) Handles GridViewDocSearch5.FocusedColumnChanged
+        Refresh_DocID(GridViewDocSearch5)
+    End Sub
+
+    Private Sub DateiÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
+        FileShow()
+
+    End Sub
+    Sub FileShow()
+        Try
+            If IsNothing(clsWMDocGrid.DTDocuments) Then
+                MsgBox("Could not read fileparameters(5)!", MsgBoxStyle.Exclamation)
+                Exit Sub
+            End If
+            For Each row As DataRow In clsWMDocGrid.DTDocuments.Rows
+                File_SYSOPEN(row.Item("DOC_PATH"), row.Item("DOC_ID"))
+            Next
+        Catch ex As Exception
+
+        End Try
+    End Sub
+    Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String)
+        Try
+            If RESULT_DOC_PATH <> Nothing Then
+
+                BW_DocPath = RESULT_DOC_PATH
+                BW_DocID = DocID
+
+                Dim BWFileHandler As New BackgroundWorker
+                AddHandler BWFileHandler.DoWork, AddressOf BWFileHandler_DoWork
+                BWFileHandler.RunWorkerAsync()
+
+            End If
+        Catch ex As Exception
+            MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
+            LOGGER.Error(ex)
+        End Try
+    End Sub
+    Private Shared Sub BWFileHandler_DoWork()
+        Try
+
+            Dim oMyProcess = New Process()
+            Dim oExtension
+            Dim oSql
+            Try
+                'Dim oPSI As New ProcessStartInfo(BW_DocPath)
+                oMyProcess.StartInfo.FileName = BW_DocPath
+                oMyProcess.StartInfo.UseShellExecute = True
+                oMyProcess.StartInfo.RedirectStandardOutput = False
+                oMyProcess.Start()
+
+                'oMyProcess.WaitForExit()
+            Catch ex As Exception
+                LOGGER.Error(ex)
+                Exit Sub
+            End Try
+
+        Catch ex As Exception
+            LOGGER.Error(ex)
+
+            Try
+                Process.Start(BW_DocPath)
+            Catch ex1 As Exception
+                LOGGER.Error(ex)
+
+            End Try
+        End Try
+    End Sub
+    Private Sub DateiÖffnenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem1.Click
+        FileShow()
+    End Sub
+
+    Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenToolStripMenuItem.Click
+        Show_File_Properties()
+    End Sub
+    Private Function Get_DocGrid_Layout_Filename(oIndex As Integer)
+        Dim oFilename As String = String.Format("GridViewDoc_Search-{0}-{1}-UserLayout.xml", oIndex, CURRENT_ProfilGUID)
+        Dim oPath = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename)
+        Return oPath
+    End Function
+    Private Sub GridControlDocSearch_Leave(sender As Object, e As EventArgs) Handles GridControlDocSearch1.Leave, GridControlDocSearch2.Leave, GridControlDocSearch3.Leave, GridControlDocSearch4.Leave, GridControlDocSearch5.Leave
+        SaveDocGridLayout()
+    End Sub
+
+    Sub SaveDocGridLayout()
+        Dim oXMLPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
+        clsWMDocGrid.ActiveDocGrid.SaveLayoutToXml(oXMLPath)
+
+    End Sub
+    Private Sub ToolStripButtonRefreshSearches_Click(sender As Object, e As EventArgs) Handles ToolStripButtonRefreshSearches.Click
+        If CURRENT_DT_PROFILE_SEARCHES_SQL.Rows.Count > 0 Then
+            _DTSQLSearches = CURRENT_DT_PROFILE_SEARCHES_SQL
+            Dim oConID = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("CONN_ID")
+            Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("SQL_COMMAND")
+            oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
+            XtraTabControlSQL.SelectedTabPageIndex = 0
+            Refresh_Load_GridSQL(oConID, oCommand, 0, CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(0).Item("TAB_TITLE"))
+        End If
+        If CURRENT_DT_PROFILE_SEARCHES_DOC.Rows.Count > 0 Then
+            _DTDocSearches = CURRENT_DT_PROFILE_SEARCHES_DOC
+            Dim oConID = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("CONN_ID")
+            Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("SQL_COMMAND")
+            oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
+            XtraTabControlDocs.SelectedTabPageIndex = 0
+            RefreshTabDoc(oConID, oCommand, 0, CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(0).Item("TAB_TITLE"))
+        End If
+    End Sub
+
+    Private Sub GridViewDocSearch_ColumnWidthChanged(sender As Object, e As ColumnEventArgs) Handles GridViewDocSearch1.ColumnWidthChanged, GridViewDocSearch2.ColumnWidthChanged, GridViewDocSearch3.ColumnWidthChanged, GridViewDocSearch4.ColumnWidthChanged, GridViewDocSearch5.ColumnWidthChanged
+        SaveDocGridLayout()
+    End Sub
+
+    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
+        ReLoad_Active_DocTab()
+    End Sub
+    Sub ReLoad_Active_DocTab()
+        Dim oTabIndex = XtraTabControlDocs.SelectedTabPageIndex
+        Dim oConID = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("CONN_ID")
+        Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("SQL_COMMAND")
+        oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
+        RefreshTabDoc(oConID, oCommand, oTabIndex, CURRENT_DT_PROFILE_SEARCHES_DOC.Rows(oTabIndex).Item("TAB_TITLE"))
+    End Sub
+
+    Private Sub LayoutZurücksetzenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LayoutZurücksetzenToolStripMenuItem.Click
+        Set_DoclayoutBack()
+
+    End Sub
+    Sub Set_DoclayoutBack()
+        Dim oXMLPath = Get_DocGrid_Layout_Filename(XtraTabControlDocs.SelectedTabPageIndex)
+        Try
+            If File.Exists(oXMLPath) Then
+                File.Delete(oXMLPath)
+                ReLoad_Active_DocTab()
+                tslblState.Text = "Layout has been set back!"
+            Else
+                tslblState.Text = ""
+            End If
+
+        Catch ex As Exception
+            tslblState.Text = ""
+        End Try
+
+
+    End Sub
+    Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
+        ReLoad_Active_SQLTab()
+    End Sub
+    Sub ReLoad_Active_SQLTab()
+        Dim oTabIndex = XtraTabControlSQL.SelectedTabPageIndex
+        Dim oConID = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(oTabIndex).Item("CONN_ID")
+        Dim oCommand = CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(oTabIndex).Item("SQL_COMMAND")
+        oCommand = clsPatterns.ReplaceAllValues(oCommand, _frmValidator.pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL)
+        RefreshTabSQL(oConID, oCommand, oTabIndex, CURRENT_DT_PROFILE_SEARCHES_SQL.Rows(oTabIndex).Item("TAB_TITLE"))
+    End Sub
+
+    Private Sub GridControlDocSearch1_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch1.DoubleClick
+        Refresh_DocID(GridViewDocSearch1)
+        FileShow()
+    End Sub
+    Private Sub GridControlDocSearch2_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch2.DoubleClick
+        Refresh_DocID(GridViewDocSearch2)
+        FileShow()
+    End Sub
+    Private Sub GridControlDocSearch3_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch3.DoubleClick
+        Refresh_DocID(GridViewDocSearch3)
+        FileShow()
+    End Sub
+    Private Sub GridControlDocSearch4_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch4.DoubleClick
+        Refresh_DocID(GridViewDocSearch4)
+        FileShow()
+    End Sub
+    Private Sub GridControlDocSearch5_DoubleClick(sender As Object, e As EventArgs) Handles GridControlDocSearch5.DoubleClick
+        Refresh_DocID(GridViewDocSearch5)
+        FileShow()
+    End Sub
+
+    Private Sub GridControlDocSearch1_Click(sender As Object, e As EventArgs) Handles GridControlDocSearch1.Click
+        Refresh_DocID(GridViewDocSearch1)
+
+    End Sub
+    Private Sub GridControlDocSearch2_Click(sender As Object, e As EventArgs) Handles GridControlDocSearch2.Click
+        Refresh_DocID(GridViewDocSearch2)
+    End Sub
+    Private Sub GridControlDocSearch3_Click(sender As Object, e As EventArgs) Handles GridControlDocSearch3.Click
+        Refresh_DocID(GridViewDocSearch3)
+    End Sub
+    Private Sub GridControlDocSearch4_Click(sender As Object, e As EventArgs) Handles GridControlDocSearch4.Click
+        Refresh_DocID(GridViewDocSearch4)
+    End Sub
+    Private Sub GridControlDocSearch5_Click(sender As Object, e As EventArgs) Handles GridControlDocSearch5.Click
+
+        Refresh_DocID(GridViewDocSearch5)
+    End Sub
+
 End Class