MS

2020-04-20 14:36:46 +02:00
parent c6cb81c05b
commit 103619ebac
20 changed files with 1252 additions and 898 deletions
--- a/app/DD_PM_WINDREAM/ClassDatabase.vb
+++ b/app/DD_PM_WINDREAM/ClassDatabase.vb
@@ -229,6 +229,34 @@ Public Class ClassDatabase
            Return Nothing
        End Try
    End Function
+    Public Shared Function Execute_Scalar_ConID(cmdscalar As String, ConnID As Integer, Optional userInput As Boolean = False)
+        Dim result
+        Try
+            Dim oConnString = Get_ConnectionString(ConnID)
+            LOGGER.Debug($"Execute_Scalar_ConID [{ConnID}]: " & cmdscalar)
+
+            Dim SQLconnect As New SqlClient.SqlConnection
+            Dim SQLcommand As SqlClient.SqlCommand
+            SQLconnect.ConnectionString = oConnString
+            SQLconnect.Open()
+            SQLcommand = SQLconnect.CreateCommand
+            'Update Last Created Record in Foo
+            SQLcommand.CommandText = cmdscalar
+            result = SQLcommand.ExecuteScalar()
+            SQLcommand.Dispose()
+            SQLconnect.Close()
+            Return result
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            If userInput = True Then
+                MsgBox("Error in Execute_Scalar_ConStr - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
+            End If
+            Clipboard.SetText("Error Execute_Scalar_ConStr: " & ex.Message & vbNewLine & "SQL: " & cmdscalar)
+            LOGGER.Info("Fehler bei Execute_Scalar_ConStr: " & ex.Message, True)
+            LOGGER.Info("#SQL: " & cmdscalar, False)
+            Return Nothing
+        End Try
+    End Function
    Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String)
        Dim result
        Try
--- a/app/DD_PM_WINDREAM/ClassInit.vb
+++ b/app/DD_PM_WINDREAM/ClassInit.vb
@@ -15,7 +15,7 @@ Public Class ClassInit
    <STAThread()>
    Public Sub InitLogger()
        LOGCONFIG = New LogConfig(LogConfig.PathType.CustomPath,
-                                        Application.UserAppDataPath & "\Log",
+                                       Application.LocalUserAppDataPath & "\Log",
                                        Nothing,
                                        My.Application.Info.CompanyName,
                                        My.Application.Info.ProductName)
@@ -103,6 +103,7 @@ Public Class ClassInit

    <STAThread()>
    Sub Refresh_Licence()
+        Dim oStopWatch As New RefreshHelper.SW("Refresh_Licence")
        Try
            Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
            Dim lic As String = BASEDATA_DT_CONFIG.Rows(0).Item("LIZENZEN") ' ClassDatabase.Execute_Scalar("SELECT LIZENZEN FROM TBPM_KONFIGURATION WHERE (GUID = 1)", MyConnectionString)
@@ -128,14 +129,19 @@ Public Class ClassInit
            LOGGER.Info("Unexpected error in Refresh license: " & ex.Message, True)
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Licensemanager:")
        End Try
+        oStopWatch.done
    End Sub
    <STAThread()>
    Public Sub InitUserLogin()
+        Dim oStopWatch As New RefreshHelper.SW("InitUserLogin")
        Try
            USER_USERNAME = Environment.UserName
            Try
+                Dim oSQLSW As New RefreshHelper.SW("VWDD_USER_CLIENT")
                Dim oSQL = $"SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{USER_USERNAME}')"
                DT_CLIENT_USER = ClassDatabase.Return_Datatable(oSQL, False)
+                oSQLSW.Done()
+
                If DT_CLIENT_USER.Rows.Count > 1 Then
                    frmClientLogin.ShowDialog()
                ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
@@ -155,16 +161,13 @@ Public Class ClassInit
            End Try

            LOGGER.Debug("Username: " & USER_USERNAME)
-
+            Dim oFnct As New RefreshHelper.SW("FNDD_CHECK_USER_MODULE")
            Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED)
-
-
            Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
+            oFnct.Done()
            If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
                LOGGER.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
-
                ERROR_STATE = "NO USER"
-
                MsgBox("Sorry - Something went wrong in getting Your rights." & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
                Exit Sub
            End If
@@ -241,7 +244,6 @@ Public Class ClassInit
                    LOGGER.Info("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!")
                    If USER_IS_ADMIN = False Then
                        ClassAllgemeineFunktionen.LoginOut("LOGOUT")
-                        LOGGER.Info("Wieder abgemeldet - START INCOMPLETE")
                        ERROR_STATE = "START INCOMPLETE"
                    End If
                End If
@@ -253,11 +255,12 @@ Public Class ClassInit
            LOGGER.Info("Unexpected Error in InitUserLogin: " & ex.Message, True)
            ERROR_STATE = "START INCOMPLETE"
        End Try
-
+        oStopWatch.Done()
    End Sub
    <STAThread()>
    Public Shared Sub InitBasics()
        Try
+            Dim oStopWatch As New RefreshHelper.SW("InitBasics")
            Dim oSql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1")
            BASEDATA_DT_CONFIG = ClassDatabase.Return_Datatable(oSql)
            Settings_LoadBasicConfig()
@@ -281,6 +284,7 @@ Public Class ClassInit
            BASEDATA_DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1")
            oSql = "SELECT * FROM TBPM_CHART"
            BASEDATA_DT_CHARTS = ClassDatabase.Return_Datatable(oSql)
+            oStopWatch.Done()
        Catch ex As Exception
            LOGGER.Error(ex)
            LOGGER.Info("Unexpected Error in InitBasics: " & ex.Message, True)
@@ -290,8 +294,10 @@ Public Class ClassInit
    <STAThread()>
    Public Shared Sub InitBasics2()
        Try
+            Dim oStopWatch As New RefreshHelper.SW("InitBasics2")
            Dim oSql = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID)
            BASEDATA_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSql)
+            oStopWatch.Done()
        Catch ex As Exception
            LOGGER.Error(ex)
            LOGGER.Info("Unexpected Error in InitBasics2: " & ex.Message, True)
--- a/app/DD_PM_WINDREAM/ClassParamRefresh.vb
+++ b/app/DD_PM_WINDREAM/ClassParamRefresh.vb
@@ -1,5 +1,6 @@
 Public Class ClassParamRefresh
    Public Shared Sub Refresh_Params(DT_CHECKUSER As DataTable)
+        Dim oStopwatch As New RefreshHelper.SW("Refresh_Params")
        FORCE_LAYOUT_OVERVIEW = False
        SHOW_CHARTS = True
        USER_DEBUG_LOG = False
@@ -65,6 +66,6 @@
            Next

        End If
-
+        oStopwatch.Done()
    End Sub
 End Class
--- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
+++ b/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
@@ -38,7 +38,7 @@ Module ModuleRuntimeVariables
    Public USER_USERNAME As String
    Public DT_USER2MODULE As DataTable

-    Public CHANGES_IN_ADMINISTRATION As Boolean = False
+    Public CHANGES_FORM_DESIGN As Boolean = False

    Public USER_IS_ADMIN As Boolean = False
    Public USER_ID
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("2.1.2.0")>
+<Assembly: AssemblyVersion("2.1.4.1")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 
--- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb
+++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb
@@ -1262,6 +1262,7 @@ Partial Class frmAdministration
        Me.RibbonControl1.MaxItemId = 24
        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
        '
        'BarButtonItem1
--- a/app/DD_PM_WINDREAM/frmAdministration.resx
+++ b/app/DD_PM_WINDREAM/frmAdministration.resx
@@ -163,7 +163,7 @@
    <value>True</value>
  </data>
  <metadata name="TBPROFILE_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>922, 56</value>
+    <value>383, 56</value>
  </metadata>
  <metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>206, 17</value>
@@ -264,24 +264,6 @@
  <data name="&gt;&gt;gridAssignedUsers.ZOrder" xml:space="preserve">
    <value>0</value>
  </data>
-  <data name="Label20.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Left</value>
-  </data>
-  <data name="Label20.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="Label20.Size" type="System.Drawing.Size, System.Drawing">
-    <value>194, 25</value>
-  </data>
-  <data name="Label20.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="Label20.Text" xml:space="preserve">
-    <value>Zugeordnete Benutzer:</value>
-  </data>
-  <data name="Label20.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
  <data name="&gt;&gt;Label20.Name" xml:space="preserve">
    <value>Label20</value>
  </data>
@@ -334,7 +316,7 @@
    <value>True</value>
  </data>
  <metadata name="FNPM_GET_FREE_USER_FOR_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 212</value>
+    <value>1045, 134</value>
  </metadata>
  <data name="gridAvailableUsers.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
    <value>Fill</value>
@@ -432,24 +414,6 @@
  <data name="&gt;&gt;gridAvailableUsers.ZOrder" xml:space="preserve">
    <value>0</value>
  </data>
-  <data name="Label19.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Left</value>
-  </data>
-  <data name="Label19.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="Label19.Size" type="System.Drawing.Size, System.Drawing">
-    <value>194, 25</value>
-  </data>
-  <data name="Label19.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="Label19.Text" xml:space="preserve">
-    <value>Verfügbare Benutzer:</value>
-  </data>
-  <data name="Label19.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
  <data name="&gt;&gt;Label19.Name" xml:space="preserve">
    <value>Label19</value>
  </data>
@@ -519,6 +483,66 @@
  <data name="&gt;&gt;SplitContainer_Profilzuordnung2.ZOrder" xml:space="preserve">
    <value>0</value>
  </data>
+  <data name="Label20.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Left</value>
+  </data>
+  <data name="Label20.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 0</value>
+  </data>
+  <data name="Label20.Size" type="System.Drawing.Size, System.Drawing">
+    <value>194, 25</value>
+  </data>
+  <data name="Label20.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="Label20.Text" xml:space="preserve">
+    <value>Zugeordnete Benutzer:</value>
+  </data>
+  <data name="Label20.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="&gt;&gt;Label20.Name" xml:space="preserve">
+    <value>Label20</value>
+  </data>
+  <data name="&gt;&gt;Label20.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Label20.Parent" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="&gt;&gt;Label20.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="Label19.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Left</value>
+  </data>
+  <data name="Label19.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 0</value>
+  </data>
+  <data name="Label19.Size" type="System.Drawing.Size, System.Drawing">
+    <value>194, 25</value>
+  </data>
+  <data name="Label19.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="Label19.Text" xml:space="preserve">
+    <value>Verfügbare Benutzer:</value>
+  </data>
+  <data name="Label19.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="&gt;&gt;Label19.Name" xml:space="preserve">
+    <value>Label19</value>
+  </data>
+  <data name="&gt;&gt;Label19.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Label19.Parent" xml:space="preserve">
+    <value>Panel2</value>
+  </data>
+  <data name="&gt;&gt;Label19.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
  <data name="SplitContainer1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
    <value>Fill</value>
  </data>
