DocSearchModul

app/DD_PM_WINDREAM/App.config

@@ -53,6 +53,9 @@
             <setting name="frmValidatorSearchPosition" serializeAs="String">
                 <value>0, 0</value>
             </setting>
+            <setting name="frmValSearchSplitterDistance" serializeAs="String">
+                <value>558</value>
+            </setting>
         </DD_PM_WINDREAM.My.MySettings>
     </userSettings>
 </configuration>

app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb

@@ -16,10 +16,10 @@ Public Class ClassAllgemeineFunktionen
                 Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Process-Manager')"
             End If
             If ClassDatabase.Execute_non_Query(Sql, True) = True Then
-                LOGGER.Debug(" >> User logged in....", False)
+                LOGGER.Debug("User logged in....")
                 Return True
             Else
-                LOGGER.Info(" >> User could not be logged in/out....", False)
+                LOGGER.Info(" >> User could not be logged in/out....")
                 Return False
             End If
         Catch ex As Exception
@@ -127,7 +127,7 @@ Public Class ClassAllgemeineFunktionen
             Dim xffres As String = Path & "\" & Stammname & ".xffres"
             If file_exists(xffres, clsWD) = True Then
                 System.IO.File.Delete(xffres)
-                LOGGER.Info(">> Datei " & xffres & " erfolgreich gelöscht", False)
+                LOGGER.Info(">> Datei " & xffres & " erfolgreich gelöscht")
                 Return True
             Else
                 Return Nothing
@@ -135,7 +135,7 @@ Public Class ClassAllgemeineFunktionen
         Catch ex As Exception
             LOGGER.Error(ex)
             LOGGER.Info(" Fehler bei Delete_xffres", True)
-            LOGGER.Info(">> Fehlermeldung: " & ex.Message, False)
+            LOGGER.Info(">> Fehlermeldung: " & ex.Message)
         End Try
     End Function
     'Public Function Delete_File(originFile As String)
@@ -151,7 +151,7 @@ Public Class ClassAllgemeineFunktionen
     '        End If
     '    Catch ex As Exception
     '        LOGGER.Info(" Fehler bei Delete_File", True)
-    '        LOGGER.Info(">> Fehlermeldung: " & ex.Message, False)
+    '        LOGGER.Info(">> Fehlermeldung: " & ex.Message)
     '    End Try
     'End Function
 
@@ -159,7 +159,7 @@ Public Class ClassAllgemeineFunktionen
         Try
             If VIEWER_PDF <> "internal" And vMove_File.EndsWith("pdf") Then
                 Do While clsWD.CheckFileExists(vMove_File) = True 'func_check_file_use(vMove_File)
-                    LOGGER.Info(">> MoveRename: Datei noch geöffnet - Warten", False)
+                    LOGGER.Info(">> MoveRename: Datei noch geöffnet - Warten")
                     System.Threading.Thread.Sleep(500)
                 Loop
             End If
@@ -179,17 +179,17 @@ Public Class ClassAllgemeineFunktionen
                     version = version + 1
                 Loop
                 My.Computer.FileSystem.MoveFile(vMove_File, _Ziel)
-                LOGGER.Info(">> Datei erfolgreich verschoben - Ziel: " & _Ziel, False)
+                LOGGER.Info(">> Datei erfolgreich verschoben - Ziel: " & _Ziel)
             Else
-                LOGGER.Info(">> Ziel und Quellpfad sind identisch!", False)
+                LOGGER.Info(">> Ziel und Quellpfad sind identisch!")
             End If
 
             Return ""
         Catch ex As Exception
             LOGGER.Error(ex)
             LOGGER.Info(" Fehler bei Move2Folder", True)
-            LOGGER.Info(">> Fehlermeldung", False)
+            LOGGER.Info(">> Fehlermeldung")
-            LOGGER.Info(">>" & ex.Message, False)
+            LOGGER.Info(">>" & ex.Message)
             Insert_LogEntry(Profile_ID, "Fehler bei Move2Folder: " & ex.Message, Environment.UserName)
             Return ex.Message
         End Try
@@ -278,8 +278,8 @@ Public Class ClassAllgemeineFunktionen
             MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
             Insert_LogEntry(profil_id, "Unvorhergesehener Fehler bei Execute_Scalar_Oracle: " & ex.Message, Environment.UserName)
             LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
-            LOGGER.Info(" - SQL: " & vsql_statement, False)
+            LOGGER.Info(" - SQL: " & vsql_statement)
-            LOGGER.Info(" - Connection: " & vconnectionString, False)
+            LOGGER.Info(" - Connection: " & vconnectionString)
             Return 99
         End Try
     End Function
@@ -312,8 +312,8 @@ Public Class ClassAllgemeineFunktionen
             MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
             Insert_LogEntry(profil_id, "Unvorhergesehener Fehler bei Execute_Scalar_Oracle: " & ex.Message, Environment.UserName)
             LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
-            LOGGER.Info(" - SQL: " & vsql_statement, False)
+            LOGGER.Info(" - SQL: " & vsql_statement)
-            LOGGER.Info(" - Connection: " & vconnectionString, False)
+            LOGGER.Info(" - Connection: " & vconnectionString)
             Return 99
         End Try
     End Function

app/DD_PM_WINDREAM/ClassControlCreator.vb

@@ -422,7 +422,7 @@ Public Class ClassControlCreator
                     CURRENT_CONTROL_ID = row("GUID")
                     CURR_CON_ID = IIf(IsDBNull(row("CONNECTION_ID")), 0, row("CONNECTION_ID"))
                     If CURR_CON_ID = 0 Then
-                        LOGGER.Info(" >> CONNECTION NOT DEFINED - CTRL_GUID:" & CURRENT_CONTROL_ID, False)
+                        LOGGER.Info(" >> CONNECTION NOT DEFINED - CTRL_GUID:" & CURRENT_CONTROL_ID)
                     End If
 
                     CURR_SELECT_CONTROL = IIf(IsDBNull(row("SQL_UEBERPRUEFUNG")), "", row("SQL_UEBERPRUEFUNG"))

app/DD_PM_WINDREAM/ClassDatabase.vb

@@ -83,29 +83,29 @@ Public Class ClassDatabase
             Return Nothing
         End Try
     End Function
-    Public Shared Function Return_Datatable_CS(Select_anweisung As String, Conn_ID As Integer, Optional userInput As Boolean = False)
+    Public Shared Function Return_Datatable_CS(SQLCommand As String, Conn_ID As Integer, Optional userInput As Boolean = False)
         Try
-            Dim ConString As String = Get_ConnectionString(Conn_ID)
+            Dim oConString As String = Get_ConnectionString(Conn_ID)
-            LOGGER.Debug(">>> ReturnDatatable: " & Select_anweisung, False)
+            LOGGER.Debug(">>> ReturnDatatable: " & SQLCommand, False)
-            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim oSQLconnect As New SqlClient.SqlConnection
-            Dim SQLcommand As SqlClient.SqlCommand
+            Dim oSQLcommand As SqlClient.SqlCommand
-            SQLconnect.ConnectionString = ConString
+            oSQLconnect.ConnectionString = oConString
-            SQLconnect.Open()
+            oSQLconnect.Open()
-            SQLcommand = SQLconnect.CreateCommand
+            oSQLcommand = oSQLconnect.CreateCommand
-            SQLcommand.CommandText = Select_anweisung
+            oSQLcommand.CommandText = SQLCommand
 
-            Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
+            Dim oSQLAdapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(oSQLcommand)
-            Dim dt As DataTable = New DataTable()
+            Dim oReturnDatatable As DataTable = New DataTable()
-            adapter1.Fill(dt)
+            oSQLAdapter.Fill(oReturnDatatable)
-            SQLconnect.Close()
+            oSQLconnect.Close()
-            Return dt
+            Return oReturnDatatable
         Catch ex As Exception
             LOGGER.Error(ex)
             If userInput = True Then
-                MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
+                MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & SQLCommand, MsgBoxStyle.Critical)
             End If
             LOGGER.Info("Fehler bei Return_Datatable_CS: " & ex.Message, True)
-            LOGGER.Info("#SQL: " & Select_anweisung, False)
+            LOGGER.Info("#SQL: " & SQLCommand, False)
             Return Nothing
         End Try
     End Function

app/DD_PM_WINDREAM/ClassFinalizeDoc.vb

@@ -8,12 +8,12 @@
             If CURRENT_DT_FINAL_INDEXING.Rows.Count > 0 Then
 
                 'Jetzt finale Indexe setzen
-                LOGGER.Debug(" >> working final indices for doc: " & WMObject.aName, False)
+                LOGGER.Debug("working final indices for doc: " & WMObject.aName)
                 For Each dr As DataRow In CURRENT_DT_FINAL_INDEXING.Rows
                     Dim value As String = dr.Item("VALUE").ToString
                     Dim INDEXNAME = dr.Item("INDEXNAME").ToString
                     If value.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ###
-                        LOGGER.Debug(" >> indexing with dynamic sql...", False)
+                        LOGGER.Debug("indexing with dynamic sql...")
                         'Dim SQL_COMMAND = dr.Item("SQL_COMMAND")
                         '' Regulären Ausdruck zum Auslesen der Indexe definieren
                         'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
@@ -25,13 +25,13 @@
                         '' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
                         'For Each element As System.Text.RegularExpressions.Match In elemente
                         '    Try
-                        '        If LogErrorsOnly = False Then LOGGER.Info(" >> element in RegeX: " & element.Value, False)
+                        '        If LogErrorsOnly = False Then LOGGER.Info(" >> element in RegeX: " & element.Value)
                         '        Dim WDINDEXNAME = element.Value.Substring(2, element.Value.Length - 3)
                         '        Dim wertWD = WMObject.GetVariableValue(WDINDEXNAME)
                         '        If Not IsNothing(wertWD) Then
                         '            SQL_COMMAND = SQL_COMMAND.ToString.Replace(element.Value, wertWD)
                         '        Else
-                        '            LOGGER.Info(">>Attention: indexvalue is invalid", False)
+                        '            LOGGER.Info(">>Attention: indexvalue is invalid")
                         '        End If
                         '    Catch ex As Exception
                         '        LOGGER.Info("Unexpected Error in Checking control values for Variable SQL Result - ERROR: " & ex.Message)
@@ -41,7 +41,7 @@
                         sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement)
                         sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject)
 
-                        LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql_Statement, False)
+                        LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql_Statement)
                         Dim dynamic_value = ClassDatabase.Execute_Scalar(sql_Statement, CONNECTION_STRING, True)
                         If Not IsNothing(dynamic_value) Then
                             value = dynamic_value
@@ -66,11 +66,11 @@
                     result(0) = value
 
                     Dim oIndexType = WINDREAM.GetTypeOfIndex(INDEXNAME)
-                    LOGGER.Debug($" >> oIndexType {oIndexType.ToString}", False)
+                    LOGGER.Debug($"oIndexType {oIndexType.ToString}")
                     If oIndexType > 4000 And oIndexType < 5000 Then
                         'Hier muss nun separat als Vektorfeld indexiert werden
                         If Indexiere_VektorfeldPM(value, INDEXNAME, WMObject) = False Then
-                            LOGGER.Debug(" >> FINALER INDEX '" & INDEXNAME.Replace("[%VKT", "") & "' WURDE ERFOLGREICH GESETZT", False)
+                            LOGGER.Debug("FINALER INDEX '" & INDEXNAME.Replace("[%VKT", "") & "' WURDE ERFOLGREICH GESETZT")
                         Else
 
                             MsgBox("Unexpected error in finalindexing vektorvalue - check the log", MsgBoxStyle.Critical)
@@ -78,9 +78,9 @@
 
                         End If
                     Else
-                        LOGGER.Debug(" >> now indexing..", False)
+                        LOGGER.Debug("now indexing..")
                         If Indexiere_File(INDEXNAME, result, WMObject) = True Then
-                            LOGGER.Debug(" >> FINALER INDEX '" & INDEXNAME & "' WURDE ERFOLGREICH GESETZT", False)
+                            LOGGER.Debug("FINALER INDEX '" & INDEXNAME & "' WURDE ERFOLGREICH GESETZT")
                             LOGGER.Debug("")
                             'Nun das Logging
                             If CURRENT_PROFILE_VEKTOR_LOG <> "" Then
@@ -127,7 +127,7 @@
         'Das Array der Idnexwerte überprüfen
         If idxvalue Is Nothing = False Then
             If idxvalue.Length() > 1 Then
-                LOGGER.Debug(" >> Indexing Index '" & idxxname & "' with Arrayvalue", False)
+                LOGGER.Debug("Indexing Index '" & idxxname & "' with Arrayvalue")
                 Dim anzahl As Integer = 0
                 For Each indexvalue As String In idxvalue
                     ReDim Preserve arrValue(anzahl)
@@ -135,7 +135,7 @@
                     anzahl += 1
                 Next
             Else
