MS

app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb

@@ -21,7 +21,14 @@ Public Class ClassAllgemeineFunktionen
             End If
 
         Else
-            Return oFilteredDatatable
+            If oFilteredDatatable.Rows.Count = 0 Then 'KEIN EINTRAG FÜR SPRACHE
+                oExpression = $"LANGUAGE ='de-DE' AND TITLE = '{pTITLE}'"
+                BASEDATA_DT_GUI_LANGUAGE_PHRASES.Select(oExpression).CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges)
+                Return oFilteredDatatable.Rows(0).Item("STRING1")
+            Else
+                Return oFilteredDatatable
+            End If
+
         End If
     End Function
     Public Shared Function GUI_LANGUAGE_MSGBOX(pTITLE As String)

app/DD_PM_WINDREAM/ClassIDBData.vb

@@ -92,7 +92,7 @@
                     oSingleAttribute = False
             End Select
             Dim oAttributeValue
-
+            LOGGER.Debug($"IDBData - GetVariableValue - oSingleAttribute [{oSingleAttribute.ToString}] - FromIDB [{FromIDB.ToString}]")
             If oSingleAttribute = True And IDB_DT_DOC_DATA.Rows.Count = 1 And FromIDB = False Then
                 Try
                     If oAttributeName = "IDBCreatedWhen" Then
@@ -104,7 +104,7 @@
                     ElseIf oAttributeName = "IDBChangedWho" Then
                         oAttributeName = "CHANGED_WHO"
                     End If
-
+                    LOGGER.Debug($"IDBData - GetVariableValue - IDB_DT_DOC_DATA.Rows.Count = 1")
                     oAttributeValue = IDB_DT_DOC_DATA.Rows(0).Item(oAttributeName)
                 Catch ex As Exception
                     LOGGER.Debug($"Error getting Attribute from IDB_DT_DOC_DATA: {ex.Message}")
@@ -112,11 +112,13 @@
 
             End If
             If Not IsNothing(oAttributeValue) Then
+                LOGGER.Debug($"IDBData - GetVariableValue - Returning value: [{oAttributeValue}]")
                 Return oAttributeValue
             Else
                 LOGGER.Debug($"oAttributeValue for Attribute [{oAttributeName}] is so far nothing..Now trying FNIDB_PM_GET_VARIABLE_VALUE ")
             End If
             Dim oFNSQL = $"SELECT * FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({CURRENT_DOC_ID},'{oAttributeName}','{USER_LANGUAGE}',CONVERT(BIT,'{IDB_USES_WMFILESTORE}'))"
+            LOGGER.Debug($"GetVariableValue: {oFNSQL}")
             oAttributeValue = DatabaseFallback.GetDatatableIDB(oFNSQL)
             Dim odt As DataTable = oAttributeValue
             If odt.Rows.Count = 1 Then

app/DD_PM_WINDREAM/ClassInit.vb

@@ -448,7 +448,7 @@ Public Class ClassInit
             BASEDATA_DT_TBDD_SQL_COMMANDS = DatabaseFallback.GetDatatable("TBDD_SQL_COMMANDS", New GetDatatableOptions(oSql, DatabaseType.ECM))
 
             oStep = "TBDD_GUI_LANGUAGE_PHRASE"
-            oSql = "SELECT * FROM TBDD_GUI_LANGUAGE_PHRASE WHERE MODULE IN ('PM','All Modules')"
+            oSql = $"SELECT * FROM TBDD_GUI_LANGUAGE_PHRASE WHERE MODULE IN ('PM','All Modules') and LANGUAGE = '{USER_LANGUAGE}'"
             'BASEDATA_DT_GUI_LANGUAGE_PHRASES = DataASorDB.GetDatatable("DD_ECM", oSql, "TBDD_GUI_LANGUAGE_PHRASE", "")
             BASEDATA_DT_GUI_LANGUAGE_PHRASES = DatabaseFallback.GetDatatable("TBDD_GUI_LANGUAGE_PHRASE", New GetDatatableOptions(oSql, DatabaseType.ECM))
 

app/DD_PM_WINDREAM/ClassParamRefresh.vb

@@ -14,6 +14,8 @@ Public Class ClassParamRefresh
                         Dim oSQL = oRow.Item("SQL_COMMAND")
                         USERCOUNT_LOGGED_IN = DatabaseFallback.GetScalarValueECM(oSQL)
                         oLicenseoverSQL = True
+                    ElseIf oRow.Item("TITLE") = "PM_PROFILES_USER" Then
+                        SQL_PROFILES_USER = oRow.Item("SQL_COMMAND")
                     End If
                 Next
             End If

app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb

@@ -157,4 +157,6 @@ Module ModuleRuntimeVariables
 
     Public Property Timer5Mins_running As Boolean = False
     Public Property TimerRefresh_running As Boolean = False
+
+    Public Property SQL_PROFILES_USER As String = ""
 End Module

app/DD_PM_WINDREAM/frmMain.resx

@@ -1793,7 +1793,7 @@
     <value>True</value>
   </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>198</value>
+    <value>63</value>
   </metadata>
   <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
     <value>9, 19</value>

app/DD_PM_WINDREAM/frmMain.vb

@@ -54,7 +54,8 @@ Public Class frmMain
     Private FRONTEND_ACTION As String = "NONE"
     Private Ev_Filter_Panel_Closed As Boolean = False
     Dim omsgOpenWorkflow = "Bitte schliessen Sie den offenen Workflow!"
-    Dim omsgTitleWarning = "Achtung:"
+    Dim omsgTitleWarning As String
+    Dim omsgTitleAttention As String
     Private Const FullFilepatColName = "FULL_FILE_PATH"
     Private Const FA_NONE = "NONE"
     Private Function GET_LAST_ADDED(pDatatable As DataTable) As String
@@ -148,7 +149,7 @@ Public Class frmMain
         FormOpenClose = True
         LOGGER.Debug("Initializing MainForm....")
 
-        GridBuilder = New GridBuilder(GridView_Docs)
+        GridBuilder = New GridBuilder(GridViewWFItems)
         GridBuilder.WithFontSizeDelta(CONFIG.Config.GridFontSizeDelta)
 
         Dim oFontSettings = New List(Of FontSetting) From {
@@ -164,12 +165,10 @@ Public Class frmMain
                 FirstOrDefault()
 
         ' Create helper to save/load expanded GroupColumns at runtime
-        RefreshHelper = New RefreshHelper(LOGCONFIG, GridView_Docs, "GUID")
-
-        If User.Language <> "de-DE" Then
-            omsgOpenWorkflow = "Please close the active workflow!"
-            omsgTitleWarning = "Warning:"
-        End If
+        RefreshHelper = New RefreshHelper(LOGCONFIG, GridViewWFItems, "GUID")
+        omsgOpenWorkflow = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("WorkflowIsActive1")
+        omsgTitleWarning = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("MsgboxTitleWarning")
+        omsgTitleAttention = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("MsgboxTitleAttention")
 
 
         Dim oVErsion = String.Format("{0}.{1}.{2}", My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build)
@@ -235,12 +234,10 @@ Public Class frmMain
                 If USER_IS_ADMIN = True Then
                     RibbonPageGroup3.Visible = True
                     'Anzahl der eingeloggten User
+
                     bsiUserLoggedIn.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
-                    If USER_LANGUAGE <> "de-DE" Then
-                        bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN
-                    Else
-                        bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
-                    End If
+                    Dim oCaption As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("LicenseCountCaption")
+                    bsiUserLoggedIn.Caption = $"{oCaption} {USERCOUNT_LOGGED_IN}"
                     If GHOSTMODE_ACTIVE = True Then
                         bbtnitmGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
                     Else
@@ -562,7 +559,7 @@ Public Class frmMain
 
         Try
             Dim xml As String = GetXML_LayoutName()
-            GridView_Docs.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
+            GridViewWFItems.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
         Catch ex As Exception
             LOGGER.Error(ex)
             LOGGER.Info("Error while saving GridLayout: " & ex.Message)
@@ -576,7 +573,7 @@ Public Class frmMain
 
         Try
             Dim oXml As String = GetXML_LayoutName()
-            GridView_Docs.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout)
+            GridViewWFItems.RestoreLayoutFromXml(oXml, OptionsLayoutBase.FullLayout)
         Catch ex As Exception
             LOGGER.Error(ex)
             LOGGER.Info("Error while restoring layout: " & ex.Message)