@@ -532,7 +556,7 @@
    <value>True</value>
  </data>
  <metadata name="TBPROFILE_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>439, 173</value>
+    <value>439, 134</value>
  </metadata>
  <data name="gridAssignedGroups.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
    <value>Fill</value>
@@ -582,27 +606,6 @@
  <data name="&gt;&gt;gridAssignedGroups.ZOrder" xml:space="preserve">
    <value>0</value>
  </data>
-  <data name="Label22.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Left</value>
-  </data>
-  <data name="Label22.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="Label22.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="Label22.Size" type="System.Drawing.Size, System.Drawing">
-    <value>194, 25</value>
-  </data>
-  <data name="Label22.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="Label22.Text" xml:space="preserve">
-    <value>Zugeordnete Gruppen:</value>
-  </data>
-  <data name="Label22.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
  <data name="&gt;&gt;Label22.Name" xml:space="preserve">
    <value>Label22</value>
  </data>
@@ -655,7 +658,7 @@
    <value>True</value>
  </data>
  <metadata name="TBDD_GROUPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 173</value>
+    <value>17, 134</value>
  </metadata>
  <data name="gridAvailableGroups.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
    <value>Fill</value>
@@ -705,27 +708,6 @@
  <data name="&gt;&gt;gridAvailableGroups.ZOrder" xml:space="preserve">
    <value>0</value>
  </data>
-  <data name="Label23.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Left</value>
-  </data>
-  <data name="Label23.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
-  <data name="Label23.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 0</value>
-  </data>
-  <data name="Label23.Size" type="System.Drawing.Size, System.Drawing">
-    <value>194, 25</value>
-  </data>
-  <data name="Label23.TabIndex" type="System.Int32, mscorlib">
-    <value>0</value>
-  </data>
-  <data name="Label23.Text" xml:space="preserve">
-    <value>Verfügbare Gruppen:</value>
-  </data>
-  <data name="Label23.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
-    <value>MiddleLeft</value>
-  </data>
  <data name="&gt;&gt;Label23.Name" xml:space="preserve">
    <value>Label23</value>
  </data>
@@ -795,6 +777,72 @@
  <data name="&gt;&gt;SplitContainer1.ZOrder" xml:space="preserve">
    <value>0</value>
  </data>
+  <data name="Label22.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Left</value>
+  </data>
+  <data name="Label22.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="Label22.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 0</value>
+  </data>
+  <data name="Label22.Size" type="System.Drawing.Size, System.Drawing">
+    <value>194, 25</value>
+  </data>
+  <data name="Label22.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="Label22.Text" xml:space="preserve">
+    <value>Zugeordnete Gruppen:</value>
+  </data>
+  <data name="Label22.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="&gt;&gt;Label22.Name" xml:space="preserve">
+    <value>Label22</value>
+  </data>
+  <data name="&gt;&gt;Label22.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Label22.Parent" xml:space="preserve">
+    <value>Panel3</value>
+  </data>
+  <data name="&gt;&gt;Label22.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
+  <data name="Label23.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Left</value>
+  </data>
+  <data name="Label23.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+    <value>NoControl</value>
+  </data>
+  <data name="Label23.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 0</value>
+  </data>
+  <data name="Label23.Size" type="System.Drawing.Size, System.Drawing">
+    <value>194, 25</value>
+  </data>
+  <data name="Label23.TabIndex" type="System.Int32, mscorlib">
+    <value>0</value>
+  </data>
+  <data name="Label23.Text" xml:space="preserve">
+    <value>Verfügbare Gruppen:</value>
+  </data>
+  <data name="Label23.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
+    <value>MiddleLeft</value>
+  </data>
+  <data name="&gt;&gt;Label23.Name" xml:space="preserve">
+    <value>Label23</value>
+  </data>
+  <data name="&gt;&gt;Label23.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Label23.Parent" xml:space="preserve">
+    <value>Panel4</value>
+  </data>
+  <data name="&gt;&gt;Label23.ZOrder" xml:space="preserve">
+    <value>0</value>
+  </data>
  <metadata name="NAMELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>False</value>
  </metadata>
@@ -1087,16 +1135,16 @@
    <value>6</value>
  </data>
  <metadata name="TBDD_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>727, 56</value>
+    <value>188, 56</value>
  </metadata>
  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>368, 17</value>
  </metadata>
  <metadata name="TBPM_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>770, 17</value>
+    <value>541, 17</value>
  </metadata>
  <metadata name="TBPM_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>982, 17</value>
+    <value>753, 17</value>
  </metadata>
  <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
    <value>True</value>
@@ -1204,7 +1252,7 @@
    <value>4</value>
  </data>
  <metadata name="TBPM_TYPEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>174, 56</value>
+    <value>1116, 17</value>
  </metadata>
  <data name="PRIORITYNumericUpDown.Font" type="System.Drawing.Font, System.Drawing">
    <value>Tahoma, 9.75pt</value>
@@ -1525,7 +1573,7 @@
    <value>16</value>
  </data>
  <metadata name="dlgWindreamsuche.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 56</value>
+    <value>959, 17</value>
  </metadata>
  <data name="dlgWindreamsuche.Filter" xml:space="preserve">
    <value>windream-Suche|*.wdf|Alle Dateien|*.*</value>
@@ -1534,10 +1582,10 @@
    <value>windream-Suche wählen</value>
  </data>
  <metadata name="TBPM_TYPETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>368, 56</value>
+    <value>1310, 17</value>
  </metadata>
  <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>556, 56</value>
+    <value>17, 56</value>
  </metadata>
  <data name="tabctrl_Profilkonfig.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
    <value>Top, Bottom, Left, Right</value>
@@ -1783,10 +1831,10 @@
    <value>Top, Bottom, Left, Right</value>
  </data>
  <metadata name="TBPM_PROFILE_FINAL_INDEXINGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 251</value>
+    <value>798, 173</value>
  </metadata>
  <metadata name="FinalIndexDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>677, 212</value>
+    <value>344, 173</value>
  </metadata>
  <data name="gridFinalIndex.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
    <value>Fill</value>
@@ -2536,16 +2584,16 @@
    <value>0</value>
  </data>
  <metadata name="TBPM_KONFIGURATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>234, 95</value>
+    <value>823, 56</value>
  </metadata>
  <metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>775, 134</value>
+    <value>1054, 95</value>
  </metadata>
  <metadata name="TBPM_PROFILE_CONTROLSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>871, 95</value>
+    <value>17, 95</value>
  </metadata>
  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>754, 95</value>
+    <value>1343, 56</value>
  </metadata>
  <data name="tstrpinfo.Size" type="System.Drawing.Size, System.Drawing">
    <value>20, 20</value>
@@ -2578,13 +2626,13 @@
    <value>1</value>
  </data>
  <metadata name="TBPROFILE_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 95</value>
+    <value>606, 56</value>
  </metadata>
  <metadata name="TBDD_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
  <metadata name="TBPM_KONFIGURATIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>497, 95</value>
+    <value>1086, 56</value>
  </metadata>
  <data name="pnlMain.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
    <value>Fill</value>
@@ -2611,34 +2659,34 @@
    <value>0</value>
  </data>
  <metadata name="TBPM_PROFILE_CONTROLSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 134</value>
+    <value>296, 95</value>
  </metadata>
  <metadata name="TBPM_PROFILE_FILESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>290, 134</value>
+    <value>569, 95</value>
  </metadata>
  <metadata name="TBPM_PROFILE_FILESTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>535, 134</value>
+    <value>814, 95</value>
  </metadata>
  <metadata name="TBDD_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1019, 134</value>
+    <value>1298, 95</value>
  </metadata>
  <metadata name="TBDD_GROUPSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>231, 173</value>
+    <value>231, 134</value>
  </metadata>
  <metadata name="TBPROFILE_GROUPTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>674, 173</value>
+    <value>674, 134</value>
  </metadata>
  <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>903, 173</value>
+    <value>903, 134</value>
  </metadata>
  <metadata name="FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>350, 212</value>
+    <value>17, 173</value>
  </metadata>
  <metadata name="TBPM_PROFILE_FINAL_INDEXINGTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>826, 212</value>
+    <value>493, 173</value>
  </metadata>
  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>327, 251</value>
+    <value>1108, 173</value>
  </metadata>
  <data name="BarButtonItem1.Caption" xml:space="preserve">
    <value>Aktualisieren</value>
@@ -3452,17 +3500,8 @@
  <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
    <value>0, 0</value>
  </data>
-  <data name="RibbonPageGroup1.Text" xml:space="preserve">
-    <value>Profil-Verwaltung</value>
-  </data>
-  <data name="RibbonPageGroup2.Text" xml:space="preserve">
-    <value>Finale Indexe</value>
-  </data>
-  <data name="RibbonPageGroup3.Text" xml:space="preserve">
-    <value>Grundeinstellungen</value>
-  </data>
  <data name="RibbonPage1.Text" xml:space="preserve">
-    <value>Menü Profil-Verwaltung</value>
+    <value>Start</value>
  </data>
  <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
    <value>1280, 146</value>
@@ -3497,6 +3536,15 @@
  <data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
    <value>3</value>
  </data>
+  <data name="RibbonPageGroup1.Text" xml:space="preserve">
+    <value>Profil-Verwaltung</value>
+  </data>
+  <data name="RibbonPageGroup2.Text" xml:space="preserve">
+    <value>Finale Indexe</value>
+  </data>
+  <data name="RibbonPageGroup3.Text" xml:space="preserve">
+    <value>Grundeinstellungen</value>
+  </data>
  <data name="RibbonPage2.Text" xml:space="preserve">
    <value>RibbonPage2</value>
  </data>
@@ -3504,7 +3552,7 @@
    <value>True</value>
  </metadata>
  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>116</value>
+    <value>281</value>
  </metadata>
  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
    <value>7, 16</value>
--- a/app/DD_PM_WINDREAM/frmAdministration.vb
+++ b/app/DD_PM_WINDREAM/frmAdministration.vb
@@ -6,7 +6,8 @@ Imports DevExpress.XtraGrid
 Imports DevExpress.XtraGrid.Views.Grid

 Public Class frmAdministration
-
+    Private UNSAVED_CHANGES_PROFILE As Boolean = False
+    Private UNSAVED_CHANGES_FI As Boolean = False
    Private email As New ClassEmail
    Public profile_guid As Integer = 0
    Dim formloaded As Boolean
@@ -16,6 +17,7 @@ Public Class frmAdministration
    Dim MyIndicies_Types As List(Of Integer)
    Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        formloaded = False
+        UNSAVED_CHANGES_PROFILE = False
        Try
            TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
            TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING
