MS

MS Languages
Version 2.3.8.6
2022-10-14 10:31:03 +02:00 · 2022-10-14 10:09:43 +02:00 · 2022-10-06 09:10:58 +02:00 · 2022-10-06 09:07:57 +02:00
10 changed files with 226 additions and 269 deletions
--- a/app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
+++ b/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)
--- a/app/DD_PM_WINDREAM/ClassIDBData.vb
+++ b/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
--- a/app/DD_PM_WINDREAM/ClassInit.vb
+++ b/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))

--- a/app/DD_PM_WINDREAM/ClassParamRefresh.vb
+++ b/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
--- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
+++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
@@ -165,28 +165,31 @@
    </Reference>
    <Reference Include="DigitalData.Modules.Base, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\DDMonorepo\Modules.Base\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
+      <HintPath>..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
    </Reference>
-    <Reference Include="DigitalData.Modules.Config">
-      <HintPath>..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.Modules.Database, Version=2.1.4.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Config, Version=1.1.4.1, Culture=neutral, processorArchitecture=MSIL">
      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
+      <HintPath>..\..\..\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
    </Reference>
-    <Reference Include="DigitalData.Modules.EDMI.API">
-      <HintPath>..\..\..\DDMonorepo\Modules.EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.Modules.Language">
-      <HintPath>..\..\..\DDMonorepo\Modules.Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
-    </Reference>
-    <Reference Include="DigitalData.Modules.Logging, Version=2.4.0.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.Database, Version=2.2.7.0, Culture=neutral, processorArchitecture=MSIL">
      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+      <HintPath>..\..\..\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
    </Reference>
-    <Reference Include="DigitalData.Modules.ZooFlow, Version=1.1.0.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="DigitalData.Modules.EDMI.API, Version=1.5.4.0, Culture=neutral, processorArchitecture=MSIL">
      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\DDMonorepo\Modules.ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
+      <HintPath>..\..\..\DDModules\EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Language, Version=1.6.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.Logging, Version=2.5.4.2, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+    </Reference>
+    <Reference Include="DigitalData.Modules.ZooFlow, Version=1.2.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\DDModules\ZooFlow\bin\Debug\DigitalData.Modules.ZooFlow.dll</HintPath>
    </Reference>
    <Reference Include="DLLLicenseManager">
      <HintPath>P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll</HintPath>
--- a/app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
+++ b/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
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("TaskFlow")>
 <Assembly: AssemblyCopyright("Copyright © Digital Data 2022")>
-<Assembly: AssemblyTrademark("2.3.8.5")>
+<Assembly: AssemblyTrademark("2.3.8.6")>

 <Assembly: ComVisible(False)>

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

-<Assembly: AssemblyVersion("2.3.8.5")>
+<Assembly: AssemblyVersion("2.3.8.6")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 
--- a/app/DD_PM_WINDREAM/frmMain.resx
+++ b/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>
--- a/app/DD_PM_WINDREAM/frmMain.vb
+++ b/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
--- a/app/DD_PM_WINDREAM/frmValidator.vb
+++ b/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!")
Author	SHA1	Message	Date
Digital Data - Marlon Schreiber	1f66f12030	MS	2022-10-14 10:31:03 +02:00
Digital Data - Marlon Schreiber	f55a7bdfc3	MS Languages	2022-10-14 10:09:43 +02:00
Jonathan Jenne	1ac7aeae93	Version 2.3.8.6	2022-10-06 09:10:58 +02:00
Jonathan Jenne	3b258180a0	Adjust modules to new path DDModules	2022-10-06 09:07:57 +02:00