@@ -589,12 +586,12 @@ Public Class frmMain
             Dim xml As String = GetXML_LayoutName()
             IO.File.Delete(xml)
             Try
-                GridView_Docs.Columns.Clear()
+                GridViewWFItems.Columns.Clear()
             Catch ex As Exception
-                If IsNothing(GridView_Docs) Then
+                If IsNothing(GridViewWFItems) Then
                     LOGGER.Warn("Somehow GridView_Docs is nothing....")
                 Else
-                    If IsNothing(GridView_Docs.Columns) Then
+                    If IsNothing(GridViewWFItems.Columns) Then
                         LOGGER.Warn("Somehow GridView_Docs.Columns is nothing....")
 
                     End If
@@ -602,28 +599,28 @@ Public Class frmMain
                 Exit Sub
             End Try
 
-            GridView_Docs.PopulateColumns()
-            If GridView_Docs.Columns.Count > 0 Then
-                GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
-                GridView_Docs.Columns.Item("GUID").Visible = False
+            GridViewWFItems.PopulateColumns()
+            If GridViewWFItems.Columns.Count > 0 Then
+                GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False
+                GridViewWFItems.Columns.Item("GUID").Visible = False
                 Try
-                    GridView_Docs.Columns.Item(FullFilepatColName).Visible = False
+                    GridViewWFItems.Columns.Item(FullFilepatColName).Visible = False
                 Catch ex As Exception
 
                 End Try
                 Try
                     'GridView_Docs.Columns.Item("DocID").Visible = False
-                    GridView_Docs.Columns.Item("TL_STATE").Visible = False
+                    GridViewWFItems.Columns.Item("TL_STATE").Visible = False
                 Catch ex As Exception
 
                 End Try
 
                 Try
                     If TL_ICON = True Then
-                        GridView_Docs.Columns.Item("ICON").MaxWidth = 24
-                        GridView_Docs.Columns.Item("ICON").MinWidth = 24
-                        GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
-                        GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
+                        GridViewWFItems.Columns.Item("ICON").MaxWidth = 24
+                        GridViewWFItems.Columns.Item("ICON").MinWidth = 24
+                        GridViewWFItems.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
+                        GridViewWFItems.Columns.Item("ICON").Fixed = FixedStyle.Left
                     End If
                 Catch ex As Exception
 
@@ -632,16 +629,16 @@ Public Class frmMain
 
                 If IDB_ACTIVE = True Then
                     Try
-                        If GridView_Docs.Columns.Item("CONV_YN") IsNot Nothing Then
-                            GridView_Docs.Columns.Item("CONV_YN").Visible = False
+                        If GridViewWFItems.Columns.Item("CONV_YN") IsNot Nothing Then
+                            GridViewWFItems.Columns.Item("CONV_YN").Visible = False
                         End If
                     Catch ex As Exception
                         LOGGER.Info("ResetLayout - Check wether Column CONV_YN is part of select/view..now checking CONVERSATION")
                     End Try
                     Try
-                        GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24
-                        GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
-                        GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
+                        GridViewWFItems.Columns.Item("CONVERSATION").MaxWidth = 24
+                        GridViewWFItems.Columns.Item("CONVERSATION").MinWidth = 24
+                        GridViewWFItems.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
                     Catch ex As Exception
                         LOGGER.Info("ResetLayout - Column CONVERSATION obviously is not part of GridView_Docs")
                     End Try
@@ -651,12 +648,12 @@ Public Class frmMain
                 Try
                     Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
                     oReducedColName = oReducedColName.Replace("]", "")
-                    GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
-                    GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                    GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
+                    GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
                 Catch ex As Exception
                     Try
-                        GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
-                        GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                        GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
+                        GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
                     Catch ex1 As Exception
                         LOGGER.Warn("(ResetLayout)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL")
                     End Try
@@ -664,8 +661,8 @@ Public Class frmMain
                 End Try
 
                 Try
-                    GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
-                    GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
+                    GridViewWFItems.Columns.Item("GROUP_TEXT").Visible = False
+                    GridViewWFItems.Columns.Item("GROUP_COLOR").Visible = False
 
                 Catch ex As Exception
 
@@ -790,10 +787,10 @@ Public Class frmMain
 
                         GRID_LOAD_TYPE = "PROFILE#" & _tag.ToString
                         TimerRefresh.Stop()
-                        GridView_Docs.ShowLoadingPanel()
+                        GridViewWFItems.ShowLoadingPanel()
                         DetailLinkActive = True
                         Await Load_single_Profile(True)
-                        GridView_Docs.HideLoadingPanel()
+                        GridViewWFItems.HideLoadingPanel()
                         TimerRefresh.Start()
                     Else
                         CURRENT_CLICKED_PROFILE_TITLE = Nothing
@@ -803,7 +800,7 @@ Public Class frmMain
             ElseIf _tag = "OVERVIEW" Then
                 OverviewOrDEtail = "OVERVIEW"
                 GRID_LOAD_TYPE = "OVERVIEW"
-                GridView_Docs.ShowLoadingPanel()
+                GridViewWFItems.ShowLoadingPanel()
                 TimerRefresh.Stop()
                 Dim oForce As Boolean = False
                 If DetailLinkActive = True Then
@@ -812,13 +809,13 @@ Public Class frmMain
                     OVERVIEW_ADDED_WHEN = ""
                 End If
                 Await Load_Grid_Overview(False, True, True)
-                GridView_Docs.HideLoadingPanel()
+                GridViewWFItems.HideLoadingPanel()
                 TimerRefresh.Start()
                 RefreshHelper.LoadViewInfo()
-                If GridView_Docs.GroupCount = 0 And IsNothing(GridView_Docs.Columns("GROUP_TEXT")) Then
+                If GridViewWFItems.GroupCount = 0 And IsNothing(GridViewWFItems.Columns("GROUP_TEXT")) Then
                     LOGGER.Info("NO GROUPS AFTER CLICK OVERVIEW...CREATING GROUPS NEW...")
                     Await Load_Grid_Overview(False, True, True)
-                    GridView_Docs.HideLoadingPanel()
+                    GridViewWFItems.HideLoadingPanel()
                     TimerRefresh.Start()
                     RefreshHelper.LoadViewInfo()
                 End If
@@ -899,7 +896,7 @@ Public Class frmMain
                         OVERVIEW_CHANGED_WHEN = oChanged
                         OVERVIEW_COUNT = oCOUNT
                     End If
-                    GridView_Docs.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
+                    GridViewWFItems.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
                     If CURR_DT_OVERVIEW.Rows.Count = 0 Then
                         NO_WORKFLOWITEMS = True
                     Else