@@ -244,6 +246,27 @@ Public Class frmAdministration
    End Sub

    Private Sub TBPM_PROFILEBindingSource_PositionChanged(sender As System.Object, e As System.EventArgs) Handles TBPM_PROFILEBindingSource.PositionChanged
+        If formloaded = False Then
+            Exit Sub
+        End If
+        If UNSAVED_CHANGES_PROFILE = True Or UNSAVED_CHANGES_FI = True Then
+            Dim oQuestion As String
+            If USER_LANGUAGE <> "de-DE" Then
+                oQuestion = "You have unsaved changes! Do You want to save them now?"
+            Else
+                oQuestion = "Achtung es gibt noch ungespeicherte Änderungen! Wollen Sie diese nun speichern?"
+            End If
+            Dim result As MsgBoxResult = MsgBox(oQuestion, MsgBoxStyle.YesNo, ADDITIONAL_TITLE)
+            'wenn Speichern ja
+            If result = MsgBoxResult.Yes Then
+                If UNSAVED_CHANGES_PROFILE = True Then
+                    Save_Profile()
+                End If
+                If UNSAVED_CHANGES_FI = True Then
+                    Save_FI()
+                End If
+            End If
+        End If
        tsbStaticInfo.Caption = ""
        Indexe_eintragen()
        If tabctrl_Profilkonfig.SelectedIndex = 1 And TBPM_PROFILEBindingSource.Position <> -1 Then
@@ -827,6 +850,25 @@ Public Class frmAdministration
    'End Sub

    Private Sub frmProfileDesigner_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        If UNSAVED_CHANGES_PROFILE = True Or UNSAVED_CHANGES_FI = True Then
+            Dim oQuestion As String
+            If USER_LANGUAGE <> "de-DE" Then
+                oQuestion = "You have unsaved changes! Do You want to save them now?"
+            Else
+                oQuestion = "Achtung es gibt noch ungespeicherte Änderungen! Wollen Sie diese nun speichern?"
+            End If
+            Dim result As MsgBoxResult = MsgBox(oQuestion, MsgBoxStyle.YesNo, ADDITIONAL_TITLE)
+            'wenn Speichern ja
+            If result = MsgBoxResult.Yes Then
+                If UNSAVED_CHANGES_PROFILE = True Then
+                    Save_Profile()
+                End If
+                If UNSAVED_CHANGES_FI = True Then
+                    Save_FI()
+                End If
+                e.Cancel = True
+            End If
+        End If
        CancelFinalIndexInsert()
    End Sub

@@ -909,6 +951,9 @@ Public Class frmAdministration


    Private Sub PropertyGrid1_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles PropertyGrid1.PropertyValueChanged
+        If formloaded = False Then
+            Exit Sub
+        End If
        Dim propertyGrid As PropertyGrid = s
        Dim obj As FinalIndexProperties = propertyGrid.SelectedObject

@@ -931,6 +976,7 @@ Public Class frmAdministration
            End If
            propertyGrid.Refresh()
        End If
+        UNSAVED_CHANGES_FI = True
    End Sub


@@ -1023,17 +1069,18 @@ Public Class frmAdministration
    End Sub

    Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
-        Save_Profile
+        Save_Profile()
    End Sub
    Sub Save_Profile()
        Try
            Me.TBPM_PROFILEBindingSource.EndEdit()
-            If DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges Is Nothing = False Then
+            If DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges Is Nothing = False Or UNSAVED_CHANGES_PROFILE = True Then
                CHANGED_WHOTextBox.Text = USER_USERNAME
                Me.TBPM_PROFILEBindingSource.EndEdit()
                Me.TBPM_PROFILETableAdapter.Update(DD_DMSLiteDataSet.TBPM_PROFILE)
                tsbStaticInfo.Caption = $"ProfileData saved - {Now.ToLongTimeString}"
-                CHANGES_IN_ADMINISTRATION = True
+                CHANGES_FORM_DESIGN = True
+                UNSAVED_CHANGES_PROFILE = False
            Else
                tsbStaticInfo.Caption = ""
            End If
@@ -1115,6 +1162,9 @@ Public Class frmAdministration
    End Sub

    Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick
+        Save_FI
+    End Sub
+    Private Sub Save_FI()
        Try
            Dim obj As FinalIndexProperties = PropertyGrid1.SelectedObject

@@ -1179,6 +1229,7 @@ Public Class frmAdministration
                End If

                Refresh_Final_indexe()
+
            End If
        Catch ex As Exception
            LOGGER.Error(ex)
@@ -1188,9 +1239,9 @@ Public Class frmAdministration
            BarButtonItem19.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
            BarButtonItem16.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
            INSERT_ACTIVE = False
+            UNSAVED_CHANGES_FI = False
        End Try
    End Sub
-
    Private Sub BarButtonItem19_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem19.ItemClick
        CancelFinalIndexInsert()
    End Sub
@@ -1235,7 +1286,7 @@ Public Class frmAdministration
                    Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_VIEW = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}"
                    If ClassDatabase.Execute_non_Query(oUpdate) = True Then
                        tsbStaticInfo.Caption = $"Profile SQL saved - {Now.ToLongTimeString}"
-                        CHANGES_IN_ADMINISTRATION = True
+                        CHANGES_FORM_DESIGN = True
                    End If

                End If
@@ -1261,7 +1312,7 @@ Public Class frmAdministration
                    Dim oUpdate As String = $"Update TBPM_PROFILE SET CHANGED_WHO = '{USER_USERNAME}', SQL_BTN_FINISH = '{oForm.SQLCommand.Replace("'", "''")}' WHERE GUID = {CURRENT_ProfilGUID}"
                    If ClassDatabase.Execute_non_Query(oUpdate) = True Then
                        tsbStaticInfo.Caption = $"Profile SQLFinish saved - {Now.ToLongTimeString}"
-                        CHANGES_IN_ADMINISTRATION = True
+                        CHANGES_FORM_DESIGN = True
                    End If

                End If
@@ -1271,4 +1322,21 @@ Public Class frmAdministration
            LOGGER.Error(ex)
        End Try
    End Sub
+
+    Private Sub TBPM_PROFILEBindingSource_CurrentItemChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentItemChanged
+        Check_Changes()
+    End Sub
+    Private Sub Check_Changes()
+        If formloaded = False Then
+            Exit Sub
+        End If
+        If UNSAVED_CHANGES_PROFILE = True Then
+            Exit Sub
+        End If
+
+        TBPM_PROFILEBindingSource.EndEdit()
+        If Not IsNothing(DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges) Then
+            UNSAVED_CHANGES_PROFILE = True
+        End If
+    End Sub
 End Class
--- a/app/DD_PM_WINDREAM/frmControl_Detail.Designer.vb
+++ b/app/DD_PM_WINDREAM/frmControl_Detail.Designer.vb
@@ -34,7 +34,10 @@ Partial Class frmControl_Detail
        Dim ADDED_WHENLabel As System.Windows.Forms.Label
        Dim CHANGED_WHOLabel As System.Windows.Forms.Label
        Dim CHANGED_WHENLabel As System.Windows.Forms.Label
+        Dim SQL_COMMANDLabel As System.Windows.Forms.Label
        Me.SPALTENNAMETextBox = New System.Windows.Forms.TextBox()
+        Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
        Me.SPALTEN_HEADERTextBox = New System.Windows.Forms.TextBox()
        Me.SPALTENBREITETextBox = New System.Windows.Forms.TextBox()
        Me.GUIDTextBox = New System.Windows.Forms.TextBox()
@@ -46,8 +49,6 @@ Partial Class frmControl_Detail
        Me.btnDelete = New System.Windows.Forms.Button()
        Me.REGEX_MATCHTextBox = New System.Windows.Forms.TextBox()
        Me.Button1 = New System.Windows.Forms.Button()
-        Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
-        Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
        Me.TBPM_CONTROL_TABLETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter()
        Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
        Me.REGEX_MESSAGE_DETextBox = New System.Windows.Forms.TextBox()
@@ -55,6 +56,9 @@ Partial Class frmControl_Detail
        Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox()
        Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
        Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
+        Me.SQL_COMMANDTextBox = New System.Windows.Forms.TextBox()
+        Me.CONNECTION_IDTextBox = New System.Windows.Forms.TextBox()
+        Me.btnSQLEdit = New System.Windows.Forms.Button()
        SPALTENNAMELabel = New System.Windows.Forms.Label()
        SPALTEN_HEADERLabel = New System.Windows.Forms.Label()
        SPALTENBREITELabel = New System.Windows.Forms.Label()
@@ -65,9 +69,10 @@ Partial Class frmControl_Detail
        ADDED_WHENLabel = New System.Windows.Forms.Label()
        CHANGED_WHOLabel = New System.Windows.Forms.Label()
        CHANGED_WHENLabel = New System.Windows.Forms.Label()
-        Me.StatusStrip1.SuspendLayout()
+        SQL_COMMANDLabel = New System.Windows.Forms.Label()
        CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.StatusStrip1.SuspendLayout()
        Me.SuspendLayout()
        '
        'SPALTENNAMELabel
@@ -90,12 +95,52 @@ Partial Class frmControl_Detail
        resources.ApplyResources(GUIDLabel, "GUIDLabel")
        GUIDLabel.Name = "GUIDLabel"
        '
+        'Label1
+        '
+        resources.ApplyResources(Label1, "Label1")
+        Label1.Name = "Label1"
+        '
+        'Label2
+        '
+        resources.ApplyResources(Label2, "Label2")
+        Label2.Name = "Label2"
+        '
+        'ADDED_WHOLabel
+        '
+        resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel")
+        ADDED_WHOLabel.Name = "ADDED_WHOLabel"
+        '
+        'ADDED_WHENLabel
+        '
+        resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel")
+        ADDED_WHENLabel.Name = "ADDED_WHENLabel"
+        '
+        'CHANGED_WHOLabel
+        '
+        resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel")
+        CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
+        '
+        'CHANGED_WHENLabel
+        '
+        resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel")
+        CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
+        '
        'SPALTENNAMETextBox
        '
        Me.SPALTENNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "SPALTENNAME", True))
        resources.ApplyResources(Me.SPALTENNAMETextBox, "SPALTENNAMETextBox")
        Me.SPALTENNAMETextBox.Name = "SPALTENNAMETextBox"
        '
+        'TBPM_CONTROL_TABLEBindingSource
+        '
+        Me.TBPM_CONTROL_TABLEBindingSource.DataMember = "TBPM_CONTROL_TABLE"
+        Me.TBPM_CONTROL_TABLEBindingSource.DataSource = Me.DD_DMSLiteDataSet
+        '
+        'DD_DMSLiteDataSet
+        '
+        Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
+        Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
        'SPALTEN_HEADERTextBox
        '
        Me.SPALTEN_HEADERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "SPALTEN_HEADER", True))
