GDPicture WISAG Etc

app/DD_PM_WINDREAM/App.config

@@ -54,7 +54,7 @@
                 <value>0, 0</value>
             </setting>
             <setting name="frmValSearchSplitterDistance" serializeAs="String">
-                <value>558</value>
+                <value>563</value>
             </setting>
             <setting name="frmMainWindowState" serializeAs="String">
                 <value>Normal</value>

app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb

@@ -49,7 +49,7 @@ Public Class ClassAllgemeineFunktionen
                 LOGGER.Debug("User logged in....")
                 Return True
             Else
-                LOGGER.Info(" >> User could not be logged in/out....")
+                LOGGER.Info("User could not be logged in/out....")
                 Return False
             End If
         Catch ex As Exception
@@ -156,7 +156,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")
+                LOGGER.Info("Datei " & xffres & " erfolgreich gelöscht")
                 Return True
             Else
                 Return Nothing
@@ -164,7 +164,7 @@ Public Class ClassAllgemeineFunktionen
         Catch ex As Exception
             LOGGER.Error(ex)
             LOGGER.Info(" Fehler bei Delete_xffres", True)
-            LOGGER.Info(">> Fehlermeldung: " & ex.Message)
+            LOGGER.Info("Fehlermeldung: " & ex.Message)
         End Try
     End Function
     'Public Function Delete_File(originFile As String)
@@ -172,7 +172,7 @@ Public Class ClassAllgemeineFunktionen
 
     '        If file_exists(originFile, False) = True Then
     '            System.IO.File.Delete(originFile)
-    '            LOGGER.Info(">> Manuelles Löschen: Datei " & originFile & " erfolgreich gelöscht", False)
+    '            LOGGER.Info("Manuelles Löschen: Datei " & originFile & " erfolgreich gelöscht", False)
     '            Return True
     '        Else
     '            MsgBox("Die Datei konnte nicht gelsöcht werden. File NOT EXISTS", MsgBoxStyle.Exclamation)
@@ -180,7 +180,7 @@ Public Class ClassAllgemeineFunktionen
     '        End If
     '    Catch ex As Exception
     '        LOGGER.Info(" Fehler bei Delete_File", True)
-    '        LOGGER.Info(">> Fehlermeldung: " & ex.Message)
+    '        LOGGER.Info("Fehlermeldung: " & ex.Message)
     '    End Try
     'End Function
 
@@ -201,18 +201,18 @@ Public Class ClassAllgemeineFunktionen
                     version = version + 1
                 Loop
                 My.Computer.FileSystem.MoveFile(vMove_File, _Ziel)
-                LOGGER.Info(">> Datei erfolgreich verschoben - Ziel: " & _Ziel)
+                LOGGER.Info("Datei erfolgreich verschoben - Ziel: " & _Ziel)
             Else
-                LOGGER.Info(">> Ziel und Quellpfad sind identisch!")
+                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("Fehler bei Move2Folder", True)
-            LOGGER.Info(">> Fehlermeldung")
+            LOGGER.Info("Fehlermeldung")
-            LOGGER.Info(">>" & ex.Message)
+            LOGGER.Info(ex.Message)
-            Insert_LogEntry($"ERROR >> {ex.Message}")
+            Insert_LogEntry($"ERROR {ex.Message}")
             Return ex.Message
         End Try
     End Function
@@ -298,7 +298,7 @@ Public Class ClassAllgemeineFunktionen
         Catch ex As Exception
             LOGGER.Error(ex)
             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($"ERROR Execute_Scalar_SQLServer>> {ex.Message}")
+            Insert_LogEntry($"ERROR Execute_Scalar_SQLServer{ex.Message}")
             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)
             LOGGER.Info(" - Connection: " & vconnectionString)
@@ -332,7 +332,7 @@ Public Class ClassAllgemeineFunktionen
         Catch ex As Exception
             LOGGER.Error(ex)
             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($"ERROR Execute_Scalar_Oracle>> {ex.Message}")
+            Insert_LogEntry($"ERROR Execute_Scalar_Oracle{ex.Message}")
             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)
             LOGGER.Info(" - Connection: " & vconnectionString)

app/DD_PM_WINDREAM/ClassControlCreator.vb

@@ -577,7 +577,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)
+                        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

@@ -61,12 +61,12 @@ Public Class ClassDatabase
         Try
             Dim SQLconnect As New SqlClient.SqlConnection
             Dim SQLcommand As SqlClient.SqlCommand
-            LOGGER.Debug(">>> ReturnDatatable: " & Select_anweisung)
+            LOGGER.Debug("ReturnDatatable: " & Select_anweisung)
             SQLconnect.ConnectionString = SQLSERVERConnectionString
             SQLconnect.Open()
             SQLcommand = SQLconnect.CreateCommand
             SQLcommand.CommandText = Select_anweisung
-            LOGGER.Debug(">>> Execute ReturnDatatable: " & Select_anweisung)
+            LOGGER.Debug("Execute ReturnDatatable: " & Select_anweisung)
             Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
             Dim dt As DataTable = New DataTable()
             adapter1.Fill(dt)
@@ -74,16 +74,13 @@ Public Class ClassDatabase
             Return dt
         Catch ex As Exception
             LOGGER.Warn($"Unexpected Error in Return_Datatable: {ex.Message} [{Select_anweisung}]")
-            If userInput = True Then
-                MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
-            End If
             Return Nothing
         End Try
     End Function
     Public Shared Function Return_Datatable_ConId(SQLCommand As String, ConnID As Integer, Optional userInput As Boolean = False)
         Try
             Dim oConnString = Get_ConnectionString(ConnID)
-            LOGGER.Debug(">>> ReturnDatatable: " & SQLCommand)
+            LOGGER.Debug("ReturnDatatable: " & SQLCommand)
             Dim oSQLconnect As New SqlClient.SqlConnection
             Dim oSQLcommand As SqlClient.SqlCommand
             oSQLconnect.ConnectionString = oConnString
@@ -106,7 +103,7 @@ Public Class ClassDatabase
     End Function
     Public Shared Function Return_Datatable_ConStr(SQLCommand As String, ConNStr As String, Optional userInput As Boolean = False)
         Try
-            LOGGER.Debug(">>> ReturnDatatable: " & SQLCommand)
+            LOGGER.Debug("ReturnDatatable: " & SQLCommand)
             Dim oSQLconnect As New SqlClient.SqlConnection
             Dim oSQLcommand As SqlClient.SqlCommand
             oSQLconnect.ConnectionString = ConNStr
@@ -216,7 +213,7 @@ Public Class ClassDatabase
             SQLcommand = SQLconnect.CreateCommand
             'Update Last Created Record in Foo
             SQLcommand.CommandText = cmdscalar
-            LOGGER.Debug(">>> Execute Scalar: " & cmdscalar)
+            LOGGER.Debug("Execute Scalar: " & cmdscalar)
             result = SQLcommand.ExecuteScalar()
             SQLcommand.Dispose()
             SQLconnect.Close()

app/DD_PM_WINDREAM/ClassFinalizeDoc.vb

@@ -25,7 +25,7 @@
                         '' 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)
+                        '        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
@@ -41,7 +41,7 @@
                         sql_Statement = clsPatterns.ReplaceInternalValues(sql_Statement)
                         sql_Statement = clsPatterns.ReplaceWindreamIndicies(sql_Statement, WMObject)
 
-                        LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql_Statement)
+                        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
@@ -107,7 +107,7 @@
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
-            LOGGER.Info(">> unexpected error in Write_Final_Metadata: " & ex.Message.ToString, True)
+            LOGGER.Info("unexpected error in Write_Final_Metadata: " & ex.Message.ToString, True)
             Return False
         End Try
     End Function
@@ -147,7 +147,7 @@
         End If
 
         'Catch ex As Exception
-        '    LOGGER.Info(">> Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString, True)
+        '    LOGGER.Info("Unvorhergesehener Fehler bei Indexiere_File: " & ex.Message.ToString, True)
         '    Return Err()
         'End Try
     End Function
@@ -200,7 +200,7 @@
             PM_String = "DD-PM#" & Bezeichner & "#" & input & "#" & USER_USERNAME & "#" & Now.ToString
         Catch ex As Exception
             LOGGER.Error(ex)
-            LOGGER.Info(">> Fehler in Return_PM_VEKTOR: " & ex.Message, True)
+            LOGGER.Info("Fehler in Return_PM_VEKTOR: " & ex.Message, True)
             PM_String = "DD-PM ERROR: " & ex.Message
         End Try
         Return PM_String
@@ -217,7 +217,7 @@
 
         Catch ex As Exception
             LOGGER.Error(ex)
-            LOGGER.Info(">> Fehler in Return_LOGString: " & ex.Message, True)
+            LOGGER.Info("Fehler in Return_LOGString: " & ex.Message, True)
             PM_String = "DD-PM ERROR: " & ex.Message
         End Try
         Return PM_String

app/DD_PM_WINDREAM/ClassIDBData.vb

@@ -131,14 +131,14 @@
 
     End Function
 
-    Public Function SetVariableValue(oAttributeName As String, oNewValue As Object, Optional CheckDeleted As Boolean = False)
+    Public Function SetVariableValue(oAttributeName As String, oNewValue As Object, Optional CheckDeleted As Boolean = False, Optional oIDBTyp As Integer = 0)
         Try
             Dim omytype = oNewValue.GetType.ToString
             If omytype = "System.Data.DataTable" Then
                 Dim oDTMyNewValues As DataTable = oNewValue
 
                 If CheckDeleted = True Then
-                    Dim oOldAttributeResult = GetVariableValue(oAttributeName)
+                    Dim oOldAttributeResult = GetVariableValue(oAttributeName, oIDBTyp)
                     Dim oTypeOldResult = oOldAttributeResult.GetType.ToString
                     If oTypeOldResult = "System.Data.DataTable" Then
                         Dim myOldValues As DataTable = oOldAttributeResult

app/DD_PM_WINDREAM/ClassInit.vb

@@ -21,9 +21,10 @@ Public Class ClassInit
 
     <STAThread()>
     Public Sub InitUserConfig()
-        CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath)
+        CONFIG = New ConfigManager(Of ClassConfig)(LOGCONFIG, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
         LOGGER.Info("Config loaded")
 
+
         If CONFIG.Config.ConnectionStringTest <> String.Empty And CONFIG.Config.TestMode = True Then
             LOGGER.Debug("Test Connection String loaded")
             CONNECTION_STRING = DecryptConnectionString(CONFIG.Config.ConnectionStringTest)
@@ -146,7 +147,7 @@ Public Class ClassInit
                 CLIENT_SELECTED = 1
             End Try
 
-            LOGGER.Info(">> Username: " & USER_USERNAME)
+            LOGGER.Debug("Username: " & USER_USERNAME)
 
             Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED)
 
@@ -227,11 +228,11 @@ Public Class ClassInit
                     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!")
+                    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
+                    If USER_IS_ADMIN = False Then
                             ClassAllgemeineFunktionen.LoginOut("LOGOUT")
-                            LOGGER.Info(" - Wieder abgemeldet - START INCOMPLETE")
+                        LOGGER.Info("Wieder abgemeldet - START INCOMPLETE")
-                            ERROR_STATE = "START INCOMPLETE"
+                        ERROR_STATE = "START INCOMPLETE"
                         End If
                     End If
                     'Alles OK bis hierhin...nun die FolderwatchKonfig laden
@@ -254,7 +255,7 @@ Public Class ClassInit
             CURRENT_DT_TBDD_CONNECTION = ClassDatabase.Return_Datatable(oSql)
             Settings_LoadBasicConfig()
 
-            oSql = "Select * from TBDD_3RD_PARTY_MODULES"
+            oSql = "Select * FROM TBDD_3RD_PARTY_MODULES WHERE ACTIVE = 1"
             Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSql)
             For Each oROW As DataRow In oDT.Rows
                 If oROW.Item("NAME") = "GDPICTURE" Then

app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb

@@ -4053,6 +4053,8 @@ Partial Public Class DD_DMSLiteDataSet
         
         Private columnDISPLAY_MODE As Global.System.Data.DataColumn
         
+        Private columnSQL_BTN_FINISH As Global.System.Data.DataColumn
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
         Public Sub New()
@@ -4288,6 +4290,14 @@ Partial Public Class DD_DMSLiteDataSet
             End Get
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public ReadOnly Property SQL_BTN_FINISHColumn() As Global.System.Data.DataColumn
+            Get
+                Return Me.columnSQL_BTN_FINISH
+            End Get
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"),  _
          Global.System.ComponentModel.Browsable(false)>  _
@@ -4349,9 +4359,10 @@ Partial Public Class DD_DMSLiteDataSet
                     ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean,  _
                     ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean,  _
                     ByVal WORK_HISTORY_ENTRY As String,  _
-                    ByVal DISPLAY_MODE As String) As TBPM_PROFILERow
+                    ByVal DISPLAY_MODE As String,  _
+                    ByVal SQL_BTN_FINISH As String) As TBPM_PROFILERow
             Dim rowTBPM_PROFILERow As TBPM_PROFILERow = CType(Me.NewRow,TBPM_PROFILERow)
-            Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, Nothing, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE}
+            Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, Nothing, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH}
             If (Not (parentTBPM_TYPERowByFK_TBPM_PROFILE_TYPE1) Is Nothing) Then
                 columnValuesArray(15) = parentTBPM_TYPERowByFK_TBPM_PROFILE_TYPE1(0)
             End If
@@ -4408,6 +4419,7 @@ Partial Public Class DD_DMSLiteDataSet
             Me.columnANNOTATE_WORK_HISTORY_ENTRY = MyBase.Columns("ANNOTATE_WORK_HISTORY_ENTRY")
             Me.columnWORK_HISTORY_ENTRY = MyBase.Columns("WORK_HISTORY_ENTRY")
             Me.columnDISPLAY_MODE = MyBase.Columns("DISPLAY_MODE")
+            Me.columnSQL_BTN_FINISH = MyBase.Columns("SQL_BTN_FINISH")
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -4463,6 +4475,8 @@ Partial Public Class DD_DMSLiteDataSet
             MyBase.Columns.Add(Me.columnWORK_HISTORY_ENTRY)
             Me.columnDISPLAY_MODE = New Global.System.Data.DataColumn("DISPLAY_MODE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
             MyBase.Columns.Add(Me.columnDISPLAY_MODE)
+            Me.columnSQL_BTN_FINISH = New Global.System.Data.DataColumn("SQL_BTN_FINISH", GetType(String), Nothing, Global.System.Data.MappingType.Element)
+            MyBase.Columns.Add(Me.columnSQL_BTN_FINISH)
             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint2", New Global.System.Data.DataColumn() {Me.columnNAME}, false))
             Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint3", New Global.System.Data.DataColumn() {Me.columnTITLE}, false))
@@ -4517,6 +4531,8 @@ Partial Public Class DD_DMSLiteDataSet
             Me.columnDISPLAY_MODE.AllowDBNull = false
             Me.columnDISPLAY_MODE.DefaultValue = CType("Overview and Detail",String)
             Me.columnDISPLAY_MODE.MaxLength = 20
+            Me.columnSQL_BTN_FINISH.AllowDBNull = false
+            Me.columnSQL_BTN_FINISH.MaxLength = 2147483647
         End Sub
         
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
@@ -8245,6 +8261,7 @@ Partial Public Class DD_DMSLiteDataSet
             Me.columnSTRING1.AllowDBNull = false
             Me.columnSTRING1.MaxLength = 900
             Me.columnSTRING2.AllowDBNull = false
+            Me.columnSTRING2.DefaultValue = CType("",String)
             Me.columnSTRING2.MaxLength = 900
             Me.columnSTRING3.MaxLength = 900
             Me.columnSTRING4.MaxLength = 900
@@ -10746,6 +10763,17 @@ Partial Public Class DD_DMSLiteDataSet
             End Set
         End Property
         
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
+        Public Property SQL_BTN_FINISH() As String
+            Get
+                Return CType(Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn),String)
+            End Get
+            Set
+                Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn) = value
+            End Set
+        End Property
+        
         <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
         Public Property TBPM_TYPERow() As TBPM_TYPERow
@@ -17938,6 +17966,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
             tableMapping.ColumnMappings.Add("ANNOTATE_WORK_HISTORY_ENTRY", "ANNOTATE_WORK_HISTORY_ENTRY")
             tableMapping.ColumnMappings.Add("WORK_HISTORY_ENTRY", "WORK_HISTORY_ENTRY")
             tableMapping.ColumnMappings.Add("DISPLAY_MODE", "DISPLAY_MODE")
+            tableMapping.ColumnMappings.Add("SQL_BTN_FINISH", "SQL_BTN_FINISH")
             Me._adapter.TableMappings.Add(tableMapping)
             Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -17995,21 +18024,22 @@ Namespace DD_DMSLiteDataSetTableAdapters
                 "PTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT,"& _ 
                 " MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"          "& _ 
                 "               WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, "& _ 
-                "ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES        (@NAME,@TITLE,@PRIORIT"& _ 
+                "ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES        (@NAME"& _ 
-                "Y,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@FINAL_PROFILE,@FI"& _ 
+                ",@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@F"& _ 
-                "NAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX,@WOR"& _ 
+                "INAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_V"& _ 
-                "K_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@ANNOTATE_WORK_HIST"& _ 
+                "EKTOR_INDEX,@WORK_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@AN"& _ 
-                "ORY_ENTRY,@DISPLAY_MODE);       "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTIO"& _ 
+                "NOTATE_WORK_HISTORY_ENTRY,@DISPLAY_MODE,@SQL_BTN_FINISH);        "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, "& _ 
-                "N, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG"& _ 
+                "NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WH"& _ 
-                "ED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LA"& _ 
+                "O, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER"& _ 
-                "TEST FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDENTITY())"
+                ", TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDEN"& _ 
+                "TITY())"
             Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -18024,6 +18054,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
             Me._adapter.UpdateCommand.Connection = Me.Connection
             Me._adapter.UpdateCommand.CommandText = "UPDATE       TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET                NAME = @NAME, TITLE = @TITLE, PRIOR"& _ 
@@ -18035,18 +18066,19 @@ Namespace DD_DMSLiteDataSetTableAdapters
                 "INDEX, LOG_INDEX = @LOG_INDEX, WORK_HISTORY_ENTRY = @WORK_HISTORY_ENTRY, SQL_VIE"& _ 
                 "W = @SQL_VIEW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @A"& _ 
                 "NNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_H"& _ 
-                "ISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (GUID = @Original_GUID)"& _ 
+                "ISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         SQL_BTN_F"& _ 
-                ";        "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, N"& _ 
+                "INISH = @SQL_BTN_FINISH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE        (GUID = @Original_GUID);         "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ 
-                "O_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE,"& _ 
+                "GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, AD"& _ 
-                " FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE "& _ 
+                "DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2"& _ 
-                "WHERE (GUID = @GUID)"
+                "FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUI"& _ 
+                "D)"
             Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
-            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -18062,6 +18094,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
+            Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
             Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
         End Sub
@@ -18083,8 +18116,8 @@ Namespace DD_DMSLiteDataSetTableAdapters
                 "DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINA"& _ 
                 "L_TEXT, MOVE2FOLDER, TYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                         WD_OBJECTTYPE, SORT_BY_LAT"& _ 
                 "EST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, AN"& _ 
-                "NOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBP"& _ 
+                "NOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"                 "& _ 
-                "M_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME"
+                "        SQL_BTN_FINISH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM            TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME"
             Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
             Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
             Me._commandCollection(1).Connection = Me.Connection
@@ -18365,7 +18398,8 @@ Namespace DD_DMSLiteDataSetTableAdapters
                     ByVal SQL_VIEW As String,  _
                     ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean,  _
                     ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean,  _
-                    ByVal DISPLAY_MODE As String) As Integer
+                    ByVal DISPLAY_MODE As String,  _
+                    ByVal SQL_BTN_FINISH As String) As Integer
             If (NAME Is Nothing) Then
                 Throw New Global.System.ArgumentNullException("NAME")
             Else
@@ -18434,6 +18468,11 @@ Namespace DD_DMSLiteDataSetTableAdapters
             Else
                 Me.Adapter.InsertCommand.Parameters(19).Value = CType(DISPLAY_MODE,String)
             End If
+            If (SQL_BTN_FINISH Is Nothing) Then
+                Throw New Global.System.ArgumentNullException("SQL_BTN_FINISH")
+            Else
+                Me.Adapter.InsertCommand.Parameters(20).Value = CType(SQL_BTN_FINISH,String)
+            End If
             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
             If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
                         <> Global.System.Data.ConnectionState.Open) Then
@@ -18475,6 +18514,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
                     ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean,  _
                     ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean,  _
                     ByVal DISPLAY_MODE As String,  _
+                    ByVal SQL_BTN_FINISH As String,  _
                     ByVal Original_GUID As Integer,  _
                     ByVal GUID As Integer) As Integer
             If (NAME Is Nothing) Then
@@ -18550,8 +18590,13 @@ Namespace DD_DMSLiteDataSetTableAdapters
             Else
                 Me.Adapter.UpdateCommand.Parameters(20).Value = CType(DISPLAY_MODE,String)
             End If
-            Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_GUID,Integer)
+            If (SQL_BTN_FINISH Is Nothing) Then
-            Me.Adapter.UpdateCommand.Parameters(22).Value = CType(GUID,Integer)
+                Throw New Global.System.ArgumentNullException("SQL_BTN_FINISH")
+            Else
+                Me.Adapter.UpdateCommand.Parameters(21).Value = CType(SQL_BTN_FINISH,String)
+            End If
+            Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_GUID,Integer)
+            Me.Adapter.UpdateCommand.Parameters(23).Value = CType(GUID,Integer)
             Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
             If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open)  _
                         <> Global.System.Data.ConnectionState.Open) Then

app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd

@@ -966,8 +966,8 @@ WHERE        (GUID = @GUID)</CommandText>
                   <DbCommand CommandType="Text" ModifiedByUser="true">
                     <CommandText>INSERT INTO TBPM_PROFILE
                          (NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, 
-                         WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE)
+                         WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH)
-VALUES        (@NAME,@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@FINAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX,@WORK_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@ANNOTATE_WORK_HISTORY_ENTRY,@DISPLAY_MODE);       
+VALUES        (@NAME,@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@FINAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX,@WORK_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@ANNOTATE_WORK_HISTORY_ENTRY,@DISPLAY_MODE,@SQL_BTN_FINISH);        
 SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDENTITY())</CommandText>
                     <Parameters>
                       <Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
@@ -975,7 +975,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
                       <Parameter AllowDbNull="false" AutogeneratedName="PRIORITY" ColumnName="PRIORITY" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PRIORITY" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PRIORITY" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="true" AutogeneratedName="DESCRIPTION" ColumnName="DESCRIPTION" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="NO_OF_DOCUMENTS" ColumnName="NO_OF_DOCUMENTS" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@NO_OF_DOCUMENTS" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="NO_OF_DOCUMENTS" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="FINAL_PROFILE" ColumnName="FINAL_PROFILE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@FINAL_PROFILE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="FINAL_PROFILE" SourceColumnNullMapping="false" SourceVersion="Current" />