@@ -908,7 +905,7 @@ Public Class frmMain
                     Create_Basic_View()
 
                     RestoreLayout()
-                    GridView_Docs.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
+                    GridViewWFItems.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
                 End If
 
             End If
@@ -924,7 +921,7 @@ Public Class frmMain
             FRONTEND_ACTION = "Create_Basic_View"
             GridControl_Docs.DataSource = Nothing
             Try
-                GridView_Docs.Columns.Clear()
+                GridViewWFItems.Columns.Clear()
             Catch ex As Exception
                 LOGGER.Error(ex)
                 LOGGER.Warn("Could not clear GridView_Docs.Columns")
@@ -988,12 +985,9 @@ Public Class frmMain
             Next
             bindsourcegrid.DataSource = CURR_DT_OVERVIEW
             GridControl_Docs.DataSource = bindsourcegrid
-            Dim objectCount_Descr = GridView_Docs.RowCount.ToString
-            If USER_LANGUAGE = "de-DE" Then
-                objectCount_Descr &= " Vorgänge"
-            Else
-                objectCount_Descr &= " objects"
-            End If
+            Dim objectCount_Descr = GridViewWFItems.RowCount.ToString
+            Dim ocapt = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("DescItems")
+            objectCount_Descr = $"{objectCount_Descr} {ocapt}"
 
             'tslblObjectCount.Text = objectCount_Descr
 
@@ -1002,24 +996,24 @@ Public Class frmMain
             RestoreLayout()
 
 
-            GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
-            GridView_Docs.Columns.Item("GUID").Visible = False
+            GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False
+            GridViewWFItems.Columns.Item("GUID").Visible = False
             Try
-                GridView_Docs.Columns.Item(FullFilepatColName).Visible = False
+                GridViewWFItems.Columns.Item(FullFilepatColName).Visible = False
             Catch ex As Exception
             End Try
             Try
                 'GridView_Docs.Columns.Item("DocID").Visible = False
-                GridView_Docs.Columns.Item("TL_STATE").Visible = False
+                GridViewWFItems.Columns.Item("TL_STATE").Visible = False
             Catch ex As Exception
 
             End Try
             Try
                 If TL_ICON = True Then
-                    GridView_Docs.Columns.Item("ICON").MaxWidth = 24
-                    GridView_Docs.Columns.Item("ICON").MinWidth = 24
-                    GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
-                    GridView_Docs.Columns.Item("ICON").Fixed = FixedStyle.Left
+                    GridViewWFItems.Columns.Item("ICON").MaxWidth = 24
+                    GridViewWFItems.Columns.Item("ICON").MinWidth = 24
+                    GridViewWFItems.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
+                    GridViewWFItems.Columns.Item("ICON").Fixed = FixedStyle.Left
                 End If
             Catch ex As Exception
 
@@ -1027,15 +1021,15 @@ Public Class frmMain
 
 
             Try
-                GridView_Docs.Columns.Item("CONV_YN").Visible = False
+                GridViewWFItems.Columns.Item("CONV_YN").Visible = False
             Catch ex As Exception
                 LOGGER.Info("Create_Basic_View - Check wether Column CONV_YN is part of select/view")
             End Try
             If IDB_ACTIVE = True Then
                 Try
-                    GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24
-                    GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
-                    GridView_Docs.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
+                    GridViewWFItems.Columns.Item("CONVERSATION").MaxWidth = 24
+                    GridViewWFItems.Columns.Item("CONVERSATION").MinWidth = 24
+                    GridViewWFItems.Columns.Item("CONVERSATION").Fixed = FixedStyle.Left
                 Catch ex As Exception
                     LOGGER.Info("Create_Basic_View2 - Column CONVERSATION obviously is not part of GridView_Docs - Trying to Rest Layout")
                     ResetLayout()
@@ -1049,12 +1043,12 @@ Public Class frmMain
             Try
                 Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
                 oReducedColName = oReducedColName.Replace("]", "")
-                GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
-                GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
+                GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
             Catch ex As Exception
                 Try
-                    GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
-                    GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                    GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
+                    GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
                 Catch ex1 As Exception
                     LOGGER.Warn("(CreateBasicView)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL")
                 End Try
@@ -1063,8 +1057,8 @@ Public Class frmMain
 
             LOGGER.Debug("All columns in CreateBasicView created")
             Try
-                GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
-                GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
+                GridViewWFItems.Columns.Item("GROUP_TEXT").Visible = False
+                GridViewWFItems.Columns.Item("GROUP_COLOR").Visible = False
             Catch ex As Exception
                 If OverviewOrDEtail = "OVERVIEW" Then
                     LOGGER.Warn("ATTENTION: GROUP COLUMNS NOT PART OF GRID")
@@ -1086,7 +1080,7 @@ Public Class frmMain
                     Continue For
                 End If
                 Dim oViewColumn_exists As Boolean = False
-                For Each oActGridColumn As GridColumn In GridView_Docs.Columns
+                For Each oActGridColumn As GridColumn In GridViewWFItems.Columns
                     Dim oGridDXFieldName = oActGridColumn.FieldName
                     Dim GridDXColumnEditName = oActGridColumn.ColumnEditName
                     Dim GridDXFieldName = oActGridColumn.FieldName
@@ -1110,7 +1104,7 @@ Public Class frmMain
                     End If
                 End If
             Next
-            For Each oActGridColumn As GridColumn In GridView_Docs.Columns
+            For Each oActGridColumn As GridColumn In GridViewWFItems.Columns
                 If oActGridColumn.Caption = "" Then
                     Continue For
                 End If
@@ -1188,11 +1182,7 @@ Public Class frmMain
                 Exit Sub
             End If
 
-            If USER_LANGUAGE <> "de-DE" Then
-                bsilastsync.Caption = "Last Client-Sync: " & Now.ToLongTimeString
-            Else
-                bsilastsync.Caption = "Letzte Synchronisation: " & Now.ToLongTimeString
-            End If
+            bsilastsync.Caption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("CaptLastSync")}: " & Now.ToLongTimeString
 
             If GridControl_Docs.Visible = True And FormOpenClose = False Then
                 RefreshHelper.SaveViewInfo()
@@ -1246,7 +1236,7 @@ Public Class frmMain
                 TimerRefresh.Enabled = False
             End If
 
-            GridView_Docs.ShowLoadingPanel()
+            GridViewWFItems.ShowLoadingPanel()
             TimerRefresh.Stop()
             FRONTEND_ACTION = "DECIDE_LOAD"
             If GRID_LOAD_TYPE = "OVERVIEW" Then
@@ -1256,23 +1246,23 @@ Public Class frmMain
                 Await Load_single_Profile(ForceReload)
             End If
             FRONTEND_ACTION = FA_NONE
-            GridView_Docs.HideLoadingPanel()
+            GridViewWFItems.HideLoadingPanel()
             TimerRefresh.Start()
 
             If SHOW_MASS_VALIDATOR = False Then
-                GridView_Docs.OptionsSelection.MultiSelect = False
-                GridView_Docs.OptionsSelection.MultiSelectMode = GridMultiSelectMode.RowSelect
+                GridViewWFItems.OptionsSelection.MultiSelect = False
+                GridViewWFItems.OptionsSelection.MultiSelectMode = GridMultiSelectMode.RowSelect
                 BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
             Else
                 BarButtonItemMassValidation.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
 