@@ -161,27 +206,12 @@ Partial Class frmControl_Detail
        resources.ApplyResources(Me.REGEX_MATCHTextBox, "REGEX_MATCHTextBox")
        Me.REGEX_MATCHTextBox.Name = "REGEX_MATCHTextBox"
        '
-        'Label1
-        '
-        resources.ApplyResources(Label1, "Label1")
-        Label1.Name = "Label1"
-        '
        'Button1
        '
        resources.ApplyResources(Me.Button1, "Button1")
        Me.Button1.Name = "Button1"
        Me.Button1.UseVisualStyleBackColor = True
        '
-        'TBPM_CONTROL_TABLEBindingSource
-        '
-        Me.TBPM_CONTROL_TABLEBindingSource.DataMember = "TBPM_CONTROL_TABLE"
-        Me.TBPM_CONTROL_TABLEBindingSource.DataSource = Me.DD_DMSLiteDataSet
-        '
-        'DD_DMSLiteDataSet
-        '
-        Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
-        Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
-        '
        'TBPM_CONTROL_TABLETableAdapter
        '
        Me.TBPM_CONTROL_TABLETableAdapter.ClearBeforeFill = True
@@ -190,6 +220,8 @@ Partial Class frmControl_Detail
        '
        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 = Me.TBPM_CONTROL_TABLETableAdapter
        Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing
@@ -207,16 +239,6 @@ Partial Class frmControl_Detail
        resources.ApplyResources(Me.REGEX_MESSAGE_DETextBox, "REGEX_MESSAGE_DETextBox")
        Me.REGEX_MESSAGE_DETextBox.Name = "REGEX_MESSAGE_DETextBox"
        '
-        'Label2
-        '
-        resources.ApplyResources(Label2, "Label2")
-        Label2.Name = "Label2"
-        '
-        'ADDED_WHOLabel
-        '
-        resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel")
-        ADDED_WHOLabel.Name = "ADDED_WHOLabel"
-        '
        'ADDED_WHOTextBox
        '
        Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "ADDED_WHO", True))
@@ -224,11 +246,6 @@ Partial Class frmControl_Detail
        Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
        Me.ADDED_WHOTextBox.ReadOnly = True
        '
-        'ADDED_WHENLabel
-        '
-        resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel")
-        ADDED_WHENLabel.Name = "ADDED_WHENLabel"
-        '
        'ADDED_WHENTextBox
        '
        Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "ADDED_WHEN", True))
@@ -236,11 +253,6 @@ Partial Class frmControl_Detail
        Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
        Me.ADDED_WHENTextBox.ReadOnly = True
        '
-        'CHANGED_WHOLabel
-        '
-        resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel")
-        CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
-        '
        'CHANGED_WHOTextBox
        '
        Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "CHANGED_WHO", True))
@@ -248,11 +260,6 @@ Partial Class frmControl_Detail
        Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
        Me.CHANGED_WHOTextBox.ReadOnly = True
        '
-        'CHANGED_WHENLabel
-        '
-        resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel")
-        CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
-        '
        'CHANGED_WHENTextBox
        '
        Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "CHANGED_WHEN", True))
@@ -260,10 +267,41 @@ Partial Class frmControl_Detail
        Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
        Me.CHANGED_WHENTextBox.ReadOnly = True
        '
+        'SQL_COMMANDLabel
+        '
+        resources.ApplyResources(SQL_COMMANDLabel, "SQL_COMMANDLabel")
+        SQL_COMMANDLabel.Name = "SQL_COMMANDLabel"
+        '
+        'SQL_COMMANDTextBox
+        '
+        Me.SQL_COMMANDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "SQL_COMMAND", True))
+        resources.ApplyResources(Me.SQL_COMMANDTextBox, "SQL_COMMANDTextBox")
+        Me.SQL_COMMANDTextBox.Name = "SQL_COMMANDTextBox"
+        Me.SQL_COMMANDTextBox.ReadOnly = True
+        '
+        'CONNECTION_IDTextBox
+        '
+        Me.CONNECTION_IDTextBox.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.CONNECTION_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "CONNECTION_ID", True))
+        Me.CONNECTION_IDTextBox.ForeColor = System.Drawing.SystemColors.Control
+        resources.ApplyResources(Me.CONNECTION_IDTextBox, "CONNECTION_IDTextBox")
+        Me.CONNECTION_IDTextBox.Name = "CONNECTION_IDTextBox"
+        Me.CONNECTION_IDTextBox.ReadOnly = True
+        '
+        'btnSQLEdit
+        '
+        resources.ApplyResources(Me.btnSQLEdit, "btnSQLEdit")
+        Me.btnSQLEdit.Name = "btnSQLEdit"
+        Me.btnSQLEdit.UseVisualStyleBackColor = True
+        '
        'frmControl_Detail
        '
        resources.ApplyResources(Me, "$this")
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.btnSQLEdit)
+        Me.Controls.Add(Me.CONNECTION_IDTextBox)
+        Me.Controls.Add(SQL_COMMANDLabel)
+        Me.Controls.Add(Me.SQL_COMMANDTextBox)
        Me.Controls.Add(CHANGED_WHENLabel)
        Me.Controls.Add(Me.CHANGED_WHENTextBox)
        Me.Controls.Add(CHANGED_WHOLabel)
@@ -294,10 +332,10 @@ Partial Class frmControl_Detail
        Me.MinimizeBox = False
        Me.Name = "frmControl_Detail"
        Me.TopMost = True
-        Me.StatusStrip1.ResumeLayout(False)
-        Me.StatusStrip1.PerformLayout()
        CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.StatusStrip1.ResumeLayout(False)
+        Me.StatusStrip1.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout

@@ -323,4 +361,7 @@ End Sub
    Friend WithEvents ADDED_WHENTextBox As TextBox
    Friend WithEvents CHANGED_WHOTextBox As TextBox
    Friend WithEvents CHANGED_WHENTextBox As TextBox
+    Friend WithEvents SQL_COMMANDTextBox As TextBox
+    Friend WithEvents CONNECTION_IDTextBox As TextBox
+    Friend WithEvents btnSQLEdit As Button
 End Class
--- a/app/DD_PM_WINDREAM/frmControl_Detail.resx
+++ b/app/DD_PM_WINDREAM/frmControl_Detail.resx
--- a/app/DD_PM_WINDREAM/frmControl_Detail.vb
+++ b/app/DD_PM_WINDREAM/frmControl_Detail.vb
@@ -19,6 +19,10 @@ Public Class frmControl_Detail
    End Function

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+        Save_Data
+
+    End Sub
+    Sub Save_Data()
        Try
            TBPM_CONTROL_TABLEBindingSource.EndEdit()
            If DD_DMSLiteDataSet.TBPM_CONTROL_TABLE.GetChanges Is Nothing = False Then
@@ -35,7 +39,6 @@ Public Class frmControl_Detail
            LOGGER.Error(ex)
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern:")
        End Try
-
    End Sub

    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
@@ -78,4 +81,22 @@ Public Class frmControl_Detail
            REGEX_MATCHTextBox.Text = oForm.RegexString
        End If
    End Sub
+
+    Private Sub btnSQLEdit_Click(sender As Object, e As EventArgs) Handles btnSQLEdit.Click
+        Dim oldSQL = SQL_COMMANDTextBox.Text
+        Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL}
+        Dim oResult = oForm.ShowDialog()
+
+        If oResult = DialogResult.OK Then
+            If oldSQL <> oForm.SQLCommand Then
+                Dim oUpdate As String = $"Update TBPM_CONTROL_TABLE SET CHANGED_WHO = '{USER_USERNAME}', SQL_COMMAND = '{oForm.SQLCommand.Replace("'", "''")}' 
+                , CONNECTION_ID = {oForm.ConnectionID} WHERE GUID = {GUIDTextBox.Text}"
+                If ClassDatabase.Execute_non_Query(oUpdate) = True Then
+                    tslblAenderungen.Visible = True
+                    tslblAenderungen.Text = "Changes saved - " & Now
+                End If
+
+            End If
+        End If
+    End Sub
 End Class
--- a/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb
+++ b/app/DD_PM_WINDREAM/frmFormDesigner.Designer.vb
@@ -68,7 +68,7 @@ Partial Class frmFormDesigner
        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
        Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.rpggrp_controls = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibPGCtrlWidth = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibPGCtrlheight = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
@@ -402,37 +402,37 @@ Partial Class frmFormDesigner
        '
        'RibbonPage1
        '
-        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3, Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibPGCtrlWidth, Me.RibPGCtrlheight})
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup3, Me.rpggrp_controls, Me.RibPGCtrlWidth, Me.RibPGCtrlheight})
        Me.RibbonPage1.Name = "RibbonPage1"
        Me.RibbonPage1.Text = "Start"
        '
        'RibbonPageGroup3
        '
        Me.RibbonPageGroup3.Enabled = False
-        Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem1)
        Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem2)
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem1)
        Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
        Me.RibbonPageGroup3.Text = "Control-Funktionen"
        '
        'RibbonPageGroup1
        '
-        Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnItemFinishSQL)
        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem3)
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.bbtnItemFinishSQL)
        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
        Me.RibbonPageGroup1.Text = "Funktionen"
        '
-        'RibbonPageGroup2
+        'rpggrp_controls
        '
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitLabel)
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitTextBox)
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitLU)
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitTable)
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitDatePicker)
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitCheckBox)
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitButton)
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.bbtnitLine)
-        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
-        Me.RibbonPageGroup2.Text = "Controls einfügen"
+        Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitLabel)
+        Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitTextBox)
+        Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitLU)
+        Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitTable)
+        Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitDatePicker)
+        Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitCheckBox)
+        Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitButton)
+        Me.rpggrp_controls.ItemLinks.Add(Me.bbtnitLine)
+        Me.rpggrp_controls.Name = "rpggrp_controls"
+        Me.rpggrp_controls.Text = "Controls einfügen"
        '
        'RibPGCtrlWidth
        '
@@ -547,7 +547,7 @@ Partial Class frmFormDesigner
    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
    Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
-    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents rpggrp_controls As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage
    Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
    Friend WithEvents bbtniwidth_plus As DevExpress.XtraBars.BarButtonItem
--- a/app/DD_PM_WINDREAM/frmFormDesigner.vb
+++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb
@@ -42,9 +42,10 @@ Public Class frmFormDesigner
            Mouse_IsPressed = False
            RibPGCtrlheight.Enabled = False
            RibPGCtrlWidth.Enabled = False
+            rpggrp_controls.Enabled = False
            ' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER
            CURRENT_DESIGN_TYPE = "INPUT_INDEX"
-
+            CHANGES_FORM_DESIGN = False

            ' Profil Name in Fenstertitel setzen
            Text = $"Validation Designer - Profil: {ProfileName}"