@@ -990,13 +990,15 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
                       <Parameter AllowDbNull="false" AutogeneratedName="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" ColumnName="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ANNOTATE_ALL_WORK_HISTORY_ENTRIES" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="ANNOTATE_WORK_HISTORY_ENTRY" ColumnName="ANNOTATE_WORK_HISTORY_ENTRY" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ANNOTATE_WORK_HISTORY_ENTRY" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ANNOTATE_WORK_HISTORY_ENTRY" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="DISPLAY_MODE" ColumnName="DISPLAY_MODE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(20)" DbType="AnsiString" Direction="Input" ParameterName="@DISPLAY_MODE" Precision="0" ProviderType="VarChar" Scale="0" Size="20" SourceColumn="DISPLAY_MODE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SQL_BTN_FINISH" ColumnName="SQL_BTN_FINISH" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="nvarchar(MAX)" DbType="String" Direction="Input" ParameterName="@SQL_BTN_FINISH" Precision="0" ProviderType="NVarChar" Scale="0" Size="2147483647" SourceColumn="SQL_BTN_FINISH" SourceColumnNullMapping="false" SourceVersion="Current" />
                     </Parameters>
                   </DbCommand>
                 </InsertCommand>
                 <SelectCommand>
                   <DbCommand CommandType="Text" ModifiedByUser="false">
                     <CommandText>SELECT        GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, 
-                         WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE
+                         WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, 
+                         SQL_BTN_FINISH
 FROM            TBPM_PROFILE
 ORDER BY NAME</CommandText>
                     <Parameters />
@@ -1008,8 +1010,9 @@ ORDER BY NAME</CommandText>
 SET                NAME = @NAME, TITLE = @TITLE, PRIORITY = @PRIORITY, DESCRIPTION = @DESCRIPTION, ACTIVE = @ACTIVE, WD_SEARCH = @WD_SEARCH, NO_OF_DOCUMENTS = @NO_OF_DOCUMENTS, 
                          CHANGED_WHO = @CHANGED_WHO, FINAL_PROFILE = @FINAL_PROFILE, FINAL_TEXT = @FINAL_TEXT, MOVE2FOLDER = @MOVE2FOLDER, TYPE = @TYPE, WD_OBJECTTYPE = @WD_OBJECTTYPE, 
                          SORT_BY_LATEST = @SORT_BY_LATEST, PM_VEKTOR_INDEX = @PM_VEKTOR_INDEX, LOG_INDEX = @LOG_INDEX, WORK_HISTORY_ENTRY = @WORK_HISTORY_ENTRY, SQL_VIEW = @SQL_VIEW, 
-                         ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE
+                         ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE, 
-WHERE        (GUID = @Original_GUID);        
+                         SQL_BTN_FINISH = @SQL_BTN_FINISH
+WHERE        (GUID = @Original_GUID);         
 SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUID)</CommandText>
                     <Parameters>
                       <Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
@@ -1017,7 +1020,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
                       <Parameter AllowDbNull="false" AutogeneratedName="PRIORITY" ColumnName="PRIORITY" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PRIORITY" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PRIORITY" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="true" AutogeneratedName="DESCRIPTION" ColumnName="DESCRIPTION" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
-                      <Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="NO_OF_DOCUMENTS" ColumnName="NO_OF_DOCUMENTS" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@NO_OF_DOCUMENTS" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="NO_OF_DOCUMENTS" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="FINAL_PROFILE" ColumnName="FINAL_PROFILE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@FINAL_PROFILE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="FINAL_PROFILE" SourceColumnNullMapping="false" SourceVersion="Current" />
@@ -1033,6 +1036,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
                       <Parameter AllowDbNull="false" AutogeneratedName="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" ColumnName="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ANNOTATE_ALL_WORK_HISTORY_ENTRIES" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="ANNOTATE_WORK_HISTORY_ENTRY" ColumnName="ANNOTATE_WORK_HISTORY_ENTRY" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ANNOTATE_WORK_HISTORY_ENTRY" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ANNOTATE_WORK_HISTORY_ENTRY" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="DISPLAY_MODE" ColumnName="DISPLAY_MODE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(20)" DbType="AnsiString" Direction="Input" ParameterName="@DISPLAY_MODE" Precision="0" ProviderType="VarChar" Scale="0" Size="20" SourceColumn="DISPLAY_MODE" SourceColumnNullMapping="false" SourceVersion="Current" />
+                      <Parameter AllowDbNull="false" AutogeneratedName="SQL_BTN_FINISH" ColumnName="SQL_BTN_FINISH" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="nvarchar(MAX)" DbType="String" Direction="Input" ParameterName="@SQL_BTN_FINISH" Precision="0" ProviderType="NVarChar" Scale="0" Size="2147483647" SourceColumn="SQL_BTN_FINISH" SourceColumnNullMapping="false" SourceVersion="Current" />
                       <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
                       <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
                     </Parameters>
@@ -1066,6 +1070,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
               <Mapping SourceColumn="ANNOTATE_WORK_HISTORY_ENTRY" DataSetColumn="ANNOTATE_WORK_HISTORY_ENTRY" />
               <Mapping SourceColumn="WORK_HISTORY_ENTRY" DataSetColumn="WORK_HISTORY_ENTRY" />
               <Mapping SourceColumn="DISPLAY_MODE" DataSetColumn="DISPLAY_MODE" />
+              <Mapping SourceColumn="SQL_BTN_FINISH" DataSetColumn="SQL_BTN_FINISH" />
             </Mappings>
             <Sources>
               <DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdAnzProfile" Modifier="Public" Name="cmdAnzProfile" QueryType="Scalar" ScalarCallRetval="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="cmdAnzProfile">
@@ -2535,6 +2540,13 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
+              <xs:element name="SQL_BTN_FINISH" msprop:Generator_ColumnVarNameInTable="columnSQL_BTN_FINISH" msprop:Generator_ColumnPropNameInRow="SQL_BTN_FINISH" msprop:Generator_ColumnPropNameInTable="SQL_BTN_FINISHColumn" msprop:Generator_UserColumnName="SQL_BTN_FINISH">
+                <xs:simpleType>
+                  <xs:restriction base="xs:string">
+                    <xs:maxLength value="2147483647" />
+                  </xs:restriction>
+                </xs:simpleType>
+              </xs:element>
             </xs:sequence>
           </xs:complexType>
         </xs:element>
@@ -3111,7 +3123,7 @@ SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRI
                   </xs:restriction>
                 </xs:simpleType>
               </xs:element>
-              <xs:element name="STRING2" msprop:Generator_ColumnVarNameInTable="columnSTRING2" msprop:Generator_ColumnPropNameInRow="STRING2" msprop:Generator_ColumnPropNameInTable="STRING2Column" msprop:Generator_UserColumnName="STRING2">
+              <xs:element name="STRING2" msprop:Generator_ColumnVarNameInTable="columnSTRING2" msprop:Generator_ColumnPropNameInRow="STRING2" msprop:Generator_ColumnPropNameInTable="STRING2Column" msprop:Generator_UserColumnName="STRING2" default="">
                 <xs:simpleType>
                   <xs:restriction base="xs:string">
                     <xs:maxLength value="900" />

app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss

@@ -4,7 +4,7 @@
      Changes to this file may cause incorrect behavior and will be lost if
      the code is regenerated.
 </autogenerated>-->
-<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="747" ViewPortY="131" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="939" ViewPortY="222" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
   <Shapes>
     <Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="8" X="1688" Y="-74" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
     <Shape ID="DesignTable:TBPM_KONFIGURATION" ZOrder="23" X="-17" Y="232" Height="262" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="97" />
@@ -17,12 +17,12 @@
     <Shape ID="DesignTable:TBPM_PROFILE" ZOrder="10" X="303" Y="316" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
     <Shape ID="DesignTable:TBWH_CHECK_PROFILE_CONTROLS" ZOrder="19" X="0" Y="-72" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
     <Shape ID="DesignTable:TBPM_PROFILE_CONTROLS" ZOrder="3" X="947" Y="400" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
-    <Shape ID="DesignTable:TBPM_CONTROL_TABLE" ZOrder="1" X="1300" Y="326" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBPM_CONTROL_TABLE" ZOrder="2" X="1300" Y="326" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="24" OldDataTableHeight="0" SplitterPosition="254" />
     <Shape ID="DesignTable:TBDD_GROUPS" ZOrder="12" X="19" Y="320" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
     <Shape ID="DesignTable:TBPROFILE_GROUP" ZOrder="4" X="1054" Y="47" Height="286" Width="277" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
     <Shape ID="DesignTable:FNPM_GET_FREE_USER_FOR_PROFILE" ZOrder="11" X="807" Y="155" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
     <Shape ID="DesignTable:TBDD_EMAIL_TEMPLATE" ZOrder="5" X="1823" Y="483" Height="267" Width="287" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
-    <Shape ID="DesignTable:TBDD_GUI_LANGUAGE_PHRASE" ZOrder="2" X="1727" Y="301" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
+    <Shape ID="DesignTable:TBDD_GUI_LANGUAGE_PHRASE" ZOrder="1" X="1727" Y="301" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
     <Shape ID="DesignTable:TBWH_CONNECTION" ZOrder="20" X="625" Y="114" Height="276" Width="189" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="272" />
   </Shapes>
   <Connectors>

app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj

@@ -164,8 +164,10 @@
       <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\PdfSharp-gdi.dll</HintPath>
     </Reference>
     <Reference Include="System" />
+    <Reference Include="System.ComponentModel.DataAnnotations" />
     <Reference Include="System.Configuration" />
     <Reference Include="System.Data" />
+    <Reference Include="System.Data.Linq" />
     <Reference Include="System.Data.OracleClient" />
     <Reference Include="System.Deployment" />
     <Reference Include="System.Design" />
@@ -517,6 +519,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmValidatorSearch.resx">
       <DependentUpon>frmValidatorSearch.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">

app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.0.0.0")>
+<Assembly: AssemblyVersion("2.0.0.3")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 

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

@@ -231,7 +231,7 @@ Namespace My
         
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("558")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("563")>  _
         Public Property frmValSearchSplitterDistance() As Integer
             Get
                 Return CType(Me("frmValSearchSplitterDistance"),Integer)

app/DD_PM_WINDREAM/My Project/Settings.settings

@@ -50,7 +50,7 @@
       <Value Profile="(Default)">0, 0</Value>
     </Setting>
     <Setting Name="frmValSearchSplitterDistance" Type="System.Int32" Scope="User">
-      <Value Profile="(Default)">558</Value>
+      <Value Profile="(Default)">563</Value>
     </Setting>
     <Setting Name="frmMainWindowState" Type="System.String" Scope="User">
       <Value Profile="(Default)">Normal</Value>

app/DD_PM_WINDREAM/My Project/licenses.licx

@@ -1,5 +1,5 @@
-DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

app/DD_PM_WINDREAM/My Project/licenses.licx.bak

@@ -1 +1,5 @@
+DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

app/DD_PM_WINDREAM/clsPatterns.vb

@@ -114,7 +114,9 @@ Public Class clsPatterns
             While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SURNAME)
                 result = ReplacePattern(result, PATTERN_USER, surname)
             End While
-
+            If IsDBNull(shortname) Then
+                shortname = ""
+            End If
             While ContainsPatternAndValue(result, PATTERN_USER, USER_VALUE_SHORTNAME)
                 result = ReplacePattern(result, PATTERN_USER, shortname)
             End While
@@ -145,7 +147,7 @@ Public Class clsPatterns
 
             While ContainsPattern(result, PATTERN_CTRL)
                 If oTryCounter > MAX_TRY_COUNT Then
-                    Throw New Exception("Max tries in ReplaceControlValues exceeded.")
+                    Throw New Exception($"Max tries in ReplaceControlValues exceeded - Result so far [{result}].")
                 End If
 
                 Dim controlName As String = GetNextPattern(result, PATTERN_CTRL).Value

app/DD_PM_WINDREAM/frmAdmin2.Designer.vb

@@ -85,8 +85,9 @@ Partial Class frmAdmin2
         Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
         Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
         Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
-        Me.OBJ_NAMETextBox = New System.Windows.Forms.TextBox()
+        Me.INTERNALCheckBox = New System.Windows.Forms.CheckBox()
         Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.OBJ_NAMETextBox = New System.Windows.Forms.TextBox()
         Me.CHANGED_WHENTextBox1 = New System.Windows.Forms.TextBox()
         Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox()
         Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox()
@@ -387,6 +388,7 @@ Partial Class frmAdmin2
         '
         'RibbonPageGroup2
         '
+        Me.RibbonPageGroup2.Enabled = False
         Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem6)
         Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem3)
         Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem4)
@@ -475,6 +477,7 @@ Partial Class frmAdmin2
         Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridView1.OptionsBehavior.Editable = False
+        Me.GridView1.OptionsBehavior.ReadOnly = True
         Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
         Me.GridView1.OptionsView.ShowAutoFilterRow = True
         '
@@ -495,12 +498,14 @@ Partial Class frmAdmin2
         Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "GUID", True))
         resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox")
         Me.GUIDTextBox.Name = "GUIDTextBox"
+        Me.GUIDTextBox.ReadOnly = True
         '
         'TITLETextBox
         '
         Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "TITLE", True))
         resources.ApplyResources(Me.TITLETextBox, "TITLETextBox")
         Me.TITLETextBox.Name = "TITLETextBox"
+        Me.TITLETextBox.ReadOnly = True
         '
         'EMAIL_SUBJECTTextBox
         '
@@ -510,20 +515,20 @@ Partial Class frmAdmin2
         '
         'EMAIL_BODY1TextBox
         '
-        Me.EMAIL_BODY1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY1", True))
         resources.ApplyResources(Me.EMAIL_BODY1TextBox, "EMAIL_BODY1TextBox")
+        Me.EMAIL_BODY1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY1", True))
         Me.EMAIL_BODY1TextBox.Name = "EMAIL_BODY1TextBox"
         '
         'EMAIL_BODY2TextBox
         '
-        Me.EMAIL_BODY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY2", True))
         resources.ApplyResources(Me.EMAIL_BODY2TextBox, "EMAIL_BODY2TextBox")
+        Me.EMAIL_BODY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY2", True))
         Me.EMAIL_BODY2TextBox.Name = "EMAIL_BODY2TextBox"
         '
         'EMAIL_BODY3TextBox
         '
-        Me.EMAIL_BODY3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY3", True))
         resources.ApplyResources(Me.EMAIL_BODY3TextBox, "EMAIL_BODY3TextBox")
+        Me.EMAIL_BODY3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY3", True))
         Me.EMAIL_BODY3TextBox.Name = "EMAIL_BODY3TextBox"
         '
         'ADDED_WHOTextBox
@@ -531,28 +536,33 @@ Partial Class frmAdmin2
         Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHO", True))
         resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox")
         Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
+        Me.ADDED_WHOTextBox.ReadOnly = True
         '
         'ADDED_WHENTextBox
         '
         Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHEN", True))
         resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox")
         Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
+        Me.ADDED_WHENTextBox.ReadOnly = True
         '
         'CHANGED_WHOTextBox
         '
         Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHO", True))
         resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox")
         Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
+        Me.CHANGED_WHOTextBox.ReadOnly = True
         '
         'CHANGED_WHENTextBox
         '
         Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHEN", True))
         resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox")
         Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
+        Me.CHANGED_WHENTextBox.ReadOnly = True
         '
         'XtraTabPage2
         '
         resources.ApplyResources(Me.XtraTabPage2, "XtraTabPage2")
+        Me.XtraTabPage2.Controls.Add(Me.INTERNALCheckBox)
         Me.XtraTabPage2.Controls.Add(OBJ_NAMELabel)
         Me.XtraTabPage2.Controls.Add(Me.OBJ_NAMETextBox)
         Me.XtraTabPage2.Controls.Add(CHANGED_WHENLabel1)
@@ -586,17 +596,24 @@ Partial Class frmAdmin2
         Me.XtraTabPage2.Controls.Add(Me.GridControl2)
         Me.XtraTabPage2.Name = "XtraTabPage2"
         '
-        'OBJ_NAMETextBox
+        'INTERNALCheckBox
         '
-        Me.OBJ_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "OBJ_NAME", True))
+        Me.INTERNALCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "INTERNAL", True))
-        resources.ApplyResources(Me.OBJ_NAMETextBox, "OBJ_NAMETextBox")
+        resources.ApplyResources(Me.INTERNALCheckBox, "INTERNALCheckBox")
-        Me.OBJ_NAMETextBox.Name = "OBJ_NAMETextBox"
+        Me.INTERNALCheckBox.Name = "INTERNALCheckBox"
+        Me.INTERNALCheckBox.UseVisualStyleBackColor = True
         '
         'TBDD_GUI_LANGUAGE_PHRASEBindingSource
         '
         Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataMember = "TBDD_GUI_LANGUAGE_PHRASE"
         Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource.DataSource = Me.DD_DMSLiteDataSet
         '
+        'OBJ_NAMETextBox
+        '
+        Me.OBJ_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "OBJ_NAME", True))
+        resources.ApplyResources(Me.OBJ_NAMETextBox, "OBJ_NAMETextBox")
+        Me.OBJ_NAMETextBox.Name = "OBJ_NAMETextBox"
+        '
         'CHANGED_WHENTextBox1
         '
         Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "CHANGED_WHEN", True))
@@ -651,14 +668,18 @@ Partial Class frmAdmin2
         '
         'STRING2TextBox
         '
-        Me.STRING2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True))
+        Me.STRING2TextBox.AcceptsReturn = True
+        Me.STRING2TextBox.AcceptsTab = True
         resources.ApplyResources(Me.STRING2TextBox, "STRING2TextBox")
+        Me.STRING2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True))
         Me.STRING2TextBox.Name = "STRING2TextBox"
         '
         'STRING1TextBox
         '
-        Me.STRING1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True))
+        Me.STRING1TextBox.AcceptsReturn = True
+        Me.STRING1TextBox.AcceptsTab = True
         resources.ApplyResources(Me.STRING1TextBox, "STRING1TextBox")
+        Me.STRING1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True))
         Me.STRING1TextBox.Name = "STRING1TextBox"
         '
         'CAPT_TYPEComboBox
@@ -709,6 +730,7 @@ Partial Class frmAdmin2
         Me.GridView2.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridView2.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridView2.OptionsBehavior.Editable = False
+        Me.GridView2.OptionsBehavior.ReadOnly = True
         Me.GridView2.OptionsView.EnableAppearanceEvenRow = True
         Me.GridView2.OptionsView.ShowAutoFilterRow = True
         '
@@ -852,4 +874,5 @@ Partial Class frmAdmin2
     Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn
     Friend WithEvents OBJ_NAMETextBox As TextBox
     Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents INTERNALCheckBox As CheckBox
 End Class

app/DD_PM_WINDREAM/frmAdmin2.vb

@@ -19,6 +19,7 @@ Public Class frmAdmin2
 
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbitemplateAdd.ItemClick
         TBDD_EMAIL_TEMPLATEBindingSource.AddNew()
+        TITLETextBox.ReadOnly = False
     End Sub
 
 
@@ -57,6 +58,7 @@ Public Class frmAdmin2
                 Me.TBDD_EMAIL_TEMPLATEBindingSource.EndEdit()
                 Me.TBDD_EMAIL_TEMPLATETableAdapter.Update(DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE)
                 Status_Changed("Vorlage gespeichert")
+                TITLETextBox.ReadOnly = True
             Else
                 Status_Changed("Keine Änderung")
             End If
@@ -137,4 +139,14 @@ Public Class frmAdmin2
     Private Sub TBDD_GUI_LANGUAGE_PHRASEBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_GUI_LANGUAGE_PHRASEBindingSource.AddingNew
         DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASE.ADDED_WHOColumn.DefaultValue = USER_USERNAME
     End Sub
+
+    Private Sub INTERNALCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles INTERNALCheckBox.CheckedChanged
+        If INTERNALCheckBox.Checked Then
+            TITLETextBox1.ReadOnly = True
+            OBJ_NAMETextBox.ReadOnly = True
+        Else
+            TITLETextBox1.ReadOnly = False
+            OBJ_NAMETextBox.ReadOnly = False
+        End If
+    End Sub
 End Class

app/DD_PM_WINDREAM/frmDocView.Designer.vb

@@ -32,7 +32,7 @@ Partial Class frmDocView
         '
         Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
-        Me.DocumentViewer1.Name = "DocumentViewer1"
+        Me.DocumentViewer1.Name = "DocumentViewerfrmDocView"
         Me.DocumentViewer1.Size = New System.Drawing.Size(800, 450)
         Me.DocumentViewer1.TabIndex = 0
         '

app/DD_PM_WINDREAM/frmKonfig.Designer.vb

@@ -50,7 +50,6 @@ Partial Class frmKonfig
         Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
-        Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.btnLogMail = New System.Windows.Forms.Button()
         Me.TabPage4 = New System.Windows.Forms.TabPage()
@@ -202,7 +201,6 @@ Partial Class frmKonfig
         Me.TabPage3.Controls.Add(Me.chkLogErrorsOnly)
         Me.TabPage3.Controls.Add(Me.Button3)
         Me.TabPage3.Controls.Add(Me.LinkLabel1)
-        Me.TabPage3.Controls.Add(Me.Button2)
         Me.TabPage3.Controls.Add(Me.Button1)
         Me.TabPage3.Controls.Add(Me.btnLogMail)
         resources.ApplyResources(Me.TabPage3, "TabPage3")
@@ -256,12 +254,6 @@ Partial Class frmKonfig
         Me.LinkLabel1.Name = "LinkLabel1"
         Me.LinkLabel1.TabStop = True
         '
-        'Button2
-        '
-        resources.ApplyResources(Me.Button2, "Button2")
-        Me.Button2.Name = "Button2"
-        Me.Button2.UseVisualStyleBackColor = True
-        '
         'Button1
         '
         resources.ApplyResources(Me.Button1, "Button1")
@@ -308,7 +300,7 @@ Partial Class frmKonfig
         '
         'gvLogs
         '
-        Me.gvLogs.Appearance.OddRow.BackColor = CType(resources.GetObject("gvLogs.Appearance.OddRow.BackColor"), System.Drawing.Color)
+        Me.gvLogs.Appearance.OddRow.BackColor = System.Drawing.Color.LightCyan
         Me.gvLogs.Appearance.OddRow.Options.UseBackColor = True
         Me.gvLogs.GridControl = Me.GridControlLogs
         Me.gvLogs.Name = "gvLogs"
@@ -334,6 +326,8 @@ Partial Class frmKonfig
         '
         Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
         Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing
         Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
         Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing
         Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing
@@ -388,7 +382,6 @@ Partial Class frmKonfig
     Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
     Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
     Friend WithEvents Button1 As System.Windows.Forms.Button
-    Friend WithEvents Button2 As System.Windows.Forms.Button
     Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
     Friend WithEvents Button3 As System.Windows.Forms.Button
     Friend WithEvents chkLogErrorsOnly As System.Windows.Forms.CheckBox

app/DD_PM_WINDREAM/frmKonfig.resx

@@ -643,7 +643,7 @@
     <value>True</value>
   </data>
   <data name="chkLogErrorsOnly.Location" type="System.Drawing.Point, System.Drawing">
-    <value>506, 28</value>
+    <value>438, 29</value>
   </data>
   <data name="chkLogErrorsOnly.Size" type="System.Drawing.Size, System.Drawing">
     <value>117, 21</value>
@@ -717,32 +717,8 @@
   <data name="&gt;&gt;LinkLabel1.ZOrder" xml:space="preserve">
     <value>7</value>
   </data>
-  <data name="Button2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>506, 105</value>
-  </data>
-  <data name="Button2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>219, 28</value>
-  </data>
-  <data name="Button2.TabIndex" type="System.Int32, mscorlib">
-    <value>38</value>
-  </data>
-  <data name="Button2.Text" xml:space="preserve">
-    <value>List all processes</value>
-  </data>
-  <data name="&gt;&gt;Button2.Name" xml:space="preserve">
-    <value>Button2</value>
-  </data>
-  <data name="&gt;&gt;Button2.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Button2.Parent" xml:space="preserve">
-    <value>TabPage3</value>
-  </data>
-  <data name="&gt;&gt;Button2.ZOrder" xml:space="preserve">
-    <value>8</value>
-  </data>
   <data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>506, 71</value>
+    <value>438, 64</value>
   </data>
   <data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
     <value>219, 29</value>