-                GridView_Docs.OptionsSelection.MultiSelect = True
-                GridView_Docs.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect
+                GridViewWFItems.OptionsSelection.MultiSelect = True
+                GridViewWFItems.OptionsSelection.MultiSelectMode = GridMultiSelectMode.CheckBoxRowSelect
             End If
-            If GridView_Docs.OptionsView.ShowAutoFilterRow = True Then
+            If GridViewWFItems.OptionsView.ShowAutoFilterRow = True Then
                 BarCheckItemAutofilter.Checked = True
             End If
-            If GridView_Docs.OptionsFind.AlwaysVisible Then
+            If GridViewWFItems.OptionsFind.AlwaysVisible Then
                 BarCheckItemShowSearch.Checked = True
             End If
             GridIsLoaded = True
@@ -1355,12 +1345,8 @@ Public Class frmMain
         Try
             CURRENT_ProfilGUID = pProfilID
 
-            Dim omsg = "Es ist bereits ein Workflow geöffnet!"
-            Dim omsgTitle = "Achtung:"
-            If USER_LANGUAGE <> "de-DE" Then
-                omsg = "There is already a workflow active!"
-                omsgTitle = "Attention:"
-            End If
+            Dim omsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("WorkflowIsActive2")
+
 
             ' Dim th As System.Threading.Thread
             If Not Application.OpenForms().OfType(Of frmValidator).Any Then
@@ -1429,7 +1415,7 @@ Public Class frmMain
                 '  th.Start()
             Else
                 LOGGER.Debug("Validator is already open...")
-                FormHelper.ShowInfoMessage(omsg, omsgTitleWarning)
+                FormHelper.ShowInfoMessage(omsg, omsgTitleAttention)
 
             End If
 
@@ -1459,7 +1445,7 @@ Public Class frmMain
                 bsiMessage.ItemAppearance.Normal.BackColor = Color.Red
                 Exit Sub
             End If
-            Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
+            Dim hitInfo As GridHitInfo = GridViewWFItems.CalcHitInfo(GridCursorLocation)
             bsiMessage.Caption = ""
             bsiMessage.ItemAppearance.Normal.BackColor = Color.Transparent
             Dim OItemScopeInfo = "No Item so far"
@@ -1472,9 +1458,9 @@ Public Class frmMain
             End If
             Dim oHitProfilID
             If hitInfo.InGroupRow Then
-                oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridView_Docs.Columns("PROFILE_ID"))
+                oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridViewWFItems.Columns("PROFILE_ID"))
             ElseIf hitInfo.InDataRow Then
-                oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID"))
+                oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(GridViewWFItems.GetParentRowHandle(hitInfo.RowHandle)), GridViewWFItems.Columns("PROFILE_ID"))
             End If
             If Len(oHitProfilID) > 0 Then
                 If oHitProfilID > 0 Then
@@ -1490,21 +1476,21 @@ Public Class frmMain
                 Dim oIds As New List(Of Integer)
                 Dim oCount As Integer = 0
                 '-----------------------------
-                Dim orows() As Integer = GridView_Docs.GetSelectedRows
+                Dim orows() As Integer = GridViewWFItems.GetSelectedRows
                 Dim i As Integer
                 For i = 0 To orows.Length - 1 Step i + 1
-                    Dim childRowCount As Integer = GridView_Docs.GetChildRowCount(orows(i))
+                    Dim childRowCount As Integer = GridViewWFItems.GetChildRowCount(orows(i))
                     Dim j As Integer
                     Dim childRowIndex As Integer
                     For j = 0 To childRowCount - 1 Step j + 1
-                        childRowIndex = GridView_Docs.GetChildRowHandle(orows(i), j)
-                        Dim oRow = GridView_Docs.GetRow(childRowIndex)
+                        childRowIndex = GridViewWFItems.GetChildRowHandle(orows(i), j)
+                        Dim oRow = GridViewWFItems.GetRow(childRowIndex)
                         oIds.Add(oRow.item("DocId"))
                     Next
                 Next
                 If oIds.Count = 0 Then
-                    For index = 0 To GridView_Docs.RowCount
-                        Dim oRow = GridView_Docs.GetRow(index)
+                    For index = 0 To GridViewWFItems.RowCount
+                        Dim oRow = GridViewWFItems.GetRow(index)
 
                         If oRow Is Nothing Then
                             Continue For
@@ -1558,7 +1544,7 @@ Public Class frmMain
                 startedFrom = "CMGROUP"
                 LOGGER.Debug($"Item_Scope: InGroupRow")
                 OItemScopeInfo = "InGroupRow"
-                groupRowText = GridView_Docs.GetGroupRowDisplayText(hitInfo.RowHandle)
+                groupRowText = GridViewWFItems.GetGroupRowDisplayText(hitInfo.RowHandle)
                 OItemScopeInfo = $"groupRowText {groupRowText}"
                 LOGGER.Debug($"Item_Scope: groupRowText {groupRowText}")
                 ' oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridViewWFItems.Columns("PROFILE_ID"))
@@ -1569,7 +1555,7 @@ Public Class frmMain
                 If GRID_LOAD_TYPE = "OVERVIEW" Then
                     OItemScopeInfo = $"GRID_LOAD_TYPE = OVERVIEW"
                     LOGGER.Debug($"Item_Scope: GRID_LOAD_TYPE = OVERVIEW")
-                    groupRowText = GridView_Docs.GetGroupRowDisplayText(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle))
+                    groupRowText = GridViewWFItems.GetGroupRowDisplayText(GridViewWFItems.GetParentRowHandle(hitInfo.RowHandle))
                     OItemScopeInfo = $"OVERVIEWgroupRowText {groupRowText}"
                     LOGGER.Debug($"Item_Scope: OVERVIEWgroupRowText {groupRowText}")
                     ' oHitProfilID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(GridViewWFItems.GetParentRowHandle(hitInfo.RowHandle)), GridViewWFItems.Columns("PROFILE_ID"))
@@ -1625,14 +1611,14 @@ Public Class frmMain
                     LOGGER.Debug($"Item_Scope: hitInfo.InDataRow...")
                     Dim oFocusedDocGUID
                     Try
-                        oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
+                        oFocusedDocGUID = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns("GUID"))
                     Catch ex As Exception
                         FormHelper.ShowInfoMessage("Could not get DocGUID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning)
 
                     End Try
                     Dim oFocusedDocID
                     Try
-                        oFocusedDocID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DocID"))
+                        oFocusedDocID = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns("DocID"))
                     Catch ex As Exception
                         FormHelper.ShowInfoMessage("Could not get DocID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning)
                     End Try
@@ -1650,8 +1636,8 @@ Public Class frmMain
                         Exit Sub
                     End If
                     LOGGER.Debug($"Item_Scope: GotDocID {oFocusedDocID} and DocGUID {oFocusedDocGUID}")
-                    If Not IsNothing(GridView_Docs.Columns(FullFilepatColName)) Then
-                        Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns(FullFilepatColName))
+                    If Not IsNothing(GridViewWFItems.Columns(FullFilepatColName)) Then
+                        Dim DOC_PATH = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns(FullFilepatColName))
                         If IsNothing(DOC_PATH) Then
                             LOGGER.Warn("In hitInfo.InDataRow: FULL_FILE_PATH is nothing!!!")
                             Exit Sub
@@ -1681,13 +1667,8 @@ Public Class frmMain
                         If CBool(oResult) = True Then
                             Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID)
                         Else