@@ -1056,7 +1057,7 @@ Public Class frmFormDesigner

            tslblAenderungen.Visible = True
            tslblAenderungen.Text = "Änderungen gespeichert - " & Now
-            CHANGES_IN_ADMINISTRATION = True
+            CHANGES_FORM_DESIGN = True
            Return True

        Catch ex As Exception
@@ -1087,7 +1088,7 @@ Public Class frmFormDesigner
                    Dim oSQL = $"EXEC PRPM_CHANGE_CONTROL_CAPTION {guid},{escapedValue},'{USER_USERNAME}','{USER_LANGUAGE}'"
                    ClassDatabase.Execute_non_Query(oSQL)
                End If
-                CHANGES_IN_ADMINISTRATION = True
+                CHANGES_FORM_DESIGN = True
                Return True
            End If

@@ -1134,7 +1135,7 @@ Public Class frmFormDesigner
                    If ClassDatabase.Execute_non_Query(oUpdate) = True Then
                        tslblAenderungen.Text = $"Profile SQLFinish saved - {Now.ToLongTimeString}"
                        tslblAenderungen.Visible = True
-                        CHANGES_IN_ADMINISTRATION = True
+                        CHANGES_FORM_DESIGN = True
                    Else
                        tslblAenderungen.Visible = False
                    End If
@@ -1165,11 +1166,13 @@ Public Class frmFormDesigner
        If BarButtonItem3.Caption = "Designer locked" Then
            BarButtonItem3.Caption = "Designer active"
            BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Lime
+            rpggrp_controls.Enabled = True
            Designer_Locked = False
        Else
            BarButtonItem3.Caption = "Designer locked"
            BarButtonItem3.ItemAppearance.Normal.BackColor = Color.Red
            Designer_Locked = True
+            rpggrp_controls.Enabled = False
            If Me.Cursor = Cursors.Cross Then
                Mouse_IsPressed = False
                Me.Cursor = Cursors.Default
@@ -1234,7 +1237,7 @@ Public Class frmFormDesigner
                        SetMovementHandlers(label)

                        TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, label.Name, "LBL", label.Text, label.Location.X, label.Location.Y, USER_USERNAME, label.Size.Height, label.Size.Width)
-                        CHANGES_IN_ADMINISTRATION = True
+                        CHANGES_FORM_DESIGN = True
                        CurrentControl = label
                        CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
                            .Guid = GetLastID(),
@@ -1249,7 +1252,7 @@ Public Class frmFormDesigner
                        SetMovementHandlers(txt)

                        TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, txt.Name, "TXT", txt.Name, txt.Location.X, txt.Location.Y, USER_USERNAME, txt.Size.Height, txt.Size.Width)
-                        CHANGES_IN_ADMINISTRATION = True
+                        CHANGES_FORM_DESIGN = True
                        CurrentControl = txt
                        CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
                            .Guid = GetLastID(),
@@ -1263,7 +1266,7 @@ Public Class frmFormDesigner
                        SetMovementHandlers(cmb)

                        TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, cmb.Name, "CMB", cmb.Name, cmb.Location.X, cmb.Location.Y, USER_USERNAME, cmb.Size.Height, cmb.Size.Width)
-                        CHANGES_IN_ADMINISTRATION = True
+                        CHANGES_FORM_DESIGN = True
                        CurrentControl = cmb
                        CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
                            .Guid = GetLastID(),
@@ -1277,7 +1280,7 @@ Public Class frmFormDesigner
                        SetMovementHandlers(dtp)

                        TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, dtp.Name, "DTP", dtp.Name, dtp.Location.X, dtp.Location.Y, USER_USERNAME, dtp.Size.Height, dtp.Size.Width)
-                        CHANGES_IN_ADMINISTRATION = True
+                        CHANGES_FORM_DESIGN = True
                        CurrentControl = dtp
                        CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
                            .Guid = GetLastID(),
@@ -1291,7 +1294,7 @@ Public Class frmFormDesigner
                        SetMovementHandlers(chk)

                        TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, chk.Name, "CHK", chk.Text, chk.Location.X, chk.Location.Y, USER_USERNAME, chk.Size.Height, chk.Size.Width)
-                        CHANGES_IN_ADMINISTRATION = True
+                        CHANGES_FORM_DESIGN = True
                        CurrentControl = chk
                        CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
                            .Guid = GetLastID(),
@@ -1306,7 +1309,7 @@ Public Class frmFormDesigner
                        SetMovementHandlers(lc)

                        TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, lc.Name, "LOOKUP", lc.Name, lc.Location.X, lc.Location.Y, USER_USERNAME, lc.Size.Height, lc.Size.Width)
-                        CHANGES_IN_ADMINISTRATION = True
+                        CHANGES_FORM_DESIGN = True
                        CurrentControl = lc
                        CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
                            .Guid = GetLastID(),
@@ -1322,7 +1325,7 @@ Public Class frmFormDesigner
                        AddHandler tb.MouseClick, AddressOf gridControl_MouseClick

                        TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, tb.Name, "TABLE", tb.Name, tb.Location.X, tb.Location.Y, USER_USERNAME, tb.Size.Height, tb.Size.Width)
-                        CHANGES_IN_ADMINISTRATION = True
+                        CHANGES_FORM_DESIGN = True
                        Dim oControlId = GetLastID()

                        CurrentControl = tb
@@ -1341,7 +1344,7 @@ Public Class frmFormDesigner
                        SetMovementHandlers(line)

                        TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, line.Name, "LINE", line.Name, line.Location.X, line.Location.Y, USER_USERNAME, line.Size.Height, line.Size.Width)
-                        CHANGES_IN_ADMINISTRATION = True
+                        CHANGES_FORM_DESIGN = True
                        CurrentControl = line
                        CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
                            .Guid = GetLastID(),
@@ -1356,7 +1359,7 @@ Public Class frmFormDesigner
                        SetMovementHandlers(oButton)

                        TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertAnlage(ProfileId, oButton.Name, "BUTTON", oButton.Name, oButton.Location.X, oButton.Location.Y, USER_USERNAME, oButton.Size.Height, oButton.Size.Width)
-                        CHANGES_IN_ADMINISTRATION = True
+                        CHANGES_FORM_DESIGN = True
                        CurrentControl = oButton
                        CurrentControl.Tag = New ClassControlCreator.ControlMetadata() With {
                            .Guid = GetLastID(),
--- a/app/DD_PM_WINDREAM/frmLicense.vb
+++ b/app/DD_PM_WINDREAM/frmLicense.vb
@@ -73,7 +73,7 @@ Public Class frmLicense
            Me.lblAktuelleLizenzen.Text = "Aktuelle Anzahl Lizenzen: " & lizenzzahl
            If Neu = True Then
                If CInt(lizenzzahl) > 0 Then
-                    MsgBox("License was refreshed!", MsgBoxStyle.Information, "Success:")
+                    MsgBox("License was refreshed!" & vbNewLine & Now.ToString, MsgBoxStyle.Information, "Success:")
                End If
            End If
        Catch ex As Exception
--- a/app/DD_PM_WINDREAM/frmMain.Designer.vb
+++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb
@@ -63,7 +63,9 @@ Partial Class frmMain
        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
        Me.ContextMenuNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.PopupErinnerungInaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
        Me.AnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.OutOfRangePMFixierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components)
        Me.TBPM_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.TBPM_USERTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter()
@@ -172,8 +174,6 @@ Partial Class frmMain
        Me.PrintPreviewBarCheckItem17 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
        Me.PrintPreviewBarCheckItem18 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
        Me.PrintPreviewBarCheckItem19 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
-        Me.OutOfRangePMFixierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
        CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
@@ -330,7 +330,7 @@ Partial Class frmMain
        Me.BindingNavigator1.AddNewItem = Nothing
        Me.BindingNavigator1.BindingSource = Me.bindsourcegrid
        Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem
-        Me.BindingNavigator1.CountItemFormat = "von {0} Dateien"
+        Me.BindingNavigator1.CountItemFormat = "von {0} Vorgängen"
        Me.BindingNavigator1.DeleteItem = Nothing
        Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabelViewTape, Me.BindingNavigatorSeparator2, Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem})
@@ -463,11 +463,21 @@ Partial Class frmMain
        Me.PopupErinnerungInaktivierenToolStripMenuItem.Name = "PopupErinnerungInaktivierenToolStripMenuItem"
        resources.ApplyResources(Me.PopupErinnerungInaktivierenToolStripMenuItem, "PopupErinnerungInaktivierenToolStripMenuItem")
        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
+        '
        'AnzeigenToolStripMenuItem
        '
        Me.AnzeigenToolStripMenuItem.Name = "AnzeigenToolStripMenuItem"
        resources.ApplyResources(Me.AnzeigenToolStripMenuItem, "AnzeigenToolStripMenuItem")
        '
+        'OutOfRangePMFixierenToolStripMenuItem
+        '
+        Me.OutOfRangePMFixierenToolStripMenuItem.Name = "OutOfRangePMFixierenToolStripMenuItem"
+        resources.ApplyResources(Me.OutOfRangePMFixierenToolStripMenuItem, "OutOfRangePMFixierenToolStripMenuItem")
+        '
        'TimerRefresh
        '
        Me.TimerRefresh.Interval = 60000
@@ -701,7 +711,6 @@ Partial Class frmMain
        '
        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")
        '
@@ -1319,16 +1328,6 @@ Partial Class frmMain
        Me.PrintPreviewBarCheckItem19.Id = 58
        Me.PrintPreviewBarCheckItem19.Name = "PrintPreviewBarCheckItem19"
        '
-        'OutOfRangePMFixierenToolStripMenuItem
-        '
-        Me.OutOfRangePMFixierenToolStripMenuItem.Name = "OutOfRangePMFixierenToolStripMenuItem"
-        resources.ApplyResources(Me.OutOfRangePMFixierenToolStripMenuItem, "OutOfRangePMFixierenToolStripMenuItem")
-        '
-        'ToolStripSeparator1
-        '
-        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
-        '
        'frmMain
        '
        Me.Appearance.Options.UseFont = True
--- a/app/DD_PM_WINDREAM/frmMain.resx
+++ b/app/DD_PM_WINDREAM/frmMain.resx
@@ -125,7 +125,7 @@
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
-        CAAAAk1TRnQBSQFMAgEBAgEAAUwBBgFMAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CAAAAk1TRnQBSQFMAgEBAgEAAVwBBgFcAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
        AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -178,78 +178,10 @@
  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>597, 17</value>
  </metadata>