@@ -763,7 +739,7 @@
     <value>TabPage3</value>
   </data>
   <data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
-    <value>9</value>
+    <value>8</value>
   </data>
   <data name="btnLogMail.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
     <value>MiddleLeft</value>
@@ -793,7 +769,7 @@
     <value>TabPage3</value>
   </data>
   <data name="&gt;&gt;btnLogMail.ZOrder" xml:space="preserve">
-    <value>10</value>
+    <value>9</value>
   </data>
   <data name="TabPage3.Location" type="System.Drawing.Point, System.Drawing">
     <value>4, 26</value>
@@ -838,7 +814,7 @@
     <value>Speichere Log als...</value>
   </data>
   <data name="ContextMenuInternalLog.Size" type="System.Drawing.Size, System.Drawing">
-    <value>198, 48</value>
+    <value>198, 70</value>
   </data>
   <data name="&gt;&gt;ContextMenuInternalLog.Name" xml:space="preserve">
     <value>ContextMenuInternalLog</value>
@@ -855,9 +831,6 @@
   <data name="GridControlLogs.Location" type="System.Drawing.Point, System.Drawing">
     <value>3, 3</value>
   </data>
-  <data name="gvLogs.Appearance.OddRow.BackColor" type="System.Drawing.Color, System.Drawing">
-    <value>LightCyan</value>
-  </data>
   <data name="GridControlLogs.Size" type="System.Drawing.Size, System.Drawing">
     <value>826, 312</value>
   </data>

app/DD_PM_WINDREAM/frmKonfig.vb

@@ -150,22 +150,6 @@ Public Class frmKonfig
         MsgBox("Culture-Name: " & CultureInfo.CurrentCulture.Name & vbNewLine & "Culture-ThreeLetterISOLanguageName: " & CultureInfo.CurrentCulture.ThreeLetterISOLanguageName & vbNewLine &
                "CurrentUICulture-Name: " & CultureInfo.CurrentUICulture.Name & vbNewLine & "CurrentUICulture-ThreeLetterISOLanguageName: " & CultureInfo.CurrentUICulture.ThreeLetterISOLanguageName)
     End Sub
-
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        Dim p As Process
-        Dim processes As Process()
-        processes = Process.GetProcesses()
-        Dim msg As String
-        For Each p In processes
-            If p.ProcessName <> "svchost" Then
-                msg = msg & p.ProcessName & vbNewLine
-            End If
-
-
-        Next
-        MsgBox("Liste der Processnames: " & vbNewLine & msg, MsgBoxStyle.Information)
-    End Sub
-
     Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs)
         My.Settings.Save()
     End Sub

app/DD_PM_WINDREAM/frmMain.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmMain
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()>
@@ -40,23 +40,6 @@ Partial Class frmMain
         Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter()
         Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
-        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
-        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.tsbtnrefresh = New System.Windows.Forms.ToolStripButton()
-        Me.tsddConfig = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.ProfileUndBasisToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.KonfigurationenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.tsbtnMonitoring = New System.Windows.Forms.ToolStripButton()
-        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
-        Me.tsstlblUser = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.tslblLicenses = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.tslblUserLoggedin = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.tslblVersion = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.tsslblLastSysnc = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.tslblmessage = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.tsslblDEBUG_LOG = New System.Windows.Forms.ToolStripStatusLabel()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.GridControl_Docs = New DevExpress.XtraGrid.GridControl()
         Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -102,6 +85,29 @@ Partial Class frmMain
         Me.TimerReminder = New System.Windows.Forms.Timer(Me.components)
         Me.Timer5Mins = New System.Windows.Forms.Timer(Me.components)
         Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.bbtniRefresh = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbtniMonitor = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbiProfilverwaltung = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbiKonfiguration = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbtniGrundeinstellung = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbtnitemInfo = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.bsiUser = New DevExpress.XtraBars.BarStaticItem()
+        Me.bsiLicenses = New DevExpress.XtraBars.BarStaticItem()
+        Me.bsiUserLoggedIn = New DevExpress.XtraBars.BarStaticItem()
+        Me.bsiVersion = New DevExpress.XtraBars.BarStaticItem()
+        Me.bsilastsync = New DevExpress.XtraBars.BarStaticItem()
+        Me.bsiDebug = New DevExpress.XtraBars.BarStaticItem()
+        Me.bsiMessage = New DevExpress.XtraBars.BarStaticItem()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components)
         CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerDashboard.Panel1.SuspendLayout()
         Me.SplitContainerDashboard.Panel2.SuspendLayout()
@@ -120,8 +126,6 @@ Partial Class frmMain
         CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.ToolStrip1.SuspendLayout()
-        Me.StatusStrip1.SuspendLayout()
         Me.Panel1.SuspendLayout()
         CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.ContextMenuGrid.SuspendLayout()
@@ -135,6 +139,8 @@ Partial Class frmMain
         CType(Me.TBPM_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'SplitContainerDashboard
@@ -275,134 +281,11 @@ Partial Class frmMain
         Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing
         Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
-        'ToolStrip1
-        '
-        resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
-        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.tsbtnrefresh, Me.tsddConfig, Me.tsbtnMonitoring})
-        Me.ToolStrip1.Name = "ToolStrip1"
-        '
-        'ToolStripButton2
-        '
-        Me.ToolStripButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2")
-        Me.ToolStripButton2.Name = "ToolStripButton2"
-        '
-        'ToolStripButton1
-        '
-        Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripButton1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Hammer_Builder_16xLG
-        resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
-        Me.ToolStripButton1.Name = "ToolStripButton1"
-        '
-        'ToolStripSeparator1
-        '
-        Me.ToolStripSeparator1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
-        '
-        'tsbtnrefresh
-        '
-        Me.tsbtnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG
-        resources.ApplyResources(Me.tsbtnrefresh, "tsbtnrefresh")
-        Me.tsbtnrefresh.Name = "tsbtnrefresh"
-        '
-        'tsddConfig
-        '
-        Me.tsddConfig.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.tsddConfig.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ProfileUndBasisToolStripMenuItem, Me.KonfigurationenToolStripMenuItem})
-        resources.ApplyResources(Me.tsddConfig, "tsddConfig")
-        Me.tsddConfig.Name = "tsddConfig"
-        '
-        'ProfileUndBasisToolStripMenuItem
-        '
-        Me.ProfileUndBasisToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.puzzle2
-        Me.ProfileUndBasisToolStripMenuItem.Name = "ProfileUndBasisToolStripMenuItem"
-        resources.ApplyResources(Me.ProfileUndBasisToolStripMenuItem, "ProfileUndBasisToolStripMenuItem")
-        '
-        'KonfigurationenToolStripMenuItem
-        '
-        resources.ApplyResources(Me.KonfigurationenToolStripMenuItem, "KonfigurationenToolStripMenuItem")
-        Me.KonfigurationenToolStripMenuItem.Name = "KonfigurationenToolStripMenuItem"
-        '
-        'tsbtnMonitoring
-        '
-        Me.tsbtnMonitoring.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.tsbtnMonitoring.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Monitor_Screen_16xLG
-        resources.ApplyResources(Me.tsbtnMonitoring, "tsbtnMonitoring")
-        Me.tsbtnMonitoring.Name = "tsbtnMonitoring"
-        '
-        'StatusStrip1
-        '
-        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
-        Me.StatusStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsstlblUser, Me.tslblLicenses, Me.tslblUserLoggedin, Me.tslblVersion, Me.tsslblLastSysnc, Me.tslblmessage, Me.tsslblDEBUG_LOG})
-        Me.StatusStrip1.Name = "StatusStrip1"
-        '
-        'tsstlblUser
-        '
-        Me.tsstlblUser.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
-        Me.tsstlblUser.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.user
-        Me.tsstlblUser.Name = "tsstlblUser"
-        resources.ApplyResources(Me.tsstlblUser, "tsstlblUser")
-        '
-        'tslblLicenses
-        '
-        Me.tslblLicenses.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
-        Me.tslblLicenses.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.key
-        Me.tslblLicenses.Name = "tslblLicenses"
-        resources.ApplyResources(Me.tslblLicenses, "tslblLicenses")
-        '
-        'tslblUserLoggedin
-        '
-        Me.tslblUserLoggedin.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
-        Me.tslblUserLoggedin.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.group_key
-        Me.tslblUserLoggedin.Name = "tslblUserLoggedin"
-        resources.ApplyResources(Me.tslblUserLoggedin, "tslblUserLoggedin")
-        '
-        'tslblVersion
-        '
-        Me.tslblVersion.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
-        Me.tslblVersion.Name = "tslblVersion"
-        resources.ApplyResources(Me.tslblVersion, "tslblVersion")
-        '
-        'tsslblLastSysnc
-        '
-        Me.tsslblLastSysnc.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
-            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
-        resources.ApplyResources(Me.tsslblLastSysnc, "tsslblLastSysnc")
-        Me.tsslblLastSysnc.Name = "tsslblLastSysnc"
-        '
-        'tslblmessage
-        '
-        Me.tslblmessage.BackColor = System.Drawing.Color.Yellow
-        Me.tslblmessage.Name = "tslblmessage"
-        resources.ApplyResources(Me.tslblmessage, "tslblmessage")
-        '
-        'tsslblDEBUG_LOG
-        '
-        resources.ApplyResources(Me.tsslblDEBUG_LOG, "tsslblDEBUG_LOG")
-        Me.tsslblDEBUG_LOG.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
-        Me.tsslblDEBUG_LOG.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.A_1
-        Me.tsslblDEBUG_LOG.Name = "tsslblDEBUG_LOG"
-        '
         'Panel1
         '
         Me.Panel1.Controls.Add(Me.GridControl_Docs)
         Me.Panel1.Controls.Add(Me.BindingNavigator1)
         Me.Panel1.Controls.Add(Me.NavBarControl1)
-        Me.Panel1.Controls.Add(Me.ToolStrip1)
-        Me.Panel1.Controls.Add(Me.StatusStrip1)
         Me.Panel1.Controls.Add(Me.SplitContainerDashboard)
         resources.ApplyResources(Me.Panel1, "Panel1")
         Me.Panel1.Name = "Panel1"
@@ -476,6 +359,7 @@ Partial Class frmMain
         Me.GridView_Docs.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[True]
         Me.GridView_Docs.OptionsBehavior.AllowGroupExpandAnimation = DevExpress.Utils.DefaultBoolean.[True]
         Me.GridView_Docs.OptionsBehavior.Editable = False
+        Me.GridView_Docs.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridView_Docs.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect
         Me.GridView_Docs.OptionsView.ColumnAutoWidth = False
         Me.GridView_Docs.OptionsView.EnableAppearanceEvenRow = True
@@ -669,13 +553,200 @@ Partial Class frmMain
         Me.Timer5Mins.Enabled = True
         Me.Timer5Mins.Interval = 350000
         '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage})
+        resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
+        Me.RibbonControl1.MaxItemId = 15
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.QuickToolbarItemLinks.Add(Me.bbtnitemInfo)
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        '
+        'bbtniRefresh
+        '
+        resources.ApplyResources(Me.bbtniRefresh, "bbtniRefresh")
+        Me.bbtniRefresh.Id = 1
+        Me.bbtniRefresh.ImageOptions.Image = CType(resources.GetObject("bbtniRefresh.ImageOptions.Image"), System.Drawing.Image)
+        Me.bbtniRefresh.ImageOptions.LargeImage = CType(resources.GetObject("bbtniRefresh.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bbtniRefresh.Name = "bbtniRefresh"
+        '
+        'bbtniMonitor
+        '
+        resources.ApplyResources(Me.bbtniMonitor, "bbtniMonitor")
+        Me.bbtniMonitor.Id = 2
+        Me.bbtniMonitor.ImageOptions.Image = CType(resources.GetObject("bbtniMonitor.ImageOptions.Image"), System.Drawing.Image)
+        Me.bbtniMonitor.ImageOptions.LargeImage = CType(resources.GetObject("bbtniMonitor.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bbtniMonitor.Name = "bbtniMonitor"
+        '
+        'bbiProfilverwaltung
+        '
+        resources.ApplyResources(Me.bbiProfilverwaltung, "bbiProfilverwaltung")
+        Me.bbiProfilverwaltung.Id = 3
+        Me.bbiProfilverwaltung.ImageOptions.Image = CType(resources.GetObject("bbiProfilverwaltung.ImageOptions.Image"), System.Drawing.Image)
+        Me.bbiProfilverwaltung.ImageOptions.LargeImage = CType(resources.GetObject("bbiProfilverwaltung.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bbiProfilverwaltung.Name = "bbiProfilverwaltung"
+        '
+        'bbiKonfiguration
+        '
+        resources.ApplyResources(Me.bbiKonfiguration, "bbiKonfiguration")
+        Me.bbiKonfiguration.Id = 4
+        Me.bbiKonfiguration.ImageOptions.Image = CType(resources.GetObject("bbiKonfiguration.ImageOptions.Image"), System.Drawing.Image)
+        Me.bbiKonfiguration.ImageOptions.LargeImage = CType(resources.GetObject("bbiKonfiguration.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bbiKonfiguration.Name = "bbiKonfiguration"
+        '
+        'bbtniGrundeinstellung
+        '
+        resources.ApplyResources(Me.bbtniGrundeinstellung, "bbtniGrundeinstellung")
+        Me.bbtniGrundeinstellung.Id = 5
+        Me.bbtniGrundeinstellung.ImageOptions.Image = CType(resources.GetObject("bbtniGrundeinstellung.ImageOptions.Image"), System.Drawing.Image)
+        Me.bbtniGrundeinstellung.ImageOptions.LargeImage = CType(resources.GetObject("bbtniGrundeinstellung.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bbtniGrundeinstellung.Name = "bbtniGrundeinstellung"
+        Me.bbtniGrundeinstellung.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
+        '
+        'bbtnitemInfo
+        '
+        resources.ApplyResources(Me.bbtnitemInfo, "bbtnitemInfo")
+        Me.bbtnitemInfo.Id = 6
+        Me.bbtnitemInfo.ImageOptions.Image = CType(resources.GetObject("bbtnitemInfo.ImageOptions.Image"), System.Drawing.Image)
+        Me.bbtnitemInfo.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitemInfo.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bbtnitemInfo.Name = "bbtnitemInfo"
+        Me.bbtnitemInfo.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
+        '
+        'BarButtonItem1
+        '
+        resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
+        Me.BarButtonItem1.Id = 7
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
+        'bsiUser
+        '
+        resources.ApplyResources(Me.bsiUser, "bsiUser")
+        Me.bsiUser.Id = 8
+        Me.bsiUser.ImageOptions.Image = CType(resources.GetObject("bsiUser.ImageOptions.Image"), System.Drawing.Image)
+        Me.bsiUser.ImageOptions.LargeImage = CType(resources.GetObject("bsiUser.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bsiUser.Name = "bsiUser"
+        Me.bsiUser.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'bsiLicenses
+        '
+        resources.ApplyResources(Me.bsiLicenses, "bsiLicenses")
+        Me.bsiLicenses.Id = 9
+        Me.bsiLicenses.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.key
+        Me.bsiLicenses.Name = "bsiLicenses"
+        Me.bsiLicenses.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'bsiUserLoggedIn
+        '
+        resources.ApplyResources(Me.bsiUserLoggedIn, "bsiUserLoggedIn")
+        Me.bsiUserLoggedIn.Id = 10
+        Me.bsiUserLoggedIn.ImageOptions.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.group_key
+        Me.bsiUserLoggedIn.Name = "bsiUserLoggedIn"
+        Me.bsiUserLoggedIn.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'bsiVersion
+        '
+        resources.ApplyResources(Me.bsiVersion, "bsiVersion")
+        Me.bsiVersion.Id = 11
+        Me.bsiVersion.Name = "bsiVersion"
+        '
+        'bsilastsync
+        '
+        resources.ApplyResources(Me.bsilastsync, "bsilastsync")
+        Me.bsilastsync.Id = 12
+        Me.bsilastsync.ImageOptions.Image = CType(resources.GetObject("bsilastsync.ImageOptions.Image"), System.Drawing.Image)
+        Me.bsilastsync.ImageOptions.LargeImage = CType(resources.GetObject("bsilastsync.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bsilastsync.Name = "bsilastsync"
+        Me.bsilastsync.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'bsiDebug
+        '
+        resources.ApplyResources(Me.bsiDebug, "bsiDebug")
+        Me.bsiDebug.Id = 13
+        Me.bsiDebug.ImageOptions.Image = CType(resources.GetObject("bsiDebug.ImageOptions.Image"), System.Drawing.Image)
+        Me.bsiDebug.ImageOptions.LargeImage = CType(resources.GetObject("bsiDebug.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bsiDebug.Name = "bsiDebug"
+        Me.bsiDebug.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'bsiMessage
+        '
+        resources.ApplyResources(Me.bsiMessage, "bsiMessage")
+        Me.bsiMessage.Id = 14
+        Me.bsiMessage.Name = "bsiMessage"
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtniRefresh)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
+        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtniMonitor)
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
+        '
+        'RibbonPageGroup3
+        '
+        Me.RibbonPageGroup3.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.bbiProfilverwaltung)
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.bbiKonfiguration)
+        Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
+        resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
+        '
+        'RibbonPageGroup4
+        '
+        Me.RibbonPageGroup4.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup4.ItemLinks.Add(Me.bbtniGrundeinstellung)
+        Me.RibbonPageGroup4.ItemLinks.Add(Me.bbtnitemInfo)
+        Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
+        resources.ApplyResources(Me.RibbonPageGroup4, "RibbonPageGroup4")
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiUser)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiLicenses)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiUserLoggedIn)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiVersion)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsilastsync)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDebug)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiMessage)
+        resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
+        '
+        'ApplicationMenu1
+        '
+        Me.ApplicationMenu1.Name = "ApplicationMenu1"
+        Me.ApplicationMenu1.Ribbon = Me.RibbonControl1
+        '
         'frmMain
         '
+        Me.Appearance.Options.UseFont = True
         resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.IconOptions.Icon = CType(resources.GetObject("frmMain.IconOptions.Icon"), System.Drawing.Icon)
         Me.KeyPreview = True
         Me.Name = "frmMain"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
         Me.SplitContainerDashboard.Panel1.ResumeLayout(False)
         Me.SplitContainerDashboard.Panel2.ResumeLayout(False)
         CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).EndInit()
@@ -698,10 +769,6 @@ Partial Class frmMain
         CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ToolStrip1.ResumeLayout(False)
-        Me.ToolStrip1.PerformLayout()
-        Me.StatusStrip1.ResumeLayout(False)
-        Me.StatusStrip1.PerformLayout()
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
         CType(Me.GridControl_Docs, System.ComponentModel.ISupportInitialize).EndInit()
@@ -717,7 +784,10 @@ Partial Class frmMain
         CType(Me.TBPM_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
+        Me.PerformLayout()
 
     End Sub
     Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet
@@ -725,24 +795,14 @@ Partial Class frmMain
     Friend WithEvents TBPM_PROFILETableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter
     Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
     Friend WithEvents ImageListProfile As System.Windows.Forms.ImageList
-    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
-    Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
-    Friend WithEvents tsstlblUser As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
     Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
     Friend WithEvents TimerRefresh As System.Windows.Forms.Timer
-    Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
     Friend WithEvents TBPM_USERBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBPM_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter
     Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
     Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource
     Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter
-    Friend WithEvents tslblLicenses As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents tslblUserLoggedin As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents tsbtnrefresh As System.Windows.Forms.ToolStripButton
-    Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
-    Friend WithEvents tslblVersion As System.Windows.Forms.ToolStripStatusLabel
     Friend WithEvents TimerReminder As System.Windows.Forms.Timer
     Friend WithEvents ContextMenuGrid As ContextMenuStrip
     Friend WithEvents CMGroupStart As ToolStripMenuItem
@@ -752,7 +812,6 @@ Partial Class frmMain
     Friend WithEvents NavBarGroupMore As DevExpress.XtraNavBar.NavBarGroup
     Friend WithEvents NavBarItemOverview As DevExpress.XtraNavBar.NavBarItem
     Friend WithEvents NavBarItemDashboard As DevExpress.XtraNavBar.NavBarItem
-    Friend WithEvents tsslblLastSysnc As ToolStripStatusLabel
     Friend WithEvents cmsNavPane As ContextMenuStrip
     Friend WithEvents tsmiValidationProfil As ToolStripMenuItem
     Friend WithEvents Panel1 As Panel
@@ -768,7 +827,6 @@ Partial Class frmMain
     Friend WithEvents ChartBottomRight As DevExpress.XtraCharts.ChartControl
     Friend WithEvents ToolStripBottomRight As ToolStrip
     Friend WithEvents TabellenlayoutZurücksetzenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents tslblmessage As ToolStripStatusLabel
     Friend WithEvents tsmiMarkedFilesFinish As ToolStripMenuItem
     Friend WithEvents GridControl_Docs As DevExpress.XtraGrid.GridControl
     Friend WithEvents GridView_Docs As DevExpress.XtraGrid.Views.Grid.GridView
@@ -788,14 +846,32 @@ Partial Class frmMain
     Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
     Friend WithEvents LayoutSpeichernToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents Timer5Mins As Timer
-    Friend WithEvents tsslblDEBUG_LOG As ToolStripStatusLabel
     Friend WithEvents ToolTip1 As ToolTip
-    Friend WithEvents tsddConfig As ToolStripDropDownButton
-    Friend WithEvents ProfileUndBasisToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents KonfigurationenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents LöscheAlleFilterToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents ContextMenuNotifyIcon As ContextMenuStrip
     Friend WithEvents PopupErinnerungInaktivierenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents AnzeigenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents tsbtnMonitoring As ToolStripButton
+    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
+    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents bbtniRefresh As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bbtniMonitor As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bbiProfilverwaltung As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bbiKonfiguration As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bbtniGrundeinstellung As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents bbtnitemInfo As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents ApplicationMenu1 As DevExpress.XtraBars.Ribbon.ApplicationMenu
+    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bsiUser As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents bsiLicenses As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents bsiUserLoggedIn As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents bsiVersion As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents bsilastsync As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents bsiDebug As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents bsiMessage As DevExpress.XtraBars.BarStaticItem
 End Class

app/DD_PM_WINDREAM/frmMonitor.Designer.vb

@@ -27,6 +27,9 @@ Partial Class frmMonitor
         Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarStaticItemInfoDoc = New DevExpress.XtraBars.BarStaticItem()
+        Me.BarStaticItemInfo = New DevExpress.XtraBars.BarStaticItem()
         Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
@@ -43,7 +46,8 @@ Partial Class frmMonitor
         Me.GridControl4 = New DevExpress.XtraGrid.GridControl()
         Me.GridView4 = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.XtraSaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
-        Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
+        Me.SplitContainerControlMain = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.DocumentViewerMonitor = New DigitalData.Controls.DocumentViewer.DocumentViewer()
         CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerControl1.SuspendLayout()
@@ -59,15 +63,17 @@ Partial Class frmMonitor
         CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridView4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.SplitContainerControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControlMain.SuspendLayout()
         Me.SuspendLayout()
         '
         'RibbonControl1
         '
         Me.RibbonControl1.AutoHideEmptyItems = True
         Me.RibbonControl1.ExpandCollapseItem.Id = 0
-        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4})
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarStaticItemInfoDoc, Me.BarStaticItemInfo})
         Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
-        Me.RibbonControl1.MaxItemId = 5
+        Me.RibbonControl1.MaxItemId = 7
         Me.RibbonControl1.Name = "RibbonControl1"
         Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
         Me.RibbonControl1.Size = New System.Drawing.Size(1202, 158)
@@ -96,6 +102,31 @@ Partial Class frmMonitor
         Me.BarButtonItem3.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImage"), System.Drawing.Image)
         Me.BarButtonItem3.Name = "BarButtonItem3"
         '
+        'BarButtonItem4
+        '
+        Me.BarButtonItem4.Caption = "Layouts zurücksetzen"
+        Me.BarButtonItem4.Id = 4
+        Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image)
+        Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.BarButtonItem4.Name = "BarButtonItem4"
+        '
+        'BarStaticItemInfoDoc
+        '
+        Me.BarStaticItemInfoDoc.Caption = "No Row Selected"
+        Me.BarStaticItemInfoDoc.Id = 5
+        Me.BarStaticItemInfoDoc.Name = "BarStaticItemInfoDoc"
+        '
+        'BarStaticItemInfo
+        '
+        Me.BarStaticItemInfo.Caption = "BarStaticItemInfo"
+        Me.BarStaticItemInfo.Id = 6
+        Me.BarStaticItemInfo.ItemAppearance.Normal.BackColor = System.Drawing.Color.OrangeRed
+        Me.BarStaticItemInfo.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Black
+        Me.BarStaticItemInfo.ItemAppearance.Normal.Options.UseBackColor = True
+        Me.BarStaticItemInfo.ItemAppearance.Normal.Options.UseForeColor = True
+        Me.BarStaticItemInfo.Name = "BarStaticItemInfo"
+        Me.BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+        '
         'RibbonPage1
         '
         Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