-                            Dim omsg As String = "Achtung: der gewählte Beleg ist durch einen anderen Benutzer bereits in Bearbeitung oder anderweitig gesperrt"
-                            Dim otitle = "Achtung:"
-                            If USER_LANGUAGE <> "de-DE" Then
-                                omsg = "Attention: the item You chose is rather in work or locked from another user!"
-                                otitle = "Attention:"
-                            End If
-                            FormHelper.ShowInfoMessage(omsg, omsgTitleWarning)
+                            Dim omsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("WFInWork")
+                            FormHelper.ShowInfoMessage(omsg, omsgTitleAttention)
 
                         End If
                     Catch ex As Exception
@@ -1751,7 +1732,7 @@ Public Class frmMain
     Private Sub Create_Groups()
         Try
             LOGGER.Debug("Now Working on Groups..")
-            GridView_Docs.OptionsView.ShowGroupPanel = False
+            GridViewWFItems.OptionsView.ShowGroupPanel = False
             Dim oindex As Integer = 0
             If Not IsNothing(BASEDATA_DTGRID_GROUPS) Then
                 For Each oGridGroup As DataRow In BASEDATA_DTGRID_GROUPS.Rows
@@ -1760,7 +1741,7 @@ Public Class frmMain
 
                     LOGGER.Debug($"Adding group [{oGroupName}] for Grid...")
                     Try
-                        Dim oGroupColumn As GridColumn = GridView_Docs.Columns.Item(oGroupName)
+                        Dim oGroupColumn As GridColumn = GridViewWFItems.Columns.Item(oGroupName)
 
                         If oGroupColumn IsNot Nothing Then
                             oGroupColumn.GroupIndex = oindex
@@ -1836,7 +1817,7 @@ Public Class frmMain
                 bindsourcegrid.DataSource = Nothing
                 GridControl_Docs.DataSource = Nothing
                 Try
-                    GridView_Docs.Columns.Clear()
+                    GridViewWFItems.Columns.Clear()
                 Catch ex As Exception
                     LOGGER.Error(ex)
 
@@ -1883,11 +1864,9 @@ Public Class frmMain
 
                 NO_WORKFLOWITEMS = False
                 If CURR_DT_OVERVIEW.Rows.Count = 0 Then
-                    If USER_LANGUAGE = "de-DE" Then
-                        GridView_Docs.ViewCaption = "Aktuell keine Workflowdaten vorhanden!"
-                    Else
-                        GridView_Docs.ViewCaption = "No workflowdata!"
-                    End If
+
+                    GridViewWFItems.ViewCaption = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("NoWorkflowData")
+
                     NO_WORKFLOWITEMS = True
                     GridControl_Docs.Visible = False
                     bindsourcegrid.DataSource = Nothing
@@ -1990,12 +1969,12 @@ Public Class frmMain
 
                 Try
                     Create_Groups()
-                    GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
-                    GridView_Docs.Columns.Item("GUID").Visible = False
+                    GridViewWFItems.Columns.Item("PROFILE_ID").Visible = False
+                    GridViewWFItems.Columns.Item("GUID").Visible = False
                     Try
-                        GridView_Docs.Columns.Item(FullFilepatColName).Visible = False
+                        GridViewWFItems.Columns.Item(FullFilepatColName).Visible = False
                         'GridView_Docs.Columns.Item("DocID").Visible = False
-                        GridView_Docs.Columns.Item("TL_STATE").Visible = False
+                        GridViewWFItems.Columns.Item("TL_STATE").Visible = False
                     Catch ex As Exception
 
                     End Try
@@ -2003,10 +1982,10 @@ Public Class frmMain
 
                     If TL_ICON = True Then
                         Try
-                            GridView_Docs.Columns.Item("ICON").MaxWidth = 24
-                            GridView_Docs.Columns.Item("ICON").MinWidth = 24
-                            GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
-                            GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
+                            GridViewWFItems.Columns.Item("ICON").MaxWidth = 24
+                            GridViewWFItems.Columns.Item("ICON").MinWidth = 24
+                            GridViewWFItems.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
+                            GridViewWFItems.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
                         Catch ex As Exception
 
                         End Try
@@ -2014,8 +1993,8 @@ Public Class frmMain
                     End If
 
                     Try
-                        If GridView_Docs.Columns.Item("CONV_YN") IsNot Nothing Then
-                            GridView_Docs.Columns.Item("CONV_YN").Visible = False
+                        If GridViewWFItems.Columns.Item("CONV_YN") IsNot Nothing Then
+                            GridViewWFItems.Columns.Item("CONV_YN").Visible = False
 
                         End If
                     Catch ex As Exception
@@ -2023,9 +2002,9 @@ Public Class frmMain
                     End Try
                     If IDB_ACTIVE = True Then
                         Try
-                            GridView_Docs.Columns.Item("CONVERSATION").MaxWidth = 24
-                            GridView_Docs.Columns.Item("CONVERSATION").MinWidth = 24
-                            GridView_Docs.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
+                            GridViewWFItems.Columns.Item("CONVERSATION").MaxWidth = 24
+                            GridViewWFItems.Columns.Item("CONVERSATION").MinWidth = 24
+                            GridViewWFItems.Columns.Item("CONVERSATION").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
                         Catch ex As Exception
                             LOGGER.Info("LoadGridOverview - Column CONVERSATION obviously not part of GridView_Docs")
                         End Try
@@ -2037,12 +2016,12 @@ Public Class frmMain
                     Try
                         Dim oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
                         oReducedColName = oReducedColName.Replace("]", "")
-                        GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
-                        GridView_Docs.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                        GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
+                        GridViewWFItems.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
                     Catch ex As Exception
                         Try
-                            GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
-                            GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
+                            GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
+                            GridViewWFItems.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
                         Catch ex1 As Exception
                             LOGGER.Warn("(Warning LoadGridOverview)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL")
                         End Try
@@ -2054,7 +2033,7 @@ Public Class frmMain
                     LOGGER.Error(ex)
                     LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message)
                 End Try
-                If GridView_Docs.Columns.Count <= 5 Then
+                If GridViewWFItems.Columns.Count <= 5 Then
                     LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
                     Await Reset_GridLayout(pFormLoad)
                 End If
@@ -2068,7 +2047,7 @@ Public Class frmMain
 
 
                 Try
-                    GridView_Docs.Columns.Clear()
+                    GridViewWFItems.Columns.Clear()
                 Catch ex As Exception
                     LOGGER.Error(ex)
                 End Try
@@ -2113,11 +2092,11 @@ Public Class frmMain
         InResetlayout = False
     End Function
 
-    Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridView_Docs.DoubleClick
+    Private Sub GridView_Docs_DoubleClick(sender As Object, e As EventArgs) Handles GridViewWFItems.DoubleClick
         Item_Scope("DOUBLECLICK")
     End Sub
 
-    Private Sub GridView_Docs_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridView_Docs.CustomDrawGroupRow
+    Private Sub GridView_Docs_CustomDrawGroupRow(sender As Object, e As Views.Base.RowObjectCustomDrawEventArgs) Handles GridViewWFItems.CustomDrawGroupRow
         Try
             ' Added
             If FormOpenClose = True And GridIsLoaded = False Then
@@ -2193,7 +2172,7 @@ Public Class frmMain
     End Function
 
 
-    Private Sub GridView_Docs_MouseDown(sender As Object, e As MouseEventArgs) Handles GridView_Docs.MouseDown
+    Private Sub GridView_Docs_MouseDown(sender As Object, e As MouseEventArgs) Handles GridViewWFItems.MouseDown
         Dim view As GridView = sender
         Dim hi As GridHitInfo = view.CalcHitInfo(e.Location)
         Dim groupRowButtonClicked = (hi.HitTest = GridHitTest.RowGroupButton)