-                LOGGER.Debug(" >> Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'", False)
+                LOGGER.Debug("Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'")
                 ReDim Preserve arrValue(0)
                 arrValue(0) = idxvalue(0).ToString
             End If

app/DD_PM_WINDREAM/ClassInit.vb

@@ -114,7 +114,7 @@ Public Class ClassInit
                 LICENSE_EXPIRED = True
                 LICENSE_COUNT = 0
             End If
-            LOGGER.Debug(" >> license initialized....", False)
+            LOGGER.Debug("license initialized....")
 
             LICENSE_PROFILES = split(2)
         Catch ex As Exception
@@ -147,7 +147,7 @@ Public Class ClassInit
                 CLIENT_SELECTED = 1
             End Try
 
-            LOGGER.Info(">> Username: " & USER_USERNAME, False)
+            LOGGER.Info(">> Username: " & USER_USERNAME)
 
             Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", Environment.UserName, CLIENT_SELECTED)
 
@@ -180,10 +180,10 @@ Public Class ClassInit
                 USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")
                 USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN")
                 USER_RIGHT_FILE_DELETE = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL")
-
+                USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
                 USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
 
-                LOGGER.Debug(" >> User exists....", False)
+                LOGGER.Debug("User exists....")
                 'Am System anmelden
                 Refresh_Licence()
                 'Check_User_Exists_in_PMGroups()
@@ -196,18 +196,18 @@ Public Class ClassInit
                 '    USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
                 sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Process-Manager'"
                 ClassDatabase.Execute_non_Query(sql, True)
-                LOGGER.Debug(" >> Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString, False)
+                LOGGER.Debug("Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString)
                 If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
                     MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
-                    LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!", False)
+                    LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!")
                     If USER_IS_ADMIN = False Then
                         ClassAllgemeineFunktionen.LoginOut("LOGOUT")
-                        LOGGER.Info(" - Wieder abgemeldet - START INCOMPLETE", False)
+                        LOGGER.Info(" - Wieder abgemeldet - START INCOMPLETE")
                         ERROR_STATE = "START INCOMPLETE"
                     End If
                 End If
                 'Alles OK bis hierhin...nun die FolderwatchKonfig laden
-                LOGGER.Debug(" >> Init Userlogin successfull completed....", False)
+                LOGGER.Debug("Init Userlogin successfull completed....")
             End If
         Catch ex As Exception
             LOGGER.Error(ex)

app/DD_PM_WINDREAM/ClassPMWindream.vb

@@ -126,7 +126,7 @@ Public Class ClassPMWindream
                     Dim i As Integer = 0
                     Dim indexname As String
                     If aValues.Length = 1 And aValues(0) = "" Then
-                        LOGGER.Debug(" >> Indexwert ist leer/Nothing - Keine Indexierung", False)
+                        LOGGER.Debug("Indexwert ist leer/Nothing - Keine Indexierung", False)
                     End If
                     'Jetzt jeden Indexwert durchlaufen
                     For Each aName As String In Indizes
@@ -155,13 +155,13 @@ Public Class ClassPMWindream
                             Select Case vType
                                 'Case WMObjectVariableValueTypeUndefined
                                 Case WMObjectVariableValueTypeString
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeString", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeString", False)
                                     convertValue = CStr(value)
                                 Case WMObjectVariableValueTypeInteger
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeInteger", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeInteger", False)
                                     If IsNumeric(value) = False Then
                                         frmValidator.idxerr_message = "Unerlaubte Eingabe in Numerisches Feld: " & value
-                                        LOGGER.Debug(" >> Achtung: Value " & value & " kann nicht in Zahl konvertiert werden!", False)
+                                        LOGGER.Debug("Achtung: Value " & value & " kann nicht in Zahl konvertiert werden!", False)
                                         oDocument.Save()
                                         oDocument.unlock()
                                         Return False
@@ -169,7 +169,7 @@ Public Class ClassPMWindream
                                     convertValue = CInt(value)
                                     _int = True
                                 Case WMObjectVariableValueTypeFloat
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False)
                                     Try
                                         convertValue = CDbl(value)
                                     Catch ex As Exception
@@ -181,7 +181,7 @@ Public Class ClassPMWindream
                                     End Try
 
                                 Case WMObjectVariableValueTypeFixedPoint
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint", False)
                                     Try
                                         convertValue = CDbl(value)
                                     Catch ex As Exception
@@ -194,16 +194,16 @@ Public Class ClassPMWindream
 
                                     _dbl = True
                                 Case WMObjectVariableValueTypeBoolean
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeBoolean", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeBoolean", False)
                                     convertValue = CBool(value)
                                     _bool = True
                                 Case WMObjectVariableValueTypeDate
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeDate", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeDate", False)
                                     _date = True
                                     'Dim _date As Date = value
                                     convertValue = value
                                 Case WMObjectVariableValueTypeTimeStamp
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False)
                                     convertValue = CInt(value)
                                 Case WMObjectVariableValueTypeCurrency
                                     LOGGER.Info(" >> Typ des windream-Indexes: WMObjectVariableValueTypeCurrency", False)
@@ -211,7 +211,7 @@ Public Class ClassPMWindream
                                     Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value))
                                     convertValue = aValueWrapper
                                 Case WMObjectVariableValueTypeTime
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeTime", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeTime", False)
                                     'If ((value)) Then
                                     '    convertValue = CDate(value)
                                     'Else
@@ -220,44 +220,44 @@ Public Class ClassPMWindream
                                     'Dim _date As Date = value
                                     convertValue = convertValue '*_date.ToShortTimeString
                                 Case WMObjectVariableValueTypeFloat
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False)
                                     convertValue = CStr(value)
                                 Case WMObjectVariableValueTypeVariant
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeVariant", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeVariant", False)
                                     convertValue = CStr(value)
                                 Case WMObjectVariableValueTypeFulltext
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: WMObjectVariableValueTypeFulltext", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFulltext", False)
                                     convertValue = CStr(value)
                                 Case 4100
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: 4100 Vektor Boolean", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: 4100 Vektor Boolean", False)
                                     vektor = True
                                 Case 4101
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: 4101 Vektor Date", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: 4101 Vektor Date", False)
                                     vektor = True
                                 Case 4104
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: 4104 Vektor Currency", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: 4104 Vektor Currency", False)
                                     vektor = True
                                 Case 4097
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: 4097 Vektor alphanumerisch", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: 4097 Vektor alphanumerisch", False)
                                     vektor = True
                                 Case 4098
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: 4098 Vektor Numerisch", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: 4098 Vektor Numerisch", False)
                                     vektor = True
                                 Case 4099
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: 4099 Vektor Kommazahl", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: 4099 Vektor Kommazahl", False)
                                     vektor = True
                                 Case 36865
-                                    LOGGER.Debug(" >> Typ des windream-Indexes: 36865 Vektor alphanumerisch", False)
+                                    LOGGER.Debug("Typ des windream-Indexes: 36865 Vektor alphanumerisch", False)
                                     vektor = True
                                 Case Else
-                                    LOGGER.Debug(" >> Typ des windream-Indexes konnte nicht bestimmt werden!", False)
+                                    LOGGER.Debug("Typ des windream-Indexes konnte nicht bestimmt werden!", False)
-                                    LOGGER.Debug(" >> Versuch des Auslesens (vType): " & vType)
+                                    LOGGER.Debug("Versuch des Auslesens (vType): " & vType)
                                     'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else")
                                     convertValue = ""
                             End Select
                             If vektor = False Then
                                 If convertValue.ToString Is Nothing = False Then
-                                    LOGGER.Debug(" >> Konvertierter Wert: '" & convertValue.ToString & "'", False)
+                                    LOGGER.Debug("Konvertierter Wert: '" & convertValue.ToString & "'", False)
                                 End If
                             End If
                             '############################################################################################
@@ -266,7 +266,7 @@ Public Class ClassPMWindream
                             If vektor = False Then
                                 If convertValue.ToString Is Nothing = False Then
                                     Try
-                                        LOGGER.Debug(" >> Jetzt indexieren: oDocument.SetVariableValue(" & aName & ", " & convertValue.ToString & ")", False)
+                                        LOGGER.Debug("Jetzt indexieren: oDocument.SetVariableValue(" & aName & ", " & convertValue.ToString & ")", False)
                                     Catch ex As Exception
                                         LOGGER.Error(ex)
                                         LOGGER.Info(" >> Unexpected Error in Logging SetVariableValue for " & aName & ": " & ex.Message, False)
@@ -290,13 +290,13 @@ Public Class ClassPMWindream
                                     Else
                                         oDocument.SetVariableValue(aName, convertValue)
                                     End If
-                                    LOGGER.Debug(" >> Index '" & aName & "' wurde geschrieben", False)
+                                    LOGGER.Debug("Index '" & aName & "' wurde geschrieben", False)
                                 Else
                                     LOGGER.Info(" >> Kein Indexwert vorhanden", False)
                                 End If
                             Else
                                 'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
-                                LOGGER.Debug(" >> VEKTORFELD: Vorbereiten des Arrays", False)
+                                LOGGER.Debug("VEKTORFELD: Vorbereiten des Arrays", False)
                                 Dim myArray()
                                 'Dim anz As Integer = 0
                                 'For Each obj In aValues
@@ -403,7 +403,7 @@ Public Class ClassPMWindream
 
                                 'Jetzt die Nachindexierung für Vektor-Felder
                                 oDocument.SetVariableValue(aName, myArray)
-                                LOGGER.Debug(" >> 'SetVariableValue' für VEKTOR erfolgreich", False)
+                                LOGGER.Debug("'SetVariableValue' für VEKTOR erfolgreich", False)
                             End If
                         End If
                         i += 1

app/DD_PM_WINDREAM/ClassUser.vb

@@ -5,7 +5,7 @@
             Dim DT As DataTable = ClassDatabase.Return_Datatable(sel)
             If Not IsNothing(DT) Then
                 If DT.Rows.Count = 1 Then
-                    LOGGER.Debug(" >> User is in UM_ADMINS-Group....", False)
+                    LOGGER.Debug("User is in UM_ADMINS-Group....")
                     Return True
                 Else
                     Return False

app/DD_PM_WINDREAM/ClassWindream_allgemein.vb

@@ -51,13 +51,13 @@ Public Class ClassWindream_allgemein
             Try
                 ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
                 Me.oSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
-                LOGGER.Debug(" >> windream-Server: '" & Me.GetCurrentServer & "'", False)
+                LOGGER.Debug("windream-Server: '" & Me.GetCurrentServer & "'")
                 ' Connection-Objekt instanziieren
                 Me.oConnect = CreateObject("Windream.WMConnect")
                 'MsgBox("windrem init 'ed")
             Catch ex As Exception
 LOGGER.Error(ex)
-                LOGGER.Debug($"Error while creating WMConnect Object: {vbCrLf}{ex.Message}", False)
+                LOGGER.Debug($"Error while creating WMConnect Object: {vbCrLf}{ex.Message}")
                 Return False
             End Try
 
@@ -86,7 +86,7 @@ LOGGER.Error(ex)
                 End If
 
                 If LOG_ERRORS_ONLY = False Then