@@ -112,6 +143,8 @@ Partial Class frmMonitor
         '
         'RibbonStatusBar1
         '
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemInfoDoc)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItemInfo)
         Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 673)
         Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
         Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
@@ -125,13 +158,13 @@ Partial Class frmMonitor
         'SplitContainerControl1
         '
         Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 158)
+        Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 0)
         Me.SplitContainerControl1.Name = "SplitContainerControl1"
         Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControl1)
         Me.SplitContainerControl1.Panel1.Text = "Panel1"
         Me.SplitContainerControl1.Panel2.Controls.Add(Me.SplitContainerControl2)
         Me.SplitContainerControl1.Panel2.Text = "Panel2"
-        Me.SplitContainerControl1.Size = New System.Drawing.Size(1202, 515)
+        Me.SplitContainerControl1.Size = New System.Drawing.Size(866, 515)
         Me.SplitContainerControl1.SplitterPosition = 510
         Me.SplitContainerControl1.TabIndex = 2
         '
@@ -154,6 +187,9 @@ Partial Class frmMonitor
         Me.GridView1.Name = "GridView1"
         Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView1.OptionsBehavior.Editable = False
+        Me.GridView1.OptionsBehavior.ReadOnly = True
+        Me.GridView1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
         Me.GridView1.OptionsView.ShowAutoFilterRow = True
         Me.GridView1.OptionsView.ShowViewCaption = True
@@ -170,7 +206,7 @@ Partial Class frmMonitor
         Me.SplitContainerControl2.Panel1.Text = "Panel1"
         Me.SplitContainerControl2.Panel2.Controls.Add(Me.SplitContainerControl3)
         Me.SplitContainerControl2.Panel2.Text = "Panel2"
-        Me.SplitContainerControl2.Size = New System.Drawing.Size(682, 515)
+        Me.SplitContainerControl2.Size = New System.Drawing.Size(346, 515)
         Me.SplitContainerControl2.SplitterPosition = 270
         Me.SplitContainerControl2.TabIndex = 0
         '
@@ -181,7 +217,7 @@ Partial Class frmMonitor
         Me.GridControl2.MainView = Me.GridView2
         Me.GridControl2.MenuManager = Me.RibbonControl1
         Me.GridControl2.Name = "GridControl2"
-        Me.GridControl2.Size = New System.Drawing.Size(682, 270)
+        Me.GridControl2.Size = New System.Drawing.Size(346, 270)
         Me.GridControl2.TabIndex = 1
         Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2})
         '
@@ -193,6 +229,9 @@ Partial Class frmMonitor
         Me.GridView2.Name = "GridView2"
         Me.GridView2.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridView2.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView2.OptionsBehavior.Editable = False
+        Me.GridView2.OptionsBehavior.ReadOnly = True
+        Me.GridView2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridView2.OptionsView.EnableAppearanceEvenRow = True
         Me.GridView2.OptionsView.ShowAutoFilterRow = True
         Me.GridView2.OptionsView.ShowViewCaption = True
@@ -208,7 +247,7 @@ Partial Class frmMonitor
         Me.SplitContainerControl3.Panel1.Text = "Panel1"
         Me.SplitContainerControl3.Panel2.Controls.Add(Me.GridControl4)
         Me.SplitContainerControl3.Panel2.Text = "Panel2"
-        Me.SplitContainerControl3.Size = New System.Drawing.Size(682, 235)
+        Me.SplitContainerControl3.Size = New System.Drawing.Size(346, 235)
         Me.SplitContainerControl3.SplitterPosition = 400
         Me.SplitContainerControl3.TabIndex = 0
         '
@@ -219,7 +258,7 @@ Partial Class frmMonitor
         Me.GridControl3.MainView = Me.GridView3
         Me.GridControl3.MenuManager = Me.RibbonControl1
         Me.GridControl3.Name = "GridControl3"
-        Me.GridControl3.Size = New System.Drawing.Size(400, 235)
+        Me.GridControl3.Size = New System.Drawing.Size(336, 235)
         Me.GridControl3.TabIndex = 2
         Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3})
         '
@@ -231,6 +270,9 @@ Partial Class frmMonitor
         Me.GridView3.Name = "GridView3"
         Me.GridView3.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridView3.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView3.OptionsBehavior.Editable = False
+        Me.GridView3.OptionsBehavior.ReadOnly = True
+        Me.GridView3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
         Me.GridView3.OptionsView.EnableAppearanceEvenRow = True
         Me.GridView3.OptionsView.ShowAutoFilterRow = True
         Me.GridView3.OptionsView.ShowViewCaption = True
@@ -243,7 +285,7 @@ Partial Class frmMonitor
         Me.GridControl4.MainView = Me.GridView4
         Me.GridControl4.MenuManager = Me.RibbonControl1
         Me.GridControl4.Name = "GridControl4"
-        Me.GridControl4.Size = New System.Drawing.Size(272, 235)
+        Me.GridControl4.Size = New System.Drawing.Size(0, 0)
         Me.GridControl4.TabIndex = 3
         Me.GridControl4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView4})
         '
@@ -264,20 +306,34 @@ Partial Class frmMonitor
         '
         Me.XtraSaveFileDialog1.Filter = """xlsx-Dateien|*.xlsx"""
         '
-        'BarButtonItem4
+        'SplitContainerControlMain
         '
-        Me.BarButtonItem4.Caption = "Layouts zurücksetzen"
+        Me.SplitContainerControlMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.Panel1
-        Me.BarButtonItem4.Id = 4
+        Me.SplitContainerControlMain.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image)
+        Me.SplitContainerControlMain.Location = New System.Drawing.Point(0, 158)
-        Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.SplitContainerControlMain.Name = "SplitContainerControlMain"
-        Me.BarButtonItem4.Name = "BarButtonItem4"
+        Me.SplitContainerControlMain.Panel1.Controls.Add(Me.DocumentViewerMonitor)
+        Me.SplitContainerControlMain.Panel1.Text = "Panel1"
+        Me.SplitContainerControlMain.Panel2.Controls.Add(Me.SplitContainerControl1)
+        Me.SplitContainerControlMain.Panel2.Text = "Panel2"
+        Me.SplitContainerControlMain.Size = New System.Drawing.Size(1202, 515)
+        Me.SplitContainerControlMain.SplitterPosition = 326
+        Me.SplitContainerControlMain.TabIndex = 5
+        '
+        'DocumentViewerMonitor
+        '
+        Me.DocumentViewerMonitor.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.DocumentViewerMonitor.Location = New System.Drawing.Point(0, 0)
+        Me.DocumentViewerMonitor.Name = "DocumentViewerMonitor"
+        Me.DocumentViewerMonitor.Size = New System.Drawing.Size(326, 515)
+        Me.DocumentViewerMonitor.TabIndex = 0
         '
         'frmMonitor
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1202, 697)
-        Me.Controls.Add(Me.SplitContainerControl1)
+        Me.Controls.Add(Me.SplitContainerControlMain)
         Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.RibbonControl1)
         Me.Name = "frmMonitor"
@@ -299,6 +355,8 @@ Partial Class frmMonitor
         CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GridControl4, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GridView4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.SplitContainerControlMain, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainerControlMain.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -325,4 +383,8 @@ Partial Class frmMonitor
     Friend WithEvents XtraSaveFileDialog1 As SaveFileDialog
     Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents SplitContainerControlMain As DevExpress.XtraEditors.SplitContainerControl
+    Friend WithEvents BarStaticItemInfoDoc As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents BarStaticItemInfo As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents DocumentViewerMonitor As DigitalData.Controls.DocumentViewer.DocumentViewer
 End Class

app/DD_PM_WINDREAM/frmMonitor.resx

@@ -170,25 +170,23 @@
   </data>
   <data name="BarButtonItem4.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJXRFWHRUaXRsZQBDbGVhcjtF
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAENsZWFyO0VyYXNlO1JlbW92ZTtC
-        cmFzZTtSZW1vdmU7QmFycztSaWJib247h4CDcwAAAIxJREFUOE+lkNsNgCAQBO3JFvylCjuxKkuxm5Ml
+        YXJzO1JpYmJvbjuHgINzAAAAjElEQVQ4T6WQ2w2AIBAE7ckW/KUKO7EqS7GbkyV3eMCCBj8mvnYmwUVE
-        d3jAggY/Jr52JsFFRH5BX1775gkRUXBfbIsHAyPFyzRSiAYGOqxlI0caGeiAiZ6A7aycwH5aBixAhx3a
+        fkFfXvvmCRFRcF9siwcDI8XLNFKIBgY6rGUjRxoZ6ICJnoDtrJzAfloGLECHHdojkFGP5yeG41wjgqt+
-        I5BRj+cnhuNcI4KrfmCCJ8nAApCNt0iWAQuMIo1cH2EUKWTgA92IjUZYgEbqMYO+/I4sN6ixgsCcjQTu
+        YIInycACkI23SJYBC4wijVwfYRQpZOAD3YiNRliARuoxg778jiw3qLGCwJyNBO4AAAAASUVORK5CYII=
-        AAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="BarButtonItem4.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJXRFWHRUaXRsZQBDbGVhcjtF
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAldEVYdFRpdGxlAENsZWFyO0VyYXNlO1JlbW92ZTtC
-        cmFzZTtSZW1vdmU7QmFycztSaWJib247h4CDcwAAATVJREFUWEfFkdFtwzAMRLNTV+ivp+gmnaqjZBtV
+        YXJzO1JpYmJvbjuHgINzAAABNUlEQVRYR8WR0W3DMAxEs1NX6K+n6CadqqNkG1Vn6ASSPtmSJTgfD7EJ
-        Z+gEkj7ZkiU4Hw+xCfLeIX6llD6KHD6JHFreP98jbJlUwLPMtMihBSGdWHl3CTm0IKADJSd7iQjznUyh
+        8t4hfqWUPoocPokcWt4/3yNsmVTAs8y0yKEFIZ1YeXcJObQgoAMlJ3uJCPOdTKGOA2dycijBfCdTxMNA
-        jgNncnIowXwnU8TDQI+cuBLMdzKFPQqMyEktwXwnU/AgcEdO9hLMdzIFlgMzcrIx/yCM5OXV8h3mH4SR
+        j5y4Esx3MoU9CozISS3BfCdT8CBwR072Esx3MgWWAzNysjH/IIzk5dXyHeYfhJG8vFwOmH8QRvLycnlm
-        vLxcDph/EEby8nJ5ZugTLJdnar6TRcqyCrnLLgd0OKGlLKuQu1Q5oMdJLeVoFVIO3IulHK7AyYH1uJft
+        6BMsl2dqvpNFyrIKucsuB3Q4oaUsq5C7VDmgx0kt5WgVUg7ci6UcrsDJgfW4l+337yuT8FsOVeAIBzmw
-        9+8rk/BbDlXgCAc5sE4lJ7MlpBy0Clj5bImmHIwUAKMlTuWgVSB+AktviUs5aBWYLdElB2cF7pboloOr
+        TiUnsyWkHLQKWPlsiaYcjBQAoyVO5aBVIH4CS2+JSzloFZgt0SUHZwXuluiWg6sCoyWG5KCnwGUJGzJD
-        AqMlhuSgp8BlCRsyQ33IoYpmCd7NUh9yaAtVYv0/8Cnk8Enk8DnS6x9vj+lSV2uHuAAAAABJRU5ErkJg
+        fcihimYJ3s1SH3JoC1Vi/T/wKeTwSeTwOdLrH2+P6VJXa4e4AAAAAElFTkSuQmCC
-        gg==
 </value>
   </data>
   <metadata name="XtraSaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

app/DD_PM_WINDREAM/frmMonitor.vb

@@ -14,7 +14,7 @@ Public Class frmMonitor
     Dim GRID4_TITLE As String
     Dim GRID4_SQL As String
     Private _ActiveGrid As GridControl = Nothing
-    Private _frmDocView As frmDocView 'You need a reference to Form1
+    ' Private _frmDocView As frmDocView 'You need a reference to Form1
     Dim FormShown As Boolean = False
     Private Sub GridView1_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged
         If FormShown = False Then Exit Sub
@@ -32,58 +32,96 @@ Public Class frmMonitor
                 oDocPath = GridView1.GetFocusedRowCellValue(GridView1.Columns("FULL_FILE_PATH"))
             Catch ex As Exception
                 LOGGER.Warn($"Error getting DocPath in Monitor: {ex.Message}")
+                oDocPath = String.Empty
             End Try
+            BarStaticItemInfoDoc.Caption = $"DocID: {oDocID} - Docpath: {oDocPath}"
             Dim oDetailSQL = GRID2_SQL
             oDetailSQL = oDetailSQL.Replace("@DocID", oDocID)
-            oDetailSQL = oDetailSQL.ToLower.Replace("@idbobjid", oDocID)
+            oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
             oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
             oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
             Dim oDT2 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL)
             If Not IsNothing(oDT2) Then
+                LOGGER.Debug($"Found {oDT2.Rows.Count} rows for GridView2")
                 GridView2.Columns.Clear()
                 GridControl2.DataSource = oDT2
+                Try
+                    GridView2.Columns("Wann").DisplayFormat.FormatType = FormatType.DateTime
+                    GridView2.Columns("Wann").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                Catch ex As Exception
+                    GridView2.Columns("When").DisplayFormat.FormatType = FormatType.DateTime
+                    GridView2.Columns("When").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                End Try
+
             End If
             If DT_MONITOR_KONFIG.Rows.Count > 2 Then
                 oDetailSQL = GRID3_SQL
                 oDetailSQL = oDetailSQL.Replace("@DocID", oDocID)
-                oDetailSQL = oDetailSQL.ToLower.Replace("@idbobjid", oDocID)
+                oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
                 oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
                 oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
                 Dim oDT3 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL)
                 If Not IsNothing(oDT3) Then
+                    LOGGER.Debug($"Found {oDT3.Rows.Count} rows for GridView3")
                     GridView3.Columns.Clear()
                     GridControl3.DataSource = oDT3
                 End If
                 If DT_MONITOR_KONFIG.Rows.Count = 4 Then
                     oDetailSQL = GRID4_SQL
                     oDetailSQL = oDetailSQL.Replace("@DocID", oDocID)
-                    oDetailSQL = oDetailSQL.ToLower.Replace("@idbobjid", oDocID)
+                    oDetailSQL = oDetailSQL.Replace("@IDBOBJID", oDocID)
                     oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
                     oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
                     Dim oDT4 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL)
                     If Not IsNothing(oDT4) Then
+                        LOGGER.Debug($"Found {oDT4.Rows.Count} rows for GridView4")
                         GridView4.Columns.Clear()
                         GridControl4.DataSource = oDT4
+                        Try
+                            GridView4.Columns("Geändert wann").DisplayFormat.FormatType = FormatType.DateTime
+                            GridView4.Columns("Geändert wann").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                        Catch ex As Exception
+                            GridView4.Columns("Changed when").DisplayFormat.FormatType = FormatType.DateTime
+                            GridView4.Columns("Changed when").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                        End Try
                     End If
                 End If
             End If
 
-
+            Load_Doc(oDocPath)
-            If BarButtonItem3.Caption <> "DocView aktivieren" And oDocPath <> "" Then
-                If Not Application.OpenForms().OfType(Of frmValidator).Any Then
-                    frmDocView.Show()
-                    _frmDocView = frmDocView
-                End If
-                _frmDocView.LoadFile(oDocPath)
-
-            End If
-
 
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error GridView1.FocusedRowChanged:")
         End Try
     End Sub
+    Sub Load_Doc(oDocPath As String)
+        Try
+            If SplitContainerControlMain.Collapsed = False And oDocPath <> String.Empty Then
+                'If Not Application.OpenForms().OfType(Of frmValidator).Any Then
+                '    frmDocView.Show()
+                '    _frmDocView = frmDocView
+                'End If
+                '_frmDocView.LoadFile(oDocPath)
+
+                If File.Exists(oDocPath) Then
+                    DocumentViewerMonitor.LoadFile(oDocPath)
+                    BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+                    DocumentViewerMonitor.Visible = True
+                Else
+                    BarStaticItemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                    BarStaticItemInfo.Caption = $"File is not existing or accessible!"
+                    DocumentViewerMonitor.Visible = False
+                End If
+
+
+            End If
+        Catch ex As Exception
+            LOGGER.Error(ex.Message)
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in LoadDoc:")
+        End Try
+    End Sub
     Private Sub frmMonitor_Load(sender As Object, e As EventArgs) Handles Me.Load
+        SplitContainerControlMain.Collapsed = True
         Load_Grid_Data()
 
         Select Case DT_MONITOR_KONFIG.Rows.Count
@@ -106,7 +144,11 @@ Public Class frmMonitor
                 SplitContainerControl2.SplitterPosition = CONFIG.Config.MonitorSplitter2_Distance
                 SplitContainerControl3.SplitterPosition = CONFIG.Config.MonitorSplitter3_Distance
         End Select
-
+        Try
+            DocumentViewerMonitor.Init(LOGCONFIG, GDPICTURE_LICENSE)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+        End Try
     End Sub
     Sub Load_Grid_Data()
         Try
@@ -146,8 +188,8 @@ Public Class frmMonitor
                                 GRID3_SQL = DT_MONITOR_KONFIG.Rows(2).Item("GRID_SQL")
                                 GridView3.ViewCaption = GRID3_TITLE
                             Case 4
-                                GRID3_TITLE = DT_MONITOR_KONFIG.Rows(3).Item("GRID_TITLE")
+                                GRID3_TITLE = DT_MONITOR_KONFIG.Rows(2).Item("GRID_TITLE")
-                                GRID3_SQL = DT_MONITOR_KONFIG.Rows(3).Item("GRID_SQL")
+                                GRID3_SQL = DT_MONITOR_KONFIG.Rows(2).Item("GRID_SQL")
                                 GridView3.ViewCaption = GRID3_TITLE
                                 GRID4_TITLE = DT_MONITOR_KONFIG.Rows(3).Item("GRID_TITLE")
                                 GRID4_SQL = DT_MONITOR_KONFIG.Rows(3).Item("GRID_SQL")
@@ -318,9 +360,10 @@ Public Class frmMonitor
         End Select
         CONFIG.Save()
         Try
-            _frmDocView.Close()
+            DocumentViewerMonitor.Done()
+            '_frmDocView.Close()
         Catch ex As Exception
-
+            LOGGER.Error(ex)
         End Try
     End Sub
 
@@ -365,25 +408,43 @@ Public Class frmMonitor
     End Sub
 
     Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
-        If BarButtonItem3.Caption = "DocView aktivieren" Then
+        If SplitContainerControlMain.Collapsed = True Then
-            BarButtonItem3.Caption = "DocView deaktivieren"
+            SplitContainerControlMain.Collapsed = False
+
+            If USER_LANGUAGE = "de-DE" Then
+                BarButtonItem3.Caption = "DocView deaktivieren"
+            Else
+                BarButtonItem3.Caption = "Deactivate DocView"
+            End If
+
             BarButtonItem3.Down = True
             Dim oDocPath
             Try
                 oDocPath = GridView1.GetFocusedRowCellValue(GridView1.Columns("FULL_FILE_PATH"))
+
+
             Catch ex As Exception
                 LOGGER.Warn($"Error getting DocPath in Monitor: {ex.Message}")
+                Exit Sub
             End Try
-            If oDocPath <> "" Then
+            DocumentViewerMonitor?.LoadFile(oDocPath)
-                If Not Application.OpenForms().OfType(Of frmValidator).Any Then
+
-                    frmDocView.Show()
+            'If oDocPath <> "" Then
-                    _frmDocView = frmDocView
+            '    If Not Application.OpenForms().OfType(Of frmValidator).Any Then
-                End If
+            '        frmDocView.Show()
-                _frmDocView.LoadFile(oDocPath)
+            '        _frmDocView = frmDocView
-                Me.SendToBack()
+            '    End If
-            End If
+            '    _frmDocView.LoadFile(oDocPath)
+            '    Me.SendToBack()
+            'End If
         Else
-            BarButtonItem3.Caption = "DocView aktivieren"
+            SplitContainerControlMain.Collapsed = True
+
+            If USER_LANGUAGE = "de-DE" Then
+                BarButtonItem3.Caption = "DocView aktivieren"
+            Else
+                BarButtonItem3.Caption = "Activate DocView"
+            End If
             BarButtonItem3.Down = False
         End If
 

app/DD_PM_WINDREAM/frmValidator.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmValidator
-    Inherits System.Windows.Forms.Form
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()>
@@ -30,15 +30,9 @@ Partial Class frmValidator
         Me.btnSave = New System.Windows.Forms.Button()
         Me.DESCRIPTIONLabel = New System.Windows.Forms.Label()
         Me.pnldesigner = New System.Windows.Forms.Panel()
-        Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
         Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
         Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
         Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
-        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
-        Me.tstrplblError = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.tstrlbl_Info = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.tsslblDocID = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.tsslbl_State = New System.Windows.Forms.ToolStripStatusLabel()
         Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
         Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
         Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
@@ -82,20 +76,31 @@ Partial Class frmValidator
         Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
         Me.PdfBarController1 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components)
         Me.PdfBarController2 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components)
-        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
-        Me.ToolStripDropDownButton2 = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.DateiÖffnenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripButtonSearchesReload = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripButtonJumpFile = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripButtonDeleteFile = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripButtonAnnotation = New System.Windows.Forms.ToolStripButton()
         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.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.bsiError = New DevExpress.XtraBars.BarStaticItem()
+        Me.bsiInformation = New DevExpress.XtraBars.BarStaticItem()
+        Me.bsiDocID = New DevExpress.XtraBars.BarStaticItem()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbtniRefresh = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbtniRefreshSearches = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbtniNext = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbtniDelete = New DevExpress.XtraBars.BarButtonItem()
+        Me.bbtniAnnotation = New DevExpress.XtraBars.BarButtonItem()
+        Me.bsiInfo1 = New DevExpress.XtraBars.BarStaticItem()
+        Me.bsiInfo2 = New DevExpress.XtraBars.BarStaticItem()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.DocumentViewerValidator = New DigitalData.Controls.DocumentViewer.DocumentViewer()
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer1.Panel1.SuspendLayout()
         Me.SplitContainer1.Panel2.SuspendLayout()
@@ -104,7 +109,6 @@ Partial Class frmValidator
         CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.StatusStrip1.SuspendLayout()
         CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -114,9 +118,9 @@ Partial Class frmValidator
         CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.ToolStrip1.SuspendLayout()
         CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'SplitContainer1