@@ -2206,13 +2185,13 @@ Public Class frmMain
             DXMouseEventArgs.GetMouseArgs(e).Handled = True
             GridViewItem_Clicked = "GROUP"
             If Not Application.OpenForms().OfType(Of frmValidator).Any Then
-                CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID"))
+                CURRENT_CLICKED_PROFILE_ID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridViewWFItems.Columns("PROFILE_ID"))
             End If
 
         ElseIf hi.InDataRow Then
             GridViewItem_Clicked = "ROW"
             If Not Application.OpenForms().OfType(Of frmValidator).Any Then
-                CURRENT_CLICKED_PROFILE_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridView_Docs.Columns("PROFILE_ID"))
+                CURRENT_CLICKED_PROFILE_ID = GridViewWFItems.GetRowCellValue(GridViewWFItems.GetDataRowHandleByGroupRowHandle(hi.RowHandle), GridViewWFItems.Columns("PROFILE_ID"))
             End If
 
         Else
@@ -2240,14 +2219,14 @@ Public Class frmMain
 
     End Sub
 
-    Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridView_Docs.ColumnWidthChanged
+    Private Sub GridView_Docs_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridViewWFItems.ColumnWidthChanged
         GridLayout_Changed("ColumnWidthChanged")
     End Sub
-    Private Sub GridView_Docs_EndSorting(sender As Object, e As EventArgs) Handles GridView_Docs.EndSorting
+    Private Sub GridView_Docs_EndSorting(sender As Object, e As EventArgs) Handles GridViewWFItems.EndSorting
         GridLayout_Changed("EndSorting")
     End Sub
 
-    Private Sub GridView_Docs_LostFocus(sender As Object, e As EventArgs) Handles GridView_Docs.LostFocus
+    Private Sub GridView_Docs_LostFocus(sender As Object, e As EventArgs) Handles GridViewWFItems.LostFocus
         ' Save expanded GroupRows
         If GridControl_Docs.Visible = True And FormOpenClose = False Then
             RefreshHelper.SaveViewInfo()
@@ -2279,7 +2258,12 @@ Public Class frmMain
             End If
 
             If pMode = "bwBasicData" Then bwBasicData.ReportProgress(20)
-            oSQL = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID)
+            If SQL_PROFILES_USER <> "" Then
+                oSQL = SQL_PROFILES_USER.Replace("@USER_ID", USER_ID)
+            Else
+                oSQL = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID)
+            End If
+
             CURR_DT_VWPM_PROFILE_ACTIVE = DatabaseFallback.GetDatatableECM(oSQL)
             If pMode = "bwBasicData" Then bwBasicData.ReportProgress(30)
             LoadCURRENT_DT_PROFILES()
@@ -2365,11 +2349,7 @@ Public Class frmMain
     End Sub
     Sub Handling_DEBUG_USER()
         If DEBUG = True Then
-            If USER_LANGUAGE = "de-DE" Then
-                bsiDebug.Caption = "HINWEIS: UserDebugMode ist eingeschaltet!"
-            Else
-                bsiDebug.Caption = "INFORMATION: UserDebugMode activated!"
-            End If
+            bsiDebug.Caption = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("DebugModeActive")
             bsiDebug.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
         Else
             bsiDebug.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -2408,8 +2388,8 @@ Public Class frmMain
         Timer_Inactivity_Reset_Disable("LöscheAlleFilterToolStripMenuItem")
 
         Try
-            GridView_Docs.ClearFindFilter()
-            GridView_Docs.ClearColumnsFilter()
+            GridViewWFItems.ClearFindFilter()
+            GridViewWFItems.ClearColumnsFilter()
             SaveGridLayout()
         Catch ex As Exception
 
@@ -2552,12 +2532,7 @@ Public Class frmMain
 
     Private Sub bwBasicData_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bwBasicData.RunWorkerCompleted
         If USER_IS_ADMIN Then
-            If USER_LANGUAGE = "de-DE" Then
-                bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN
-            Else
-                bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
-            End If
-
+            bsiDebug.Caption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("LicenseCountCaption")}: {USERCOUNT_LOGGED_IN}"
         End If
         BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
     End Sub
@@ -2580,7 +2555,7 @@ Public Class frmMain
         BringMonitor2Front()
     End Sub
 
-    Private Sub GridView_Docs_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridView_Docs.RowStyle
+    Private Sub GridView_Docs_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridViewWFItems.RowStyle
         If FormShown = False Then
             Exit Sub
         End If
@@ -2594,7 +2569,7 @@ Public Class frmMain
         Else
             IsFilterMode = False
             Try
-                Dim oRowColorCellValue = GridView_Docs.GetRowCellValue(e.RowHandle, "ROW_COLOR")
+                Dim oRowColorCellValue = GridViewWFItems.GetRowCellValue(e.RowHandle, "ROW_COLOR")
                 If Not IsNothing(oRowColorCellValue) Then
                     Dim oColor As Color
                     Try
@@ -2640,13 +2615,7 @@ Public Class frmMain
         frmGhostMode.ShowDialog()
         If USER_GHOST_MODE_ACTIVE = True And USER_GHOST_MODE_USRNAME <> String.Empty Then
             LOGGER.Info($"GHOST MODE for User {USER_GHOST_MODE_USRNAME} will now be initialized!")
-            If USER_LANGUAGE = "de-DE" Then
-                BarButtonItemGhostMode.Caption = $"Ghost Modus ({USER_GHOST_MODE_USRNAME}) inaktivieren"
-            Else
-                BarButtonItemGhostMode.Caption = $"Inactivate ghost mode ({USER_GHOST_MODE_USRNAME})"
-            End If
-
-
+            BarButtonItemGhostMode.Caption = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("CaptionDeactivateDebugMode")} ({USER_GHOST_MODE_USRNAME})"
             BarButtonItemGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
             _Init.InitBasics()
             _Init.InitUserLogin(USER_GHOST_MODE_USRNAME)
@@ -2663,12 +2632,13 @@ Public Class frmMain
         USER_GHOST_MODE_USRNAME = String.Empty
         BarButtonItemGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
         _Init.InitUserLogin()
+        GetBaseData("InactivateGM")
         LoadNavBar()
         Await Decide_Load(False)
         If GridControl_Docs.Visible = True And FormOpenClose = False Then RefreshHelper.LoadViewInfo()
     End Sub
 
-    Private Sub GridView_Docs_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridView_Docs.ColumnFilterChanged
+    Private Sub GridView_Docs_ColumnFilterChanged(sender As Object, e As EventArgs) Handles GridViewWFItems.ColumnFilterChanged
         Try
             If FormShown = False Then
                 Exit Sub
@@ -2677,17 +2647,13 @@ Public Class frmMain
             Timer_Inactivity_Reset_Disable("GridView_Docs.ColumnFilterChanged")
             Create_View_Caption()
             If Ev_Filter_Panel_Closed = False Then
-                Dim objectCount_Descr As String ' = GridViewWFItems.RowCount.ToString
-                If USER_LANGUAGE <> "de-DE" Then
-                    objectCount_Descr = " filtered"
-                Else
-                    objectCount_Descr = " Filter aktiv"
-                End If
-                GridView_Docs.ViewCaption += $"|{objectCount_Descr}"
+                Dim objectCount_Descr As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("DescFilterActive")
+
+                GridViewWFItems.ViewCaption += $"|{objectCount_Descr}"
             Else
                 Ev_Filter_Panel_Closed = False
             End If