-  <metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 134</value>
-  </metadata>
-  <data name="&gt;&gt;GridControl_Docs.Name" xml:space="preserve">
-    <value>GridControl_Docs</value>
-  </data>
-  <data name="&gt;&gt;GridControl_Docs.Type" xml:space="preserve">
-    <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;GridControl_Docs.Parent" xml:space="preserve">
-    <value>Panel1</value>
-  </data>
-  <data name="&gt;&gt;GridControl_Docs.ZOrder" xml:space="preserve">
-    <value>0</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigator1.Name" xml:space="preserve">
-    <value>BindingNavigator1</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigator1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigator1.Parent" xml:space="preserve">
-    <value>Panel1</value>
-  </data>
-  <data name="&gt;&gt;BindingNavigator1.ZOrder" xml:space="preserve">
-    <value>1</value>
-  </data>
-  <data name="&gt;&gt;NavBarControl1.Name" xml:space="preserve">
-    <value>NavBarControl1</value>
-  </data>
-  <data name="&gt;&gt;NavBarControl1.Type" xml:space="preserve">
-    <value>DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
-  <data name="&gt;&gt;NavBarControl1.Parent" xml:space="preserve">
-    <value>Panel1</value>
-  </data>
-  <data name="&gt;&gt;NavBarControl1.ZOrder" xml:space="preserve">
-    <value>2</value>
-  </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
-    <value>Fill</value>
-  </data>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="Panel1.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Tahoma, 9pt</value>
-  </data>
-  <data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 146</value>
-  </data>
-  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>1347, 360</value>
-  </data>
-  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
-  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
-    <value>4</value>
-  </data>
-  <data name="&gt;&gt;Panel1.Name" xml:space="preserve">
-    <value>Panel1</value>
-  </data>
-  <data name="&gt;&gt;Panel1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
-    <value>$this</value>
-  </data>
-  <data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
-    <value>3</value>
-  </data>
  <metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>392, 95</value>
  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
    <value>270, 198</value>
  </data>
@@ -259,6 +191,7 @@
  <data name="&gt;&gt;ContextMenuGrid.Type" xml:space="preserve">
    <value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </data>
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
  <data name="GridControl_Docs.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
    <value>Fill</value>
  </data>
@@ -268,6 +201,7 @@
  <data name="GridControl_Docs.Size" type="System.Drawing.Size, System.Drawing">
    <value>1114, 333</value>
  </data>
+  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
  <data name="GridControl_Docs.TabIndex" type="System.Int32, mscorlib">
    <value>8</value>
  </data>
@@ -286,86 +220,6 @@
  <data name="&gt;&gt;GridControl_Docs.ZOrder" xml:space="preserve">
    <value>0</value>
  </data>
-  <data name="CMGroupStart.Size" type="System.Drawing.Size, System.Drawing">
-    <value>269, 26</value>
-  </data>
-  <data name="CMGroupStart.Text" xml:space="preserve">
-    <value>Validierung für Gruppe/Profil starten</value>
-  </data>
-  <data name="CMFileStart.Size" type="System.Drawing.Size, System.Drawing">
-    <value>269, 26</value>
-  </data>
-  <data name="CMFileStart.Text" xml:space="preserve">
-    <value>Validierung für Datei starten</value>
-  </data>
-  <data name="CMFileMetadata.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAANNJREFUOE+1k80NgzAMRhmlI3QGZuGeLdiBXjoEU2QaCk3gSPssjJIQBXpopE9y
-        7M/PCT9VuuZ5XgsanHP3zZpfGOu6zqpt23NICYBOISHgNYyRipBlWW7e+ycAa63Ivd06jdMBEEKkGRIb
-        mpExRqR7QLmTUJPJ32Bomkaa+r7fDcTkqIWQCKDHxqiFVHoavY7mBcB0Ap3cdY99EjE5anj0FCkgmq6N
-        CtI8Hu/8fwCXr6CeCPDLQ0w9Arj6GjHndOlDolb8gVjBp7yDiMlR22zJqqoPDtN4ChAfojUAAAAASUVO
-        RK5CYII=
-</value>
-  </data>
-  <data name="CMFileMetadata.Size" type="System.Drawing.Size, System.Drawing">
-    <value>269, 26</value>
-  </data>
-  <data name="CMFileMetadata.Text" xml:space="preserve">
-    <value>Metadaten Datei anzeigen</value>
-  </data>
-  <data name="CMFileMetadata.Visible" type="System.Boolean, mscorlib">
-    <value>False</value>
-  </data>
-  <data name="ToolStripSeparator4.Size" type="System.Drawing.Size, System.Drawing">
-    <value>266, 6</value>
-  </data>
-  <data name="tsmiMarkedFilesFinish.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAAM5JREFUOE9jwAa+fv3a8O3bt/9I+D0QCECl8QOQQpAG+fTl/xmC5/yvXnryP8hA
-        qDRhALJx1s4rYM38sYv+P3/zAcUlX758MYAqhQAkSbACEI1se2Rk5H8nJycwTklJ+f/8+XNUQ0CakDUg
-        2754xVq4ZpyGgPyHrAnZsI8fPv3/8P4jHOfl5mEagh5oyLYja0Y2AGYISB+GK2C2g/yObgAMwwwBhRfY
-        AJgrQAIgvHnzZrACbJpBGMMAZAAShCnAphmER5IBhDDtDCAef/sPAEGjQ6y45GCmAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="tsmiMarkedFilesFinish.Size" type="System.Drawing.Size, System.Drawing">
-    <value>269, 26</value>
-  </data>
-  <data name="tsmiMarkedFilesFinish.Text" xml:space="preserve">
-    <value>Massenabschluss markierte Dateien</value>
-  </data>
-  <data name="ToolStripSeparator3.Size" type="System.Drawing.Size, System.Drawing">
-    <value>266, 6</value>
-  </data>
-  <data name="LöscheAlleFilterToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        wwAADsMBx2+oZAAAAP9JREFUOE9jAIHv3787fHz5/P/DQ3v+f/v2jSQMNuDr168NZ/qa/i9U4/1/sCQF
-        RcGRPbvAYk/v3fkfGRn538nJCY7hBgBdkPDs/Kn/y4xlwIYcaywGS17YueX/Gget/6fnTv6fkpKCohnF
-        ABAAcV7fufl/o68l3BCQgddWzIe7BhuGaocYAMKgsIC5ZFuUO4YGdAzVjukCkNNBNC7no3gBGIj7b29d
-        C7cZFpAg54PEbh/Zjz8MQM4GaUTWDMOgwAW5CkQji8Mw2AAg4z1IIygq0RUQwmADvnz5YgDi4PIrLgw3
-        AARAHGyK8GEMA8jBUO1UMgCbM/Fh6htAOv72HwANMrXhfARkwAAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="LöscheAlleFilterToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>269, 26</value>
-  </data>
-  <data name="LöscheAlleFilterToolStripMenuItem.Text" xml:space="preserve">
-    <value>Lösche alle Filter</value>
-  </data>
-  <data name="TabellenlayoutZurücksetzenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>269, 26</value>
-  </data>
-  <data name="TabellenlayoutZurücksetzenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Layout zurücksetzen</value>
-  </data>
-  <data name="LayoutSpeichernToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>269, 26</value>
-  </data>
-  <data name="LayoutSpeichernToolStripMenuItem.Text" xml:space="preserve">
-    <value>Layout speichern</value>
-  </data>
  <metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 134</value>
  </metadata>
@@ -373,10 +227,10 @@
    <value>171, 134</value>
  </metadata>
  <data name="BindingNavigatorCountItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>87, 24</value>
+    <value>104, 24</value>
  </data>
  <data name="BindingNavigatorCountItem.Text" xml:space="preserve">
-    <value>von {0} Dateien</value>
+    <value>von {0} Vorgängen</value>
  </data>
  <data name="BindingNavigatorCountItem.ToolTipText" xml:space="preserve">
    <value>Die Gesamtanzahl der Elemente.</value>
@@ -440,9 +294,6 @@
  <data name="BindingNavigatorPositionItem.AutoSize" type="System.Boolean, mscorlib">
    <value>False</value>
  </data>
-  <data name="BindingNavigatorPositionItem.Font" type="System.Drawing.Font, System.Drawing">
-    <value>Segoe UI, 9pt</value>
-  </data>
  <data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing">
    <value>50, 23</value>
  </data>
@@ -725,6 +576,113 @@
  <data name="&gt;&gt;NavBarControl1.ZOrder" xml:space="preserve">
    <value>2</value>
  </data>