-                    LOGGER.Info(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'", False)
+                    LOGGER.Info(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'")
                 End If
 
                 ' AUSGABE VON SYSTEMINFORMATIONEN
@@ -117,7 +117,7 @@ LOGGER.Error(ex)
 
             End If
 
-            LOGGER.Debug($" >> windream login successful", False)
+            LOGGER.Debug($"windream login successful")
             Return True
 
         Catch ex As Exception
@@ -142,7 +142,7 @@ LOGGER.Error(ex)
 
             If WMSESSION_STARTSTOP_STARTUP = True Then
                 'And userExistsInServerUserGroup Is Nothing
-                LOGGER.Info(">> WINDREAM-Start on ApplicationStart is active!", False)
+                LOGGER.Info(">> WINDREAM-Start on ApplicationStart is active!")
 
                 Dim owindreamControlCenter = CreateObject("Wmcc.ControlCenter")
                 Dim owindreamIndexService = CreateObject("WMIndexServer.WMIdxSvControl")

app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj

@@ -221,6 +221,7 @@
     <Compile Include="ClassUser.vb" />
     <Compile Include="ClassWorkDoc.vb" />
     <Compile Include="clsPatterns.vb" />
+    <Compile Include="clsWMDocGrid.vb" />
     <Compile Include="FinalIndexDataSet.Designer.vb">
       <AutoGen>True</AutoGen>
       <DesignTime>True</DesignTime>
@@ -612,9 +613,6 @@
   <ItemGroup>
     <None Include="Resources\lbl.PNG" />
   </ItemGroup>
-  <ItemGroup>
-    <None Include="Resources\txt.PNG" />
-  </ItemGroup>
   <ItemGroup>
     <None Include="Resources\key_go.png" />
   </ItemGroup>
@@ -741,6 +739,21 @@
   <ItemGroup>
     <Content Include="DD_Icons_ICO_PMANAGER_48px.ico" />
     <Content Include="PM_ohne_slogan_128px.ico" />
+    <None Include="Resources\search_glyph.png" />
+    <None Include="Resources\ID_FILE_PAGE_SETUP.png" />
+    <None Include="Resources\Properties.png" />
+    <None Include="Resources\OpenFileDialog_692.png" />
+    <None Include="Resources\txt.png" />
+    <None Include="Resources\_blank.png" />
+    <None Include="Resources\pdf.png" />
+    <None Include="Resources\dxf.png" />
+    <None Include="Resources\dwg.png" />
+    <None Include="Resources\ppt.png" />
+    <None Include="Resources\xls.png" />
+    <None Include="Resources\doc.png" />
+    <None Include="Resources\doc_pdf.png" />
+    <None Include="Resources\doc_text_image.png" />
+    <None Include="Resources\doc_excel_csv.png" />
     <None Include="Resources\Symbols_Information_16xLG.png" />
     <None Include="Resources\action_add_16xLG.png" />
     <None Include="Resources\cancel.png" />

app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb

@@ -31,6 +31,7 @@ Module ModuleRuntimeVariables
     Public USER_SHORTNAME
     Public USER_EMAIL
     Public USER_LANGUAGE As String = "de-DE"
+    Public USER_DATE_FORMAT As String
     Public USER_EXISTS = False
     Public USER_IN_MODULE = False
     Public USER_RIGHT_FILE_DELETE As Boolean = False
@@ -65,7 +66,8 @@ Module ModuleRuntimeVariables
 
     Public CURRENT_DT_FINAL_INDEXING As DataTable
     Public CURRENT_DT_PROFILE As DataTable
-    Public CURRENT_DT_PROFILE_SEARCHES_RT As DataTable
+    Public CURRENT_DT_PROFILE_SEARCHES_DOC As DataTable
+    Public CURRENT_DT_PROFILE_SEARCHES_SQL As DataTable
     Public CURRENT_INDEX_ARRAY(100, 250) As String
     Public CURRENT_DT_VW_PROFILE_USER As DataTable
 

app/DD_PM_WINDREAM/My Project/Resources.Designer.vb

@@ -60,6 +60,16 @@ Namespace My.Resources
             End Set
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property _blank() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("_blank", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -330,6 +340,46 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property doc() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("doc", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property doc_excel_csv() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("doc_excel_csv", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property doc_pdf() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("doc_pdf", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property doc_text_image() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("doc_text_image", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -340,6 +390,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property dwg() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("dwg", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property dxf() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("dxf", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -440,6 +510,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property ID_FILE_PAGE_SETUP() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ID_FILE_PAGE_SETUP", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -530,6 +610,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property OpenFileDialog_692() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("OpenFileDialog_692", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -550,6 +640,36 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property pdf() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("pdf", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property ppt() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ppt", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Properties() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Properties", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -630,6 +750,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property search_glyph() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("search_glyph", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -730,6 +860,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property xls() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("xls", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

app/DD_PM_WINDREAM/My Project/Resources.resx

@@ -127,21 +127,33 @@
   <data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ComboBox_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ComboBox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="database_go1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="GoToDeclaration_5576" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\GoToDeclaration_5576.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="DateOrTimePicker_675" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="ampel-rot" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ampel-rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="doc" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\doc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="group_key" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\group_key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -151,9 +163,15 @@
   <data name="Checked-outforEdit_Color_13297" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Checked-outforEdit_Color_13297.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Symbols_Information_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Symbols_Information_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="computer_edit" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\computer_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="_blank" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\_blank.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="zoom_in" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\zoom_in.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -172,12 +190,15 @@
   <data name="table_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\table_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="zoom_out" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\txt.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="checkbox_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\checkbox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="doc_excel_csv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\doc_excel_csv.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="database_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -196,6 +217,18 @@
   <data name="TextBox_708" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\TextBox_708.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="xls" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\xls.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="dxf" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\dxf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ppt" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Properties" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Properties.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="flag_pink" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\flag_pink.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -205,9 +238,6 @@
   <data name="world_link" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\world_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="DateOrTimePicker_675" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\DateOrTimePicker_675.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Files_7954" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Files_7954.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -229,6 +259,9 @@
   <data name="A_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\A_1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="doc_pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\doc_pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="book_open" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\book_open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -250,12 +283,12 @@
   <data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="txt" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\txt.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="bullet_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bullet_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="dwg" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\dwg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="page_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\page_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -265,11 +298,8 @@
   <data name="lbl" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\lbl.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="ComboBox_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="ID_FILE_PAGE_SETUP" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\ComboBox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="flag_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\flag_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="flag_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\flag_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -286,12 +316,21 @@
   <data name="flag_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\flag_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="flag_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\flag_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="OpenFileDialog_692" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\OpenFileDialog_692.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="doc_text_image" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\doc_text_image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="ampel-gelb" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ampel-gelb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -310,6 +349,9 @@
   <data name="cmb" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\cmb.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="zoom_out" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="bullet_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\bullet_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -325,7 +367,7 @@
   <data name="user_red" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\user_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Symbols_Information_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="search_glyph" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Symbols_Information_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\search_glyph.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

app/DD_PM_WINDREAM/My Project/Settings.Designer.vb

@@ -228,6 +228,18 @@ Namespace My
                 Me("frmValidatorSearchPosition") = value
             End Set
         End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("558")>  _
+        Public Property frmValSearchSplitterDistance() As Integer
+            Get
+                Return CType(Me("frmValSearchSplitterDistance"),Integer)
+            End Get
+            Set
+                Me("frmValSearchSplitterDistance") = value
+            End Set
+        End Property
     End Class
 End Namespace
 

app/DD_PM_WINDREAM/My Project/Settings.settings

@@ -49,5 +49,8 @@
     <Setting Name="frmValidatorSearchPosition" Type="System.Drawing.Point" Scope="User">
       <Value Profile="(Default)">0, 0</Value>
     </Setting>
+    <Setting Name="frmValSearchSplitterDistance" Type="System.Int32" Scope="User">
+      <Value Profile="(Default)">558</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

app/DD_PM_WINDREAM/clsWMDocGrid.vb

@@ -0,0 +1,232 @@
+Imports DevExpress.Utils
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Columns
+Imports DevExpress.XtraGrid.Views.Grid
+Imports DevExpress.XtraEditors
+Imports DevExpress.XtraEditors.Repository
+Imports DevExpress.XtraGrid.Views.Base
+Imports DevExpress.XtraEditors.Controls
+
+Public Class clsWMDocGrid
+    '  Private Shared _Helper As ClassHelper
+    Public Shared SELECTED_DOC_PATH As String
+    'Public Shared RESULT_OBJECTTYPE As String
+    Public Shared SELECTED_INWORK As Boolean
+    Public Shared SELECTED_DOC_ID As Integer
+    Public Shared SELECTED_DOC_RIGHT As Integer
+    'Public Shared RESULT_DISPLAYNAME As String
+    Public Shared RESULT_CONFIG_IDS As Hashtable
+    Private Shared DATE_COLUMNS As New List(Of String)
+    Private Shared DATE_COLUMNS_CONFIG As New List(Of String)
+    Public Shared ActiveDocGrid As GridView
+
+    Public Shared DTDocuments As DataTable
+    Private Shared DT_DROPDOWN_ITEMS As DataTable
+
+    Private Shared _dropdownValueChangedHandler As EventHandler
+    Private Shared _datepickerValueChangedHandler As EventHandler
+    Private Shared _textValueChangedHandler As EventHandler
+    Private Shared _checkValueChangedHandler As EventHandler
+
+    Private Shared Function Init_Table()
+        Try
+            Dim oNewDataTable As New DataTable
+            oNewDataTable.TableName = "TBSELECTED_FILES"
+            ' Create two columns, ID and Name.
+            oNewDataTable.Columns.Add("DOC_ID", GetType(Integer))
+            oNewDataTable.Columns.Add("DOC_PATH", GetType(System.String))
+            oNewDataTable.Columns.Add("OBJECTTYPE", GetType(System.String))
+            oNewDataTable.Columns.Add("INWORK", GetType(System.Boolean))
+            oNewDataTable.Columns.Add("DISPLAYNAME", GetType(System.String))
+            oNewDataTable.Columns.Add("ACCESS_RIGHT", GetType(Integer))
+            DTDocuments = oNewDataTable
+            Return True
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            DTDocuments = Nothing
+            Return False
+        End Try
+
+    End Function
+    Public Shared Sub GetDocItems()
+
+        '_Helper = New ClassHelper
+        SELECTED_DOC_ID = 0
+        If Init_Table() = True Then
+
+            SELECTED_DOC_ID = 0
+            LOGGER.Debug("gridView.SelectedRowsCount: " & ActiveDocGrid.SelectedRowsCount.ToString)
+            If ActiveDocGrid.SelectedRowsCount >= 1 Then
+                DTDocuments.Clear()
+                For Each row In ActiveDocGrid.GetSelectedRows
+                    Dim newRow As DataRow = DTDocuments.NewRow()
+                    Try
+
+                        Dim DOC_ID = ActiveDocGrid.GetRowCellValue(row, "DocID")
+                        SELECTED_DOC_ID = DOC_ID
+                        newRow("DOC_ID") = ActiveDocGrid.GetRowCellValue(row, "DocID")
+                    Catch ex As Exception
+                        newRow("DOC_ID") = 0
+                        SELECTED_DOC_ID = 0
+                    End Try
+                    Try
+                        SELECTED_DOC_RIGHT = ActiveDocGrid.GetRowCellValue(row, "ACCESS_RIGHT")
+                        newRow("ACCESS_RIGHT") = ActiveDocGrid.GetRowCellValue(row, SELECTED_DOC_RIGHT)
+                    Catch ex As Exception
+                        newRow("ACCESS_RIGHT") = 1
+                    End Try
+                    Try
+                        SELECTED_DOC_PATH = ActiveDocGrid.GetRowCellValue(row, "FULL_FILENAME")
+                        newRow("DOC_PATH") = ActiveDocGrid.GetRowCellValue(row, "FULL_FILENAME")
+                    Catch ex As Exception
+                        newRow("DOC_PATH") = ""
+                    End Try
+                    Try
+                        newRow("OBJECTTYPE") = ActiveDocGrid.GetRowCellValue(row, "OBJECTTYPE")
+                    Catch ex As Exception
+                        newRow("OBJECTTYPE") = ""
+                    End Try
+                    Try
+                        newRow("INWORK") = ActiveDocGrid.GetRowCellValue(row, "in work?")
+                        SELECTED_INWORK = ActiveDocGrid.GetRowCellValue(row, "in work?")
+                    Catch ex As Exception
+                        newRow("INWORK") = False
+                        SELECTED_INWORK = False
+                    End Try
+                    Try
+                        Dim dpn = ActiveDocGrid.GetRowCellValue(row, "Displayname")
+                        If IsDBNull(dpn) Or IsNothing(dpn) Then
+                            dpn = ""
+                        End If
+                        newRow("DISPLAYNAME") = dpn
+                    Catch ex As Exception
+                        newRow("DISPLAYNAME") = ""
+                    End Try
+                    DTDocuments.Rows.Add(newRow)
+                    DTDocuments.AcceptChanges()
+                Next
+            Else
+                Dim newRow As DataRow = DTDocuments.NewRow()
+                Try
+                    Dim DOC_ID = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
+                    SELECTED_DOC_ID = DOC_ID
+                    newRow("DOC_ID") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
+                Catch ex As Exception
+                    newRow("DOC_ID") = 0
+                    SELECTED_DOC_ID = 0
+                End Try
+                Try
+                    SELECTED_DOC_PATH = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("FULL_FILENAME"))
+                    newRow("DOC_PATH") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("FULL_FILENAME"))
+                Catch ex As Exception
+                    newRow("DOC_PATH") = ""
+                End Try
+                Try
+                    newRow("OBJECTTYPE") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("OBJECTTYPE"))
+                Catch ex As Exception
+                    newRow("OBJECTTYPE") = ""
+                End Try
+                Try
+                    newRow("INWORK") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("in work?"))
+                    SELECTED_INWORK = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("in work?"))
+                Catch ex As Exception
+                    newRow("INWORK") = False
+                    SELECTED_INWORK = False
+                End Try
+                Try
+                    Dim dpn = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("Displayname"))
+                    If IsDBNull(dpn) Or IsNothing(dpn) Then
+                        dpn = ""
+                    End If
+                    newRow("DISPLAYNAME") = dpn
+                Catch ex As Exception
+                    newRow("DISPLAYNAME") = ""
+                End Try
+                DTDocuments.Rows.Add(newRow)
+                DTDocuments.AcceptChanges()
+            End If
+        End If
+    End Sub
+
+
+
+    Public Class WindreamDocGridComboboxItem
+        Implements IConvertible
+
+        Public ConfigID As Integer
+        Public Value As String
+
+        Public Overrides Function ToString() As String
+            Return Me.Value
+        End Function
+
+        Public Function ToString1(provider As IFormatProvider) As String Implements IConvertible.ToString
+            Return Me.Value
+        End Function
+
+        Public Function GetTypeCode() As TypeCode Implements IConvertible.GetTypeCode
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToBoolean(provider As IFormatProvider) As Boolean Implements IConvertible.ToBoolean
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToByte(provider As IFormatProvider) As Byte Implements IConvertible.ToByte
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToChar(provider As IFormatProvider) As Char Implements IConvertible.ToChar
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToDateTime(provider As IFormatProvider) As Date Implements IConvertible.ToDateTime
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToDecimal(provider As IFormatProvider) As Decimal Implements IConvertible.ToDecimal
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToDouble(provider As IFormatProvider) As Double Implements IConvertible.ToDouble
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToInt16(provider As IFormatProvider) As Short Implements IConvertible.ToInt16
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToInt32(provider As IFormatProvider) As Integer Implements IConvertible.ToInt32
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToInt64(provider As IFormatProvider) As Long Implements IConvertible.ToInt64
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToSByte(provider As IFormatProvider) As SByte Implements IConvertible.ToSByte
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToSingle(provider As IFormatProvider) As Single Implements IConvertible.ToSingle
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToType(conversionType As Type, provider As IFormatProvider) As Object Implements IConvertible.ToType
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToUInt16(provider As IFormatProvider) As UShort Implements IConvertible.ToUInt16
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToUInt32(provider As IFormatProvider) As UInteger Implements IConvertible.ToUInt32
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToUInt64(provider As IFormatProvider) As ULong Implements IConvertible.ToUInt64
+            Throw New NotImplementedException
+        End Function
+    End Class
+
+End Class

app/DD_PM_WINDREAM/frmMain.Designer.vb

@@ -74,6 +74,7 @@ Partial Class frmMain
         Me.CMFileStart = New System.Windows.Forms.ToolStripMenuItem()
         Me.TabellenlayoutZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.tsmiMarkedFilesFinish = New System.Windows.Forms.ToolStripMenuItem()
+        Me.GroupToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.GridView_Docs = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.lblViewType = New System.Windows.Forms.Label()
         Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl()
@@ -92,7 +93,6 @@ Partial Class frmMain
         Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
         Me.TimerReminder = New System.Windows.Forms.Timer(Me.components)
-        Me.GroupToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerDashboard.Panel1.SuspendLayout()
         Me.SplitContainerDashboard.Panel2.SuspendLayout()
@@ -492,6 +492,11 @@ Partial Class frmMain
         resources.ApplyResources(Me.tsmiMarkedFilesFinish, "tsmiMarkedFilesFinish")
         Me.tsmiMarkedFilesFinish.Name = "tsmiMarkedFilesFinish"
         '
+        'GroupToolStripMenuItem
+        '
+        Me.GroupToolStripMenuItem.Name = "GroupToolStripMenuItem"
+        resources.ApplyResources(Me.GroupToolStripMenuItem, "GroupToolStripMenuItem")
+        '
         'GridView_Docs
         '
         Me.GridView_Docs.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView_Docs.Appearance.EvenRow.BackColor"), System.Drawing.Color)
@@ -607,11 +612,6 @@ Partial Class frmMain
         'TimerReminder
         '
         '
-        'GroupToolStripMenuItem
-        '
-        Me.GroupToolStripMenuItem.Name = "GroupToolStripMenuItem"
-        resources.ApplyResources(Me.GroupToolStripMenuItem, "GroupToolStripMenuItem")
-        '
         'frmMain
         '
         resources.ApplyResources(Me, "$this")

app/DD_PM_WINDREAM/frmMain.resx

@@ -488,7 +488,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
-        CAAAAk1TRnQBSQFMAgEBAgEAAcQBAwHEAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CAAAAk1TRnQBSQFMAgEBAgEAAcwBAwHMAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -915,7 +915,7 @@
     <value>Group</value>
   </data>
   <data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
-    <value>270, 156</value>
+    <value>270, 134</value>
   </data>
   <data name="&gt;&gt;ContextMenuGrid.Name" xml:space="preserve">
     <value>ContextMenuGrid</value>
@@ -1840,6 +1840,12 @@
   <data name="&gt;&gt;tsmiMarkedFilesFinish.Type" xml:space="preserve">
     <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
+  <data name="&gt;&gt;GroupToolStripMenuItem.Name" xml:space="preserve">
+    <value>GroupToolStripMenuItem</value>
+  </data>
+  <data name="&gt;&gt;GroupToolStripMenuItem.Type" xml:space="preserve">
+    <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
   <data name="&gt;&gt;GridView_Docs.Name" xml:space="preserve">
     <value>GridView_Docs</value>
   </data>
@@ -1930,12 +1936,6 @@
   <data name="&gt;&gt;TimerReminder.Type" xml:space="preserve">
     <value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="&gt;&gt;GroupToolStripMenuItem.Name" xml:space="preserve">
-    <value>GroupToolStripMenuItem</value>
-  </data>
-  <data name="&gt;&gt;GroupToolStripMenuItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmMain</value>
   </data>

app/DD_PM_WINDREAM/frmMain.vb

@@ -62,7 +62,7 @@ Public Class frmMain
     End Sub
 
     Private Sub frmMain_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        LOGGER.Debug(" >> Initializing MainForm....", False)
+        LOGGER.Debug("Initializing MainForm....", False)
         Try
             UserLookAndFeel.Default.SetSkinStyle("VS2010")
         Catch ex As Exception
@@ -89,7 +89,7 @@ Public Class frmMain
         If Refresh_ConnectionString() = True Then
             Try
                 tslblLicenses.Text = "Anzahl Lizenzen: " & LICENSE_COUNT
-                LOGGER.Debug(" >> Initializing MainForm....", False)
+                LOGGER.Debug("Initializing MainForm....", False)
                 If ERROR_STATE = "NO USER" Then
                     MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt!" & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
                     Me.Close()
@@ -162,7 +162,7 @@ Public Class frmMain
                 MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
             End Try
 
-            LOGGER.Debug(" >> MainForm initialized!", False)
+            LOGGER.Debug("MainForm initialized!", False)
         End If
 
     End Sub
@@ -850,12 +850,13 @@ Public Class frmMain
     End Sub
 
     Sub Load_Profil_from_Grid(ID As Integer)
-        Try
+        'Try
-            Me.Visible = False
+        Me.Visible = False
             CURRENT_ProfilGUID = ID
             CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING)
             CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
-            CURRENT_DT_PROFILE_SEARCHES_RT = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND ACTIVE = 1", CURRENT_ProfilGUID))
+            CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
+            CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
             My.Settings.Save()
 
             If TimerRefresh.Enabled Then
@@ -863,10 +864,10 @@ Public Class frmMain
             End If
 
             frmValidator.ShowDialog()
-        Catch ex As Exception
+        'Catch ex As Exception
-            LOGGER.Error(ex)
+        '    LOGGER.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Critical)
+        '    MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ")
-        End Try
+        'End Try
         Me.Visible = True
         Decide_Load()
 
@@ -899,8 +900,8 @@ Public Class frmMain
         Item_Scope()
     End Sub
     Private Sub Item_Scope()
-        Try
+        'Try
-            CURRENT_JUMP_DOC_GUID = 0
+        CURRENT_JUMP_DOC_GUID = 0
             Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
             Dim groupRowText
             Dim PROFIL_ID
@@ -973,10 +974,10 @@ Public Class frmMain
 
 
             End If
-        Catch ex As Exception
+        'Catch ex As Exception
-            LOGGER.Error(ex)
+        '    LOGGER.Error(ex)
-            MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
+        '    MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
-        End Try
+        'End Try
     End Sub
     Private Function Init_windream()
         Try
@@ -987,7 +988,7 @@ Public Class frmMain
             WINDREAM = New ClassPMWindream()
             WINDREAM.Create_Session()
 
-            LOGGER.Debug(" >> windream initialized", False)
+            LOGGER.Debug("windream initialized", False)
             Return True
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -1187,7 +1188,7 @@ Public Class frmMain
                     Dim oindex As Integer = 0
                     If Not IsNothing(DTGRID_GROUPS) Then
                         For Each oGridGroup As DataRow In DTGRID_GROUPS.Rows
-                            LOGGER.Debug($" >> Addig group [{oGridGroup.Item("GROUPNAME")}] for Grid...", False)
+                            LOGGER.Debug($"Addig group [{oGridGroup.Item("GROUPNAME")}] for Grid...", False)
                             GridView_Docs.Columns.Item(oGridGroup.Item("GROUPNAME")).GroupIndex = oindex
                             oindex += 1
                         Next
@@ -1201,7 +1202,7 @@ Public Class frmMain
                     GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
                     For index = 0 To GridView_Docs.GroupCount - 1
                         Dim v = GridView_Docs.GroupedColumns(index).ToString
-                        LOGGER.Debug($" >> Addig tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...", False)
+                        LOGGER.Debug($"Addig tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...", False)
                         GridView_Docs.GroupedColumns(index).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
                     Next
 

app/DD_PM_WINDREAM/frmMassValidator.vb

@@ -35,7 +35,7 @@ Public Class frmMassValidator
             '_windreamPM.Create_Session()
 
 
-            LOGGER.Debug("windream initialized frmMassValidator", False)
+            LOGGER.Debug("windream initialized frmMassValidator")
 
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -54,7 +54,7 @@ Public Class frmMassValidator
         End If
         Try
             DT_PROFILE_CONTROLS = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_PROFILE_CONTROLS WHERE CTRL_TYPE <> 'TABLE' AND SQL_UEBERPRUEFUNG NOT LIKE '%WMI%' AND PROFIL_ID = " & CURRENT_ProfilGUID)
-            LOGGER.Debug(" >> Profile Data geladen", False)
+            LOGGER.Debug("Profile Data geladen")
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox("Error LOADING profile-data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
@@ -97,10 +97,10 @@ Public Class frmMassValidator
 
                 Next
                 If LOG_ERRORS_ONLY = False Then
-                    LOGGER.Info(" >> Profildaten gespeichert", False)
+                    LOGGER.Info(" >> Profildaten gespeichert")
-                    LOGGER.Info(" >> WD_Search: " & WM_SEARCH, False)
+                    LOGGER.Info(" >> WD_Search: " & WM_SEARCH)
-                    LOGGER.Info(" >> finalProfile: " & FINAL_PROFILE, False)
+                    LOGGER.Info(" >> finalProfile: " & FINAL_PROFILE)
-                    LOGGER.Info(" >> Move2Folder: " & MOVE2Folder, False)
+                    LOGGER.Info(" >> Move2Folder: " & MOVE2Folder)
 
                 End If
 
@@ -135,7 +135,7 @@ Public Class frmMassValidator
 
             Select Case dr.Item("CTRL_TYPE").ToString.ToUpper
                 Case "TXT"
-                    LOGGER.Debug(" >> Versuch TXT zu laden", False)
+                    LOGGER.Debug("Versuch TXT zu laden")
                     Dim txt As TextBox = ClassControlCreator.CreateExistingTextbox(dr, False)
 
                     AddHandler txt.GotFocus, AddressOf OnTextBoxFocus
@@ -144,10 +144,10 @@ Public Class frmMassValidator
 
                     ctrl = txt
                 Case "LBL"
-                    LOGGER.Debug(" >> Versuch LBL zu laden", False)
+                    LOGGER.Debug("Versuch LBL zu laden")
                     ctrl = ClassControlCreator.CreateExistingLabel(dr, False)
                 Case "CMB"
-                    LOGGER.Debug(" >> Versuch CMB zu laden", False)
+                    LOGGER.Debug("Versuch CMB zu laden")
 
                     Dim cmb = ClassControlCreator.CreateExistingCombobox(dr, False)
 
@@ -162,7 +162,7 @@ Public Class frmMassValidator
                         If CURR_CON_ID > 0 Then
                             Dim commandsql = CURR_SELECT_CONTROL
                             If commandsql <> "" Then
-                                LOGGER.Debug(" >> ConID > 0 And commandsql <> ''", False)
+                                LOGGER.Debug("ConID > 0 And commandsql <> ''")
                                 Dim connectionString As String
 
                                 Dim ConRow As DataRow() = ClassControlCreator.GET_CONNECTION_INFO(CURR_CON_ID)
@@ -180,7 +180,7 @@ Public Class frmMassValidator
                                             Else
                                                 connectionString = "Data Source=" & row("SERVER") & ";Initial Catalog= " & row("DATENBANK") & ";User Id=" & row("USERNAME") & ";Password=" & row("PASSWORD") & ";"
                                             End If
-                                            LOGGER.Debug(" >> ConnString Sql-Server:  " & connectionString)
+                                            LOGGER.Debug("ConnString Sql-Server:  " & connectionString)
                                         Case "oracle"
                                             CURR_SQL_PROVIDER = "oracle"
                                             Dim conn As New OracleConnectionStringBuilder
@@ -199,7 +199,7 @@ Public Class frmMassValidator
 
                                             connectionString = connstr
                                         Case Else
-                                            LOGGER.Info("ConnectionString-Type not integrated", False)
+                                            LOGGER.Info("ConnectionString-Type not integrated")
                                             MsgBox("ConnectionString-Type not integrated", MsgBoxStyle.Critical)
                                             Exit Sub
                                     End Select
@@ -243,11 +243,11 @@ Public Class frmMassValidator
                                     End Try
                                 End If
                             Else
-                                LOGGER.Debug(" >> Else Row 571", False)
+                                LOGGER.Debug("Else Row 571")
                             End If
                         Else
                             If CURR_CHOICE_LIST <> "" Then
-                                LOGGER.Debug(" >> In add_ComboBox - AListe: " & CURR_CHOICE_LIST, False)
+                                LOGGER.Debug("In add_ComboBox - AListe: " & CURR_CHOICE_LIST)
                                 Dim liste = WINDREAM.GetValuesfromAuswahlliste(CURR_CHOICE_LIST)
                                 If liste IsNot Nothing Then
                                     cmb.Items.Add("")
@@ -277,21 +277,21 @@ Public Class frmMassValidator
 
                     ctrl = cmb
                 Case "DTP"
-                    LOGGER.Debug(" >> Versuch DTP zu laden", False)
+                    LOGGER.Debug("Versuch DTP zu laden")
                     ctrl = ClassControlCreator.CreateExistingDatepicker(dr, False)
                 Case "DGV"
-                    LOGGER.Debug(" >> Versuch DGV zu laden", False)
+                    LOGGER.Debug("Versuch DGV zu laden")
                     Dim dgv = ClassControlCreator.CreateExistingDataGridView(dr, False)
 
                     AddHandler dgv.RowValidating, AddressOf onDGVRowValidating
 
                     ctrl = dgv
                 Case "CHK"
-                    LOGGER.Debug(" >> Versuch Checkbox zu laden", False)
+                    LOGGER.Debug("Versuch Checkbox zu laden")
 
                     ctrl = ClassControlCreator.CreateExisingCheckbox(dr, False)
                     'Case "TABLE"
-                    '    If LogErrorsOnly = False Then LOGGER.Info(" >> Versuch Tabelle zu laden", False)
+                    '    If LogErrorsOnly = False Then LOGGER.Info(" >> Versuch Tabelle zu laden")
 
                     '    For Each c As DataColumn In DT_PROFILE_CONTROLS.Columns
                     '        '... = c.ColumnName
@@ -301,10 +301,10 @@ Public Class frmMassValidator
                     '                                                                       Where r.CONTROL_ID = dr.Item("GUID")
                     '                                                                       Select r).ToList()
 
-                    '    ctrl = ClassControlCreator.CreateExistingTable(dr, columns, False)
+                    '    ctrl = ClassControlCreator.CreateExistingTable(dr, columns)
 
                 Case "LINE"
-                    LOGGER.Debug(" >> Versuch Linie zu laden", False)
+                    LOGGER.Debug("Versuch Linie zu laden")
 
                     ctrl = ClassControlCreator.CreateExistingLine(dr, False)
             End Select
@@ -320,15 +320,15 @@ Public Class frmMassValidator
 
             LoadSimpleData(ctrl, dr.Item("GUID"))
         Next
-        LOGGER.Debug(" >> Controls geladen", False)
+        LOGGER.Debug("Controls geladen")
-        LOGGER.Info("", False)
+        LOGGER.Info("")
         CTRLS_Loaded = True
         FillIndexValues()
         'Catch ex As Exception
         '    If LogErrorsOnly = False Then MsgBox("Error Load_Controls: " & ex.Message, MsgBoxStyle.Critical, "Attention error:")
         '    ' allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Error Load_Controls: " & ex.Message, Environment.UserName)
         '    LOGGER.Info("Unvorhergesehener Fehler bei Load_Controls:" & ex.Message)
-        '    LOGGER.Info("", False)
+        '    LOGGER.Info("")
 
         'End Try
 
@@ -357,7 +357,7 @@ Public Class frmMassValidator
                 Dim defaultValue As String = NotNull(controlRow.Item("DEFAULT_VALUE"), String.Empty)
                 indexname = idxname
                 Dim LoadIDX As Boolean = controlRow.Item("LOAD_IDX_VALUE")
-                LOGGER.Debug(" >> INDEX: " & idxname & " - CONTROLNAME: " & inctrl.Name & " - LOAD IDXVALUES: " & LoadIDX.ToString, False)
+                LOGGER.Debug("INDEX: " & idxname & " - CONTROLNAME: " & inctrl.Name & " - LOAD IDXVALUES: " & LoadIDX.ToString)
                 Dim wertWD
                 Select Case Type
                     Case "System.Windows.Forms.TextBox"
@@ -371,7 +371,7 @@ Public Class frmMassValidator
                                 If LoadIDX = False Or idxname = "DD PM-ONLY FOR DISPLAY" Then
                                     ' Wenn kein Index exisitiert, defaultValue laden
                                     inctrl.Text = defaultValue
-                                    LOGGER.Debug(" >> Indexwert soll nicht geladen werden.", False)
+                                    LOGGER.Debug("Indexwert soll nicht geladen werden.")
                                     Exit Select
                                 End If
 
@@ -389,8 +389,8 @@ Public Class frmMassValidator
                             My.Settings.Save()
                             frmError.ShowDialog()
                             LOGGER.Info(">> Unexpected error in FillIndexValues TextBox(MI): " & ex.Message, True)
-                            LOGGER.Info(">> Controltype: " & controltype, False)
+                            LOGGER.Info(">> Controltype: " & controltype)
-                            LOGGER.Info(">> Indexname windream: " & indexname, False)
+                            LOGGER.Info(">> Indexname windream: " & indexname)
                             Exit Sub
                         End Try
 
@@ -408,7 +408,7 @@ Public Class frmMassValidator
                                 Else
                                     cmb.Text = defaultValue
                                 End If
-                                LOGGER.Debug(" >> Indexwert soll nicht geladen werden.", False)
+                                LOGGER.Debug("Indexwert soll nicht geladen werden.")
                                 Exit Select
                             End If
                             wertWD = GetWM_Value_Multiple_Docs(idxname)
@@ -432,7 +432,7 @@ Public Class frmMassValidator
                         End If
                         If idxname Is Nothing = False Then
                             If LoadIDX = False Then
-                                LOGGER.Debug(" >> Indexwert soll nicht geladen werden.", False)
+                                LOGGER.Debug("Indexwert soll nicht geladen werden.")
                                 Exit Select
                             End If
 
@@ -505,7 +505,7 @@ Public Class frmMassValidator
                             Dim chk As CheckBox = inctrl
 
                             If LoadIDX = False Then
-                                LOGGER.Debug(" >> Indexwert soll nicht geladen werden.", False)
+                                LOGGER.Debug("Indexwert soll nicht geladen werden.")
 
                                 If defaultValue <> String.Empty Then
                                     Dim result
@@ -519,7 +519,7 @@ Public Class frmMassValidator
                             wertWD = GetWM_Value_Multiple_Docs(idxname)
 
                             If wertWD Is Nothing Then
-                                LOGGER.Info(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & indexname & "' ist nothing. Check defaultvalue", False)
+                                LOGGER.Info(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & indexname & "' ist nothing. Check defaultvalue")
                                 chk.Checked = False
                             Else
                                 If wertWD.ToString = "" Then
@@ -535,11 +535,11 @@ Public Class frmMassValidator
                                 Else
                                     Dim _value
                                     If wertWD.ToString = "System.Object[]" Then
-                                        LOGGER.Debug(" >> CheckBoxValue with VektorField: " & idxname, False)
+                                        LOGGER.Debug("CheckBoxValue with VektorField: " & idxname)
                                         If wertWD.length = 1 Then
                                             _value = wertWD(0)
                                         Else '
-                                            LOGGER.Info(" >> Vectorfield " & idxname & "' contains more then one value - First value will be used", False)
+                                            LOGGER.Info(" >> Vectorfield " & idxname & "' contains more then one value - First value will be used")
                                             _value = wertWD(0)
                                         End If
                                     Else
@@ -576,8 +576,8 @@ Public Class frmMassValidator
             My.Settings.Save()
             frmError.ShowDialog()
             LOGGER.Info(">> Unexpected Error in FillIndexValues(MIs: " & ex.Message, True)
-            LOGGER.Info(">> Controltype: " & controltype, False)
+            LOGGER.Info(">> Controltype: " & controltype)
-            LOGGER.Info(">> Indexname windream: " & indexname, False)
+            LOGGER.Info(">> Indexname windream: " & indexname)
 
 
         End Try
@@ -606,11 +606,11 @@ Public Class frmMassValidator
                         tempIndexValue = WMDOC.GetVariableValue(idxname)
                         If IsNothing(tempIndexValue) Then tempIndexValue = ""
                         If tempIndexValue.ToString = "System.Object[]" Then
-                            LOGGER.Debug(" >> TextBox with VektorField: " & idxname, False)
+                            LOGGER.Debug("TextBox with VektorField: " & idxname)
                             If tempIndexValue.Length = 1 Then
                                 tempIndexValue = tempIndexValue(0)
                             Else '
-                                LOGGER.Info(" >> Vectorfield " & idxname & "' contains more then one value - First value will be used", False)
+                                LOGGER.Info(" >> Vectorfield " & idxname & "' contains more then one value - First value will be used")
                                 tempIndexValue = tempIndexValue(0)
                             End If
                         End If
@@ -758,7 +758,7 @@ Public Class frmMassValidator
                     pnldesigner.Controls(displayboxname).Text = resultDT.Rows(0).Item(0).ToString
                 Else
                     pnldesigner.Controls(displayboxname).Text = "RESULT = resultDT.Rows.Count <> 1"
-                    LOGGER.Info(">> Datatable-SQL: " & sqlCommand, False)
+                    LOGGER.Info(">> Datatable-SQL: " & sqlCommand)
                 End If
             End If
         End If
@@ -970,7 +970,7 @@ Public Class frmMassValidator
                             ' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
                             For Each element As System.Text.RegularExpressions.Match In elemente
                                 Try
-                                    LOGGER.Debug(" >> element in RegeX WORK_HISTORY_ENTRY: " & element.Value, False)
+                                    LOGGER.Debug("element in RegeX WORK_HISTORY_ENTRY: " & element.Value)
                                     Dim CTRL_ID = element.Value.Substring(2, element.Value.Length - 3)
                                     CTRL_ID = CTRL_ID.Replace("CTRLID", "")
                                     Dim value_from_control
@@ -1138,9 +1138,9 @@ Public Class frmMassValidator
                 Dim ctrl = dr.Item("NAME")
                 'Nur wenn der Name der Zeile entspricht    und der Index READ_ONLY FALSE ist
                 If dr.Item("NAME") = inctrl.Name And (_READ_ONLY = False Or dr.Item("SQL_UEBERPRUEFUNG") <> "") And _IDXName <> "DD PM-ONLY FOR DISPLAY" Then
-                    LOGGER.Debug(" >> Indexierung für Control (" & CONTROL_ID & ") '" & ctrl & "' gestartet. Indexname '" & _IDXName & "'", False)
+                    LOGGER.Debug("Indexierung für Control (" & CONTROL_ID & ") '" & ctrl & "' gestartet. Indexname '" & _IDXName & "'")
                     If _IDXName = "" Then
-                        LOGGER.Info(" >> Indexname is unexpected empty.", False)
+                        LOGGER.Info(" >> Indexname is unexpected empty.")
                         Continue For
                     End If
                     Dim Type As String = inctrl.GetType.ToString
@@ -1267,7 +1267,7 @@ Public Class frmMassValidator
                                 End If
 
                             Else
-                                LOGGER.Debug(" >> DateValue is 01.01.0001 00:00:00", False)
+                                LOGGER.Debug("DateValue is 01.01.0001 00:00:00")
                             End If
                         Case "System.Windows.Forms.CheckBox"
                             Dim chk As CheckBox = inctrl
@@ -1425,7 +1425,7 @@ Public Class frmMassValidator
                 'Das Array der Idnexwerte überprüfen
                 If idxvalue Is Nothing = False Then
                     If idxvalue.Length() > 1 Then
-                        LOGGER.Debug(" >> Indexing Index '" & idxxname & "' with Arrayvalue", False)
+                        LOGGER.Debug("Indexing Index '" & idxxname & "' with Arrayvalue")
                         Dim anzahl As Integer = 0
                         For Each indexvalue As String In idxvalue
                             ReDim Preserve arrValue(anzahl)
@@ -1433,7 +1433,7 @@ Public Class frmMassValidator
                             anzahl += 1
                         Next
                     Else
-                        LOGGER.Debug(" >> Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'", False)
+                        LOGGER.Debug("Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'")
                         ReDim Preserve arrValue(0)
                         arrValue(0) = idxvalue(0).ToString
                     End If
@@ -1521,7 +1521,7 @@ Public Class frmMassValidator
             'Das Array der Idnexwerte überprüfen
             If idxvalue Is Nothing = False Then
                 If idxvalue.Length() > 1 Then
-                    LOGGER.Debug(" >> Indexing Index '" & idxxname & "' with Arrayvalue", False)
+                    LOGGER.Debug("Indexing Index '" & idxxname & "' with Arrayvalue")
                     Dim anzahl As Integer = 0
                     For Each indexvalue As String In idxvalue
                         ReDim Preserve arrValue(anzahl)
@@ -1529,7 +1529,7 @@ Public Class frmMassValidator
                         anzahl += 1
                     Next
                 Else
-                    LOGGER.Debug(" >> Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'", False)
+                    LOGGER.Debug("Indexing Index '" & idxxname & "' with value '" & idxvalue(0) & "'")
                     ReDim Preserve arrValue(0)
                     arrValue(0) = idxvalue(0).ToString
                 End If

app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.vb

@@ -174,7 +174,7 @@ Public Class frmUserKonfig_AddUsers
                     If ClassDatabase.Execute_non_Query(SQL, False) = True Then
                         Dim ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_USER", CONNECTION_STRING)
                         Dim msg = String.Format(">> USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, USERNAME)
-                        LOGGER.Info(msg, False)
+                        LOGGER.Info(msg)
                         SQL = String.Format("INSERT INTO TBDD_USER_MODULES (USER_ID,MODULE_ID) VALUES ({0},(SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'PM'))", ID)
                         If ClassDatabase.Execute_non_Query(SQL, False) = False Then
                             MsgBox("Attention: could not add user to module! - Please check the log.", MsgBoxStyle.Exclamation)

app/DD_PM_WINDREAM/frmValidator.Designer.vb

@@ -135,6 +135,7 @@ Partial Class frmValidator
         Me.FinalIndexDataSet = New DD_PM_WINDREAM.FinalIndexDataSet()
         Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -218,7 +219,7 @@ Partial Class frmValidator
         '
         'ContextMenuStrip1
         '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.DateiInfoToolStripMenuItem, Me.DateieigenschaftenToolStripMenuItem, Me.RefreshAdditionalSearchToolStripMenuItem})
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.DateiInfoToolStripMenuItem, Me.DateieigenschaftenToolStripMenuItem, Me.ToolStripSeparator1, Me.RefreshAdditionalSearchToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
         resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1")
         '
@@ -242,6 +243,7 @@ Partial Class frmValidator
         'RefreshAdditionalSearchToolStripMenuItem
         '
         resources.ApplyResources(Me.RefreshAdditionalSearchToolStripMenuItem, "RefreshAdditionalSearchToolStripMenuItem")
+        Me.RefreshAdditionalSearchToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.search_glyph
         Me.RefreshAdditionalSearchToolStripMenuItem.Name = "RefreshAdditionalSearchToolStripMenuItem"
         '
         'TITLELabel1
@@ -842,6 +844,11 @@ Partial Class frmValidator
         '
         Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True
         '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
+        '
         'frmValidator
         '
         resources.ApplyResources(Me, "$this")
@@ -1008,4 +1015,5 @@ Partial Class frmValidator
     Friend WithEvents FinalIndexDataSet As FinalIndexDataSet
     Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGBindingSource As BindingSource
     Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGTableAdapter As FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter
+    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
 End Class

app/DD_PM_WINDREAM/frmValidator.resx

@@ -184,16 +184,16 @@
     <value>3</value>
   </data>
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>790, 173</value>
+    <value>272, 173</value>
   </metadata>
   <data name="DateiÖffnenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>206, 22</value>
+    <value>239, 22</value>
   </data>
   <data name="DateiÖffnenToolStripMenuItem.Text" xml:space="preserve">
     <value>Datei öffnen</value>
   </data>
   <data name="DateiInfoToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>206, 22</value>
+    <value>239, 22</value>
   </data>
   <data name="DateiInfoToolStripMenuItem.Text" xml:space="preserve">
     <value>Datei-Info</value>
@@ -209,22 +209,25 @@
 </value>
   </data>
   <data name="DateieigenschaftenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>206, 22</value>
+    <value>239, 22</value>
   </data>
   <data name="DateieigenschaftenToolStripMenuItem.Text" xml:space="preserve">
     <value>Dateieigenschaften</value>
   </data>
+  <data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>236, 6</value>
+  </data>
   <data name="RefreshAdditionalSearchToolStripMenuItem.Enabled" type="System.Boolean, mscorlib">
     <value>False</value>
   </data>
   <data name="RefreshAdditionalSearchToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>206, 22</value>
+    <value>239, 22</value>
   </data>
   <data name="RefreshAdditionalSearchToolStripMenuItem.Text" xml:space="preserve">
-    <value>Refresh AdditionalSearch</value>
+    <value>Aktualisiere Zusätzliche Suchen</value>
   </data>
   <data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>207, 114</value>
+    <value>240, 98</value>
   </data>
   <data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve">
     <value>ContextMenuStrip1</value>
@@ -398,13 +401,13 @@
     <value>534, 95</value>
   </metadata>
   <metadata name="TBPM_CONTROL_TABLETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>535, 173</value>
+    <value>17, 173</value>
   </metadata>
   <metadata name="TBPM_FILES_USER_NOT_INDEXEDTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>593, 56</value>
   </metadata>
   <metadata name="TBPM_KONFIGURATIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 173</value>
+    <value>698, 134</value>
   </metadata>
   <metadata name="TBPM_PROFILE_CONTROLSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 95</value>
@@ -413,7 +416,7 @@
     <value>1017, 95</value>
   </metadata>
   <metadata name="TBPM_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>844, 134</value>
+    <value>229, 134</value>
   </metadata>
   <metadata name="VWPM_CONTROL_INDEXBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1060, 17</value>
@@ -434,13 +437,13 @@
     <value>772, 95</value>
   </metadata>
   <metadata name="TBPM_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>632, 134</value>
+    <value>17, 134</value>
   </metadata>
   <metadata name="TBPM_KONFIGURATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1050, 134</value>
+    <value>435, 134</value>
   </metadata>
   <metadata name="TBPM_CONTROL_TABLEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>274, 173</value>
+    <value>955, 134</value>
   </metadata>
   <data name="pnlpdf.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
     <value>Top, Right</value>
@@ -452,7 +455,7 @@
     <value>0, 141</value>
   </data>
   <metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1212, 173</value>
+    <value>694, 173</value>
   </metadata>
   <data name="barDockControlTop.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Top</value>
@@ -542,7 +545,7 @@
     <value>True</value>
   </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>383</value>
+    <value>251</value>
   </metadata>
   <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
     <value>7, 17</value>
@@ -551,7 +554,7 @@
     <value>962, 643</value>
   </data>
   <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>282, 212</value>
+    <value>1084, 173</value>
   </metadata>
   <data name="ToolStrip1.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI, 9.75pt</value>
@@ -653,7 +656,7 @@
     <value>0</value>
   </data>
   <metadata name="StatusStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>165, 212</value>
+    <value>967, 173</value>
   </metadata>
   <data name="tslblWebbrowser.Size" type="System.Drawing.Size, System.Drawing">
     <value>120, 17</value>
@@ -1845,6 +1848,12 @@
   <data name="&gt;&gt;TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Type" xml:space="preserve">
     <value>DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
   </data>
+  <data name="&gt;&gt;ToolStripSeparator1.Name" xml:space="preserve">
+    <value>ToolStripSeparator1</value>
+  </data>
+  <data name="&gt;&gt;ToolStripSeparator1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmValidator</value>
   </data>
@@ -1873,7 +1882,7 @@
     <value>0</value>
   </data>
   <metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>947, 173</value>
+    <value>429, 173</value>
   </metadata>
   <data name="pdfstatuslblPageNumber.Font" type="System.Drawing.Font, System.Drawing">
     <value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
@@ -1963,18 +1972,18 @@
     <value>1</value>
   </data>
   <metadata name="PdfBarController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1064, 173</value>
+    <value>546, 173</value>
   </metadata>
   <metadata name="PdfBarController2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 212</value>
+    <value>819, 173</value>
   </metadata>
   <metadata name="FinalIndexDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>389, 212</value>
+    <value>1191, 173</value>
   </metadata>
   <metadata name="TBPM_PROFILE_FINAL_INDEXINGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>538, 212</value>
+    <value>17, 212</value>
   </metadata>
   <metadata name="TBPM_PROFILE_FINAL_INDEXINGTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>848, 212</value>
+    <value>327, 212</value>
   </metadata>
 </root>

app/DD_PM_WINDREAM/frmValidatorSearch.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmValidatorSearch
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,104 +20,677 @@ Partial Class frmValidatorSearch
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmValidatorSearch))
+        Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode2 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode3 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode4 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode5 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
+        Dim GridLevelNode6 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
         Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripDropDownButtonFile = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.DateiÖffnenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripButtonRefreshSearches = New System.Windows.Forms.ToolStripButton()
+        Me.GridControlDocSearch1 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewDocSearch1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.SplitContainerSearches = New System.Windows.Forms.SplitContainer()
+        Me.XtraTabControlSQL = New DevExpress.XtraTab.XtraTabControl()
+        Me.XtraTabPageSearch1 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlSearch1 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewSearch1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabPageSearch2 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlSearch2 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabPageSearch3 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlSearch3 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabPageSearch4 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlSearch4 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewSearch4 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabPageSearch5 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlSearch5 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
-        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
+        Me.tsslblSQL = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
+        Me.XtraTabControlDocs = New DevExpress.XtraTab.XtraTabControl()
-        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
+        Me.XtraTabPageDoc1 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabPageDoc2 = New DevExpress.XtraTab.XtraTabPage()
-        Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlDocSearch2 = New DevExpress.XtraGrid.GridControl()
-        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GridViewDocSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.XtraTabControl1.SuspendLayout()
+        Me.XtraTabPageDoc3 = New DevExpress.XtraTab.XtraTabPage()
-        Me.XtraTabPage1.SuspendLayout()
+        Me.GridControlDocSearch3 = New DevExpress.XtraGrid.GridControl()
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GridViewDocSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageDoc4 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlDocSearch4 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewDocSearch4 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabPageDoc5 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlDocSearch5 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewDocSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
+        Me.tslblDocID = New System.Windows.Forms.ToolStripLabel()
+        Me.tslblState = New System.Windows.Forms.ToolStripLabel()
+        Me.ContextMenuStripWMFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.EigenschaftenDateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.LayoutZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ContextMenuStripSQL = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStrip1.SuspendLayout()
+        CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerSearches, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerSearches.Panel1.SuspendLayout()
+        Me.SplitContainerSearches.Panel2.SuspendLayout()
+        Me.SplitContainerSearches.SuspendLayout()
+        CType(Me.XtraTabControlSQL, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabControlSQL.SuspendLayout()
+        Me.XtraTabPageSearch1.SuspendLayout()
+        CType(Me.GridControlSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageSearch2.SuspendLayout()
+        CType(Me.GridControlSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageSearch3.SuspendLayout()
+        CType(Me.GridControlSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageSearch4.SuspendLayout()
+        CType(Me.GridControlSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageSearch5.SuspendLayout()
+        CType(Me.GridControlSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.StatusStrip1.SuspendLayout()
+        CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabControlDocs.SuspendLayout()
+        Me.XtraTabPageDoc1.SuspendLayout()
+        Me.XtraTabPageDoc2.SuspendLayout()
+        CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageDoc3.SuspendLayout()
+        CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageDoc4.SuspendLayout()
+        CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabPageDoc5.SuspendLayout()
+        CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ToolStrip2.SuspendLayout()
+        Me.ContextMenuStripWMFile.SuspendLayout()
+        Me.ContextMenuStripSQL.SuspendLayout()
         Me.SuspendLayout()
         '
         'ToolStrip1
         '
-        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile, Me.ToolStripButtonRefreshSearches})
+        resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
         Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Size = New System.Drawing.Size(1203, 25)
+        '
-        Me.ToolStrip1.TabIndex = 0
+        'ToolStripDropDownButtonFile
-        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        Me.ToolStripDropDownButtonFile.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.ToolStripDropDownButtonFile.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem1, Me.EigenschaftenToolStripMenuItem})
+        Me.ToolStripDropDownButtonFile.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.ID_FILE_PAGE_SETUP
+        resources.ApplyResources(Me.ToolStripDropDownButtonFile, "ToolStripDropDownButtonFile")
+        Me.ToolStripDropDownButtonFile.Name = "ToolStripDropDownButtonFile"
+        '
+        'DateiÖffnenToolStripMenuItem1
+        '
+        Me.DateiÖffnenToolStripMenuItem1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.OpenFileDialog_692
+        Me.DateiÖffnenToolStripMenuItem1.Name = "DateiÖffnenToolStripMenuItem1"
+        resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem1, "DateiÖffnenToolStripMenuItem1")
+        '
+        'EigenschaftenToolStripMenuItem
+        '
+        Me.EigenschaftenToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Properties
+        Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
+        resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem")
+        '
+        'ToolStripButtonRefreshSearches
+        '
+        Me.ToolStripButtonRefreshSearches.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG
+        resources.ApplyResources(Me.ToolStripButtonRefreshSearches, "ToolStripButtonRefreshSearches")
+        Me.ToolStripButtonRefreshSearches.Name = "ToolStripButtonRefreshSearches"
+        '
+        'GridControlDocSearch1
+        '
+        resources.ApplyResources(Me.GridControlDocSearch1, "GridControlDocSearch1")
+        GridLevelNode1.RelationName = "Level1"
+        Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
+        Me.GridControlDocSearch1.MainView = Me.GridViewDocSearch1
+        Me.GridControlDocSearch1.Name = "GridControlDocSearch1"
+        Me.GridControlDocSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch1})
+        '
+        'GridViewDocSearch1
+        '
+        Me.GridViewDocSearch1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridViewDocSearch1.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewDocSearch1.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch1.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
+        Me.GridViewDocSearch1.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridViewDocSearch1.GridControl = Me.GridControlDocSearch1
+        Me.GridViewDocSearch1.Name = "GridViewDocSearch1"
+        Me.GridViewDocSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewDocSearch1.OptionsFind.AlwaysVisible = True
+        Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewDocSearch1.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewDocSearch1.OptionsSelection.MultiSelect = True
+        Me.GridViewDocSearch1.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewDocSearch1.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewDocSearch1.OptionsView.ShowAutoFilterRow = True
+        '
+        'SplitContainerSearches
+        '
+        Me.SplitContainerSearches.DataBindings.Add(New System.Windows.Forms.Binding("SplitterDistance", Global.DD_PM_WINDREAM.My.MySettings.Default, "frmValSearchSplitterDistance", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
+        resources.ApplyResources(Me.SplitContainerSearches, "SplitContainerSearches")
+        Me.SplitContainerSearches.Name = "SplitContainerSearches"
+        '
+        'SplitContainerSearches.Panel1
+        '
+        Me.SplitContainerSearches.Panel1.Controls.Add(Me.XtraTabControlSQL)
+        Me.SplitContainerSearches.Panel1.Controls.Add(Me.StatusStrip1)
+        '
+        'SplitContainerSearches.Panel2
+        '
+        Me.SplitContainerSearches.Panel2.Controls.Add(Me.XtraTabControlDocs)
+        Me.SplitContainerSearches.Panel2.Controls.Add(Me.ToolStrip2)
+        Me.SplitContainerSearches.SplitterDistance = Global.DD_PM_WINDREAM.My.MySettings.Default.frmValSearchSplitterDistance
+        '
+        'XtraTabControlSQL
+        '
+        resources.ApplyResources(Me.XtraTabControlSQL, "XtraTabControlSQL")
+        Me.XtraTabControlSQL.Name = "XtraTabControlSQL"
+        Me.XtraTabControlSQL.SelectedTabPage = Me.XtraTabPageSearch1
+        Me.XtraTabControlSQL.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageSearch1, Me.XtraTabPageSearch2, Me.XtraTabPageSearch3, Me.XtraTabPageSearch4, Me.XtraTabPageSearch5})
+        '
+        'XtraTabPageSearch1
+        '
+        Me.XtraTabPageSearch1.Controls.Add(Me.GridControlSearch1)
+        Me.XtraTabPageSearch1.Name = "XtraTabPageSearch1"
+        resources.ApplyResources(Me.XtraTabPageSearch1, "XtraTabPageSearch1")
+        '
+        'GridControlSearch1
+        '
+        resources.ApplyResources(Me.GridControlSearch1, "GridControlSearch1")
+        GridLevelNode2.RelationName = "Level1"
+        Me.GridControlSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
+        Me.GridControlSearch1.MainView = Me.GridViewSearch1
+        Me.GridControlSearch1.Name = "GridControlSearch1"
+        Me.GridControlSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch1})
+        '
+        'GridViewSearch1
+        '
+        Me.GridViewSearch1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridViewSearch1.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewSearch1.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch1.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
+        Me.GridViewSearch1.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridViewSearch1.GridControl = Me.GridControlSearch1
+        Me.GridViewSearch1.Name = "GridViewSearch1"
+        Me.GridViewSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewSearch1.OptionsFind.AlwaysVisible = True
+        Me.GridViewSearch1.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewSearch1.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewSearch1.OptionsSelection.MultiSelect = True
+        Me.GridViewSearch1.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewSearch1.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewSearch1.OptionsView.ShowAutoFilterRow = True
+        '
+        'XtraTabPageSearch2
+        '
+        Me.XtraTabPageSearch2.Controls.Add(Me.GridControlSearch2)
+        Me.XtraTabPageSearch2.Name = "XtraTabPageSearch2"
+        resources.ApplyResources(Me.XtraTabPageSearch2, "XtraTabPageSearch2")
+        '
+        'GridControlSearch2
+        '
+        resources.ApplyResources(Me.GridControlSearch2, "GridControlSearch2")
+        GridLevelNode3.RelationName = "Level1"
+        Me.GridControlSearch2.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
+        Me.GridControlSearch2.MainView = Me.GridViewSearch2
+        Me.GridControlSearch2.Name = "GridControlSearch2"
+        Me.GridControlSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch2})
+        '
+        'GridViewSearch2
+        '
+        Me.GridViewSearch2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch2.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridViewSearch2.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewSearch2.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch2.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
+        Me.GridViewSearch2.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridViewSearch2.GridControl = Me.GridControlSearch2
+        Me.GridViewSearch2.Name = "GridViewSearch2"
+        Me.GridViewSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewSearch2.OptionsFind.AlwaysVisible = True
+        Me.GridViewSearch2.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewSearch2.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewSearch2.OptionsSelection.MultiSelect = True
+        Me.GridViewSearch2.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewSearch2.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewSearch2.OptionsView.ShowAutoFilterRow = True
+        '
+        'XtraTabPageSearch3
+        '
+        Me.XtraTabPageSearch3.Controls.Add(Me.GridControlSearch3)
+        Me.XtraTabPageSearch3.Name = "XtraTabPageSearch3"
+        resources.ApplyResources(Me.XtraTabPageSearch3, "XtraTabPageSearch3")
+        '
+        'GridControlSearch3
+        '
+        resources.ApplyResources(Me.GridControlSearch3, "GridControlSearch3")
+        GridLevelNode4.RelationName = "Level1"
+        Me.GridControlSearch3.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4})
+        Me.GridControlSearch3.MainView = Me.GridViewSearch3
+        Me.GridControlSearch3.Name = "GridControlSearch3"
+        Me.GridControlSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch3})
+        '
+        'GridViewSearch3
+        '
+        Me.GridViewSearch3.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch3.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridViewSearch3.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewSearch3.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch3.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
+        Me.GridViewSearch3.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridViewSearch3.GridControl = Me.GridControlSearch3
+        Me.GridViewSearch3.Name = "GridViewSearch3"
+        Me.GridViewSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewSearch3.OptionsFind.AlwaysVisible = True
+        Me.GridViewSearch3.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewSearch3.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewSearch3.OptionsSelection.MultiSelect = True
+        Me.GridViewSearch3.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewSearch3.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewSearch3.OptionsView.ShowAutoFilterRow = True
+        '
+        'XtraTabPageSearch4
+        '
+        Me.XtraTabPageSearch4.Controls.Add(Me.GridControlSearch4)
+        Me.XtraTabPageSearch4.Name = "XtraTabPageSearch4"
+        resources.ApplyResources(Me.XtraTabPageSearch4, "XtraTabPageSearch4")
+        '
+        'GridControlSearch4
+        '
+        resources.ApplyResources(Me.GridControlSearch4, "GridControlSearch4")
+        GridLevelNode5.RelationName = "Level1"
+        Me.GridControlSearch4.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode5})
+        Me.GridControlSearch4.MainView = Me.GridViewSearch4
+        Me.GridControlSearch4.Name = "GridControlSearch4"
+        Me.GridControlSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch4})
+        '
+        'GridViewSearch4
+        '
+        Me.GridViewSearch4.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch4.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridViewSearch4.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewSearch4.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch4.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
+        Me.GridViewSearch4.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridViewSearch4.GridControl = Me.GridControlSearch4
+        Me.GridViewSearch4.Name = "GridViewSearch4"
+        Me.GridViewSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewSearch4.OptionsFind.AlwaysVisible = True
+        Me.GridViewSearch4.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewSearch4.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewSearch4.OptionsSelection.MultiSelect = True
+        Me.GridViewSearch4.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewSearch4.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewSearch4.OptionsView.ShowAutoFilterRow = True
+        '
+        'XtraTabPageSearch5
+        '
+        Me.XtraTabPageSearch5.Controls.Add(Me.GridControlSearch5)
+        Me.XtraTabPageSearch5.Name = "XtraTabPageSearch5"
+        resources.ApplyResources(Me.XtraTabPageSearch5, "XtraTabPageSearch5")
+        '
+        'GridControlSearch5
+        '
+        resources.ApplyResources(Me.GridControlSearch5, "GridControlSearch5")
+        GridLevelNode6.RelationName = "Level1"
+        Me.GridControlSearch5.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode6})
+        Me.GridControlSearch5.MainView = Me.GridViewSearch5
+        Me.GridControlSearch5.Name = "GridControlSearch5"
+        Me.GridControlSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSearch5})
+        '
+        'GridViewSearch5
+        '
+        Me.GridViewSearch5.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewSearch5.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridViewSearch5.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewSearch5.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewSearch5.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
+        Me.GridViewSearch5.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridViewSearch5.GridControl = Me.GridControlSearch5
+        Me.GridViewSearch5.Name = "GridViewSearch5"
+        Me.GridViewSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewSearch5.OptionsFind.AlwaysVisible = True
+        Me.GridViewSearch5.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewSearch5.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewSearch5.OptionsSelection.MultiSelect = True
+        Me.GridViewSearch5.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewSearch5.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewSearch5.OptionsView.ShowAutoFilterRow = True
         '
         'StatusStrip1
         '