-            If GridView_Docs.ActiveFilterEnabled Then
+            If GridViewWFItems.ActiveFilterEnabled Then
 
             End If
             GridLayout_Changed("ColumnFilterChanged")
@@ -2709,15 +2675,12 @@ Public Class frmMain
             '    End If
 
             'Next
-            Dim oRowCount = GridView_Docs.RowCount
+            Dim oRowCount = GridViewWFItems.RowCount
 
             oRowCount = oRowCount '- oGroupCount
             Dim objectCount_Descr = $"[{oRowCount.ToString}]"
-            If USER_LANGUAGE = "de-DE" Then
-                objectCount_Descr &= " Workflows"
-            Else
-                objectCount_Descr &= " workflows"
-            End If
+            objectCount_Descr = $"{objectCount_Descr} {ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("Workflows")}"
+
             bsiRowCount.Caption = objectCount_Descr
         Catch ex As Exception
             bsiRowCount.Caption = "Error getting RowCount"
@@ -2726,13 +2689,7 @@ Public Class frmMain
     End Sub
     Sub Create_View_Caption()
         Try
-
-            If USER_LANGUAGE = "de-DE" Then
-                GridView_Docs.ViewCaption = "Gesamtübersicht"
-            Else
-                GridView_Docs.ViewCaption = "Overview"
-            End If
-
+            GridViewWFItems.ViewCaption = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("GridViewWFItems.ViewCaption")
         Catch ex As Exception
 
         End Try
@@ -2745,7 +2702,7 @@ Public Class frmMain
             Dim oOptions As New XlsxExportOptions() With {
                     .ExportMode = XlsxExportMode.SingleFile
                 }
-            GridView_Docs.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
+            GridViewWFItems.ExportToXlsx(XtraSaveFileDialog1.FileName, oOptions)
         End If
     End Sub
 
@@ -2784,11 +2741,10 @@ Public Class frmMain
                 Exit Sub
             End If
             INACTIVITYRecognized = True
-            Dim omsg As String = "Sie wurden aufgrund von Inaktivität automatisch abgemeldet!"
 
-            If USER_LANGUAGE <> "de-DE" Then
-                omsg = "Due to inactivity we closed all actions and You have been logged out automatically."
-            End If
+            Dim omsg As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("INACTIVITYRecognized")
+
+
             Timer5Mins.Stop()
             TimerRefresh.Stop()
             TimerReminder.Stop()
@@ -2836,7 +2792,7 @@ Public Class frmMain
         End Try
     End Sub
 
-    Private Sub GridView_Docs_ColumnPositionChanged(sender As Object, e As EventArgs) Handles GridView_Docs.ColumnPositionChanged
+    Private Sub GridView_Docs_ColumnPositionChanged(sender As Object, e As EventArgs) Handles GridViewWFItems.ColumnPositionChanged
         GridLayout_Changed("ColumnPositionChanged")
     End Sub
     Private Sub GridLayout_Changed(oEvent As String)
@@ -2850,7 +2806,7 @@ Public Class frmMain
     End Sub
 
 
-    Private Sub GridView_Docs_EndGrouping(sender As Object, e As EventArgs) Handles GridView_Docs.EndGrouping
+    Private Sub GridView_Docs_EndGrouping(sender As Object, e As EventArgs) Handles GridViewWFItems.EndGrouping
         GridLayout_Changed("EndGrouping")
     End Sub
 
@@ -2858,7 +2814,7 @@ Public Class frmMain
 
     End Sub
 
-    Private Sub GridView_Docs_KeyDown(sender As Object, e As KeyEventArgs) Handles GridView_Docs.KeyDown
+    Private Sub GridView_Docs_KeyDown(sender As Object, e As KeyEventArgs) Handles GridViewWFItems.KeyDown
         Dim view As GridView = CType(sender, GridView)
         If e.Control AndAlso e.KeyCode = Keys.C Then
             If view.GetRowCellValue(view.FocusedRowHandle, view.FocusedColumn) IsNot Nothing AndAlso view.GetRowCellValue(view.FocusedRowHandle, view.FocusedColumn).ToString() <> [String].Empty Then