@@ -126,34 +130,27 @@ Partial Class frmValidator
         '
         'SplitContainer1.Panel1
         '
-        resources.ApplyResources(Me.SplitContainer1.Panel1, "SplitContainer1.Panel1")
         Me.SplitContainer1.Panel1.Controls.Add(Me.Panel1)
-        Me.ToolTip1.SetToolTip(Me.SplitContainer1.Panel1, resources.GetString("SplitContainer1.Panel1.ToolTip"))
         '
         'SplitContainer1.Panel2
         '
-        resources.ApplyResources(Me.SplitContainer1.Panel2, "SplitContainer1.Panel2")
+        Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewerValidator)
-        Me.SplitContainer1.Panel2.Controls.Add(Me.DocumentViewer1)
-        Me.ToolTip1.SetToolTip(Me.SplitContainer1.Panel2, resources.GetString("SplitContainer1.Panel2.ToolTip"))
         Me.SplitContainer1.TabStop = False
-        Me.ToolTip1.SetToolTip(Me.SplitContainer1, resources.GetString("SplitContainer1.ToolTip"))
         '
         'Panel1
         '
-        resources.ApplyResources(Me.Panel1, "Panel1")
         Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLight
         Me.Panel1.Controls.Add(Me.TITLELabel1)
         Me.Panel1.Controls.Add(Me.btnSave)
         Me.Panel1.Controls.Add(Me.DESCRIPTIONLabel)
         Me.Panel1.Controls.Add(Me.pnldesigner)
+        resources.ApplyResources(Me.Panel1, "Panel1")
         Me.Panel1.Name = "Panel1"
-        Me.ToolTip1.SetToolTip(Me.Panel1, resources.GetString("Panel1.ToolTip"))
         '
         'TITLELabel1
         '
         resources.ApplyResources(Me.TITLELabel1, "TITLELabel1")
         Me.TITLELabel1.Name = "TITLELabel1"
-        Me.ToolTip1.SetToolTip(Me.TITLELabel1, resources.GetString("TITLELabel1.ToolTip"))
         '
         'btnSave
         '
@@ -161,27 +158,18 @@ Partial Class frmValidator
         Me.btnSave.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_pink
         Me.btnSave.Name = "btnSave"
         Me.btnSave.TabStop = False
-        Me.ToolTip1.SetToolTip(Me.btnSave, resources.GetString("btnSave.ToolTip"))
         Me.btnSave.UseVisualStyleBackColor = True
         '
         'DESCRIPTIONLabel
         '
         resources.ApplyResources(Me.DESCRIPTIONLabel, "DESCRIPTIONLabel")
         Me.DESCRIPTIONLabel.Name = "DESCRIPTIONLabel"
-        Me.ToolTip1.SetToolTip(Me.DESCRIPTIONLabel, resources.GetString("DESCRIPTIONLabel.ToolTip"))
         '
         'pnldesigner
         '
         resources.ApplyResources(Me.pnldesigner, "pnldesigner")
         Me.pnldesigner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.pnldesigner.Name = "pnldesigner"
-        Me.ToolTip1.SetToolTip(Me.pnldesigner, resources.GetString("pnldesigner.ToolTip"))
-        '
-        'DocumentViewer1
-        '
-        resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1")
-        Me.DocumentViewer1.Name = "DocumentViewer1"
-        Me.ToolTip1.SetToolTip(Me.DocumentViewer1, resources.GetString("DocumentViewer1.ToolTip"))
         '
         'BarAndDockingController3
         '
@@ -198,35 +186,6 @@ Partial Class frmValidator
         Me.BarAndDockingController1.PropertiesBar.AllowLinkLighting = False
         Me.BarAndDockingController1.PropertiesDocking.ViewStyle = DevExpress.XtraBars.Docking2010.Views.DockingViewStyle.Classic
         '
-        'StatusStrip1
-        '
-        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tstrplblError, Me.tstrlbl_Info, Me.tsslblDocID, Me.tsslbl_State})
-        Me.StatusStrip1.Name = "StatusStrip1"
-        Me.ToolTip1.SetToolTip(Me.StatusStrip1, resources.GetString("StatusStrip1.ToolTip"))
-        '
-        'tstrplblError
-        '
-        resources.ApplyResources(Me.tstrplblError, "tstrplblError")
-        Me.tstrplblError.ForeColor = System.Drawing.Color.Red
-        Me.tstrplblError.Name = "tstrplblError"
-        '
-        'tstrlbl_Info
-        '
-        resources.ApplyResources(Me.tstrlbl_Info, "tstrlbl_Info")
-        Me.tstrlbl_Info.Name = "tstrlbl_Info"
-        '
-        'tsslblDocID
-        '
-        resources.ApplyResources(Me.tsslblDocID, "tsslblDocID")
-        Me.tsslblDocID.Name = "tsslblDocID"
-        '
-        'tsslbl_State
-        '
-        resources.ApplyResources(Me.tsslbl_State, "tsslbl_State")
-        Me.tsslbl_State.BackColor = System.Drawing.Color.Yellow
-        Me.tsslbl_State.Name = "tsslbl_State"
-        '
         'DD_DMSLiteDataSet
         '
         Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
@@ -307,40 +266,33 @@ Partial Class frmValidator
         '
         'barDockControlTop
         '
-        resources.ApplyResources(Me.barDockControlTop, "barDockControlTop")
         Me.barDockControlTop.CausesValidation = False
+        resources.ApplyResources(Me.barDockControlTop, "barDockControlTop")
         Me.barDockControlTop.Manager = Me.BarManager1
-        Me.ToolTip1.SetToolTip(Me.barDockControlTop, resources.GetString("barDockControlTop.ToolTip"))
         '
         'barDockControlBottom
         '
-        resources.ApplyResources(Me.barDockControlBottom, "barDockControlBottom")
         Me.barDockControlBottom.CausesValidation = False
+        resources.ApplyResources(Me.barDockControlBottom, "barDockControlBottom")
         Me.barDockControlBottom.Manager = Me.BarManager1
-        Me.ToolTip1.SetToolTip(Me.barDockControlBottom, resources.GetString("barDockControlBottom.ToolTip"))
         '
         'barDockControlLeft
         '
-        resources.ApplyResources(Me.barDockControlLeft, "barDockControlLeft")
         Me.barDockControlLeft.CausesValidation = False
+        resources.ApplyResources(Me.barDockControlLeft, "barDockControlLeft")
         Me.barDockControlLeft.Manager = Me.BarManager1
-        Me.ToolTip1.SetToolTip(Me.barDockControlLeft, resources.GetString("barDockControlLeft.ToolTip"))
         '
         'barDockControlRight
         '
-        resources.ApplyResources(Me.barDockControlRight, "barDockControlRight")
         Me.barDockControlRight.CausesValidation = False
+        resources.ApplyResources(Me.barDockControlRight, "barDockControlRight")
         Me.barDockControlRight.Manager = Me.BarManager1
-        Me.ToolTip1.SetToolTip(Me.barDockControlRight, resources.GetString("barDockControlRight.ToolTip"))
         '
         'PdfFileOpenBarItem1
         '
         resources.ApplyResources(Me.PdfFileOpenBarItem1, "PdfFileOpenBarItem1")
         Me.PdfFileOpenBarItem1.Enabled = False
         Me.PdfFileOpenBarItem1.Id = 1
-        Me.PdfFileOpenBarItem1.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFileOpenBarItem1.ImageOptions.ImageIndex"), Integer)
-        Me.PdfFileOpenBarItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFileOpenBarItem1.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfFileOpenBarItem1.ImageOptions.SvgImage = CType(resources.GetObject("PdfFileOpenBarItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfFileOpenBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O))
         Me.PdfFileOpenBarItem1.Name = "PdfFileOpenBarItem1"
         '
@@ -349,9 +301,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfFileSaveAsBarItem1, "PdfFileSaveAsBarItem1")
         Me.PdfFileSaveAsBarItem1.Enabled = False
         Me.PdfFileSaveAsBarItem1.Id = 2
-        Me.PdfFileSaveAsBarItem1.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFileSaveAsBarItem1.ImageOptions.ImageIndex"), Integer)
-        Me.PdfFileSaveAsBarItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFileSaveAsBarItem1.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfFileSaveAsBarItem1.ImageOptions.SvgImage = CType(resources.GetObject("PdfFileSaveAsBarItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfFileSaveAsBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S))
         Me.PdfFileSaveAsBarItem1.Name = "PdfFileSaveAsBarItem1"
         '
@@ -360,9 +309,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfFilePrintBarItem2, "PdfFilePrintBarItem2")
         Me.PdfFilePrintBarItem2.Enabled = False
         Me.PdfFilePrintBarItem2.Id = 3
-        Me.PdfFilePrintBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFilePrintBarItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfFilePrintBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFilePrintBarItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfFilePrintBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfFilePrintBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfFilePrintBarItem2.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.P))
         Me.PdfFilePrintBarItem2.Name = "PdfFilePrintBarItem2"
         '
@@ -371,9 +317,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfPreviousPageBarItem2, "PdfPreviousPageBarItem2")
         Me.PdfPreviousPageBarItem2.Enabled = False
         Me.PdfPreviousPageBarItem2.Id = 4
-        Me.PdfPreviousPageBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfPreviousPageBarItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfPreviousPageBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfPreviousPageBarItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfPreviousPageBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfPreviousPageBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfPreviousPageBarItem2.Name = "PdfPreviousPageBarItem2"
         '
         'PdfNextPageBarItem2
@@ -381,9 +324,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfNextPageBarItem2, "PdfNextPageBarItem2")
         Me.PdfNextPageBarItem2.Enabled = False
         Me.PdfNextPageBarItem2.Id = 5
-        Me.PdfNextPageBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfNextPageBarItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfNextPageBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfNextPageBarItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfNextPageBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfNextPageBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfNextPageBarItem2.Name = "PdfNextPageBarItem2"
         '
         'PdfFindTextBarItem2
@@ -391,9 +331,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfFindTextBarItem2, "PdfFindTextBarItem2")
         Me.PdfFindTextBarItem2.Enabled = False
         Me.PdfFindTextBarItem2.Id = 6
-        Me.PdfFindTextBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfFindTextBarItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfFindTextBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfFindTextBarItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfFindTextBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfFindTextBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfFindTextBarItem2.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F))
         Me.PdfFindTextBarItem2.Name = "PdfFindTextBarItem2"
         '
@@ -402,9 +339,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfZoomOutBarItem2, "PdfZoomOutBarItem2")
         Me.PdfZoomOutBarItem2.Enabled = False
         Me.PdfZoomOutBarItem2.Id = 7
-        Me.PdfZoomOutBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoomOutBarItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfZoomOutBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoomOutBarItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfZoomOutBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoomOutBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfZoomOutBarItem2.Name = "PdfZoomOutBarItem2"
         '
         'PdfZoomInBarItem2
@@ -412,9 +346,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfZoomInBarItem2, "PdfZoomInBarItem2")
         Me.PdfZoomInBarItem2.Enabled = False
         Me.PdfZoomInBarItem2.Id = 8
-        Me.PdfZoomInBarItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoomInBarItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfZoomInBarItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoomInBarItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfZoomInBarItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoomInBarItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfZoomInBarItem2.Name = "PdfZoomInBarItem2"
         '
         'PdfExactZoomListBarSubItem2
@@ -422,9 +353,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfExactZoomListBarSubItem2, "PdfExactZoomListBarSubItem2")
         Me.PdfExactZoomListBarSubItem2.Enabled = False
         Me.PdfExactZoomListBarSubItem2.Id = 9
-        Me.PdfExactZoomListBarSubItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfExactZoomListBarSubItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfExactZoomListBarSubItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfExactZoomListBarSubItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfExactZoomListBarSubItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfExactZoomListBarSubItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfExactZoomListBarSubItem2.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom10CheckItem2, True), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom25CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom50CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom75CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom100CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom125CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom150CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom200CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom400CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom500CheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetActualSizeZoomModeCheckItem2, True), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetPageLevelZoomModeCheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitWidthZoomModeCheckItem2), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitVisibleZoomModeCheckItem2)})
         Me.PdfExactZoomListBarSubItem2.Name = "PdfExactZoomListBarSubItem2"
         Me.PdfExactZoomListBarSubItem2.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu
@@ -434,9 +362,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfZoom10CheckItem2, "PdfZoom10CheckItem2")
         Me.PdfZoom10CheckItem2.Enabled = False
         Me.PdfZoom10CheckItem2.Id = 10
-        Me.PdfZoom10CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom10CheckItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfZoom10CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom10CheckItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfZoom10CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom10CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfZoom10CheckItem2.Name = "PdfZoom10CheckItem2"
         '
         'PdfZoom25CheckItem2
@@ -444,9 +369,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfZoom25CheckItem2, "PdfZoom25CheckItem2")
         Me.PdfZoom25CheckItem2.Enabled = False
         Me.PdfZoom25CheckItem2.Id = 11
-        Me.PdfZoom25CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom25CheckItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfZoom25CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom25CheckItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfZoom25CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom25CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfZoom25CheckItem2.Name = "PdfZoom25CheckItem2"
         '
         'PdfZoom50CheckItem2
@@ -454,9 +376,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfZoom50CheckItem2, "PdfZoom50CheckItem2")
         Me.PdfZoom50CheckItem2.Enabled = False
         Me.PdfZoom50CheckItem2.Id = 12
-        Me.PdfZoom50CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom50CheckItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfZoom50CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom50CheckItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfZoom50CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom50CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfZoom50CheckItem2.Name = "PdfZoom50CheckItem2"
         '
         'PdfZoom75CheckItem2
@@ -464,9 +383,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfZoom75CheckItem2, "PdfZoom75CheckItem2")
         Me.PdfZoom75CheckItem2.Enabled = False
         Me.PdfZoom75CheckItem2.Id = 13
-        Me.PdfZoom75CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom75CheckItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfZoom75CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom75CheckItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfZoom75CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom75CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfZoom75CheckItem2.Name = "PdfZoom75CheckItem2"
         '
         'PdfZoom100CheckItem2
@@ -474,9 +390,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfZoom100CheckItem2, "PdfZoom100CheckItem2")
         Me.PdfZoom100CheckItem2.Enabled = False
         Me.PdfZoom100CheckItem2.Id = 14
-        Me.PdfZoom100CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom100CheckItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfZoom100CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom100CheckItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfZoom100CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom100CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfZoom100CheckItem2.Name = "PdfZoom100CheckItem2"
         '
         'PdfZoom125CheckItem2
@@ -484,9 +397,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfZoom125CheckItem2, "PdfZoom125CheckItem2")
         Me.PdfZoom125CheckItem2.Enabled = False
         Me.PdfZoom125CheckItem2.Id = 15
-        Me.PdfZoom125CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom125CheckItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfZoom125CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom125CheckItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfZoom125CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom125CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfZoom125CheckItem2.Name = "PdfZoom125CheckItem2"
         '
         'PdfZoom150CheckItem2
@@ -494,9 +404,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfZoom150CheckItem2, "PdfZoom150CheckItem2")
         Me.PdfZoom150CheckItem2.Enabled = False
         Me.PdfZoom150CheckItem2.Id = 16
-        Me.PdfZoom150CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom150CheckItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfZoom150CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom150CheckItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfZoom150CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom150CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfZoom150CheckItem2.Name = "PdfZoom150CheckItem2"
         '
         'PdfZoom200CheckItem2
@@ -504,9 +411,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfZoom200CheckItem2, "PdfZoom200CheckItem2")
         Me.PdfZoom200CheckItem2.Enabled = False
         Me.PdfZoom200CheckItem2.Id = 17
-        Me.PdfZoom200CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom200CheckItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfZoom200CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom200CheckItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfZoom200CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom200CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfZoom200CheckItem2.Name = "PdfZoom200CheckItem2"
         '
         'PdfZoom400CheckItem2
@@ -514,9 +418,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfZoom400CheckItem2, "PdfZoom400CheckItem2")
         Me.PdfZoom400CheckItem2.Enabled = False
         Me.PdfZoom400CheckItem2.Id = 18
-        Me.PdfZoom400CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom400CheckItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfZoom400CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom400CheckItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfZoom400CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom400CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfZoom400CheckItem2.Name = "PdfZoom400CheckItem2"
         '
         'PdfZoom500CheckItem2
@@ -524,9 +425,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfZoom500CheckItem2, "PdfZoom500CheckItem2")
         Me.PdfZoom500CheckItem2.Enabled = False
         Me.PdfZoom500CheckItem2.Id = 19
-        Me.PdfZoom500CheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfZoom500CheckItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfZoom500CheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfZoom500CheckItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfZoom500CheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfZoom500CheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfZoom500CheckItem2.Name = "PdfZoom500CheckItem2"
         '
         'PdfSetActualSizeZoomModeCheckItem2
@@ -534,9 +432,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfSetActualSizeZoomModeCheckItem2, "PdfSetActualSizeZoomModeCheckItem2")
         Me.PdfSetActualSizeZoomModeCheckItem2.Enabled = False
         Me.PdfSetActualSizeZoomModeCheckItem2.Id = 20
-        Me.PdfSetActualSizeZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetActualSizeZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfSetActualSizeZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetActualSizeZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfSetActualSizeZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetActualSizeZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfSetActualSizeZoomModeCheckItem2.Name = "PdfSetActualSizeZoomModeCheckItem2"
         '
         'PdfSetPageLevelZoomModeCheckItem2
@@ -544,9 +439,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfSetPageLevelZoomModeCheckItem2, "PdfSetPageLevelZoomModeCheckItem2")
         Me.PdfSetPageLevelZoomModeCheckItem2.Enabled = False
         Me.PdfSetPageLevelZoomModeCheckItem2.Id = 21
-        Me.PdfSetPageLevelZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetPageLevelZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfSetPageLevelZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetPageLevelZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfSetPageLevelZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetPageLevelZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfSetPageLevelZoomModeCheckItem2.Name = "PdfSetPageLevelZoomModeCheckItem2"
         '
         'PdfSetFitWidthZoomModeCheckItem2
@@ -554,9 +446,6 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfSetFitWidthZoomModeCheckItem2, "PdfSetFitWidthZoomModeCheckItem2")
         Me.PdfSetFitWidthZoomModeCheckItem2.Enabled = False
         Me.PdfSetFitWidthZoomModeCheckItem2.Id = 22
-        Me.PdfSetFitWidthZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetFitWidthZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfSetFitWidthZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetFitWidthZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfSetFitWidthZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetFitWidthZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfSetFitWidthZoomModeCheckItem2.Name = "PdfSetFitWidthZoomModeCheckItem2"
         '
         'PdfSetFitVisibleZoomModeCheckItem2
@@ -564,18 +453,12 @@ Partial Class frmValidator
         resources.ApplyResources(Me.PdfSetFitVisibleZoomModeCheckItem2, "PdfSetFitVisibleZoomModeCheckItem2")
         Me.PdfSetFitVisibleZoomModeCheckItem2.Enabled = False
         Me.PdfSetFitVisibleZoomModeCheckItem2.Id = 23
-        Me.PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.ImageIndex = CType(resources.GetObject("PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.ImageIndex"), Integer)
-        Me.PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.LargeImageIndex = CType(resources.GetObject("PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.LargeImageIndex"), Integer)
-        Me.PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.SvgImage = CType(resources.GetObject("PdfSetFitVisibleZoomModeCheckItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.PdfSetFitVisibleZoomModeCheckItem2.Name = "PdfSetFitVisibleZoomModeCheckItem2"
         '
         'BarButtonItem1
         '
         resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1")
         Me.BarButtonItem1.Id = 0
-        Me.BarButtonItem1.ImageOptions.ImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.ImageIndex"), Integer)
-        Me.BarButtonItem1.ImageOptions.LargeImageIndex = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImageIndex"), Integer)
-        Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
         Me.BarButtonItem1.Name = "BarButtonItem1"
         '
         'PdfBarController2
@@ -604,68 +487,6 @@ Partial Class frmValidator
         Me.PdfBarController2.BarItems.Add(Me.PdfSetFitWidthZoomModeCheckItem2)
         Me.PdfBarController2.BarItems.Add(Me.PdfSetFitVisibleZoomModeCheckItem2)
         '
-        'ToolStrip1
-        '
-        resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
-        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButton2, Me.ToolStripButton1, Me.ToolStripButtonSearchesReload, Me.ToolStripButtonJumpFile, Me.ToolStripButtonDeleteFile, Me.ToolStripButtonAnnotation})
-        Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolTip1.SetToolTip(Me.ToolStrip1, resources.GetString("ToolStrip1.ToolTip"))
-        '
-        'ToolStripDropDownButton2
-        '
-        resources.ApplyResources(Me.ToolStripDropDownButton2, "ToolStripDropDownButton2")
-        Me.ToolStripDropDownButton2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem1, Me.InfoToolStripMenuItem, Me.EigenschaftenToolStripMenuItem})
-        Me.ToolStripDropDownButton2.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Files_7954
-        Me.ToolStripDropDownButton2.Name = "ToolStripDropDownButton2"
-        '
-        'DateiÖffnenToolStripMenuItem1
-        '
-        resources.ApplyResources(Me.DateiÖffnenToolStripMenuItem1, "DateiÖffnenToolStripMenuItem1")
-        Me.DateiÖffnenToolStripMenuItem1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Open_6296
-        Me.DateiÖffnenToolStripMenuItem1.Name = "DateiÖffnenToolStripMenuItem1"
-        '
-        'InfoToolStripMenuItem
-        '
-        resources.ApplyResources(Me.InfoToolStripMenuItem, "InfoToolStripMenuItem")
-        Me.InfoToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.information
-        Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
-        '
-        'EigenschaftenToolStripMenuItem
-        '
-        resources.ApplyResources(Me.EigenschaftenToolStripMenuItem, "EigenschaftenToolStripMenuItem")
-        Me.EigenschaftenToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.properties_16xLG
-        Me.EigenschaftenToolStripMenuItem.Name = "EigenschaftenToolStripMenuItem"
-        '
-        'ToolStripButton1
-        '
-        resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
-        Me.ToolStripButton1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xMD
-        Me.ToolStripButton1.Name = "ToolStripButton1"
-        '
-        'ToolStripButtonSearchesReload
-        '
-        resources.ApplyResources(Me.ToolStripButtonSearchesReload, "ToolStripButtonSearchesReload")
-        Me.ToolStripButtonSearchesReload.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xMD
-        Me.ToolStripButtonSearchesReload.Name = "ToolStripButtonSearchesReload"
-        '
-        'ToolStripButtonJumpFile
-        '
-        resources.ApplyResources(Me.ToolStripButtonJumpFile, "ToolStripButtonJumpFile")
-        Me.ToolStripButtonJumpFile.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Nextrequest_10302
-        Me.ToolStripButtonJumpFile.Name = "ToolStripButtonJumpFile"
-        '
-        'ToolStripButtonDeleteFile
-        '
-        resources.ApplyResources(Me.ToolStripButtonDeleteFile, "ToolStripButtonDeleteFile")
-        Me.ToolStripButtonDeleteFile.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.delete_12x12
-        Me.ToolStripButtonDeleteFile.Name = "ToolStripButtonDeleteFile"
-        '
-        'ToolStripButtonAnnotation
-        '
-        resources.ApplyResources(Me.ToolStripButtonAnnotation, "ToolStripButtonAnnotation")
-        Me.ToolStripButtonAnnotation.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.flag_orange
-        Me.ToolStripButtonAnnotation.Name = "ToolStripButtonAnnotation"
-        '
         'FinalIndexDataSet
         '
         Me.FinalIndexDataSet.DataSetName = "FinalIndexDataSet"