-        Me.StatusStrip1.Location = New System.Drawing.Point(0, 428)
+        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsslblSQL})
+        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
         Me.StatusStrip1.Name = "StatusStrip1"
-        Me.StatusStrip1.Size = New System.Drawing.Size(1203, 22)
-        Me.StatusStrip1.TabIndex = 1
-        Me.StatusStrip1.Text = "StatusStrip1"
         '
-        'XtraTabControl1
+        'tsslblSQL
         '
-        Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.tsslblSQL.Name = "tsslblSQL"
-        Me.XtraTabControl1.Location = New System.Drawing.Point(0, 25)
+        resources.ApplyResources(Me.tsslblSQL, "tsslblSQL")
-        Me.XtraTabControl1.Name = "XtraTabControl1"
-        Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1
-        Me.XtraTabControl1.Size = New System.Drawing.Size(1203, 403)
-        Me.XtraTabControl1.TabIndex = 2
-        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2})
         '
-        'XtraTabPage1
+        'XtraTabControlDocs
         '
-        Me.XtraTabPage1.Controls.Add(Me.GridControl1)
+        resources.ApplyResources(Me.XtraTabControlDocs, "XtraTabControlDocs")
-        Me.XtraTabPage1.Name = "XtraTabPage1"
+        Me.XtraTabControlDocs.Name = "XtraTabControlDocs"
-        Me.XtraTabPage1.Size = New System.Drawing.Size(1197, 375)
+        Me.XtraTabControlDocs.SelectedTabPage = Me.XtraTabPageDoc1
-        Me.XtraTabPage1.Text = "Search Result1"
+        Me.XtraTabControlDocs.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageDoc1, Me.XtraTabPageDoc2, Me.XtraTabPageDoc3, Me.XtraTabPageDoc4, Me.XtraTabPageDoc5})
         '