+  <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+    <value>Fill</value>
+  </data>
+  <data name="Panel1.Font" type="System.Drawing.Font, System.Drawing">
+    <value>Tahoma, 9pt</value>
+  </data>
+  <data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
+    <value>0, 146</value>
+  </data>
+  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>1347, 360</value>
+  </data>
+  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
+    <value>4</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Name" xml:space="preserve">
+    <value>Panel1</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
+    <value>3</value>
+  </data>
+  <data name="CMGroupStart.Size" type="System.Drawing.Size, System.Drawing">
+    <value>269, 26</value>
+  </data>
+  <data name="CMGroupStart.Text" xml:space="preserve">
+    <value>Validierung für Gruppe/Profil starten</value>
+  </data>
+  <data name="CMFileStart.Size" type="System.Drawing.Size, System.Drawing">
+    <value>269, 26</value>
+  </data>
+  <data name="CMFileStart.Text" xml:space="preserve">
+    <value>Validierung für Datei starten</value>
+  </data>
+  <data name="CMFileMetadata.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAANNJREFUOE+1k80NgzAMRhmlI3QGZuGeLdiBXjoEU2QaCk3gSPssjJIQBXpopE9y
+        7M/PCT9VuuZ5XgsanHP3zZpfGOu6zqpt23NICYBOISHgNYyRipBlWW7e+ycAa63Ivd06jdMBEEKkGRIb
+        mpExRqR7QLmTUJPJ32Bomkaa+r7fDcTkqIWQCKDHxqiFVHoavY7mBcB0Ap3cdY99EjE5anj0FCkgmq6N
+        CtI8Hu/8fwCXr6CeCPDLQ0w9Arj6GjHndOlDolb8gVjBp7yDiMlR22zJqqoPDtN4ChAfojUAAAAASUVO
+        RK5CYII=
+</value>
+  </data>
+  <data name="CMFileMetadata.Size" type="System.Drawing.Size, System.Drawing">
+    <value>269, 26</value>
+  </data>
+  <data name="CMFileMetadata.Text" xml:space="preserve">
+    <value>Metadaten Datei anzeigen</value>
+  </data>
+  <data name="CMFileMetadata.Visible" type="System.Boolean, mscorlib">
+    <value>False</value>
+  </data>
+  <data name="ToolStripSeparator4.Size" type="System.Drawing.Size, System.Drawing">
+    <value>266, 6</value>
+  </data>
+  <data name="tsmiMarkedFilesFinish.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAAM5JREFUOE9jwAa+fv3a8O3bt/9I+D0QCECl8QOQQpAG+fTl/xmC5/yvXnryP8hA
+        qDRhALJx1s4rYM38sYv+P3/zAcUlX758MYAqhQAkSbACEI1se2Rk5H8nJycwTklJ+f/8+XNUQ0CakDUg
+        2754xVq4ZpyGgPyHrAnZsI8fPv3/8P4jHOfl5mEagh5oyLYja0Y2AGYISB+GK2C2g/yObgAMwwwBhRfY
+        AJgrQAIgvHnzZrACbJpBGMMAZAAShCnAphmER5IBhDDtDCAef/sPAEGjQ6y45GCmAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="tsmiMarkedFilesFinish.Size" type="System.Drawing.Size, System.Drawing">
+    <value>269, 26</value>
+  </data>
+  <data name="tsmiMarkedFilesFinish.Text" xml:space="preserve">
+    <value>Massenabschluss markierte Dateien</value>
+  </data>
+  <data name="ToolStripSeparator3.Size" type="System.Drawing.Size, System.Drawing">
+    <value>266, 6</value>
+  </data>
+  <data name="LöscheAlleFilterToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAAP9JREFUOE9jAIHv3787fHz5/P/DQ3v+f/v2jSQMNuDr168NZ/qa/i9U4/1/sCQF
+        RcGRPbvAYk/v3fkfGRn538nJCY7hBgBdkPDs/Kn/y4xlwIYcaywGS17YueX/Gget/6fnTv6fkpKCohnF
+        ABAAcV7fufl/o68l3BCQgddWzIe7BhuGaocYAMKgsIC5ZFuUO4YGdAzVjukCkNNBNC7no3gBGIj7b29d
+        C7cZFpAg54PEbh/Zjz8MQM4GaUTWDMOgwAW5CkQji8Mw2AAg4z1IIygq0RUQwmADvnz5YgDi4PIrLgw3
+        AARAHGyK8GEMA8jBUO1UMgCbM/Fh6htAOv72HwANMrXhfARkwAAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="LöscheAlleFilterToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>269, 26</value>
+  </data>
+  <data name="LöscheAlleFilterToolStripMenuItem.Text" xml:space="preserve">
+    <value>Lösche alle Filter</value>
+  </data>
+  <data name="TabellenlayoutZurücksetzenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>269, 26</value>
+  </data>
+  <data name="TabellenlayoutZurücksetzenToolStripMenuItem.Text" xml:space="preserve">
+    <value>Layout zurücksetzen</value>
+  </data>
+  <data name="LayoutSpeichernToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>269, 26</value>
+  </data>
+  <data name="LayoutSpeichernToolStripMenuItem.Text" xml:space="preserve">
+    <value>Layout speichern</value>
+  </data>
  <data name="tsmiValidationProfil.Size" type="System.Drawing.Size, System.Drawing">
    <value>219, 26</value>
  </data>
@@ -737,29 +695,8 @@
  <metadata name="ContextMenuNotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>519, 134</value>
  </metadata>
-  <data name="PopupErinnerungInaktivierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>234, 22</value>
-  </data>
-  <data name="PopupErinnerungInaktivierenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Popup Erinnerung inaktivieren</value>
-  </data>
-  <data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>231, 6</value>
-  </data>
-  <data name="AnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>234, 22</value>
-  </data>
-  <data name="AnzeigenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Bring to Front</value>
-  </data>
-  <data name="OutOfRangePMFixierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
-    <value>234, 22</value>
-  </data>
-  <data name="OutOfRangePMFixierenToolStripMenuItem.Text" xml:space="preserve">
-    <value>Out of Range - PM fixieren</value>
-  </data>
  <data name="ContextMenuNotifyIcon.Size" type="System.Drawing.Size, System.Drawing">
-    <value>235, 98</value>
+    <value>235, 76</value>
  </data>
  <data name="&gt;&gt;ContextMenuNotifyIcon.Name" xml:space="preserve">
    <value>ContextMenuNotifyIcon</value>
@@ -939,6 +876,27 @@
  <data name="NotifyIcon1.Visible" type="System.Boolean, mscorlib">
    <value>True</value>
  </data>
+  <data name="PopupErinnerungInaktivierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>234, 22</value>
+  </data>
+  <data name="PopupErinnerungInaktivierenToolStripMenuItem.Text" xml:space="preserve">
+    <value>Popup Erinnerung inaktivieren</value>
+  </data>
+  <data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
+    <value>231, 6</value>
+  </data>
+  <data name="AnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>234, 22</value>
+  </data>
+  <data name="AnzeigenToolStripMenuItem.Text" xml:space="preserve">
+    <value>Bring to Front</value>
+  </data>
+  <data name="OutOfRangePMFixierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+    <value>234, 22</value>
+  </data>
+  <data name="OutOfRangePMFixierenToolStripMenuItem.Text" xml:space="preserve">
+    <value>Out of Range - PM fixieren</value>
+  </data>
  <metadata name="TimerRefresh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>1023, 17</value>
  </metadata>
@@ -1310,7 +1268,7 @@
    <value>0, 0</value>
  </data>
  <data name="RibbonPage1.Text" xml:space="preserve">
-    <value>Funktionen</value>
+    <value>Start</value>
  </data>
  <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
    <value>1347, 146</value>
@@ -1650,7 +1608,7 @@
    <value>Manual</value>
  </data>
  <data name="$this.Text" xml:space="preserve">
-    <value>4565465</value>
+    <value>Digital Data -  ProcessManager</value>
  </data>
  <data name="&gt;&gt;ImageListProfile.Name" xml:space="preserve">
    <value>ImageListProfile</value>
@@ -1844,12 +1802,24 @@
  <data name="&gt;&gt;PopupErinnerungInaktivierenToolStripMenuItem.Type" xml:space="preserve">
    <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </data>
+  <data name="&gt;&gt;ToolStripSeparator1.Name" xml:space="preserve">
+    <value>ToolStripSeparator1</value>
+  </data>
+  <data name="&gt;&gt;ToolStripSeparator1.Type" xml:space="preserve">
+    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
  <data name="&gt;&gt;AnzeigenToolStripMenuItem.Name" xml:space="preserve">
    <value>AnzeigenToolStripMenuItem</value>
  </data>
  <data name="&gt;&gt;AnzeigenToolStripMenuItem.Type" xml:space="preserve">
    <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </data>
+  <data name="&gt;&gt;OutOfRangePMFixierenToolStripMenuItem.Name" xml:space="preserve">
+    <value>OutOfRangePMFixierenToolStripMenuItem</value>
+  </data>
+  <data name="&gt;&gt;OutOfRangePMFixierenToolStripMenuItem.Type" xml:space="preserve">
+    <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
  <data name="&gt;&gt;TimerRefresh.Name" xml:space="preserve">
    <value>TimerRefresh</value>
  </data>
@@ -2462,18 +2432,6 @@
  <data name="&gt;&gt;PrintPreviewBarCheckItem19.Type" xml:space="preserve">
    <value>DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem, DevExpress.XtraPrinting.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
  </data>
-  <data name="&gt;&gt;OutOfRangePMFixierenToolStripMenuItem.Name" xml:space="preserve">
-    <value>OutOfRangePMFixierenToolStripMenuItem</value>
-  </data>
-  <data name="&gt;&gt;OutOfRangePMFixierenToolStripMenuItem.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="&gt;&gt;ToolStripSeparator1.Name" xml:space="preserve">
-    <value>ToolStripSeparator1</value>
-  </data>
-  <data name="&gt;&gt;ToolStripSeparator1.Type" xml:space="preserve">
-    <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
  <data name="&gt;&gt;$this.Name" xml:space="preserve">
    <value>frmMain</value>
  </data>
--- a/app/DD_PM_WINDREAM/frmMain.vb
+++ b/app/DD_PM_WINDREAM/frmMain.vb
@@ -37,6 +37,7 @@ Public Class frmMain


    Private DT_CHECKUSER_MODULE As DataTable
+    Private IsFilterMode As Boolean

    Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        Try
@@ -856,7 +857,7 @@ Public Class frmMain
            Exit Sub
        End If

-        If BASEDATA_DT_VW_PROFILE_USER.Rows.Count > 0 Then
+        If CURR_DT_OVERVIEW.Rows.Count > 0 Then
            Dim oMessage As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("App.ReminderPipeline")
            NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info)
        End If
@@ -882,10 +883,10 @@ Public Class frmMain
                    TimerRefresh.Enabled = False
                End If

-                If CHANGES_IN_ADMINISTRATION = True Then
+                If CHANGES_FORM_DESIGN = True Then
                    LoadCURRENT_DT_PROFILES()
                    LoadVWPM_CONTROL_INDEX()
-                    CHANGES_IN_ADMINISTRATION = False
+                    CHANGES_FORM_DESIGN = False
                End If

                Dim oExpression = $"GUID = {CURRENT_ProfilGUID}"
@@ -1484,52 +1485,15 @@ Public Class frmMain
        RefreshHelper.LoadViewInfo()
    End Sub

-
-    Private Sub GridView1_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs)
-        Try
-            Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
-            Dim view As GridView = sender
-            Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
-            ' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item)
-
-            If info.Column.FieldName = "PROFILE_GROUP_TEXT" Or info.Column.FieldName = "GROUP_TEXT" Then
-                info.GroupText = info.GroupValueText
-
-                Dim _color As String = "Grey"
-
-                For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
-                    If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then
-                        _color = row.Item("PROFILE_GROUP_COLOR")
-                    ElseIf row.Item("GROUP_TEXT") = info.GroupValueText Then
-                        _color = row.Item("GROUP_COLOR")
-
-                    End If
-                Next
-
-                Select Case _color
-                    Case "Red"
-                        info.Appearance.BackColor = Color.LightSalmon
-                    Case "Green"
-                        info.Appearance.BackColor = Color.LightGreen
-                    Case "Yellow"
-                        info.Appearance.BackColor = Color.LightYellow
-                    Case "Grey"
-                        info.Appearance.BackColor = Color.LightGray
-                End Select
-
-            End If
-        Catch ex As Exception
-            LOGGER.Error(ex)
-
-        End Try
-    End Sub
-
    Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick
        Item_Scope("DOUBLECLICK")
    End Sub

    Private Sub GridView_Docs_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridView_Docs.CustomDrawGroupRow
        Try
+            If formShown = False Then
+                Exit Sub
+            End If
            Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
            Dim view As GridView = sender
            Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
@@ -1538,29 +1502,77 @@ Public Class frmMain
            If info.Column.FieldName = "GROUP_TEXT" Then
                info.GroupText = info.GroupValueText

-                Dim _color As String = "Grey"
+                Dim _color As String = "LightGray"
+                Dim _FontColor As String = "Black"
+                Dim oFoundConfig As Boolean = False

                For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