@@ -680,21 +501,202 @@ Partial Class frmValidator
         '
         Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True
         '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2})
+        resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
+        Me.RibbonControl1.MaxItemId = 16
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        '
+        'bsiError
+        '
+        Me.bsiError.Id = 1
+        Me.bsiError.ItemAppearance.Normal.Font = CType(resources.GetObject("bsiError.ItemAppearance.Normal.Font"), System.Drawing.Font)
+        Me.bsiError.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Red
+        Me.bsiError.ItemAppearance.Normal.Options.UseFont = True
+        Me.bsiError.ItemAppearance.Normal.Options.UseForeColor = True
+        Me.bsiError.Name = "bsiError"
+        '
+        'bsiInformation
+        '
+        resources.ApplyResources(Me.bsiInformation, "bsiInformation")
+        Me.bsiInformation.Id = 2
+        Me.bsiInformation.Name = "bsiInformation"
+        '
+        'bsiDocID
+        '
+        resources.ApplyResources(Me.bsiDocID, "bsiDocID")
+        Me.bsiDocID.Id = 3
+        Me.bsiDocID.Name = "bsiDocID"
+        '
+        'BarButtonItem2
+        '
+        resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2")
+        Me.BarButtonItem2.Id = 4
+        Me.BarButtonItem2.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image)
+        Me.BarButtonItem2.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        '
+        'BarButtonItem3
+        '
+        resources.ApplyResources(Me.BarButtonItem3, "BarButtonItem3")
+        Me.BarButtonItem3.Id = 5
+        Me.BarButtonItem3.ImageOptions.Image = CType(resources.GetObject("BarButtonItem3.ImageOptions.Image"), System.Drawing.Image)
+        Me.BarButtonItem3.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.BarButtonItem3.Name = "BarButtonItem3"
+        Me.BarButtonItem3.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
+        '
+        'BarButtonItem4
+        '
+        resources.ApplyResources(Me.BarButtonItem4, "BarButtonItem4")
+        Me.BarButtonItem4.Id = 6
+        Me.BarButtonItem4.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image)
+        Me.BarButtonItem4.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.BarButtonItem4.Name = "BarButtonItem4"
+        Me.BarButtonItem4.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
+        '
+        'bbtniRefresh
+        '
+        resources.ApplyResources(Me.bbtniRefresh, "bbtniRefresh")
+        Me.bbtniRefresh.Id = 7
+        Me.bbtniRefresh.ImageOptions.Image = CType(resources.GetObject("bbtniRefresh.ImageOptions.Image"), System.Drawing.Image)
+        Me.bbtniRefresh.ImageOptions.LargeImage = CType(resources.GetObject("bbtniRefresh.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bbtniRefresh.Name = "bbtniRefresh"
+        '
+        'bbtniRefreshSearches
+        '
+        resources.ApplyResources(Me.bbtniRefreshSearches, "bbtniRefreshSearches")
+        Me.bbtniRefreshSearches.Id = 8
+        Me.bbtniRefreshSearches.ImageOptions.Image = CType(resources.GetObject("bbtniRefreshSearches.ImageOptions.Image"), System.Drawing.Image)
+        Me.bbtniRefreshSearches.ImageOptions.LargeImage = CType(resources.GetObject("bbtniRefreshSearches.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bbtniRefreshSearches.Name = "bbtniRefreshSearches"
+        '
+        'bbtniNext
+        '
+        resources.ApplyResources(Me.bbtniNext, "bbtniNext")
+        Me.bbtniNext.Id = 9
+        Me.bbtniNext.ImageOptions.Image = CType(resources.GetObject("bbtniNext.ImageOptions.Image"), System.Drawing.Image)
+        Me.bbtniNext.ImageOptions.LargeImage = CType(resources.GetObject("bbtniNext.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bbtniNext.Name = "bbtniNext"
+        '
+        'bbtniDelete
+        '
+        resources.ApplyResources(Me.bbtniDelete, "bbtniDelete")
+        Me.bbtniDelete.Id = 10
+        Me.bbtniDelete.ImageOptions.Image = CType(resources.GetObject("bbtniDelete.ImageOptions.Image"), System.Drawing.Image)
+        Me.bbtniDelete.ImageOptions.LargeImage = CType(resources.GetObject("bbtniDelete.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bbtniDelete.Name = "bbtniDelete"
+        Me.bbtniDelete.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
+        '
+        'bbtniAnnotation
+        '
+        resources.ApplyResources(Me.bbtniAnnotation, "bbtniAnnotation")
+        Me.bbtniAnnotation.Id = 11
+        Me.bbtniAnnotation.ImageOptions.Image = CType(resources.GetObject("bbtniAnnotation.ImageOptions.Image"), System.Drawing.Image)
+        Me.bbtniAnnotation.ImageOptions.LargeImage = CType(resources.GetObject("bbtniAnnotation.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bbtniAnnotation.Name = "bbtniAnnotation"
+        Me.bbtniAnnotation.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
+        '
+        'bsiInfo1
+        '
+        resources.ApplyResources(Me.bsiInfo1, "bsiInfo1")
+        Me.bsiInfo1.Id = 14
+        Me.bsiInfo1.ImageOptions.Image = CType(resources.GetObject("bsiInfo1.ImageOptions.Image"), System.Drawing.Image)
+        Me.bsiInfo1.ImageOptions.LargeImage = CType(resources.GetObject("bsiInfo1.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bsiInfo1.ItemAppearance.Normal.Font = CType(resources.GetObject("bsiInfo1.ItemAppearance.Normal.Font"), System.Drawing.Font)
+        Me.bsiInfo1.ItemAppearance.Normal.ForeColor = System.Drawing.Color.Red
+        Me.bsiInfo1.ItemAppearance.Normal.Options.UseFont = True
+        Me.bsiInfo1.ItemAppearance.Normal.Options.UseForeColor = True
+        Me.bsiInfo1.Name = "bsiInfo1"
+        Me.bsiInfo1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'bsiInfo2
+        '
+        resources.ApplyResources(Me.bsiInfo2, "bsiInfo2")
+        Me.bsiInfo2.Id = 15
+        Me.bsiInfo2.ImageOptions.Image = CType(resources.GetObject("bsiInfo2.ImageOptions.Image"), System.Drawing.Image)
+        Me.bsiInfo2.ImageOptions.LargeImage = CType(resources.GetObject("bsiInfo2.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.bsiInfo2.ItemAppearance.Normal.Font = CType(resources.GetObject("bsiInfo2.ItemAppearance.Normal.Font"), System.Drawing.Font)
+        Me.bsiInfo2.ItemAppearance.Normal.Options.UseFont = True
+        Me.bsiInfo2.Name = "bsiInfo2"
+        Me.bsiInfo2.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup3, Me.RibbonPageGroup2})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        resources.ApplyResources(Me.RibbonPage1, "RibbonPage1")
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.Alignment = DevExpress.XtraBars.Ribbon.RibbonPageGroupAlignment.Far
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem4)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1")
+        '
+        'RibbonPageGroup3
+        '
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefresh)
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniRefreshSearches)
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniNext)
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniDelete)
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniAnnotation)
+        Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
+        resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
+        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.CaptionButtonVisible = DevExpress.Utils.DefaultBoolean.[True]
+        Me.RibbonPageGroup2.ImageOptions.Image = CType(resources.GetObject("RibbonPageGroup2.ImageOptions.Image"), System.Drawing.Image)
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.bsiInfo1)
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.bsiInfo2)
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
+        Me.RibbonPageGroup2.Visible = False
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiError)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiInformation)
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDocID)
+        resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
+        '
+        'DocumentViewerValidator
+        '
+        resources.ApplyResources(Me.DocumentViewerValidator, "DocumentViewerValidator")
+        Me.DocumentViewerValidator.Name = "DocumentViewerValidator"
+        '
         'frmValidator
         '
+        Me.Appearance.Options.UseFont = True
         resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.Controls.Add(Me.ToolStrip1)
         Me.Controls.Add(Me.SplitContainer1)
-        Me.Controls.Add(Me.StatusStrip1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.Controls.Add(Me.RibbonStatusBar1)
         Me.Controls.Add(Me.barDockControlLeft)
         Me.Controls.Add(Me.barDockControlRight)
         Me.Controls.Add(Me.barDockControlBottom)
         Me.Controls.Add(Me.barDockControlTop)
+        Me.IconOptions.Icon = CType(resources.GetObject("frmValidator.IconOptions.Icon"), System.Drawing.Icon)
+        Me.IconOptions.LargeImage = CType(resources.GetObject("frmValidator.IconOptions.LargeImage"), System.Drawing.Image)
         Me.KeyPreview = True
         Me.Name = "frmValidator"
-        Me.ToolTip1.SetToolTip(Me, resources.GetString("$this.ToolTip"))
+        Me.Ribbon = Me.RibbonControl1
-        Me.TopMost = True
+        Me.StatusBar = Me.RibbonStatusBar1
         Me.SplitContainer1.Panel1.ResumeLayout(False)
         Me.SplitContainer1.Panel2.ResumeLayout(False)
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -703,8 +705,6 @@ Partial Class frmValidator
         CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.StatusStrip1.ResumeLayout(False)
-        Me.StatusStrip1.PerformLayout()
         CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@@ -714,18 +714,13 @@ Partial Class frmValidator
         CType(Me.BarManager1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ToolStrip1.ResumeLayout(False)
-        Me.ToolStrip1.PerformLayout()
         CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
     End Sub
-    Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
-    Friend WithEvents tstrplblError As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents tstrlbl_Info As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents tsslblDocID As System.Windows.Forms.ToolStripStatusLabel
     Friend WithEvents Panel1 As System.Windows.Forms.Panel
     Friend WithEvents TITLELabel1 As System.Windows.Forms.Label
     Friend WithEvents btnSave As System.Windows.Forms.Button
@@ -778,20 +773,29 @@ Partial Class frmValidator
     Friend WithEvents BarAndDockingController2 As DevExpress.XtraBars.BarAndDockingController
     Friend WithEvents BarAndDockingController3 As DevExpress.XtraBars.BarAndDockingController
     Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
-    Friend WithEvents ToolStrip1 As ToolStrip
-    Friend WithEvents ToolStripButtonJumpFile As ToolStripButton
-    Friend WithEvents ToolStripButtonDeleteFile As ToolStripButton
-    Friend WithEvents ToolStripButtonAnnotation As ToolStripButton
     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 ToolStripDropDownButton2 As ToolStripDropDownButton
-    Friend WithEvents DateiÖffnenToolStripMenuItem1 As ToolStripMenuItem
-    Friend WithEvents InfoToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents ToolStripButtonSearchesReload As ToolStripButton
     Friend WithEvents ToolTip1 As ToolTip
-    Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
+    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
-    Friend WithEvents ToolStripButton1 As ToolStripButton
+    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
-    Friend WithEvents tsslbl_State As ToolStripStatusLabel
+    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents bsiError As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents bsiInformation As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents bsiDocID As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents bbtniRefresh As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bbtniRefreshSearches As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bbtniNext As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bbtniDelete As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents bbtniAnnotation As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents bsiInfo1 As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents bsiInfo2 As DevExpress.XtraBars.BarStaticItem
+    Friend WithEvents DocumentViewerValidator As DigitalData.Controls.DocumentViewer.DocumentViewer
 End Class

app/DD_PM_WINDREAM/frmValidator.vb

@@ -15,6 +15,7 @@ Public Class frmValidator
     Dim strFileList()
     Dim PROFIL_sortbynewest As Boolean
     Dim PROFIL_VEKTORINDEX
+    Dim PROFIL_FINISH_SQL
     Dim PROFIL_LOGINDEX
 
     Dim Delimiter As String
@@ -56,8 +57,9 @@ Public Class frmValidator
     Private _SetControlValue_in_action As Boolean = False
     Private DTCONTROLS As DataTable
     Private DTGRID_COLUMNS As DataTable
+    Private DTGRID_COLUMNS_TEXTBOX As DataTable
     Private DTVWCONTROL_INDEX As DataTable
-    Private FormLoaded As Boolean = False
+    Public FormLoaded As Boolean = False
     Private ItemWorked As Boolean = False
     Private Override As Boolean = False
     Private OverrideAll As Boolean = False
@@ -65,31 +67,31 @@ Public Class frmValidator
 
     Private ControlHandleStarted As Boolean = False
 
-    <DllImport("user32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>
+    '<DllImport("user32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>
-    Public Shared Function SetForegroundWindow(ByVal hwnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
+    'Public Shared Function SetForegroundWindow(ByVal hwnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
-    End Function
+    'End Function
-    Function set_foreground()
+    'Function set_foreground()
-        Try
+    '    Try
-            Dim hwnd As IntPtr
+    '        Dim hwnd As IntPtr
-            Dim prc() As Process = Process.GetProcessesByName("DD_PM_WINDREAM")
+    '        Dim prc() As Process = Process.GetProcessesByName("DD_PM_WINDREAM")
 
-            If Not prc Is Nothing AndAlso Not prc.Length = 0 Then
+    '        If Not prc Is Nothing AndAlso Not prc.Length = 0 Then
-                hwnd = prc(0).MainWindowHandle
+    '            hwnd = prc(0).MainWindowHandle
-                SetForegroundWindow(hwnd)
+    '            SetForegroundWindow(hwnd)
-            Else
+    '        Else
-                prc = Process.GetProcessesByName("DD_PM_WINDREAM.vshost")
+    '            prc = Process.GetProcessesByName("DD_PM_WINDREAM.vshost")
-                If Not prc Is Nothing AndAlso Not prc.Length = 0 Then
+    '            If Not prc Is Nothing AndAlso Not prc.Length = 0 Then
-                    hwnd = prc(0).MainWindowHandle
+    '                hwnd = prc(0).MainWindowHandle
-                    SetForegroundWindow(hwnd)
+    '                SetForegroundWindow(hwnd)
-                End If
+    '            End If
 
-            End If
+    '        End If
-        Catch ex As Exception
+    '    Catch ex As Exception
-            LOGGER.Error(ex)
+    '        LOGGER.Error(ex)
-            MsgBox("ERror in set_foreground: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "")
+    '        MsgBox("ERror in set_foreground: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "")
-        End Try
+    '    End Try
 
-    End Function
+    'End Function
     Private Sub frmValidation_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         Override = False
         ItemWorked = False
@@ -116,8 +118,7 @@ Public Class frmValidator
         End If
         Dim _step = 0
         Try
-
+            DocumentViewerValidator.Init(LOGCONFIG, GDPICTURE_LICENSE)
-            DocumentViewer1.Init(LOGCONFIG, GDPICTURE_LICENSE)
         Catch ex As Exception
             LOGGER.Error(ex)
         End Try
@@ -160,13 +161,14 @@ Public Class frmValidator
                 MsgBox("More than 1 profile (" & CURRENT_DT_PROFILE.Rows.Count & ") returned!!", MsgBoxStyle.Critical, "Attention:")
             Else
                 If CURRENT_DT_PROFILE.Rows.Count = 1 Then
-                    For Each dr As DataRow In CURRENT_DT_PROFILE.Rows
+                    For Each oProfileRow As DataRow In CURRENT_DT_PROFILE.Rows
-                        PROFIL_VEKTORINDEX = dr.Item("PM_VEKTOR_INDEX")
+                        PROFIL_FINISH_SQL = oProfileRow.Item("SQL_BTN_FINISH")
-                        PROFIL_LOGINDEX = dr.Item("LOG_INDEX")
+                        PROFIL_VEKTORINDEX = oProfileRow.Item("PM_VEKTOR_INDEX")
-                        Me.Text = "Process Manager - " & dr.Item("TITLE")
+                        PROFIL_LOGINDEX = oProfileRow.Item("LOG_INDEX")
+                        Me.Text = "Process Manager - " & oProfileRow.Item("TITLE")
 
-                        TITLELabel1.Text = dr.Item("TITLE")
+                        TITLELabel1.Text = oProfileRow.Item("TITLE")
-                        DESCRIPTIONLabel.Text = IIf(IsDBNull(dr.Item("DESCRIPTION")), "", dr.Item("DESCRIPTION"))
+                        DESCRIPTIONLabel.Text = IIf(IsDBNull(oProfileRow.Item("DESCRIPTION")), "", oProfileRow.Item("DESCRIPTION"))
                         If PROFIL_VEKTORINDEX.GetType.ToString.ToLower = "system.dbnull" Then
                             PROFIL_VEKTORINDEX = ""
                         End If
@@ -174,13 +176,13 @@ Public Class frmValidator
                             PROFIL_LOGINDEX = ""
                         End If
 
-                        WD_Search = dr.Item("WD_SEARCH")
+                        WD_Search = oProfileRow.Item("WD_SEARCH")
-                        finalProfile = dr.Item("FINAL_PROFILE")
+                        finalProfile = oProfileRow.Item("FINAL_PROFILE")
-                        Move2Folder = IIf(IsDBNull(dr.Item("MOVE2Folder")), "", dr.Item("MOVE2Folder"))
+                        Move2Folder = IIf(IsDBNull(oProfileRow.Item("MOVE2Folder")), "", oProfileRow.Item("MOVE2Folder"))
                         Try
                             If finalProfile = True Then
 
-                                Dim text As String = IIf(IsDBNull(dr.Item("FINAL_TEXT")), "", dr.Item("FINAL_TEXT") & (" (F2)"))
+                                Dim text As String = IIf(IsDBNull(oProfileRow.Item("FINAL_TEXT")), "", oProfileRow.Item("FINAL_TEXT") & (" (F2)"))
                                 If text <> "" Then
                                     btnSave.Text = text
                                 Else
@@ -195,9 +197,9 @@ Public Class frmValidator
                             MsgBox("Error loading final profile text:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
                             LOGGER.Info(">> Error loading final profile text: " & ex.Message, True)
                         End Try
-                        ToolStripButtonJumpFile.Visible = True
+                        bbtniNext.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
                         If CURRENT_JUMP_DOC_GUID <> 0 Then
-                            ToolStripButtonJumpFile.Visible = False
+                            bbtniNext.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
                             Anzahl_ValDoks = 1
                         Else
 
@@ -217,14 +219,15 @@ Public Class frmValidator
                     LOGGER.Debug("PROFIL_sortbynewest: " & PROFIL_sortbynewest.ToString)
                     'Delete Button anzeigen ja/nein
                     If USER_RIGHT_FILE_DELETE = True Then
-                        ToolStripButtonDeleteFile.Enabled = True
+                        bbtniDelete.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
                     Else
-                        ToolStripButtonDeleteFile.Enabled = False
+                        bbtniDelete.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
                     End If
+
                     If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then
-                        ToolStripButtonAnnotation.Visible = True
+                        bbtniAnnotation.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
                     Else
-                        ToolStripButtonAnnotation.Visible = False
+                        bbtniAnnotation.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
                     End If
                     LOGGER.Debug("Right_Delete: " & USER_RIGHT_FILE_DELETE.ToString)
                     Create_Controls()
@@ -232,6 +235,7 @@ Public Class frmValidator
 
                 End If
             End If
+            LOGGER.Debug("frmValidation_Load finished!")
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox("Error LOADING Profile-Data1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
@@ -262,6 +266,7 @@ Public Class frmValidator
         Catch ex As Exception
             LOGGER.Error(ex)
 
+
         End Try
         Try
             Dim oDel = $"DELETE FROM TBPM_FILES_USER_NOT_INDEXED WHERE UPPER(USR_NAME) = UPPER('{USER_USERNAME}')"
@@ -280,61 +285,15 @@ Public Class frmValidator
                 LOGGER.Error(ex)
             End Try
         End If
-        DocumentViewer1.Done()
+        Try
-        'If VIEWER_ALL = "docview" Then
+            DocumentViewerValidator.Done()
-        '    If IDB_ACTIVE = False Then
+        Catch ex As Exception
-        '        CloseWDDocview()
+            LOGGER.Warn($"Unexpected error in DocumentViewerValidator.Done: {ex.Message}")
-        '    End If
+        End Try
-
-        'End If
-
-        'If VIEWER_PDF = "system" Then
-        '    Kill_PDFAcrobat()
-        'Else
-        '    If pdfxchange = True Or sumatra = True Then
-        '        Close_PDF_Viewer(WMDocPathWindows)
-        '    End If
-        '    KillU_Viewer()
-        'End If
-
 
 
     End Sub
 
-    Private Function process_User_exists(processname As String, Status As String)
-        Dim fi = New FileInfo(processname)
-        Dim filename As String = fi.Name.Replace(fi.Extension, "")
-
-        Try
-            If Process.GetProcessesByName(filename).Length > 0 Then
-                Return True
-            Else
-                Return False
-            End If
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            LOGGER.Info(">> error in process_User_exists: " & ex.Message, True)
-            Return False
-        End Try
-    End Function
-    'Private Function process_terminate(processname As String)
-    '    Try
-    '        Dim selectQuery As SelectQuery = New SelectQuery("Win32_Process")
-    '        Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(selectQuery)
-    '        For Each proc As ManagementObject In searcher.Get
-    '            If proc("Name").ToString = processname Then
-    '                Dim s(1) As String
-    '                proc.InvokeMethod("GetOwner", CType(s, Object()))
-    '                If CStr(s(0)).ToLower.Contains(USER_USERNAME.ToLower) Then
-    '                    proc.InvokeMethod("Terminate", Nothing)
-    '                End If
-    '            End If
-    '        Next
-    '        Return False
-    '    Catch ex As Exception
-    '        LOGGER.Info(">> error in process_terminate: " & ex.Message, True)
-    '    End Try
-    'End Function
     Private Function Init_IDB()
         Try
             IDBData = New ClassIDBData
@@ -399,9 +358,8 @@ Public Class frmValidator
             End If
 
             If oDataResultsExist = True Or oDocResultsExist = True Then
-                ToolStripButtonSearchesReload.Visible = True
+                bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
-                frmValidatorSearch.Show()
+                _frmValidatorSearch.Show()
-                _frmValidatorSearch = frmValidatorSearch
                 Dim oPnl1Collapsed As Boolean = True
                 Dim oPnl2Collapsed As Boolean = True
                 If oDataResultsExist = True Then
@@ -434,11 +392,11 @@ Public Class frmValidator
                 End If
             Else
                 LOGGER.Info("Not loading AdditionalSearches...!")
-                ToolStripButtonSearchesReload.Visible = False
+                bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
             End If
         Else
             LOGGER.Info("Not loading AdditionalSearches...!")
-            ToolStripButtonSearchesReload.Visible = False
+            bbtniRefreshSearches.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
         End If
     End Sub
     Sub LoadSQLData(control As Control, controlId As Integer)
@@ -574,8 +532,12 @@ Public Class frmValidator
             pnldesigner.Controls.Clear()
             Dim oSQL = $"SELECT [dbo].[FNPM_LANGUAGE_CONTROL_TEXT] (NAME,'{USER_LANGUAGE}',CTRL_TYPE,CTRL_TEXT) CTRL_CAPTION_LANG, * FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC"
             DTCONTROLS = ClassDatabase.Return_Datatable(oSQL)
-            oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0"
+            oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 0"
             DTGRID_COLUMNS = ClassDatabase.Return_Datatable(oSQL)
+
+            oSQL = $"SELECT T1.GUID As CONTROL_ID, T1.PROFIL_ID, T.SQL_COMMAND, T.SPALTENNAME from TBPM_CONTROL_TABLE T, TBPM_PROFILE_CONTROLS T1 WHERE T.CONTROL_ID = T1.GUID AND T1.PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(T.SQL_COMMAND) > 0 AND T.LOAD_AFT_LOAD_CONTROL = 1"
+            DTGRID_COLUMNS_TEXTBOX = ClassDatabase.Return_Datatable(oSQL)
+
             Dim oCount As Integer = 0
 
             For Each oControlRow As DataRow In DTCONTROLS.Rows
@@ -639,7 +601,7 @@ Public Class frmValidator
                                         LOGGER.Debug("ConID <> String.Empty")
                                         If oCONID > 0 And commandsql <> String.Empty Then
                                             LOGGER.Debug("ConID > 0 And commandsql <> String.Empty")
-                                            Dim connectionString As String
+                                            Dim oConnectionString As String
                                             TBDD_CONNECTIONTableAdapter.FillByID(DD_DMSLiteDataSet.TBDD_CONNECTION, oCONID)
                                             Dim DTConnection As DataTable = DD_DMSLiteDataSet.TBDD_CONNECTION
 
@@ -647,11 +609,11 @@ Public Class frmValidator
                                                 Select Case drConnection.Item("SQL_PROVIDER").ToString.ToLower
                                                     Case "ms-sql"
                                                         If drConnection.Item("USERNAME") = "WINAUTH" Then
-                                                            connectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog=" & drConnection.Item("DATENBANK") & ";Trusted_Connection=True;"
+                                                            oConnectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog=" & drConnection.Item("DATENBANK") & ";Trusted_Connection=True;"
                                                         Else
-                                                            connectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";"
+                                                            oConnectionString = "Data Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";"
                                                         End If
-                                                        LOGGER.Debug("ConnString Sql-Server:  " & connectionString)
+                                                        LOGGER.Debug("ConnString Sql-Server:  " & oConnectionString)
                                                     Case "oracle"
                                                         Dim conn As New OracleConnectionStringBuilder
                                                         Dim connstr As String
@@ -667,13 +629,13 @@ Public Class frmValidator
                                                             connstr = conn.ConnectionString
                                                         End If
 
-                                                        connectionString = connstr
+                                                        oConnectionString = connstr
                                                     Case Else
                                                         LOGGER.Info(" - ConnectionType nicht integriert")
                                                         MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!")
                                                 End Select
                                             Next
-                                            If connectionString Is Nothing = False Then
+                                            If oConnectionString Is Nothing = False Then
                                                 Try
                                                     Dim sqlCnn As SqlClient.SqlConnection
                                                     Dim sqlCmd As SqlClient.SqlCommand
@@ -692,7 +654,7 @@ Public Class frmValidator
                                                         sql = clsPatterns.ReplaceInternalValues(sql)
                                                         sql = clsPatterns.ReplaceControlValues(sql, pnldesigner)
                                                         LOGGER.Debug(">>> sql after HasOnlySimplePatterns: " & sql)
-                                                        sqlCnn = New SqlClient.SqlConnection(connectionString)
+                                                        sqlCnn = New SqlClient.SqlConnection(oConnectionString)
                                                         ' Try
                                                         sqlCnn.Open()
                                                         sqlCmd = New SqlClient.SqlCommand(sql, sqlCnn)
@@ -887,6 +849,9 @@ Public Class frmValidator
             Next
             LOGGER.Debug("Create_Controls finished!")
 
+
+
+
         Catch ex As Exception
             Dim st As New StackTrace(True)
             st = New StackTrace(ex, True)
@@ -917,7 +882,7 @@ Public Class frmValidator
             End Select
         Next
 
-        set_foreground()
+        'set_foreground()
         If first_control Is Nothing = False Then
             first_control.Focus()
         End If
@@ -968,7 +933,7 @@ Public Class frmValidator
 
 
                                     sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
-                                    LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql)
+
                                     '' Regulären Ausdruck zum Auslesen der Indexe definieren
                                     'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
                                     '' einen Regulären Ausdruck laden
@@ -1089,14 +1054,14 @@ Public Class frmValidator
             OverrideAll = False
         End Try
         If OverrideAll = True Then
-            LOGGER.Warn($"OverrideAll will be in Action!")
+            LOGGER.Info($"CURRENT_DOC_ID: {CURRENT_DOC_ID} - OverrideAll will be in Action!")
         End If
 
-        Select Case oAction
+        Select Case oAction.ToString.ToUpper
-            Case "SetButton"
+            Case "SetButton".ToUpper
                 btnSave.Text = oCaption & " (F2)"
                 btnSave.BackColor = oColor
-            Case "Override_Question"
+            Case "Override_Question".ToUpper
                 If oQuestion <> "" Then
                     Dim result As MsgBoxResult
                     result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
@@ -1105,7 +1070,7 @@ Public Class frmValidator
                         Finish_WFStep()
                     End If
                 End If
-            Case "Update_Single_Control"
+            Case "Update_Single_Control".ToUpper
                 Dim oResult1 As Boolean = True
                 If oQuestion <> "" Then
                     Dim result As MsgBoxResult
@@ -1127,7 +1092,7 @@ Public Class frmValidator
                         MsgBox("Unexpected error in Button Refresh_Controls - Check Your log!", MsgBoxStyle.Exclamation)
                     End If
                 End If
-            Case "Update_Controls"
+            Case "Update_Controls".ToUpper
                 If oQuestion <> "" Then
                     Dim result As MsgBoxResult
                     result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
@@ -1145,11 +1110,12 @@ Public Class frmValidator
 
                     End If
                 End If
-            Case "Override_Direct"
+            Case "Override_Direct".ToUpper
                 Override = True
                 Finish_WFStep()
             Case Else
-                MsgBox($"No configured action provided [{oAction}]", MsgBoxStyle.Exclamation, "")
+                MsgBox($"No configured action provided for onCustomButtonClick [{oAction}]", MsgBoxStyle.Exclamation, "")
+                LOGGER.Warn($"No configured action provided for onCustomButtonClick [{oAction}]")
         End Select
 
 
@@ -1160,7 +1126,7 @@ Public Class frmValidator
         Try
             Dim CONTROL_ID = DirectCast(dgv.Tag, ClassControlCreator.ControlMetadata).Guid ' VWPM_CONTROL_INDEXTableAdapter.cmdGetControlID(CURRENT_ProfilGUID, dgv.Name)
             Dim sql = String.Format("select NAME,CONNECTION_ID,SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} And SQL_UEBERPRUEFUNG Like '%{1}%'", CURRENT_ProfilGUID, dgv.Name)
-            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
+                Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
             If Not IsNothing(DT) And DT.Rows.Count > 0 Then
                 For Each ROW As DataRow In DT.Rows
                     Try
@@ -1485,7 +1451,7 @@ Public Class frmValidator
                     Exit Sub
                 End If
                 oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
-                LOGGER.Debug(">>> sql after ReplaceAllValues: " & oSqlCommand)
+
                 _dependingColumn_in_action = True
                 Try
                     Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand)
@@ -1530,7 +1496,7 @@ Public Class frmValidator
 
                                     sql_Statement = clsPatterns.ReplaceAllValues(sql_Statement, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
                                     _Step = 3
-                                    LOGGER.Debug(">>> sql after ReplaceAllValues: " & sql)
+
                                     '' Regulären Ausdruck zum Auslesen der Indexe definieren
                                     'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
                                     '' einen Regulären Ausdruck laden
@@ -1736,24 +1702,7 @@ Public Class frmValidator
     End Function
 
 
-    'Sub Close_document_viewer()
+
-    '    'Vorherige Datei Schliessen
-    '    If CURRENT_HTML_DOC <> "" Then
-    '        If File.Exists(CURRENT_HTML_DOC) Then
-    '            File.Delete(CURRENT_HTML_DOC)
-    '        End If
-    '    End If
-    '    If pdfxchange = True Or sumatra = True Or VIEWER_PDF = "system" Then
-    '        Close_PDF_Viewer(WMDocPathWindows)
-    '    End If
-    '    If CURRENT_WMFILE Is Nothing = False Then
-    '        If CURRENT_WMFILE.aLocked Then
-    '            CURRENT_WMFILE.Save()
-    '            ' unlock the windream object
-    '            CURRENT_WMFILE.unlock()
-    '        End If
-    '    End If
-    'End Sub
     Private Function CreateWMObject() As String
         LOGGER.Debug($"in GetWMDocFileString...'")
         Dim oWMRELPATH As String = CURRENT_DT_CONFIG.Rows.Item(0).Item("WM_REL_PATH")
@@ -1869,7 +1818,7 @@ Public Class frmValidator
             LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'")
             If CURRENT_DOC_GUID > 0 Then
                 If GetWMDocPathWindows(0) = False Then
-                    MsgBox("Could not acces the file! Check the log!", MsgBoxStyle.Critical, "")
+                    MsgBox("Could not access the file! Check the log!", MsgBoxStyle.Critical, "")
                     Exit Sub
                 End If
                 If IDB_ACTIVE = False Then
@@ -1891,11 +1840,10 @@ Public Class frmValidator
                     ClassDatabase.Execute_non_Query(sql)
 
                     ' ############ Infos eintragen #################
-                    tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - DocGUID: " & CURRENT_DOC_GUID
                     ' txtDateipfad.Text = Document_Path
-                    tstrlbl_Info.Text = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString
+                    bsiInformation.Caption = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString
                     LOGGER.Info(">> Validierung für Dokument '" & WMDocPathWindows & "' gestartet")
-                    tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID
+                    bsiDocID.Caption = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID
 
                     LOGGER.Debug("AllDocInfo created...")
                     If IDB_ACTIVE = False Then
@@ -1910,10 +1858,8 @@ Public Class frmValidator
 
                         load_viewer()
                         LOGGER.Debug("Viewer loaded!")
-                        If WMDocPathWindows.ToLower.EndsWith(".pdf") Then
+                        If WMDocPathWindows.ToLower.EndsWith(".pdf") = False Then
-                            ToolStripButtonAnnotation.Visible = True
+                            bbtniAnnotation.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
-                        Else
-                            ToolStripButtonAnnotation.Visible = False
                         End If
 
 
@@ -1927,7 +1873,6 @@ Public Class frmValidator
                         Next
 
                         LOGGER.Debug("Indexmask loaded")
-                        LOGGER.Debug("")
 
                         'Nun im Vektoprindex loggen das das Profil geladen wurde
                         'If PROFIL_VEKTORINDEX <> "" Then
@@ -1947,6 +1892,7 @@ Public Class frmValidator
                             If IDB_ACTIVE = False Then
                                 WMIndexVectofield(oLogString, PROFIL_LOGINDEX)
                             Else
+                                oLogString = $"PMProfile loaded: [{CURRENT_ProfilGUID}-{CURRENT_ProfilName}]"
                                 IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogString)
                                 'LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben")
                                 'Else
@@ -1959,7 +1905,6 @@ Public Class frmValidator
                             End If
                         End If
                         activate_controls(True)
-                        Me.BringToFront()
                     Else
                         errormessage = oErrorMessage
                         frmError.ShowDialog()
@@ -1984,7 +1929,7 @@ Public Class frmValidator
                     Me.Close()
                 End If
             End If
-
+            LOGGER.Debug("frmValidator: LoadNextDocument finished!")
         Catch ex As Exception
             LOGGER.Error(ex)
             allgFunk.Insert_LogEntry($"ERROR LoadNextDocument >> {ex.Message}")
@@ -1995,7 +1940,7 @@ Public Class frmValidator
         End Try
     End Sub
     Sub load_viewer()
-        DocumentViewer1.LoadFile(WMDocPathWindows)
+        DocumentViewerValidator.LoadFile(WMDocPathWindows)
         SplitContainer1.Panel2Collapsed = False
 
     End Sub
@@ -2949,8 +2894,110 @@ Public Class frmValidator
                     End Select
                     oCount += 1
                 Next
-                set_foreground()
+                ' set_foreground()
                 If first_control Is Nothing = False Then first_control.Focus()
+                Try
+                    For Each oRow As DataRow In DTGRID_COLUMNS_TEXTBOX.Rows
+                        Dim oDEPENDING_GUID = oRow.Item("CONTROL_ID")
+                        Dim oDEPENDING_COLUMN = oRow.Item("SPALTENNAME")
+                        Dim oSqlCommand = oRow.Item("SQL_COMMAND")
+                        oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
+
+
+                        Try
+                            Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand)
+                            If Not IsNothing(oDTDEPENDING_RESULT) Then
+                                For Each oControl As Control In pnldesigner.Controls
+                                    If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_GUID Then
+                                        ClassControlCreator.GridTables.Add(oDEPENDING_COLUMN, oDTDEPENDING_RESULT)
+
+                                        Exit For
+                                    End If
+                                Next
+                            End If
+
+                        Catch ex As Exception
+                            LOGGER.Warn($"Unexpected error in creating dropdown for oDEPENDING_GUID {oDEPENDING_GUID} an Column {oDEPENDING_COLUMN} " & ex.Message)
+
+                        End Try
+                    Next
+                Catch ex As Exception
+                    LOGGER.Warn($"Unexpected error in creating dropdown for Grid: " & ex.Message)
+                End Try
+
+
+
+                If IDB_ACTIVE = True Then
+                    Try
+                        Dim oSQL = $"select Attribut, TERM_VALUE from VWIDB_VALUE_TEXT WHERE LANG_CODE = '{USER_LANGUAGE}' AND IDB_OBJ_ID = {CURRENT_DOC_ID} AND Attribut in ('PM_Info1','PM_Info2') ORDER BY Attribut"
+                        Dim oDTINFO As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB)
+                        If Not IsNothing(oDTINFO) Then
+                            Dim oColor As System.Drawing.Color
+                            If oDTINFO.Rows.Count > 0 Then
+                                Dim oColumns As String()
+                                If oDTINFO.Rows.Count = 1 Then
+                                    oColumns = Split(oDTINFO.Rows(0).Item("TERM_VALUE"), "#")
+                                    If oColumns.Length = 1 Then
+                                        bsiInfo1.Caption = oDTINFO.Rows(0).Item("TERM_VALUE")
+                                    ElseIf oColumns.Length = 2 Then
+                                        bsiInfo1.Caption = oColumns(0)
+                                        Try
+                                            oColor = System.Drawing.Color.FromName(oColumns(1))
+                                            bsiInfo1.ItemAppearance.Normal.ForeColor = oColor
+                                        Catch ex As Exception
+
+                                        End Try
+                                    End If
+
+                                    bsiInfo2.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+                                ElseIf oDTINFO.Rows.Count = 2 Then
+                                    'ITEM 1
+                                    oColumns = Split(oDTINFO.Rows(0).Item("TERM_VALUE"), "#")
+                                    If oColumns.Length = 1 Then
+                                        bsiInfo1.Caption = oDTINFO.Rows(0).Item("TERM_VALUE")
+                                    ElseIf oColumns.Length = 2 Then
+                                        bsiInfo1.Caption = oColumns(0)
+                                        Try
+                                            oColor = System.Drawing.Color.FromName(oColumns(1))
+                                            bsiInfo1.ItemAppearance.Normal.ForeColor = oColor
+                                        Catch ex As Exception
+
+                                        End Try
+                                    End If
+                                    'ITEM 1
+                                    oColumns = Split(oDTINFO.Rows(1).Item("TERM_VALUE"), "#")
+                                    If oColumns.Length = 1 Then
+                                        bsiInfo2.Caption = oDTINFO.Rows(1).Item("TERM_VALUE")
+                                    ElseIf oColumns.Length = 2 Then
+                                        bsiInfo2.Caption = oColumns(0)
+                                        Try
+                                            oColor = System.Drawing.Color.FromName(oColumns(1))
+                                            bsiInfo2.ItemAppearance.Normal.ForeColor = oColor
+                                        Catch ex As Exception
+
+                                        End Try
+                                    End If
+                                    bsiInfo2.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                                End If
+                                RibbonPageGroup2.Visible = True
+                            Else
+                                LOGGER.Debug($"No PM_Info-Configuration!!")
+                                RibbonPageGroup2.Visible = False
+                            End If
+                        Else
+                            LOGGER.Warn($"oDTINFO is nothing!!")
+                            RibbonPageGroup2.Visible = False
+                        End If
+                    Catch ex As Exception
+                        LOGGER.Warn($"Unexpected error in Setting PMINFO - ERROR: {ex.Message}")
+                        RibbonPageGroup2.Visible = False
+                    End Try
+
+                Else
+                    RibbonPageGroup2.Visible = False
+                End If
+
+
                 'Flag setzen das Indexe geladen sind
                 _Indexe_Loaded = True
                 Load_Additional_Searches()
@@ -2975,14 +3022,77 @@ Public Class frmValidator
         _dependingColumn_in_action = False
         BringToFront()
         FormLoaded = True
+        LOGGER.Debug("frmValidation_Shown finished!")
     End Sub
     Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
         btnSave.Enabled = False
         Finish_WFStep()
         btnSave.Enabled = True
     End Sub
-    Sub Finish_WFStep()
+    Private Function btnFinish_continue()
+        Try
+            Dim oSQL = PROFIL_FINISH_SQL
+            oSQL = clsPatterns.ReplaceAllValues(oSQL, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
 
+            Dim oDT_ACTIONS As DataTable = ClassDatabase.Return_Datatable(oSQL)
+            If IsNothing(oDT_ACTIONS) Then
+                MsgBox("Something went wrong in btnFinish_continue - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation)
+                Return False
+            ElseIf oDT_ACTIONS.Rows.Count = 0 Then
+                MsgBox("Something went wrong in btnFinish_continue (No row) - Please check Your log and inform the workflow-team!", MsgBoxStyle.Exclamation)
+                Return False
+            End If
+            'Select Case'Override' as Action_Type, 'Sind Sie sicher dass Sie nicht zuständig sind?' as Question,'Nicht Zuständig' as Caption,'Red' as Color
+            Dim oMsgType
+            Dim oQuestion
+            Dim oTitle
+
+            Try
+                oMsgType = oDT_ACTIONS?.Rows(0).Item("MsgType")
+            Catch ex As Exception
+                oMsgType = ""
+            End Try
+
+            Try
+                oQuestion = oDT_ACTIONS?.Rows(0).Item("Question")
+            Catch ex As Exception
+                oQuestion = ""
+            End Try
+            Try
+                oTitle = oDT_ACTIONS?.Rows(0).Item("Title")
+            Catch ex As Exception
+                oTitle = ""
+            End Try
+
+            Select Case oMsgType.ToString.ToUpper
+
+                Case "MsgboxResult".ToUpper
+                    If oQuestion <> "" Then
+                        Dim result As MsgBoxResult
+                        result = MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
+                        If result = MsgBoxResult.Yes Then
+                            Return True
+                        Else
+                            Return False
+                        End If
+                    End If
+                Case "Msgbox".ToUpper
+                    MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
+                    Return True
+                Case "Continue".ToUpper
+                    Return True
+                Case Else
+                    MsgBox($"No valid action provided [{oMsgType}] in btnFinishContinue - Check Your log and inform the WorkflowTeam", MsgBoxStyle.Exclamation, "")
+                    LOGGER.Warn($"No valid action provided [{oMsgType}] in btnFinishContinue - Check Your log and inform the WorkflowTeam")
+                    Return False
+            End Select
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            MsgBox("An unhandled exeception occured in btnFinish Procedure! Please inform Your WorkflowTeam and Check Your log!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+    End Function
+    Sub Finish_WFStep()
         btnSave.Enabled = False
         LOGGER.Debug("Abschluss für Dok: " & CURRENT_DOC_PATH & " gestartet")
         ItemWorked = True
@@ -2990,12 +3100,18 @@ Public Class frmValidator
         If OverrideAll = False Then
             'Eingaben auf Form überprüfen
             If Check_UpdateIndexe() = False Then
+                If PROFIL_FINISH_SQL <> String.Empty Then
+                    If btnFinish_continue() = False Then
+                        Exit Sub
+
+                    End If
+                End If
 
                 'lblerror.Visible = False
                 Try
                     TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName)
                     Dim oDTFinalIndexes As DataTable = FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING
-                    If oDTFinalIndexes.Rows.Count > 0 Then
+                    If oDTFinalIndexes?.Rows.Count > 0 Then
                         'Jetzt finale Indexe setzen
                         LOGGER.Debug("FINAL INDEXING STARTING...")
                         For Each oFinalIndexRow As DataRow In oDTFinalIndexes.Rows
@@ -3301,7 +3417,7 @@ Public Class frmValidator
             'Das nächste Dokument laden
             Load_Next_Document(False)
 
-            set_foreground()
+            ' set_foreground()
             If first_control Is Nothing = False Then first_control.Focus()
         End If
 
@@ -3412,6 +3528,7 @@ Public Class frmValidator
 
                     'Den Indexnamen auslesen
                     Dim oIndexName As String = dr.Item("INDEX_NAME")
+
                     Dim oIsRequired As Boolean = CBool(dr.Item("VALIDATION"))
                     Dim oSQLCheckCommand As String = IIf(IsDBNull(dr.Item("SQL_UEBERPRUEFUNG")), "", dr.Item("SQL_UEBERPRUEFUNG"))
                     Dim oIsReadOnly As Boolean = CBool(dr.Item("READ_ONLY"))
@@ -4078,11 +4195,17 @@ Public Class frmValidator
                                         Dim exists = False
                                         Select Case oControlType
                                             Case "TABLE"
+                                                Dim oRowValue = row.Item(0)
+                                                If IsNothing(oRowValue) Then
+                                                    oRowValue = String.Empty
+                                                ElseIf IsDBNull(oRowValue) Then
+                                                    oRowValue = String.Empty
+                                                End If
                                                 ' MsgBox(row.Cells(0).Value.GetType.ToString)
                                                 Dim str As String = String.Empty
-                                                If row.Item(0) <> String.Empty Then
+                                                'If oRowValue <> String.Empty Then
-                                                    'Das Array anpassen
+                                                'Das Array anpassen
-                                                    ReDim Preserve myVektorArr(ZeilenGrid)
+                                                ReDim Preserve myVektorArr(ZeilenGrid)
 
                                                     Dim oValueList As New List(Of String)
 
@@ -4097,8 +4220,8 @@ Public Class frmValidator
                                                     'Den Wert im Array speichern
                                                     myVektorArr(ZeilenGrid) = str
                                                     ZeilenGrid += 1
-                                                End If
+                                                    'End If
-                                            Case Else
+                                                    Case Else
                                                 ' MsgBox(row.Cells(0).Value.GetType.ToString)
                                                 If row.Item(0) Is Nothing = False Then
                                                     'Das Array anpassen
@@ -4121,7 +4244,7 @@ Public Class frmValidator
                                     Else
                                         Dim oMyDT = DT_FOR_ARRAY(myVektorArr)
                                         If oMyDT.Rows.Count > 0 Then
-                                            If IDBData.SetVariableValue(oIndexName, oMyDT, True) = False Then
+                                            If IDBData.SetVariableValue(oIndexName, oMyDT, True, oIDBTyp) = False Then
                                                 oMissing = True
                                                 oErrorMessage = $"Error while indexing table IDB (1) {dgv.Name} - ERROR: " & idxerr_message
                                                 Exit For
@@ -4213,7 +4336,7 @@ Public Class frmValidator
     End Sub
     Function GetConnectionString(id As Integer)
         Try
-            Dim connectionString As String
+            Dim oConnectionString As String
             Dim DTConnection As DataTable
             DTConnection = DD_DMSLiteDataSet.TBDD_CONNECTION
             Dim drConnection As DataRow
@@ -4221,10 +4344,10 @@ Public Class frmValidator
                 If drConnection.Item("GUID") = id Then
                     Select Case drConnection.Item("SQL_PROVIDER")
                         Case "SqlClient.SqlConnection"
-                            connectionString = "%MSData Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";"
+                            oConnectionString = "%MSData Source=" & drConnection.Item("SERVER") & ";Initial Catalog= " & drConnection.Item("DATENBANK") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";"
 
                         Case "Oracle"
-                            connectionString = "%ORProvider=OraOLEDB.Oracle;Data Source=" & drConnection.Item("SERVER") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";OLEDB.NET=True;"
+                            oConnectionString = "%ORProvider=OraOLEDB.Oracle;Data Source=" & drConnection.Item("SERVER") & ";User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";OLEDB.NET=True;"
                             ' connectionString = "%ORData Source=" & drConnection.Item("SERVER") & ";Persist Security Info=True;User Id=" & drConnection.Item("USERNAME") & ";Password=" & drConnection.Item("PASSWORD") & ";Unicode=True"
                         Case Else
                             LOGGER.Info(" - ConnectionType '" & drConnection.Item("SQL_PROVIDER") & "' nicht integriert")
@@ -4233,7 +4356,7 @@ Public Class frmValidator
                     End Select
                 End If
             Next
-            Return connectionString
+            Return oConnectionString
         Catch ex As Exception
             LOGGER.Error(ex)
             LOGGER.Info(" -Unexpected error in GetConnectionString - Fehler: " & vbNewLine & ex.Message)
@@ -4354,8 +4477,8 @@ Public Class frmValidator
         MyBase.New
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
+        _frmValidatorSearch = New frmValidatorSearch
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        _frmValidatorSearch = frmValidatorSearch
     End Sub
 
     <DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)>
@@ -4400,24 +4523,6 @@ Public Class frmValidator
 
     End Sub
 
-    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButtonJumpFile.Click
-        Datei_ueberspringen()
-    End Sub
-
-    Private Sub ToolStripButtonDeleteFile_Click(sender As Object, e As EventArgs) Handles ToolStripButtonDeleteFile.Click
-        delete_active_File()
-    End Sub
-
-    Private Sub ToolStripButtonAnnotation_Click(sender As Object, e As EventArgs) Handles ToolStripButtonAnnotation.Click
-        'PdfViewer1.CloseDocument()
-        'Close_PDF_Viewer(WMDocPathWindows)
-        Application.DoEvents()
-
-        frmAnnotations.ShowDialog()
-
-        load_viewer()
-    End Sub
-
     Private Sub frmValidator_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
 
     End Sub
@@ -4434,48 +4539,6 @@ Public Class frmValidator
         End If
         My.Settings.Save()
     End Sub
-
-    Private Sub InfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoToolStripMenuItem.Click
-        frmFileInfo.ShowDialog()
-    End Sub
-
-    Private Sub EigenschaftenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EigenschaftenToolStripMenuItem.Click
-        If WMDocPathWindows <> "" Then
-            Cursor = Cursors.WaitCursor
-            Dim oShellExecuteInfo As New SHELLEXECUTEINFO
-            oShellExecuteInfo.cbSize = Marshal.SizeOf(oShellExecuteInfo)
-            oShellExecuteInfo.lpVerb = "properties"
-            oShellExecuteInfo.lpFile = WMDocPathWindows
-            oShellExecuteInfo.nShow = SW_SHOW
-            oShellExecuteInfo.fMask = SEE_MASK_INVOKEIDLIST
-            If Not ShellExecuteEx(oShellExecuteInfo) Then
-                Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
-                MsgBox("error in Datei-Eigenschaften öffnen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            End If
-        End If
-        Cursor = Cursors.Default
-
-    End Sub
-
-    Private Sub DateiÖffnenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DateiÖffnenToolStripMenuItem1.Click
-        Try
-            Dim Proc As New System.Diagnostics.Process
-            Dim psi As New ProcessStartInfo(WMDocPathWindows)
-            Proc.EnableRaisingEvents = True
-            Proc.StartInfo = psi
-            Proc.Start()
-            LOGGER.Info(" - Datei wurde geöffnet!")
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            MsgBox("Fehler bei Datei öffnen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            LOGGER.Info("Fehler bei Datei öffnen: " & ex.Message, True)
-        End Try
-    End Sub
-
-    Private Sub ToolStripButtonSearchesReload_Click(sender As Object, e As EventArgs) Handles ToolStripButtonSearchesReload.Click
-        Load_Additional_Searches()
-    End Sub
-
     Private Sub btnSave_MouseHover(sender As Object, e As EventArgs) Handles btnSave.MouseHover
         Dim msg = "F2 für Speichern"
         If USER_LANGUAGE <> "de-DE" Then
@@ -4496,11 +4559,79 @@ Public Class frmValidator
         FillIndexValues(False)
 
     End Sub
-    Private Sub ToolStripButton1_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+
-        Reload_Controls("")
-        StatusLabel("Controls refreshed")
-    End Sub
     Sub StatusLabel(infotext As String)
-        tsslbl_State.Text = infotext & " " & Now.ToString
+        bsiInformation.Caption = infotext & " " & Now.ToString
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+        Try
+            Dim Proc As New System.Diagnostics.Process
+            Dim psi As New ProcessStartInfo(WMDocPathWindows)
+            Proc.EnableRaisingEvents = True
+            Proc.StartInfo = psi
+            Proc.Start()
+            LOGGER.Info(" - Datei wurde geöffnet!")
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            MsgBox("Fehler bei Datei öffnen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            LOGGER.Info("Fehler bei Datei öffnen: " & ex.Message, True)
+        End Try
+    End Sub
+
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        frmFileInfo.ShowDialog()
+    End Sub
+
+    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+        If WMDocPathWindows <> "" Then
+            Try
+                Cursor = Cursors.WaitCursor
+                Dim oShellExecuteInfo As New SHELLEXECUTEINFO
+                oShellExecuteInfo.cbSize = Marshal.SizeOf(oShellExecuteInfo)
+                oShellExecuteInfo.lpVerb = "properties"
+                oShellExecuteInfo.lpFile = WMDocPathWindows
+                oShellExecuteInfo.nShow = SW_SHOW
+                oShellExecuteInfo.fMask = SEE_MASK_INVOKEIDLIST
+                If Not ShellExecuteEx(oShellExecuteInfo) Then
+                    Dim ex As New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error())
+                    MsgBox("error in Datei-Eigenschaften öffnen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+                End If
+            Catch ex As Exception
+            End Try
+            Cursor = Cursors.Default
+        End If
+
+    End Sub
+
+    Private Sub BarButtonItem6_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefreshSearches.ItemClick
+        Load_Additional_Searches()
+    End Sub
+
+    Private Sub bbtniRefresh_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefresh.ItemClick
+        Reload_Controls("")
+        Try
+            btnSave.Text = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.ValidationButton")
+        Catch ex As Exception
+
+        End Try
+
+        StatusLabel("All Data refreshed")
+    End Sub
+
+    Private Sub bbtniNext_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniNext.ItemClick
+        Datei_ueberspringen()
+    End Sub
+
+    Private Sub bbtniDelete_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniDelete.ItemClick
+        delete_active_File()
+    End Sub
+
+    Private Sub bbtniAnnotation_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniAnnotation.ItemClick
+        Application.DoEvents()
+
+        frmAnnotations.ShowDialog()
+
+        load_viewer()
     End Sub
 End Class

app/DD_PM_WINDREAM/frmValidatorSearch.Designer.vb

@@ -24,19 +24,34 @@ Partial Class frmValidatorSearch
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmValidatorSearch))
+        Dim GridLevelNode7 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
         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.SplitContainerControlDoc = New DevExpress.XtraEditors.SplitContainerControl()
+        Me.XtraTabControlDocs = New DevExpress.XtraTab.XtraTabControl()
+        Me.XtraTabPageDoc1 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlDocSearch1 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewDocSearch1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabPageDoc2 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlDocSearch2 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewDocSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabPageDoc3 = New DevExpress.XtraTab.XtraTabPage()
+        Me.GridControlDocSearch3 = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewDocSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        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.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()
@@ -56,20 +71,6 @@ Partial Class frmValidatorSearch
         Me.GridViewSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
         Me.tsslblSQL = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.XtraTabControlDocs = New DevExpress.XtraTab.XtraTabControl()
-        Me.XtraTabPageDoc1 = New DevExpress.XtraTab.XtraTabPage()
-        Me.XtraTabPageDoc2 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControlDocSearch2 = New DevExpress.XtraGrid.GridControl()
-        Me.GridViewDocSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        Me.XtraTabPageDoc3 = New DevExpress.XtraTab.XtraTabPage()
-        Me.GridControlDocSearch3 = New DevExpress.XtraGrid.GridControl()
-        Me.GridViewDocSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView()
-        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()
@@ -82,9 +83,27 @@ Partial Class frmValidatorSearch
         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()
+        Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
+        CType(Me.SplitContainerControlDoc, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainerControlDoc.SuspendLayout()
+        CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabControlDocs.SuspendLayout()
+        Me.XtraTabPageDoc1.SuspendLayout()
         CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
+        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.ToolStrip1.SuspendLayout()
         CType(Me.SplitContainerSearches, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainerSearches.Panel1.SuspendLayout()
         Me.SplitContainerSearches.Panel2.SuspendLayout()
@@ -107,26 +126,180 @@ Partial Class frmValidatorSearch
         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()
         '
+        'SplitContainerControlDoc
+        '
+        resources.ApplyResources(Me.SplitContainerControlDoc, "SplitContainerControlDoc")
+        Me.SplitContainerControlDoc.Name = "SplitContainerControlDoc"
+        Me.SplitContainerControlDoc.Panel1.Controls.Add(Me.XtraTabControlDocs)
+        resources.ApplyResources(Me.SplitContainerControlDoc.Panel1, "SplitContainerControlDoc.Panel1")
+        Me.SplitContainerControlDoc.Panel2.Controls.Add(Me.DocumentViewer1)
+        resources.ApplyResources(Me.SplitContainerControlDoc.Panel2, "SplitContainerControlDoc.Panel2")
+        Me.SplitContainerControlDoc.SplitterPosition = 351
+        '
+        'XtraTabControlDocs
+        '
+        resources.ApplyResources(Me.XtraTabControlDocs, "XtraTabControlDocs")
+        Me.XtraTabControlDocs.Name = "XtraTabControlDocs"
+        Me.XtraTabControlDocs.SelectedTabPage = Me.XtraTabPageDoc1
+        Me.XtraTabControlDocs.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageDoc1, Me.XtraTabPageDoc2, Me.XtraTabPageDoc3, Me.XtraTabPageDoc4, Me.XtraTabPageDoc5})
+        '
+        'XtraTabPageDoc1
+        '
+        Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
+        Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
+        resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1")
+        '
+        'GridControlDocSearch1
+        '
+        resources.ApplyResources(Me.GridControlDocSearch1, "GridControlDocSearch1")
+        GridLevelNode7.RelationName = "Level1"
+        Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode7})
+        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 = System.Drawing.Color.Aqua
+        Me.GridViewDocSearch1.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewDocSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
+        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
+        '
+        'XtraTabPageDoc2
+        '
+        Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
+        Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
+        resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2")
+        '
+        'GridControlDocSearch2
+        '
+        resources.ApplyResources(Me.GridControlDocSearch2, "GridControlDocSearch2")
+        Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2
+        Me.GridControlDocSearch2.Name = "GridControlDocSearch2"
+        Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDocSearch2})
+        '
+        'GridViewDocSearch2
+        '
+        Me.GridViewDocSearch2.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
+        Me.GridViewDocSearch2.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewDocSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
+        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 = System.Drawing.Color.Aqua
+        Me.GridViewDocSearch3.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewDocSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
+        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 = System.Drawing.Color.Aqua
+        Me.GridViewDocSearch4.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewDocSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
+        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 = System.Drawing.Color.Aqua
+        Me.GridViewDocSearch5.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridViewDocSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
+        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
+        '
         'ToolStrip1
         '
         Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile, Me.ToolStripButtonRefreshSearches})