-        'GridControl1
+        'XtraTabPageDoc1
         '
-        Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
-        Me.GridControl1.Location = New System.Drawing.Point(0, 0)
+        Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
-        Me.GridControl1.MainView = Me.GridView1
+        resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1")
-        Me.GridControl1.Name = "GridControl1"
-        Me.GridControl1.Size = New System.Drawing.Size(1197, 375)
-        Me.GridControl1.TabIndex = 0
-        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
         '
-        'GridView1
+        'XtraTabPageDoc2
         '
-        Me.GridView1.GridControl = Me.GridControl1
+        Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
-        Me.GridView1.Name = "GridView1"
+        Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
+        resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2")
         '
-        'XtraTabPage2
+        'GridControlDocSearch2
         '
-        Me.XtraTabPage2.Name = "XtraTabPage2"
+        resources.ApplyResources(Me.GridControlDocSearch2, "GridControlDocSearch2")
-        Me.XtraTabPage2.Size = New System.Drawing.Size(1197, 375)
+        Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2
-        Me.XtraTabPage2.Text = "XtraTabPage2"
+        Me.GridControlDocSearch2.Name = "GridControlDocSearch2"
+        Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch2})
+        '
+        'GridViewDocSearch2
+        '
+        Me.GridViewDocSearch2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch2.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridViewDocSearch2.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewDocSearch2.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch2.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
+        Me.GridViewDocSearch2.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridViewDocSearch2.GridControl = Me.GridControlDocSearch2
+        Me.GridViewDocSearch2.Name = "GridViewDocSearch2"
+        Me.GridViewDocSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewDocSearch2.OptionsFind.AlwaysVisible = True
+        Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewDocSearch2.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewDocSearch2.OptionsSelection.MultiSelect = True
+        Me.GridViewDocSearch2.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewDocSearch2.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewDocSearch2.OptionsView.ShowAutoFilterRow = True
+        '
+        'XtraTabPageDoc3
+        '
+        Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3)
+        Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3"
+        resources.ApplyResources(Me.XtraTabPageDoc3, "XtraTabPageDoc3")
+        '
+        'GridControlDocSearch3
+        '
+        resources.ApplyResources(Me.GridControlDocSearch3, "GridControlDocSearch3")
+        Me.GridControlDocSearch3.MainView = Me.GridViewDocSearch3
+        Me.GridControlDocSearch3.Name = "GridControlDocSearch3"
+        Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch3})
+        '
+        'GridViewDocSearch3
+        '
+        Me.GridViewDocSearch3.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch3.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridViewDocSearch3.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewDocSearch3.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch3.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
+        Me.GridViewDocSearch3.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridViewDocSearch3.GridControl = Me.GridControlDocSearch3
+        Me.GridViewDocSearch3.Name = "GridViewDocSearch3"
+        Me.GridViewDocSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewDocSearch3.OptionsFind.AlwaysVisible = True
+        Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewDocSearch3.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewDocSearch3.OptionsSelection.MultiSelect = True
+        Me.GridViewDocSearch3.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewDocSearch3.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewDocSearch3.OptionsView.ShowAutoFilterRow = True
+        '
+        'XtraTabPageDoc4
+        '
+        Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4)
+        Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4"
+        resources.ApplyResources(Me.XtraTabPageDoc4, "XtraTabPageDoc4")
+        '
+        'GridControlDocSearch4
+        '
+        resources.ApplyResources(Me.GridControlDocSearch4, "GridControlDocSearch4")
+        Me.GridControlDocSearch4.MainView = Me.GridViewDocSearch4
+        Me.GridControlDocSearch4.Name = "GridControlDocSearch4"
+        Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch4})
+        '
+        'GridViewDocSearch4
+        '
+        Me.GridViewDocSearch4.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch4.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridViewDocSearch4.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewDocSearch4.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch4.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
+        Me.GridViewDocSearch4.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridViewDocSearch4.GridControl = Me.GridControlDocSearch4
+        Me.GridViewDocSearch4.Name = "GridViewDocSearch4"
+        Me.GridViewDocSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewDocSearch4.OptionsFind.AlwaysVisible = True
+        Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewDocSearch4.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewDocSearch4.OptionsSelection.MultiSelect = True
+        Me.GridViewDocSearch4.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewDocSearch4.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewDocSearch4.OptionsView.ShowAutoFilterRow = True
+        '
+        'XtraTabPageDoc5
+        '
+        Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5)
+        Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5"
+        resources.ApplyResources(Me.XtraTabPageDoc5, "XtraTabPageDoc5")
+        '
+        'GridControlDocSearch5
+        '
+        resources.ApplyResources(Me.GridControlDocSearch5, "GridControlDocSearch5")
+        Me.GridControlDocSearch5.MainView = Me.GridViewDocSearch5
+        Me.GridControlDocSearch5.Name = "GridControlDocSearch5"
+        Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch5})
+        '
+        'GridViewDocSearch5
+        '
+        Me.GridViewDocSearch5.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewDocSearch5.Appearance.EvenRow.BackColor"), System.Drawing.Color)
+        Me.GridViewDocSearch5.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewDocSearch5.Appearance.SelectedRow.BackColor = CType(resources.GetObject("GridViewDocSearch5.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
+        Me.GridViewDocSearch5.Appearance.SelectedRow.Options.UseBackColor = True
+        Me.GridViewDocSearch5.GridControl = Me.GridControlDocSearch5
+        Me.GridViewDocSearch5.Name = "GridViewDocSearch5"
+        Me.GridViewDocSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewDocSearch5.OptionsFind.AlwaysVisible = True
+        Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewDocSearch5.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewDocSearch5.OptionsSelection.MultiSelect = True
+        Me.GridViewDocSearch5.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewDocSearch5.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewDocSearch5.OptionsView.ShowAutoFilterRow = True
+        '
+        'ToolStrip2
+        '
+        resources.ApplyResources(Me.ToolStrip2, "ToolStrip2")
+        Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblDocID, Me.tslblState})
+        Me.ToolStrip2.Name = "ToolStrip2"
+        '
+        'tslblDocID
+        '
+        Me.tslblDocID.Name = "tslblDocID"
+        resources.ApplyResources(Me.tslblDocID, "tslblDocID")
+        '
+        'tslblState
+        '
+        Me.tslblState.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.tslblState.Name = "tslblState"
+        resources.ApplyResources(Me.tslblState, "tslblState")
+        '
+        'ContextMenuStripWMFile
+        '
+        Me.ContextMenuStripWMFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EigenschaftenDateiToolStripMenuItem, Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator1, Me.ToolStripMenuItem1, Me.LayoutZurücksetzenToolStripMenuItem})
+        Me.ContextMenuStripWMFile.Name = "ContextMenuStrip1"
+        resources.ApplyResources(Me.ContextMenuStripWMFile, "ContextMenuStripWMFile")
+        '
+        'EigenschaftenDateiToolStripMenuItem
+        '
+        resources.ApplyResources(Me.EigenschaftenDateiToolStripMenuItem, "EigenschaftenDateiToolStripMenuItem")
+        Me.EigenschaftenDateiToolStripMenuItem.Name = "EigenschaftenDateiToolStripMenuItem"
+        '
+        'DateiÖffnenToolStripMenuItem
+        '
+        resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem, "DateiÖffnenToolStripMenuItem")
+        Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        resources.ApplyResources(Me.ToolStripMenuItem1, "ToolStripMenuItem1")
+        '
+        'LayoutZurücksetzenToolStripMenuItem
+        '
+        Me.LayoutZurücksetzenToolStripMenuItem.Name = "LayoutZurücksetzenToolStripMenuItem"
+        resources.ApplyResources(Me.LayoutZurücksetzenToolStripMenuItem, "LayoutZurücksetzenToolStripMenuItem")
+        '
+        'ContextMenuStripSQL
+        '
+        Me.ContextMenuStripSQL.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator2, Me.ToolStripMenuItem4})
+        Me.ContextMenuStripSQL.Name = "ContextMenuStrip1"
+        resources.ApplyResources(Me.ContextMenuStripSQL, "ContextMenuStripSQL")
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
+        '
+        'ToolStripMenuItem4
+        '
+        Me.ToolStripMenuItem4.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG
+        Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
+        resources.ApplyResources(Me.ToolStripMenuItem4, "ToolStripMenuItem4")
         '
         'frmValidatorSearch
         '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1203, 450)