@@ -2870,13 +2826,13 @@ Public Class frmMain
 
     Private Sub BarCheckItem1_CheckedChanged(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItemAutofilter.CheckedChanged
         If GridIsLoaded = True Then
-            GridView_Docs.OptionsView.ShowAutoFilterRow = BarCheckItemAutofilter.Checked
+            GridViewWFItems.OptionsView.ShowAutoFilterRow = BarCheckItemAutofilter.Checked
         End If
 
     End Sub
     Private Sub BarCheckItem1_CheckedChanged_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarCheckItemShowSearch.CheckedChanged
         If GridIsLoaded = True Then
-            GridView_Docs.OptionsFind.AlwaysVisible = BarCheckItemShowSearch.Checked
+            GridViewWFItems.OptionsFind.AlwaysVisible = BarCheckItemShowSearch.Checked
         End If
     End Sub
 
@@ -2902,7 +2858,7 @@ Public Class frmMain
     End Sub
 
     Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
-        GridView_Docs.ShowCustomization()
+        GridViewWFItems.ShowCustomization()
     End Sub
 
     Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemWFSingle.ItemClick
@@ -2915,7 +2871,7 @@ Public Class frmMain
 
     Private Sub BarButtonItemFileLink_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemFileLink.ItemClick
         Dim oReceipiant = ""
-        Dim oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
+        Dim oFocusedDocGUID = GridViewWFItems.GetFocusedRowCellValue(GridViewWFItems.Columns("GUID"))
         Dim oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({oFocusedDocGUID},1)"
         Dim oFilePath = DatabaseFallback.GetScalarValueECM(oSQL)
         If File.Exists(oFilePath) Then
@@ -2930,24 +2886,20 @@ Public Class frmMain
 
     Private Async Sub BarButtonItemMassValidation_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemMassValidation.ItemClick
         Try
-            Dim oSelectedRows As Integer() = GridView_Docs.GetSelectedRows()
-            Dim oHitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
+            Dim oSelectedRows As Integer() = GridViewWFItems.GetSelectedRows()
+            Dim oHitInfo As GridHitInfo = GridViewWFItems.CalcHitInfo(GridCursorLocation)
             Dim oSelectedRowHandle As Integer = oHitInfo.RowHandle
             Dim oWorkedFiles As Integer = 0
 
             Dim oProfileId = 0
 
             If oSelectedRows.Count = 0 Then
-                Dim omsg = "Bitte selektieren Sie einige 1 oder mehr Dokumente"
-                If USER_LANGUAGE <> "de-DE" Then
-
-                    omsg = "Please select some documents!"
-                End If
+                Dim omsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("MASS_NO_WF_SELECTED")
                 FormHelper.ShowInfoMessage(omsg, omsgTitleWarning)
                 Exit Sub
             End If
 
-            oProfileId = GridView_Docs.GetRowCellValue(oSelectedRows.Last(), GridView_Docs.Columns("PROFILE_ID"))
+            oProfileId = GridViewWFItems.GetRowCellValue(oSelectedRows.Last(), GridViewWFItems.Columns("PROFILE_ID"))
 
             If oProfileId = 0 Then
                 FormHelper.ShowInfoMessage("Could not select a profile!", omsgTitleWarning)
@@ -2988,18 +2940,18 @@ Public Class frmMain
 
                 For Each oRowHandle As Integer In oSelectedRows
 
-                    Dim oDocID = GridView_Docs.GetRowCellValue(oRowHandle, "DocID")
+                    Dim oDocID = GridViewWFItems.GetRowCellValue(oRowHandle, "DocID")
                     If IsNothing(oDocID) Then
                         Continue For
                     End If
                     Dim R As DataRow = NewDatatable.NewRow
                     CURRENT_DOC_ID = oDocID
-                    Dim DOC_PATH = GridView_Docs.GetRowCellValue(oRowHandle, FullFilepatColName)
+                    Dim DOC_PATH = GridViewWFItems.GetRowCellValue(oRowHandle, FullFilepatColName)
                     ' CURRENT_DOC_PATH = DOC_PATH
-                    CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
+                    CURRENT_DOC_GUID = GridViewWFItems.GetRowCellValue(oRowHandle, "GUID")
                     R("DocID") = CURRENT_DOC_ID
                     R("FULL_PATH") = DOC_PATH
-                    R("DOC_GUID") = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
+                    R("DOC_GUID") = GridViewWFItems.GetRowCellValue(oRowHandle, "GUID")
                     NewDatatable.Rows.Add(R)
                 Next
 
@@ -3010,11 +2962,8 @@ Public Class frmMain
                 LoadNavBar()
                 Await Decide_Load(False)
             Else
-                If USER_LANGUAGE = "de-DE" Then
-                    MsgBox("Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert werden konnte!", MsgBoxStyle.Critical, "Massenabschluss")
-                Else
-                    MsgBox("Massvalidation could not be completed because of an error in windream", MsgBoxStyle.Critical, "Massvalidation")
-                End If
+                Dim oMSG = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("MASS_ERROR_WINDREAM")
+                MsgBox(oMSG, MsgBoxStyle.Critical, "Unexpected Error Massvalidation")
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -3051,11 +3000,11 @@ Public Class frmMain
         End Try
     End Sub
 
-    Private Sub GridViewWFItems_SelectionChanged(sender As Object, e As DevExpress.Data.SelectionChangedEventArgs) Handles GridView_Docs.SelectionChanged
+    Private Sub GridViewWFItems_SelectionChanged(sender As Object, e As DevExpress.Data.SelectionChangedEventArgs) Handles GridViewWFItems.SelectionChanged
         Timer_Inactivity_Reset_Disable("GridViewWFItems_SelectionChanged")
     End Sub
 
-    Private Sub GridViewWFItems_Click(sender As Object, e As MouseEventArgs) Handles GridView_Docs.Click
+    Private Sub GridViewWFItems_Click(sender As Object, e As MouseEventArgs) Handles GridViewWFItems.Click
         Try
             If e.Button = Windows.Forms.MouseButtons.Right Then
                 RibbonControl1.SelectedPage = RibbonPageTabelle
@@ -3076,7 +3025,7 @@ Public Class frmMain
 
     End Sub
 
-    Private Sub GridViewWFItems_SubstituteFilter(sender As Object, e As DevExpress.Data.SubstituteFilterEventArgs) Handles GridView_Docs.SubstituteFilter
+    Private Sub GridViewWFItems_SubstituteFilter(sender As Object, e As DevExpress.Data.SubstituteFilterEventArgs) Handles GridViewWFItems.SubstituteFilter
         GridLayout_Changed("GridViewWFItems_SubstituteFilter")
         RowCount()
     End Sub

app/DD_PM_WINDREAM/frmValidator.vb

@@ -2545,10 +2545,8 @@ Public Class frmValidator
 
                 ' ############ Infos eintragen #################
                 ' txtDateipfad.Text = Document_Path
-                Dim omsg = $"Verbleibende Belege: {Amount_Docs2Validate}"
-                If USER_LANGUAGE <> "de-DE" Then
-                    omsg = $"Remaining documents: {omsg}"
-                End If
+                Dim omsg = $"{ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("remainingOps")}: {Amount_Docs2Validate}"
+
                 If Amount_Docs2Validate > 0 Then
                     bsiInformation.Caption = omsg
                 Else
@@ -2618,10 +2616,8 @@ Public Class frmValidator
                     errormessage = oErrMsgMissingInput
                     frmError.ShowDialog()
                 Else
-                    Dim oMsg = "Ende des Profils - Keine weiteren Vorgänge!"
-                    If USER_LANGUAGE <> "de-DE" Then
-                        oMsg = "End of profile - no more objects!"
-                    End If
+                    Dim oMsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("msgEndOfProfile")
+
                     LOGGER.Info(oMsg)
                     Dim oROW As DataRow = ClassAllgemeineFunktionen.GUI_LANGUAGE_MSGBOX("frmValidator.NoMoreDocument")
                     'Try
@@ -2966,6 +2962,7 @@ Public Class frmValidator
             If IDB_ACTIVE = False Then
                 oValuefromSource = CURRENT_WMFILE.GetVariableValue(oSourceIndexName)
             Else
+                LOGGER.Debug($"GetVariableValuefromSource - IDBCase...")
                 oValuefromSource = IDBData.GetVariableValue(oSourceIndexName, oIDBTyp, FromIDB)
             End If
             Return oValuefromSource
@@ -3179,7 +3176,7 @@ Public Class frmValidator
                                     LOGGER.Debug("Indexwert soll nicht geladen werden.")
                                     Exit Select
                                 End If
-                                LOGGER.Debug($"getting wmValue for Index {oSourceIndexName}...")
+                                LOGGER.Debug($"getting Value for Attribute [{oSourceIndexName}] - oIDBTyp [{oIDBTyp}] - oIDBOverride [{oIDBOverride}]...")
                                 ' Dim wertWD = CURRENT_WMFILE.GetVariableValue(oSourceIndexName)
                                 oValueFromSource = GetVariableValuefromSource(oSourceIndexName, oIDBTyp, oIDBOverride)
 
@@ -3227,6 +3224,8 @@ Public Class frmValidator
                                                     Else
                                                         If oValueType = "System.String" Then
                                                             LOGGER.Debug($"IDB Fill Grid [{oControl.Name}] with String")
+                                                            LOGGER.Debug($"oValueFromSource [{oValueFromSource}] - PMDelimiter[{PMDelimiter}]")
+
                                                             oColValuesfromSource = Split(oValueFromSource.ToString, PMDelimiter)
                                                             If oColValuesfromSource.Length > 8 Then
                                                                 LOGGER.Warn("Fill Grid Error - Max 8 columns can be configured!")
@@ -5681,10 +5680,7 @@ Public Class frmValidator
         My.Settings.Save()
     End Sub
     Private Sub btnSave_MouseHover(sender As Object, e As EventArgs) Handles btnSave.MouseHover
-        Dim oMsg = "F2 für Speichern"
-        If USER_LANGUAGE <> "de-DE" Then
-            oMsg = "F2 for saving"
-        End If
+        Dim oMsg = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("F2forSave")
         ToolTip1.Show(oMsg, btnSave)
     End Sub
 
@@ -5793,12 +5789,8 @@ Public Class frmValidator
     Private Sub BbtnItm_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BbtnitmSave.ItemClick
         If ForceGridValidation() = True Then
             Dim oRESULT As String
+            oRESULT = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("InputSaved")
 
-            If USER_LANGUAGE = "de-DE" Then
-                oRESULT = "Eingaben gespeichert"
-            Else
-                oRESULT = "Eingaben gespeichert"
-            End If
             If Check_UpdateIndexe() = True Then
                 SetStatusLabel($"Data saved", "LimeGreen")
                 LOGGER.Info("Workflowdata saved manually!")