@@ -159,32 +332,6 @@ Partial Class frmValidatorSearch
         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))
@@ -198,7 +345,7 @@ Partial Class frmValidatorSearch
         '
         'SplitContainerSearches.Panel2
         '
-        Me.SplitContainerSearches.Panel2.Controls.Add(Me.XtraTabControlDocs)
+        Me.SplitContainerSearches.Panel2.Controls.Add(Me.SplitContainerControlDoc)
         Me.SplitContainerSearches.Panel2.Controls.Add(Me.ToolStrip2)
         Me.SplitContainerSearches.SplitterDistance = Global.DD_PM_WINDREAM.My.MySettings.Default.frmValSearchSplitterDistance
         '
@@ -218,17 +365,17 @@ Partial Class frmValidatorSearch
         'GridControlSearch1
         '
         resources.ApplyResources(Me.GridControlSearch1, "GridControlSearch1")
-        GridLevelNode2.RelationName = "Level1"
+        GridLevelNode1.RelationName = "Level1"
-        Me.GridControlSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
+        Me.GridControlSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
         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.BackColor = System.Drawing.Color.LightBlue
         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.BackColor = System.Drawing.Color.Lime
         Me.GridViewSearch1.Appearance.SelectedRow.Options.UseBackColor = True
         Me.GridViewSearch1.GridControl = Me.GridControlSearch1
         Me.GridViewSearch1.Name = "GridViewSearch1"