+        Me.Controls.Add(Me.SplitContainerSearches)
-        Me.Controls.Add(Me.XtraTabControl1)
-        Me.Controls.Add(Me.StatusStrip1)
         Me.Controls.Add(Me.ToolStrip1)
-        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.MaximizeBox = False
         Me.MinimizeBox = False
         Me.Name = "frmValidatorSearch"
-        Me.Text = "Zusätzliche Suchen"
+        Me.ToolStrip1.ResumeLayout(False)
-        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ToolStrip1.PerformLayout()
-        Me.XtraTabControl1.ResumeLayout(False)
+        CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.XtraTabPage1.ResumeLayout(False)
+        CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerSearches.Panel1.ResumeLayout(False)
-        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerSearches.Panel1.PerformLayout()
+        Me.SplitContainerSearches.Panel2.ResumeLayout(False)
+        Me.SplitContainerSearches.Panel2.PerformLayout()
+        CType(Me.SplitContainerSearches, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerSearches.ResumeLayout(False)
+        CType(Me.XtraTabControlSQL, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabControlSQL.ResumeLayout(False)
+        Me.XtraTabPageSearch1.ResumeLayout(False)
+        CType(Me.GridControlSearch1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewSearch1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPageSearch2.ResumeLayout(False)
+        CType(Me.GridControlSearch2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewSearch2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPageSearch3.ResumeLayout(False)
+        CType(Me.GridControlSearch3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewSearch3, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPageSearch4.ResumeLayout(False)
+        CType(Me.GridControlSearch4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewSearch4, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPageSearch5.ResumeLayout(False)
+        CType(Me.GridControlSearch5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewSearch5, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.StatusStrip1.ResumeLayout(False)
+        Me.StatusStrip1.PerformLayout()
+        CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabControlDocs.ResumeLayout(False)
+        Me.XtraTabPageDoc1.ResumeLayout(False)
+        Me.XtraTabPageDoc2.ResumeLayout(False)
+        CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPageDoc3.ResumeLayout(False)
+        CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPageDoc4.ResumeLayout(False)
+        CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabPageDoc5.ResumeLayout(False)
+        CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ToolStrip2.ResumeLayout(False)
+        Me.ToolStrip2.PerformLayout()
+        Me.ContextMenuStripWMFile.ResumeLayout(False)
+        Me.ContextMenuStripSQL.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
 
     Friend WithEvents ToolStrip1 As ToolStrip
+    Friend WithEvents GridControlDocSearch1 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewDocSearch1 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents SplitContainerSearches As SplitContainer
+    Friend WithEvents XtraTabControlSQL As DevExpress.XtraTab.XtraTabControl
+    Friend WithEvents XtraTabPageSearch1 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents XtraTabPageSearch2 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents XtraTabPageSearch3 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents XtraTabPageSearch4 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents XtraTabPageSearch5 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents ContextMenuStripWMFile As ContextMenuStrip
+    Friend WithEvents EigenschaftenDateiToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents DateiÖffnenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents XtraTabControlDocs As DevExpress.XtraTab.XtraTabControl
+    Friend WithEvents XtraTabPageDoc1 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents XtraTabPageDoc2 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents XtraTabPageDoc3 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents XtraTabPageDoc4 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents XtraTabPageDoc5 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents ToolStrip2 As ToolStrip
+    Friend WithEvents GridControlDocSearch2 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewDocSearch2 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents GridControlDocSearch3 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewDocSearch3 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents GridControlDocSearch4 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewDocSearch4 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents GridControlDocSearch5 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewDocSearch5 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents tslblDocID As ToolStripLabel
+    Friend WithEvents ToolStripDropDownButtonFile As ToolStripDropDownButton
+    Friend WithEvents DateiÖffnenToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripButtonRefreshSearches As ToolStripButton
+    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
+    Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents LayoutZurücksetzenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents tslblState As ToolStripLabel
+    Friend WithEvents GridControlSearch1 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewSearch1 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents GridControlSearch2 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewSearch2 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents GridControlSearch3 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewSearch3 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents GridControlSearch4 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewSearch4 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents GridControlSearch5 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewSearch5 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents ContextMenuStripSQL As ContextMenuStrip
+    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+    Friend WithEvents ToolStripMenuItem4 As ToolStripMenuItem
     Friend WithEvents StatusStrip1 As StatusStrip
-    Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
+    Friend WithEvents tsslblSQL As ToolStripStatusLabel
-    Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage
-    Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
-    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
-    Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
 End Class

app/DD_PM_WINDREAM/frmValidatorSearch.vb

@@ -1,17 +1,374 @@
-Public Class frmValidatorSearch
+Imports System.ComponentModel
-    Public Sub RefreshTab1()
+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