+                    LOGGER.Debug($"CustomDrawGroupRow: Working on ProfileID [{row.Item("GUID")}]...")
                    If row.Item("GROUP_TEXT") = info.GroupValueText Then
+                        oFoundConfig = True
                        _color = row.Item("GROUP_COLOR")
+                        _FontColor = row.Item("GROUP_FONT_COLOR")
                    End If
                Next
+                If oFoundConfig = False Then
+                    LOGGER.Info($"CustomDrawGroupRow: Could not find a ColorConfig for ProfileGroupValueText [{info.GroupValueText}]...")
+                End If
+                Dim oColor As Color
+                Dim oFontColor As Color
+                Try
+                    If _color.Contains(";") Or _color.Contains(".") Then
+                        Dim oColorSplit As String()
+                        If _color.Contains(";") Then
+                            oColorSplit = _color.Split(";")
+                        ElseIf _color.Contains(".") Then
+                            oColorSplit = _color.Split(".")
+                        End If
+
+
+                        Try
+                            oColor = Color.FromArgb(oColorSplit(0), oColorSplit(1), oColorSplit(2))
+                        Catch ex As Exception
+                            LOGGER.Info($"CustomDrawGroupRow: Could not get Color.FromArgb [{_color}]")
+                            oColor = Color.LightGray
+                        End Try
+
+                    Else
+                        Try
+                            oColor = Color.FromName(_color)
+                        Catch ex As Exception
+                            LOGGER.Info($"CustomDrawGroupRow: Could not get Color.FromName [{_color}]")
+                            oColor = Color.LightGray
+                        End Try
+
+                    End If
+                    If _FontColor.Contains(";") Then
+                        Try
+                            oFontColor = Color.FromArgb(_FontColor)
+                        Catch ex As Exception
+                            LOGGER.Info($"CustomDrawGroupRow: Could not get Color.FromArgb [{_FontColor}]")
+                            oFontColor = Color.Black
+                        End Try
+
+                    Else
+                        Try
+                            oFontColor = Color.FromName(_FontColor)
+                        Catch ex As Exception
+                            LOGGER.Info($"CustomDrawGroupRow(FC): Could not get Color.FromName [{_FontColor}]")
+                            oFontColor = Color.Black
+                        End Try
+
+                    End If
+                Catch ex As Exception
+                    LOGGER.Info($"CustomDrawGroupRow(FC): Error getting Color [{_FontColor}]")
+                    oColor = Color.LightGray
+                End Try
+                info.Appearance.BackColor = oColor
+                info.Appearance.ForeColor = oFontColor

-                Select Case _color
-                    Case "Red"
-                        info.Appearance.BackColor = Color.LightSalmon
-                    Case "Green"
-                        info.Appearance.BackColor = Color.LightGreen
-                    Case "Yellow"
-                        info.Appearance.BackColor = Color.LightYellow
-                    Case "Grey"
-                        info.Appearance.BackColor = Color.LightGray
-                End Select

            End If
        Catch ex As Exception
            LOGGER.Error(ex)
-
        End Try
    End Sub

@@ -1777,9 +1789,6 @@ Public Class frmMain
        End Try
    End Sub

-    Private Sub bbtnitemInfo_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitemInfo.ItemClick
-        frmAbout.ShowDialog()
-    End Sub

    Private Sub bbtniRefresh_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefresh.ItemClick
        If GridControl_Docs.Visible = True And formopenClose = False Then
@@ -1880,9 +1889,64 @@ Public Class frmMain
    End Sub

    Private Sub OutOfRangePMFixierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OutOfRangePMFixierenToolStripMenuItem.Click
-
        Dim myPoint As Point = New Point(50, 50)
        Me.Location = Screen.AllScreens(UBound(Screen.AllScreens)).Bounds.Location + myPoint
        BringMonitor2Front()
    End Sub
+
+    Private Sub GridView_Docs_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridView_Docs.RowStyle
+        If formShown = False Then
+            Exit Sub
+        End If
+        If e.RowHandle = -1 Then
+            IsFilterMode = True
+            Exit Sub
+        End If
+        If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then
+            IsFilterMode = True
+            ' e.Appearance.BackColor = Color.Yellow
+        Else
+            IsFilterMode = False
+            Try
+                Dim oRowColorCellValue = GridView_Docs.GetRowCellValue(e.RowHandle, "ROW_COLOR")
+                If Not IsNothing(oRowColorCellValue) Then
+                    Dim oColor As Color
+                    Try
+                        If oRowColorCellValue.ToString.Contains(";") Or oRowColorCellValue.ToString.Contains(".") Then
+                            Dim oColorSplit As String()
+                            If oRowColorCellValue.Contains(";") Then
+                                oColorSplit = oRowColorCellValue.Split(";")
+                            ElseIf oRowColorCellValue.Contains(".") Then
+                                oColorSplit = oRowColorCellValue.Split(".")
+                            End If
+
+
+                            Try
+                                oColor = Color.FromArgb(oColorSplit(0), oColorSplit(1), oColorSplit(2))
+                            Catch ex As Exception
+                                LOGGER.Info($"RowColorHandler: Could not get Color.FromArgb [{oRowColorCellValue}]")
+                                oColor = Color.LightGray
+                            End Try
+                        Else
+                            Try
+                                oColor = Color.FromName(oRowColorCellValue)
+                            Catch ex As Exception
+                                LOGGER.Info($"RowColorHandler: Could not get Color.FromName [{oRowColorCellValue}]")
+                            End Try
+
+
+                        End If
+                    Catch ex As Exception
+                        LOGGER.Info("RowBackColor: " & ex.Message, False)
+                        Exit Sub
+                    End Try
+                    e.Appearance.BackColor = oColor
+                    e.HighPriority = True
+                End If
+            Catch ex As Exception
+                LOGGER.Info("Unexpected Error in RowStyle: " & ex.Message, False)
+            End Try
+
+        End If
+    End Sub
 End Class
--- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb
+++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb
@@ -73,6 +73,7 @@ Partial Class frmSQL_DESIGNER
        Me.TableAdapterManager.Connection = Nothing
        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
--- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
+++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
@@ -278,4 +278,8 @@ Public Class frmSQL_DESIGNER
    Private Sub btnShowConnections_Click(sender As Object, e As EventArgs) Handles btnShowConnections.Click
        frmConnection.ShowDialog()
    End Sub
+
+    Private Sub cmbConnection_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbConnection.SelectedIndexChanged
+
+    End Sub
 End Class
--- a/app/DD_PM_WINDREAM/frmValidator.vb
+++ b/app/DD_PM_WINDREAM/frmValidator.vb
@@ -279,9 +279,9 @@ Public Class frmValidator

        If CURRENT_DOC_GUID <> 0 Then
            Try
-                If ItemWorked = False Then
-                    Free_File()
-                End If
+                'If ItemWorked = False Then
+                Free_File()
+                'End If
            Catch ex As Exception
                LOGGER.Error(ex)
            End Try
@@ -1359,7 +1359,7 @@ Public Class frmValidator
            Dim oSqlCommand = IIf(IsDBNull(oFilteredDatatable.Rows(0).Item("SET_CONTROL_DATA")), "", oFilteredDatatable.Rows(0).Item("SET_CONTROL_DATA"))
            oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
            _SetControlValue_in_action = True
-            Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand)
+            Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oFilteredDatatable.Rows(0).Item("CONNECTION_ID"))
            For Each oRowControl2Set As DataRow In oDTDEPENDING_RESULT.Rows
                Try
                    oControl2Set = oRowControl2Set.Item("Control2Set")
@@ -1383,6 +1383,7 @@ Public Class frmValidator
                            Catch ex As Exception
                                btnSave.ForeColor = Color.Black
                            End Try
+
                        Catch ex As Exception

                        End Try
@@ -1401,9 +1402,19 @@ Public Class frmValidator
                            LOGGER.Debug($"Got the Control22Set: {oControl2Set}..Setting the values..")
                            Select Case oControl.GetType.ToString
                                Case GetType(TextBox).ToString
+                                    Dim oTextOption = "Replace"
+                                    Try
+                                        oTextOption = oRowControl2Set.Item("TextOption")
+                                    Catch ex As Exception
+                                        oTextOption = "Replace"
+                                    End Try
                                    Try
                                        Dim oTEXT = oRowControl2Set.Item("Caption")
-                                        oControl.Text = oControl.Text & oTEXT
+                                        If oTextOption = "Replace" Then
+                                            oControl.Text = oTEXT
+                                        Else
+                                            oControl.Text = oControl.Text & oTEXT
+                                        End If
                                    Catch ex As Exception

                                    End Try
@@ -1420,6 +1431,7 @@ Public Class frmValidator
                                    Catch ex As Exception
                                        oControl.ForeColor = Color.Black
                                    End Try
+
                                Case GetType(LookupControl2).ToString
                                    Dim oDependingLookup As LookupControl2 = oControl
                                    oDependingLookup.DataSource = oDTDEPENDING_RESULT
@@ -1470,7 +1482,7 @@ Public Class frmValidator
                Dim oSqlCommand = IIf(IsDBNull(oRowDependingControl.Item("SQL_UEBERPRUEFUNG")), "", oRowDependingControl.Item("SQL_UEBERPRUEFUNG"))
                oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
                _dependingControl_in_action = True
-                Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand)
+                Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oRowDependingControl.Item("CONNECTION_ID"))
                Try
                    Dim oFound As Boolean = False
                    'Dim oDependingLookup As LookupControl2 = pnldesigner.Controls.Find(oDEPENDING_CtrlName, False).FirstOrDefault()
@@ -1666,7 +1678,7 @@ Public Class frmValidator
                    Dim oSqlCommand = IIf(IsDBNull(oRowEnablingControl.Item("SQL_ENABLE")), "", oRowEnablingControl.Item("SQL_ENABLE"))
                    oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
                    _dependingControl_in_action = True
-                    Dim oENABLERESULT As Boolean = ClassDatabase.Execute_Scalar(oSqlCommand, CONNECTION_STRING)
+                    Dim oENABLERESULT As Boolean = ClassDatabase.Execute_Scalar_ConID(oSqlCommand, oRowEnablingControl.Item("CONNECTION_ID"))
                    Try
                        Dim oFound As Boolean = False
                        'Dim oDependingLookup As LookupControl2 = pnldesigner.Controls.Find(oDEPENDING_CtrlName, False).FirstOrDefault()
@@ -3190,6 +3202,9 @@ Public Class frmValidator
                            Return False
                        End If
                    End If
+                Case "MsgboxStop".ToUpper
+                    MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
+                    Return False
                Case "Msgbox".ToUpper
                    MessageBox.Show(oQuestion, oTitle, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                    Return True