@@ -250,17 +397,17 @@ Partial Class frmValidatorSearch
         'GridControlSearch2
         '
         resources.ApplyResources(Me.GridControlSearch2, "GridControlSearch2")
-        GridLevelNode3.RelationName = "Level1"
+        GridLevelNode2.RelationName = "Level1"
-        Me.GridControlSearch2.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
+        Me.GridControlSearch2.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode2})
         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.BackColor = System.Drawing.Color.LightBlue
         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.BackColor = System.Drawing.Color.Lime
         Me.GridViewSearch2.Appearance.SelectedRow.Options.UseBackColor = True
         Me.GridViewSearch2.GridControl = Me.GridControlSearch2
         Me.GridViewSearch2.Name = "GridViewSearch2"
@@ -282,17 +429,17 @@ Partial Class frmValidatorSearch
         'GridControlSearch3
         '
         resources.ApplyResources(Me.GridControlSearch3, "GridControlSearch3")
-        GridLevelNode4.RelationName = "Level1"
+        GridLevelNode3.RelationName = "Level1"
-        Me.GridControlSearch3.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4})
+        Me.GridControlSearch3.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode3})
         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.BackColor = System.Drawing.Color.LightBlue
         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.BackColor = System.Drawing.Color.Lime
         Me.GridViewSearch3.Appearance.SelectedRow.Options.UseBackColor = True
         Me.GridViewSearch3.GridControl = Me.GridControlSearch3
         Me.GridViewSearch3.Name = "GridViewSearch3"
@@ -314,17 +461,17 @@ Partial Class frmValidatorSearch
         'GridControlSearch4
         '
         resources.ApplyResources(Me.GridControlSearch4, "GridControlSearch4")
-        GridLevelNode5.RelationName = "Level1"
+        GridLevelNode4.RelationName = "Level1"
-        Me.GridControlSearch4.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode5})
+        Me.GridControlSearch4.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode4})
         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.BackColor = System.Drawing.Color.LightBlue
         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.BackColor = System.Drawing.Color.Lime
         Me.GridViewSearch4.Appearance.SelectedRow.Options.UseBackColor = True
         Me.GridViewSearch4.GridControl = Me.GridControlSearch4
         Me.GridViewSearch4.Name = "GridViewSearch4"
@@ -346,17 +493,17 @@ Partial Class frmValidatorSearch
         'GridControlSearch5
         '
         resources.ApplyResources(Me.GridControlSearch5, "GridControlSearch5")
-        GridLevelNode6.RelationName = "Level1"
+        GridLevelNode5.RelationName = "Level1"
-        Me.GridControlSearch5.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode6})
+        Me.GridControlSearch5.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode5})
         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.BackColor = System.Drawing.Color.LightBlue
         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.BackColor = System.Drawing.Color.Lime
         Me.GridViewSearch5.Appearance.SelectedRow.Options.UseBackColor = True
         Me.GridViewSearch5.GridControl = Me.GridControlSearch5
         Me.GridViewSearch5.Name = "GridViewSearch5"
@@ -380,139 +527,6 @@ Partial Class frmValidatorSearch
         Me.tsslblSQL.Name = "tsslblSQL"
         resources.ApplyResources(Me.tsslblSQL, "tsslblSQL")
         '
-        'XtraTabControlDocs
-        '
-        resources.ApplyResources(Me.XtraTabControlDocs, "XtraTabControlDocs")
-        Me.XtraTabControlDocs.Name = "XtraTabControlDocs"
-        Me.XtraTabControlDocs.SelectedTabPage = Me.XtraTabPageDoc1
-        Me.XtraTabControlDocs.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageDoc1, Me.XtraTabPageDoc2, Me.XtraTabPageDoc3, Me.XtraTabPageDoc4, Me.XtraTabPageDoc5})
-        '
-        'XtraTabPageDoc1
-        '
-        Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
-        Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
-        resources.ApplyResources(Me.XtraTabPageDoc1, "XtraTabPageDoc1")
-        '
-        'XtraTabPageDoc2
-        '
-        Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
-        Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
-        resources.ApplyResources(Me.XtraTabPageDoc2, "XtraTabPageDoc2")
-        '
-        'GridControlDocSearch2
-        '
-        resources.ApplyResources(Me.GridControlDocSearch2, "GridControlDocSearch2")
-        Me.GridControlDocSearch2.MainView = Me.GridViewDocSearch2
-        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")
@@ -579,19 +593,40 @@ Partial Class frmValidatorSearch
         Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
         resources.ApplyResources(Me.ToolStripMenuItem4, "ToolStripMenuItem4")
         '
+        'DocumentViewer1
+        '
+        resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1")
+        Me.DocumentViewer1.Name = "DocumentViewer1"
+        '
         'frmValidatorSearch
         '
         resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.Controls.Add(Me.SplitContainerSearches)
         Me.Controls.Add(Me.ToolStrip1)
-        Me.MaximizeBox = False
         Me.MinimizeBox = False
         Me.Name = "frmValidatorSearch"
-        Me.ToolStrip1.ResumeLayout(False)
+        CType(Me.SplitContainerControlDoc, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.ToolStrip1.PerformLayout()
+        Me.SplitContainerControlDoc.ResumeLayout(False)
+        CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabControlDocs.ResumeLayout(False)
+        Me.XtraTabPageDoc1.ResumeLayout(False)
         CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.GridViewDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
+        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.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
         Me.SplitContainerSearches.Panel1.ResumeLayout(False)
         Me.SplitContainerSearches.Panel1.PerformLayout()
         Me.SplitContainerSearches.Panel2.ResumeLayout(False)
@@ -617,21 +652,6 @@ Partial Class frmValidatorSearch
         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)
@@ -693,4 +713,6 @@ Partial Class frmValidatorSearch
     Friend WithEvents ToolStripMenuItem4 As ToolStripMenuItem
     Friend WithEvents StatusStrip1 As StatusStrip
     Friend WithEvents tsslblSQL As ToolStripStatusLabel
+    Friend WithEvents SplitContainerControlDoc As DevExpress.XtraEditors.SplitContainerControl
+    Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
 End Class

app/DD_PM_WINDREAM/frmValidatorSearch.vb

@@ -78,12 +78,13 @@ Public Class frmValidatorSearch
                         End If
                         XtraTabControlDocs.TabPages(p).Text = DTDOC.Rows(p).Item("TAB_TITLE")
                     Next
+
                 End If
 
 
             End If
         Catch ex As Exception
-
+            LOGGER.Error(ex)
         End Try
 
     End Sub
@@ -367,6 +368,11 @@ Public Class frmValidatorSearch
         End Try
     End Function
     Private Sub frmValidatorSearch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        Try
+            DocumentViewer1.Done()
+        Catch ex As Exception
+            LOGGER.Warn($"Unexpected error in DocumentViewerValSearch.Done: {ex.Message}")
+        End Try
         Try
             ' Position und Größe speichern
             My.Settings.frmValidatorSearchSize = Me.Size
@@ -377,9 +383,15 @@ Public Class frmValidatorSearch
             LOGGER.Error(ex)
             LOGGER.Info("Error in Save FormLayout: " & ex.Message)
         End Try
+
     End Sub
 
     Private Sub frmValidatorSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            DocumentViewer1.Init(LOGCONFIG, GDPICTURE_LICENSE)
+        Catch ex As Exception
+            LOGGER.Warn("Error initializing DocViewDocsValdiatorSearch: " & ex.Message)
+        End Try
         SplitContainerSearches.Panel1Collapsed = True
         If My.Settings.frmValidatorSearchPosition.IsEmpty = False Then
             If My.Settings.frmValidatorSearchPosition.X > 0 And My.Settings.frmValidatorSearchPosition.Y > 0 Then
@@ -454,8 +466,14 @@ Public Class frmValidatorSearch
             Dim msg = "Doc-ID: " & clsWMDocGrid.SELECTED_DOC_ID.ToString
             tslblDocID.Text = msg
             ToolStripDropDownButtonFile.Enabled = True
-        Else
+            If Not IsNothing(clsWMDocGrid.SELECTED_DOC_PATH) And Not IsNothing(DocumentViewer1) Then
-            tslblDocID.Text = "DocRow not selected"
+                If clsWMDocGrid.SELECTED_DOC_PATH <> "" Then
+                    DocumentViewer1.LoadFile(clsWMDocGrid.SELECTED_DOC_PATH)
+                End If
+            End If
+
+            Else
+                tslblDocID.Text = "DocRow not selected"
             ToolStripDropDownButtonFile.Enabled = False
         End If
     End Sub
@@ -499,13 +517,11 @@ Public Class frmValidatorSearch
     End Sub
     Sub FileShow()
         Try
-            If IsNothing(clsWMDocGrid.DTDocuments) Then
+            If IsNothing(clsWMDocGrid.SELECTED_DOC_PATH) Then
                 MsgBox("Could not read fileparameters(5)!", MsgBoxStyle.Exclamation)
                 Exit Sub
             End If
-            For Each row As DataRow In clsWMDocGrid.DTDocuments.Rows
+            File_SYSOPEN(clsWMDocGrid.SELECTED_DOC_PATH, clsWMDocGrid.SELECTED_DOC_ID)
-                File_SYSOPEN(row.Item("DOC_PATH"), row.Item("DOC_ID"))
-            Next
         Catch ex As Exception
 
         End Try
@@ -513,14 +529,20 @@ Public Class frmValidatorSearch
     Private Shared Sub File_SYSOPEN(RESULT_DOC_PATH As Object, DocID As String)
         Try
             If RESULT_DOC_PATH <> Nothing Then
+                If File.Exists(RESULT_DOC_PATH) Then
+                    BW_DocPath = RESULT_DOC_PATH
+                    BW_DocID = DocID
 
-                BW_DocPath = RESULT_DOC_PATH
+                    Dim BWFileHandler As New BackgroundWorker
-                BW_DocID = DocID
+                    AddHandler BWFileHandler.DoWork, AddressOf BWFileHandler_DoWork
+                    BWFileHandler.RunWorkerAsync()
+                Else
+                    MsgBox("Document is not existing or accessible!", MsgBoxStyle.Exclamation)
 
-                Dim BWFileHandler As New BackgroundWorker
+                End If
-                AddHandler BWFileHandler.DoWork, AddressOf BWFileHandler_DoWork
-                BWFileHandler.RunWorkerAsync()
 
+            Else
+                LOGGER.Warn("Attention: RESULT_DOC_PATH is nothing")
             End If
         Catch ex As Exception
             MsgBox("Unexpected Error in File_SYSOPEN:" & vbNewLine & ex.Message & vbNewLine & RESULT_DOC_PATH & vbNewLine & "DocID: " & DocID, MsgBoxStyle.Critical)
@@ -531,8 +553,7 @@ Public Class frmValidatorSearch
         Try
 
             Dim oMyProcess = New Process()
-            Dim oExtension
+
-            Dim oSql
             Try
                 'Dim oPSI As New ProcessStartInfo(BW_DocPath)
                 oMyProcess.StartInfo.FileName = BW_DocPath