finish translations for frmMain

app/DD_PM_WINDREAM/Translations/frmMain_Strings.Designer.vb

@@ -64,6 +64,24 @@ Namespace My.Resources
             End Set
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die [{0}] Workflows ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property __0___Workflows() As String
+            Get
+                Return ResourceManager.GetString("[{0}] Workflows", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die {0} Vorgänge ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property _0__Vorgänge() As String
+            Get
+                Return ResourceManager.GetString("{0} Vorgänge", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Achtung: ähnelt.
         '''</summary>
@@ -73,6 +91,51 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Aktuell keine Workflowdaten vorhanden! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Aktuell_keine_Workflowdaten_vorhanden_() As String
+            Get
+                Return ResourceManager.GetString("Aktuell keine Workflowdaten vorhanden!", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Aktuelle Lizenz ist abgelaufen oder ungültig! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Aktuelle_Lizenz_ist_abgelaufen_oder_ungültig_() As String
+            Get
+                Return ResourceManager.GetString("Aktuelle Lizenz ist abgelaufen oder ungültig!", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Anzahl Lizenzen: {0} ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Anzahl_Lizenzen___0_() As String
+            Get
+                Return ResourceManager.GetString("Anzahl Lizenzen: {0}", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Bitte konfigurieren Sie eine Datenbankverbindung! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Bitte_konfigurieren_Sie_eine_Datenbankverbindung_() As String
+            Get
+                Return ResourceManager.GetString("Bitte konfigurieren Sie eine Datenbankverbindung!", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Bitte kontaktieren Sie Ihren Administrator! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Bitte_kontaktieren_Sie_Ihren_Administrator_() As String
+            Get
+                Return ResourceManager.GetString("Bitte kontaktieren Sie Ihren Administrator!", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Bitte schließen Sie den offenen Workflow! ähnelt.
         '''</summary>
@@ -81,5 +144,214 @@ Namespace My.Resources
                 Return ResourceManager.GetString("Bitte schließen Sie den offenen Workflow!", resourceCulture)
             End Get
         End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Bitte wählen Sie ein Profil aus! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Bitte_wählen_Sie_ein_Profil_aus_() As String
+            Get
+                Return ResourceManager.GetString("Bitte wählen Sie ein Profil aus!", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Der gewählte Beleg ist durch einen anderen Benutzer bereits in Bearbeitung oder anderweitig gesperrt! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Der_gewählte_Beleg_ist_durch_einen_anderen_Benutzer_bereits_in_Bearbeitung_oder_anderweitig_gesperrt_() As String
+            Get
+                Return ResourceManager.GetString("Der gewählte Beleg ist durch einen anderen Benutzer bereits in Bearbeitung oder a"& _ 
+                        "nderweitig gesperrt!", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Detailansicht Profil: {0} ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Detailansicht_Profil___0_() As String
+            Get
+                Return ResourceManager.GetString("Detailansicht Profil: {0}", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Es existiert bereits ein aktiver Workflow! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Es_existiert_bereits_ein_aktiver_Workflow_() As String
+            Get
+                Return ResourceManager.GetString("Es existiert bereits ein aktiver Workflow!", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Es ist keine Windream Session vorhanden. Bitte überprüfen Sie das Log. ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Es_ist_keine_Windream_Session_vorhanden__Bitte_überprüfen_Sie_das_Log_() As String
+            Get
+                Return ResourceManager.GetString("Es ist keine Windream Session vorhanden. Bitte überprüfen Sie das Log.", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Fehlende Datenbank Konfiguration ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Fehlende_Datenbank_Konfiguration() As String
+            Get
+                Return ResourceManager.GetString("Fehlende Datenbank Konfiguration", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Filter aktiv ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Filter_aktiv() As String
+            Get
+                Return ResourceManager.GetString("Filter aktiv", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Gesamtübersicht ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Gesamtübersicht() As String
+            Get
+                Return ResourceManager.GetString("Gesamtübersicht", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Ghost Modus ({0}) deaktivieren ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Ghost_Modus___0___deaktivieren() As String
+            Get
+                Return ResourceManager.GetString("Ghost Modus ({0}) deaktivieren", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Größer ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Größer() As String
+            Get
+                Return ResourceManager.GetString("Größer", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die HINWEIS: Debug Modus ist eingeschaltet! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property HINWEIS__Debug_Modus_ist_eingeschaltet_() As String
+            Get
+                Return ResourceManager.GetString("HINWEIS: Debug Modus ist eingeschaltet!", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Kleiner ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Kleiner() As String
+            Get
+                Return ResourceManager.GetString("Kleiner", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Letzte Synchronisation: {0} ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Letzte_Synchronisation___0_() As String
+            Get
+                Return ResourceManager.GetString("Letzte Synchronisation: {0}", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Lizenz-Zähler: {0} ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Lizenz_Zähler___0_() As String
+            Get
+                Return ResourceManager.GetString("Lizenz-Zähler: {0}", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Massenabschluss ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Massenabschluss() As String
+            Get
+                Return ResourceManager.GetString("Massenabschluss", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert werden konnte! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Massenabschluss_konnte_nicht_ausgeführt_werden__weil_windream_nicht_initialisiert_werden_konnte_() As String
+            Get
+                Return ResourceManager.GetString("Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert"& _ 
+                        " werden konnte!", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Nächste Aktivitätsüberprüfung: {0} {1} ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Nächste_Aktivitätsüberprüfung___0___1_() As String
+            Get
+                Return ResourceManager.GetString("Nächste Aktivitätsüberprüfung: {0} {1}", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Normal ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Normal() As String
+            Get
+                Return ResourceManager.GetString("Normal", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Popup Erinnerung aktivieren ({0} min) ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Popup_Erinnerung_aktivieren___0__min_() As String
+            Get
+                Return ResourceManager.GetString("Popup Erinnerung aktivieren ({0} min)", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Popup Erinnerung deaktivieren ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Popup_Erinnerung_deaktivieren() As String
+            Get
+                Return ResourceManager.GetString("Popup Erinnerung deaktivieren", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Profil (Fixiert) ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Profil__Fixiert_() As String
+            Get
+                Return ResourceManager.GetString("Profil (Fixiert)", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Sie wurden aufgrund von Inaktivität automatisch abgemeldet! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property Sie_wurden_aufgrund_von_Inaktivität_automatisch_abgemeldet_() As String
+            Get
+                Return ResourceManager.GetString("Sie wurden aufgrund von Inaktivität automatisch abgemeldet!", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die System konnte die Profilworkflows nicht auswerten!{0}Bitte wählen Sie ein Profil durch Klicken auf einen Beleg oder eine Überschrift! ähnelt.
+        '''</summary>
+        Friend Shared ReadOnly Property System_konnte_die_Profilworkflows_nicht_auswerten_() As String
+            Get
+                Return ResourceManager.GetString("System konnte die Profilworkflows nicht auswerten!", resourceCulture)
+            End Get
+        End Property
     End Class
 End Namespace

app/DD_PM_WINDREAM/Translations/frmMain_Strings.en.resx

@@ -123,4 +123,13 @@
   <data name="Achtung:">
     <value>Attention:</value>
   </data>
+  <data name="Größer">
+    <value>Bigger</value>
+  </data>
+  <data name="Kleiner">
+    <value>Smaller</value>
+  </data>
+  <data name="Normal">
+    <value>Normal</value>
+  </data>
 </root>

app/DD_PM_WINDREAM/Translations/frmMain_Strings.fr.resx

@@ -123,4 +123,13 @@
   <data name="Achtung:">
     <value>Attention:</value>
   </data>
+  <data name="Größer">
+    <value>Plus grand</value>
+  </data>
+  <data name="Kleiner">
+    <value>Petit</value>
+  </data>
+  <data name="Normal">
+    <value>Normal</value>
+  </data>
 </root>

app/DD_PM_WINDREAM/Translations/frmMain_Strings.resx

@@ -120,7 +120,97 @@
   <data name="Achtung:" xml:space="preserve">
     <value>Achtung:</value>
   </data>
+  <data name="Aktuell keine Workflowdaten vorhanden!" xml:space="preserve">
+    <value>Aktuell keine Workflowdaten vorhanden!</value>
+  </data>
+  <data name="Aktuelle Lizenz ist abgelaufen oder ungültig!" xml:space="preserve">
+    <value>Aktuelle Lizenz ist abgelaufen oder ungültig!</value>
+  </data>
+  <data name="Anzahl Lizenzen: {0}" xml:space="preserve">
+    <value>Anzahl Lizenzen: {0}</value>
+  </data>
+  <data name="Bitte konfigurieren Sie eine Datenbankverbindung!" xml:space="preserve">
+    <value>Bitte konfigurieren Sie eine Datenbankverbindung!</value>
+  </data>
+  <data name="Bitte kontaktieren Sie Ihren Administrator!" xml:space="preserve">
+    <value>Bitte kontaktieren Sie Ihren Administrator!</value>
+  </data>
   <data name="Bitte schließen Sie den offenen Workflow!" xml:space="preserve">
     <value>Bitte schließen Sie den offenen Workflow!</value>
   </data>
+  <data name="Bitte wählen Sie ein Profil aus!" xml:space="preserve">
+    <value>Bitte wählen Sie ein Profil aus!</value>
+  </data>
+  <data name="Der gewählte Beleg ist durch einen anderen Benutzer bereits in Bearbeitung oder anderweitig gesperrt!" xml:space="preserve">
+    <value>Der gewählte Beleg ist durch einen anderen Benutzer bereits in Bearbeitung oder anderweitig gesperrt!</value>
+  </data>
+  <data name="Detailansicht Profil: {0}" xml:space="preserve">
+    <value>Detailansicht Profil: {0}</value>
+  </data>
+  <data name="Es existiert bereits ein aktiver Workflow!" xml:space="preserve">
+    <value>Es existiert bereits ein aktiver Workflow!</value>
+  </data>
+  <data name="Es ist keine Windream Session vorhanden. Bitte überprüfen Sie das Log." xml:space="preserve">
+    <value>Es ist keine Windream Session vorhanden. Bitte überprüfen Sie das Log.</value>
+  </data>
+  <data name="Fehlende Datenbank Konfiguration" xml:space="preserve">
+    <value>Fehlende Datenbank Konfiguration</value>
+  </data>
+  <data name="Filter aktiv" xml:space="preserve">
+    <value>Filter aktiv</value>
+  </data>
+  <data name="Gesamtübersicht" xml:space="preserve">
+    <value>Gesamtübersicht</value>
+  </data>
+  <data name="Ghost Modus ({0}) deaktivieren" xml:space="preserve">
+    <value>Ghost Modus ({0}) deaktivieren</value>
+  </data>
+  <data name="Größer" xml:space="preserve">
+    <value>Größer</value>
+  </data>
+  <data name="HINWEIS: Debug Modus ist eingeschaltet!" xml:space="preserve">
+    <value>HINWEIS: Debug Modus ist eingeschaltet!</value>
+  </data>
+  <data name="Kleiner" xml:space="preserve">
+    <value>Kleiner</value>
+  </data>
+  <data name="Letzte Synchronisation: {0}" xml:space="preserve">
+    <value>Letzte Synchronisation: {0}</value>
+  </data>
+  <data name="Lizenz-Zähler: {0}" xml:space="preserve">
+    <value>Lizenz-Zähler: {0}</value>
+  </data>
+  <data name="Massenabschluss" xml:space="preserve">
+    <value>Massenabschluss</value>
+  </data>
+  <data name="Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert werden konnte!" xml:space="preserve">
+    <value>Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert werden konnte!</value>
+  </data>
+  <data name="Normal" xml:space="preserve">
+    <value>Normal</value>
+  </data>
+  <data name="Nächste Aktivitätsüberprüfung: {0} {1}" xml:space="preserve">
+    <value>Nächste Aktivitätsüberprüfung: {0} {1}</value>
+  </data>
+  <data name="Popup Erinnerung aktivieren ({0} min)" xml:space="preserve">
+    <value>Popup Erinnerung aktivieren ({0} min)</value>
+  </data>
+  <data name="Popup Erinnerung deaktivieren" xml:space="preserve">
+    <value>Popup Erinnerung deaktivieren</value>
+  </data>
+  <data name="Profil (Fixiert)" xml:space="preserve">
+    <value>Profil (Fixiert)</value>
+  </data>
+  <data name="Sie wurden aufgrund von Inaktivität automatisch abgemeldet!" xml:space="preserve">
+    <value>Sie wurden aufgrund von Inaktivität automatisch abgemeldet!</value>
+  </data>
+  <data name="System konnte die Profilworkflows nicht auswerten!" xml:space="preserve">
+    <value>System konnte die Profilworkflows nicht auswerten!{0}Bitte wählen Sie ein Profil durch Klicken auf einen Beleg oder eine Überschrift!</value>
+  </data>
+  <data name="[{0}] Workflows" xml:space="preserve">
+    <value>[{0}] Workflows</value>
+  </data>
+  <data name="{0} Vorgänge" xml:space="preserve">
+    <value>{0} Vorgänge</value>
+  </data>
 </root>

app/DD_PM_WINDREAM/frmMain.vb

@@ -16,10 +16,10 @@ Imports DevExpress.XtraBars.Ribbon
 Imports DigitalData.Modules.ZooFlow
 Imports DevExpress.LookAndFeel
 
+
 Public Class frmMain
     Private Property FormHelper As FormHelper
 
-    Private UserLoggedin As Integer = 0
     Private CURR_DT_VWPM_PROFILE_ACTIVE As DataTable
     Private CURR_DT_OVERVIEW As DataTable
     Private OVERVIEW_ADDED_WHEN As String
@@ -31,7 +31,6 @@ Public Class frmMain
     Private GridViewItem_Clicked = Nothing
     Private GridCursorLocation As Point
     Private GRID_LOAD_TYPE As String = "OVERVIEW"
-    Private GRID_INV_COL_REMOVED As Boolean = False
     Private NO_WORKFLOWITEMS As Boolean = False
     Private InResetlayout As Boolean = False
     Private RefreshHelper As RefreshHelper
@@ -42,21 +41,25 @@ Public Class frmMain
     Private OverviewOrDEtail As String = "OVERVIEW"
     Private GridBuilder As GridBuilder
 
-    Private allgFunk As New ClassAllgemeineFunktionen
+    Private ReadOnly allgFunk As New ClassAllgemeineFunktionen
-    Private _Init As New ClassInit
+    Private ReadOnly _Init As New ClassInit
+
     Private CurrNavBarGroup As NavBarGroup
     'Private DataASorDB As ClassDataASorDB
+    'Private DT_CHECKUSER_MODULE As DataTable
 
-    Private DT_CHECKUSER_MODULE As DataTable
     Private IsFilterMode As Boolean
     Private DetailLinkActive As Boolean = False
     Private FRONTEND_ACTION As String = "NONE"
     Private Ev_Filter_Panel_Closed As Boolean = False
-    Private omsgOpenWorkflow = My.Resources.frmMain_Strings.Bitte_schließen_Sie_den_offenen_Workflow_
-    Private omsgTitleWarning = My.Resources.frmMain_Strings.Achtung_
 
-    Private Const FullFilepatColName = "FULL_FILE_PATH"
+    Private Const FullFilepathColumnName = "FULL_FILE_PATH"
     Private Const FA_NONE = "NONE"
+
+    Friend Class S
+        Inherits My.Resources.frmMain_Strings
+    End Class
+
     Private Function GET_LAST_ADDED(pDatatable As DataTable) As String
         Dim oADDED As String
         Try
@@ -137,7 +140,7 @@ Public Class frmMain
         End Try
     End Sub
 
-    Private Sub frmMain_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
+    Private Sub frmMain_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
         Select Case e.KeyCode
             Case Keys.F12
                 frmLicense.ShowDialog()
@@ -152,9 +155,9 @@ Public Class frmMain
         GridBuilder.WithFontSizeDelta(CONFIG.Config.GridFontSizeDelta)
 
         Dim oFontSettings = New List(Of FontSetting) From {
-            New FontSetting With {.Title = "Kleiner", .Value = -2},
+            New FontSetting With {.Title = S.Kleiner, .Value = -2},
-            New FontSetting With {.Title = "Normal", .Value = 0},
+            New FontSetting With {.Title = S.Normal, .Value = 0},
-            New FontSetting With {.Title = "Größer", .Value = 2}
+            New FontSetting With {.Title = S.Größer, .Value = 2}
         }
 
         cmbGridFontSize.Items.Clear()
@@ -166,16 +169,10 @@ Public Class frmMain
         ' 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
-
-
         Dim oVErsion = String.Format("{0}.{1}.{2}", My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build)
         bsiVersion.Caption = oVErsion
         If ERROR_STATE = "NO DB-CONNECTION" Or ERROR_STATE = "FAILED DBCONNECTION" Then
-            MsgBox("Please add a database-Connection in AppConfig!", MsgBoxStyle.Critical, "Fehlende Konfiguration:")
+            FormHelper.ShowErrorMessage(S.Bitte_konfigurieren_Sie_eine_Datenbankverbindung_, S.Fehlende_Datenbank_Konfiguration)
             frmKonfig.ShowDialog()
         End If
         Try
@@ -199,13 +196,14 @@ Public Class frmMain
             End Try
         Catch ex As Exception
             LOGGER.Error(ex)
-            MessageBox.Show("Error loading CurrentUICulture-Info!", "Attention:", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
+
+            FormHelper.ShowErrorMessage(ex, "frmMain_Load")
         End Try
 
         Try
             'DataASorDB = New ClassDataASorDB
             If User.IsAdmin = True Then
-                bsiLicenses.Caption = "Anzahl Lizenzen: " & LICENSE_COUNT
+                bsiLicenses.Caption = String.Format(S.Anzahl_Lizenzen___0_, LICENSE_COUNT)
                 bsiLicenses.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
             Else
                 bsiLicenses.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -215,12 +213,14 @@ Public Class frmMain
 
             If ERROR_STATE = "NO USER" Then
                 Dim oDT As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("No Userconfig")
-                MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), MsgBoxStyle.Critical, "Exception")
+
+                FormHelper.ShowErrorMessage(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), S.Achtung_)
                 Me.Close()
             ElseIf USER_IN_MODULE = False Then
                 If USER_IS_ADMIN = False Then
                     Dim oDT As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("No Module Configuration")
-                    MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), MsgBoxStyle.Critical, "Exception")
+
+                    FormHelper.ShowErrorMessage(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), S.Achtung_)
                     Me.Close()
                 End If
             Else
@@ -228,7 +228,7 @@ Public Class frmMain
                 'Wenn license abgelaufen und der User nicht admin ist!
                 If LICENSE_EXPIRED = True Then
                     If USER_IS_ADMIN = False Then
-                        MsgBox("License expired or invalid!" & vbNewLine & "Please contact the AdminTeam!", MsgBoxStyle.Critical, "Attention:")
+                        FormHelper.ShowErrorMessage(S.Aktuelle_Lizenz_ist_abgelaufen_oder_ungültig_ & vbNewLine & S.Bitte_kontaktieren_Sie_Ihren_Administrator_, S.Achtung_)
                         Me.Close()
                     End If
                 End If
@@ -236,11 +236,8 @@ Public Class frmMain
                     RibbonPageGroup3.Visible = True
                     'Anzahl der eingeloggten User
                     bsiUserLoggedIn.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
-                    If USER_LANGUAGE <> "de-DE" Then
+                    bsiUserLoggedIn.Caption = String.Format(S.Lizenz_Zähler___0_, USERCOUNT_LOGGED_IN)
-                        bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN
+
-                    Else
-                        bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
-                    End If
                     If GHOSTMODE_ACTIVE = True Then
                         bbtnitmGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
                     Else
@@ -312,21 +309,18 @@ Public Class frmMain
 
             End If
         Catch ex As Exception
-            LOGGER.Error(ex)
+            FormHelper.ShowErrorMessage(ex, "frmMain_Load/UserCheck")
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in User Check:")
         End Try
         bsiUser.Caption = USER_USERNAME
         GetBaseData("Load")
 
-
         Try
             If TimerRefresh.Enabled = False Then
                 TimerRefresh.Start()
             End If
             Timer5Mins.Start()
         Catch ex As Exception
-            LOGGER.Error(ex)
+            FormHelper.ShowErrorMessage(ex, "frmMain_Load/RefreshTimer")
-            MsgBox("Unexpected Error in LoadForm - Step 4: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
         End Try
         LoadNavBar()
         AddHandler NavBarControl1.LinkClicked, AddressOf navBar_LinkClicked
@@ -346,7 +340,7 @@ Public Class frmMain
             End If
 
         Catch ex As Exception
-            LOGGER.Warn($"Could not load Charts: {ex.Message}")
+            FormHelper.ShowErrorMessage(ex, "frmMain_Load/ChartLoading")
         End Try
         If MONITORING_ACTIVE = False Then
             bbtniMonitor.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -366,17 +360,16 @@ Public Class frmMain
                     BarButtonItemFileLink.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
                     If Not IsNothing(WINDREAM.oSession) Then
                         If WINDREAM.oSession.aLoggedin = False Then
-                            MsgBox("You could not be logged in to windream. Please check the log.", MsgBoxStyle.Critical)
+                            FormHelper.ShowErrorMessage("You could not be logged in to windream. Please check the log.", "frmMain_Load/WindreamLogin")
                         End If
                     Else
-                        MsgBox("Login on windream was not possible. Please check the log.", MsgBoxStyle.Critical)
+                        FormHelper.ShowErrorMessage("Login on windream was not possible. Please check the log.", "frmMain_Load/WindreamLogin")
                     End If
                 End If
 
 
             Catch ex As Exception
-                LOGGER.Error(ex)
+                FormHelper.ShowErrorMessage(ex, "frmMain_Load/WindreamLogin")
-                MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
             End Try
         Else
             BarButtonItemFileLink.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -461,7 +454,7 @@ Public Class frmMain
                     pTrigger = $"({pTrigger})"
                 End If
 
-                bsiInactivityCheck.Caption = $"Next Inactivity-Check: {oStarttime.ToShortTimeString} {pTrigger}"
+                bsiInactivityCheck.Caption = String.Format(S.Nächste_Aktivitätsüberprüfung___0___1_, oStarttime.ToShortTimeString, pTrigger)
             Else
                 TimerInactivity.Enabled = False
                 TimerInactivity.Stop()
@@ -607,7 +600,7 @@ Public Class frmMain
                 GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
                 GridView_Docs.Columns.Item("GUID").Visible = False
                 Try
-                    GridView_Docs.Columns.Item(FullFilepatColName).Visible = False
+                    GridView_Docs.Columns.Item(FullFilepathColumnName).Visible = False
                 Catch ex As Exception
 
                 End Try
@@ -758,16 +751,14 @@ Public Class frmMain
             End If
 
         Catch ex As Exception
-            LOGGER.Error(ex)
+            FormHelper.ShowErrorMessage(ex, "LoadNavBar")
-            LOGGER.Info("Load_Profile_items - Error: " & ex.Message)
-            'MsgBox("Unexpected Error in Load_Profile_items - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
 
     End Sub
     Private Async Sub navBar_LinkClicked(ByVal sender As Object, ByVal e As NavBarLinkEventArgs)
         If Not Application.OpenForms().OfType(Of frmValidator).Any Then
         Else
-            FormHelper.ShowInfoMessage(omsgOpenWorkflow, omsgTitleWarning)
+            FormHelper.ShowInfoMessage(S.Bitte_schließen_Sie_den_offenen_Workflow_, S.Achtung_)
             Exit Sub
         End If
 
@@ -899,7 +890,7 @@ Public Class frmMain
                         OVERVIEW_CHANGED_WHEN = oChanged
                         OVERVIEW_COUNT = oCOUNT
                     End If
-                    GridView_Docs.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
+                    GridView_Docs.ViewCaption = String.Format(S.Detailansicht_Profil___0_, CURRENT_CLICKED_PROFILE_TITLE)
                     If CURR_DT_OVERVIEW.Rows.Count = 0 Then
                         NO_WORKFLOWITEMS = True
                     Else
@@ -908,7 +899,7 @@ Public Class frmMain
                     Create_Basic_View()
 
                     RestoreLayout()
-                    GridView_Docs.ViewCaption = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
+                    GridView_Docs.ViewCaption = String.Format(S.Detailansicht_Profil___0_, CURRENT_CLICKED_PROFILE_TITLE)
                 End If
 
             End If
@@ -988,12 +979,8 @@ 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
+            Dim objectCount_Descr = String.Format(S._0__Vorgänge, GridView_Docs.RowCount.ToString)
-                objectCount_Descr &= " Vorgänge"
-            Else
-                objectCount_Descr &= " objects"
-            End If
 
             'tslblObjectCount.Text = objectCount_Descr
 
@@ -1005,7 +992,7 @@ Public Class frmMain
             GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
             GridView_Docs.Columns.Item("GUID").Visible = False
             Try
-                GridView_Docs.Columns.Item(FullFilepatColName).Visible = False
+                GridView_Docs.Columns.Item(FullFilepathColumnName).Visible = False
             Catch ex As Exception
             End Try
             Try
@@ -1104,7 +1091,7 @@ Public Class frmMain
                     End If
                 Next
                 If oViewColumn_exists = False Then
-                    If oViewColumn.Caption = FullFilepatColName And IDB_ACTIVE = False Then
+                    If oViewColumn.Caption = FullFilepathColumnName And IDB_ACTIVE = False Then
                         LOGGER.Info($"Following ViewColumn no longer exists in the view: [{oViewColumn.Caption}]")
                         Return True
                     End If
@@ -1188,11 +1175,7 @@ Public Class frmMain
                 Exit Sub
             End If
 
-            If USER_LANGUAGE <> "de-DE" Then
+            bsilastsync.Caption = String.Format(S.Letzte_Synchronisation___0_, Now.ToLongTimeString)
-                bsilastsync.Caption = "Last Client-Sync: " & Now.ToLongTimeString
-            Else
-                bsilastsync.Caption = "Letzte Synchronisation: " & Now.ToLongTimeString
-            End If
 
             If GridControl_Docs.Visible = True And FormOpenClose = False Then
                 RefreshHelper.SaveViewInfo()
@@ -1355,13 +1338,6 @@ 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 th As System.Threading.Thread
             If Not Application.OpenForms().OfType(Of frmValidator).Any Then
                 If TimerRefresh.Enabled Then
@@ -1381,7 +1357,7 @@ Public Class frmMain
                 If CURRENT_DT_PROFILE.Rows.Count = 1 Then
                     CURRENT_ProfilName = CURRENT_DT_PROFILE.Rows(0).Item("NAME")
                 Else
-                    MsgBox("Could not get a Profile - Check Your log!", MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
+                    FormHelper.ShowWarningMessage("Could not get a Profile - Check Your log!", ADDITIONAL_TITLE)
                     Exit Sub
                 End If
 
@@ -1406,7 +1382,8 @@ Public Class frmMain
                     LOGGER.Warn($"ex.InnerException.Message [{ex.InnerException.Message}]")
                     LOGGER.Warn($"ex.InnerException.Source [{ex.InnerException.Source}]")
                     LOGGER.Error(ex.InnerException)
-                    MsgBox(ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE)
+
+                    FormHelper.ShowErrorMessage(ex, "Load_Profil_from_Grid")
                 End Try
 
                 Try
@@ -1429,21 +1406,14 @@ Public Class frmMain
                 '  th.Start()
             Else
                 LOGGER.Debug("Validator is already open...")
-                FormHelper.ShowInfoMessage(omsg, omsgTitleWarning)
+                FormHelper.ShowWarningMessage(S.Es_existiert_bereits_ein_aktiver_Workflow_, S.Achtung_)
 
             End If
-
-
-
-
         Catch ex As Exception
-            LOGGER.Error(ex)
+            FormHelper.ShowErrorMessage(ex, "Load_Profil_from_Grid")
-            MsgBox("Unexpected error in Load_Profil_from_Grid: " & ex.Message & vbNewLine & ADDITIONAL_TITLE & " will try to reload the overview - Please try again!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
+
             Dim task = Decide_Load(False, True)
         End Try
-        'Me.Visible = True
-        'Decide_Load()
-
     End Sub
 
     'Public Sub Task_A()
@@ -1454,7 +1424,7 @@ Public Class frmMain
         Try
 
             If Application.OpenForms().OfType(Of frmValidator).Any Then
-                bsiMessage.Caption = "There is already an active workflow!"
+                bsiMessage.Caption = S.Es_existiert_bereits_ein_aktiver_Workflow_
                 LOGGER.Info("Item Scope - Workflow open! - Exit")
                 bsiMessage.ItemAppearance.Normal.BackColor = Color.Red
                 Exit Sub
@@ -1524,7 +1494,8 @@ Public Class frmMain
                 ' -----------------------------
 
                 If oIds.Count = 0 Then
-                    MsgBox("System konnte die Profilworkflows nicht auswerten!" & vbNewLine & "Bitte wählen Sie ein Profil durch Klicken auf einen Beleg oder eine Überschrift!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
+                    FormHelper.ShowWarningMessage(String.Format(S.System_konnte_die_Profilworkflows_nicht_auswerten_, vbNewLine), ADDITIONAL_TITLE)
+
                     Exit Sub
                 End If
                 Dim oDelete = $"DELETE FROM TBPM_VALIDATION_PROFILE_GROUP_USER WHERE UserID = {USER_ID}"
@@ -1627,14 +1598,14 @@ Public Class frmMain
                     Try
                         oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
                     Catch ex As Exception
-                        FormHelper.ShowInfoMessage("Could not get DocGUID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning)
+                        FormHelper.ShowWarningMessage("Could not get DocGUID. Inform Your admin-team: Check Your View-Config", S.Achtung_)
 
                     End Try
                     Dim oFocusedDocID
                     Try
                         oFocusedDocID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DocID"))
                     Catch ex As Exception
-                        FormHelper.ShowInfoMessage("Could not get DocID. Inform Your admin-team: Check Your View-Config", omsgTitleWarning)
+                        FormHelper.ShowWarningMessage("Could not get DocID. Inform Your admin-team: Check Your View-Config", S.Achtung_)
                     End Try
 
                     If IsNothing(oFocusedDocID) Then
@@ -1650,8 +1621,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
+                    If Not IsNothing(GridView_Docs.Columns(FullFilepathColumnName)) Then
-                        Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns(FullFilepatColName))
+                        Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns(FullFilepathColumnName))
                         If IsNothing(DOC_PATH) Then
                             LOGGER.Warn("In hitInfo.InDataRow: FULL_FILE_PATH is nothing!!!")
                             Exit Sub
@@ -1681,13 +1652,7 @@ 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"
+                            FormHelper.ShowWarningMessage(S.Der_gewählte_Beleg_ist_durch_einen_anderen_Benutzer_bereits_in_Bearbeitung_oder_anderweitig_gesperrt_, S.Achtung_)
-                            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)
 
                         End If
                     Catch ex As Exception
@@ -1701,7 +1666,7 @@ Public Class frmMain
 
                 End If
             Else
-                FormHelper.ShowInfoMessage("Could not get the ProfileID of file! - Check Your configuration of MainView!", omsgTitleWarning)
+                FormHelper.ShowWarningMessage("Could not get the ProfileID of file! - Check Your configuration of MainView!", omsgTitleWarning)
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -1725,9 +1690,7 @@ Public Class frmMain
 
             Return True
         Catch ex As Exception
-            LOGGER.Error(ex)
+            FormHelper.ShowErrorMessage(ex, "Init_IDB")
-            MsgBox("Error Init_IDB:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
-            LOGGER.Info("Unexpected error in Init_IDB: " & ex.Message, True)
             Return False
         End Try
     End Function
@@ -1739,12 +1702,10 @@ Public Class frmMain
             '_windreamPM.Create_Session()
             WINDREAM = New ClassPMWindream()
             WINDREAM.Create_Session()
-            WINDREAM_ALLG = New ClassWindream_allgemein
+            WINDREAM_ALLG = New ClassWindream_allgemein()
             Return WINDREAM.IsLoggedIn
         Catch ex As Exception
-            LOGGER.Error(ex)
+            FormHelper.ShowErrorMessage(ex, "Init_windream")
-            MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
-            LOGGER.Info("Unexpected error in Init_windream: " & ex.Message, True)
             Return False
         End Try
     End Function
@@ -1768,10 +1729,10 @@ Public Class frmMain
                             oGroupColumn.OptionsColumn.AllowGroup = DefaultBoolean.False
                             oGroupColumn.OptionsColumn.AllowMove = False
                             oGroupColumn.OptionsColumn.AllowShowHide = False
-                            oGroupColumn.Caption = "Profile (Fixed)"
+                            oGroupColumn.Caption = S.Profil__Fixiert_
                         End If
                     Catch ex As Exception
-
+                        LOGGER.Error(ex)
                     End Try
 
                     oindex += 1
@@ -1782,6 +1743,7 @@ Public Class frmMain
                 GridView_Docs.Columns.Item("GROUP_TEXT").Visible = False
                 GridView_Docs.Columns.Item("GROUP_COLOR").Visible = False
             Catch ex As Exception
+                LOGGER.Error(ex)
             End Try
             For index = 0 To GridView_Docs.GroupCount - 1
                 'Dim v = GridView_Docs.GroupedColumns(index).ToString
@@ -1883,11 +1845,7 @@ Public Class frmMain
 
                 NO_WORKFLOWITEMS = False
                 If CURR_DT_OVERVIEW.Rows.Count = 0 Then
-                    If USER_LANGUAGE = "de-DE" Then
+                    GridView_Docs.ViewCaption = S.Aktuell_keine_Workflowdaten_vorhanden_
-                        GridView_Docs.ViewCaption = "Aktuell keine Workflowdaten vorhanden!"
-                    Else
-                        GridView_Docs.ViewCaption = "No workflowdata!"
-                    End If
                     NO_WORKFLOWITEMS = True
                     GridControl_Docs.Visible = False
                     bindsourcegrid.DataSource = Nothing
@@ -1993,7 +1951,7 @@ Public Class frmMain
                     GridView_Docs.Columns.Item("PROFILE_ID").Visible = False
                     GridView_Docs.Columns.Item("GUID").Visible = False
                     Try
-                        GridView_Docs.Columns.Item(FullFilepatColName).Visible = False
+                        GridView_Docs.Columns.Item(FullFilepathColumnName).Visible = False
                         'GridView_Docs.Columns.Item("DocID").Visible = False
                         GridView_Docs.Columns.Item("TL_STATE").Visible = False
                     Catch ex As Exception
@@ -2083,7 +2041,7 @@ Public Class frmMain
         If CURRENT_CLICKED_PROFILE_ID <> 0 Then
             Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID)
         Else
-            FormHelper.ShowInfoMessage("Please choose a profile!", omsgTitleWarning)
+            FormHelper.ShowInfoMessage(S.Bitte_wählen_Sie_ein_Profil_aus_, S.Achtung_)
         End If
     End Sub
 
@@ -2365,11 +2323,7 @@ Public Class frmMain
     End Sub
     Sub Handling_DEBUG_USER()
         If DEBUG = True Then
-            If USER_LANGUAGE = "de-DE" Then
+            bsiDebug.Caption = S.HINWEIS__Debug_Modus_ist_eingeschaltet_
-                bsiDebug.Caption = "HINWEIS: UserDebugMode ist eingeschaltet!"
-            Else
-                bsiDebug.Caption = "INFORMATION: UserDebugMode activated!"
-            End If
             bsiDebug.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
         Else
             bsiDebug.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
@@ -2392,10 +2346,6 @@ Public Class frmMain
             LOGGER.Warn($"oSQL so far [{oSQL}]")
         End Try
     End Sub
-    Private Sub tsslblDEBUG_LOG_MouseHover(sender As Object, e As EventArgs)
-        MsgBox("UserDebugMode is activated remotely. Debugdata will be transferred to database and will be deleted after 10 days!!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
-
-    End Sub
 
     Private Sub frmMain_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
         If Application.OpenForms().OfType(Of frmValidator).Any Then
@@ -2418,9 +2368,9 @@ Public Class frmMain
 
     Private Sub ContextMenuNotifyIcon_Opening(sender As Object, e As CancelEventArgs) Handles ContextMenuNotifyIcon.Opening
         If CONFIG.Config.ReminderTimer <> 0 Then
-            PopupErinnerungInaktivierenToolStripMenuItem.Text = "Popup Erinnerung inaktivieren"
+            PopupErinnerungInaktivierenToolStripMenuItem.Text = S.Popup_Erinnerung_deaktivieren
         Else
-            PopupErinnerungInaktivierenToolStripMenuItem.Text = $"Popup Erinnerung aktivieren ({CONFIG.Config.ReminderTimer} min)"
+            PopupErinnerungInaktivierenToolStripMenuItem.Text = String.Format(S.Popup_Erinnerung_aktivieren___0__min_, CONFIG.Config.ReminderTimer)
         End If
     End Sub
 
@@ -2463,15 +2413,14 @@ Public Class frmMain
             '  Load_Profil()
             Check_Timer_Notification()
         Catch ex As Exception
-            LOGGER.Error(ex)
+            FormHelper.ShowErrorMessage(ex, "frmConfig/Load")
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden Grundeinstellungen:")
         End Try
     End Sub
 
 
     Private Async Sub bbtniRefresh_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniRefresh.ItemClick
         If Application.OpenForms().OfType(Of frmValidator).Any Then
-            FormHelper.ShowInfoMessage(omsgOpenWorkflow, omsgTitleWarning)
+            FormHelper.ShowInfoMessage(S.Bitte_schließen_Sie_den_offenen_Workflow_, S.Achtung_)
             Exit Sub
         End If
         Timer_Inactivity_Reset_Disable("OverviewRefreshClick")
@@ -2552,12 +2501,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 = String.Format(S.Lizenz_Zähler___0_, USERCOUNT_LOGGED_IN)
-                bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN
-            Else
-                bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
-            End If
-
         End If
         BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
     End Sub
@@ -2640,12 +2584,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 = String.Format(S.Ghost_Modus___0___deaktivieren, USER_GHOST_MODE_USRNAME)
-                BarButtonItemGhostMode.Caption = $"Ghost Modus ({USER_GHOST_MODE_USRNAME}) inaktivieren"
-            Else
-                BarButtonItemGhostMode.Caption = $"Inactivate ghost mode ({USER_GHOST_MODE_USRNAME})"
-            End If
-
 
             BarButtonItemGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
             _Init.InitBasics()
@@ -2678,11 +2617,7 @@ Public Class frmMain
             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 = S.Filter_aktiv
-                    objectCount_Descr = " filtered"
-                Else
-                    objectCount_Descr = " Filter aktiv"
-                End If
                 GridView_Docs.ViewCaption += $"| {objectCount_Descr}"
             Else
                 Ev_Filter_Panel_Closed = False
@@ -2698,40 +2633,15 @@ Public Class frmMain
     End Sub
     Sub RowCount()
         Try
-            'Dim oGroupCount As Integer = 0
-            'For index = 0 To GridViewWFItems.RowCount
-            '    Dim oRow = GridViewWFItems.GetRow(index)
-            '    If oRow Is Nothing Then
-            '        Continue For
-            '    End If
-            '    If GridViewWFItems.GetRowExpanded(index) = True Then
-            '        oGroupCount += 1
-            '    End If
-
-            'Next
             Dim oRowCount = GridView_Docs.RowCount
-
+            bsiRowCount.Caption = String.Format(S.__0___Workflows, oRowCount)
-            oRowCount = oRowCount '- oGroupCount
-            Dim objectCount_Descr = $"[{oRowCount.ToString}]"
-            If USER_LANGUAGE = "de-DE" Then
-                objectCount_Descr &= " Workflows"
-            Else
-                objectCount_Descr &= " workflows"
-            End If
-            bsiRowCount.Caption = objectCount_Descr
         Catch ex As Exception
             bsiRowCount.Caption = "Error getting RowCount"
         End Try
-
     End Sub
     Sub Create_View_Caption()
         Try
-
+            GridView_Docs.ViewCaption = S.Gesamtübersicht
-            If USER_LANGUAGE = "de-DE" Then
-                GridView_Docs.ViewCaption = "Gesamtübersicht"
-            Else
-                GridView_Docs.ViewCaption = "Overview"
-            End If
 
         Catch ex As Exception
 
@@ -2784,11 +2694,7 @@ 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
             Timer5Mins.Stop()
             TimerRefresh.Stop()
             TimerReminder.Stop()
@@ -2796,7 +2702,8 @@ Public Class frmMain
             Hide()
             ClassAllgemeineFunktionen.LoginOut("LOGOUT")
             TimerInactivity.Stop()
-            MsgBox(omsg, MsgBoxStyle.Information, ADDITIONAL_TITLE)
+
+            FormHelper.ShowWarningMessage(S.Sie_wurden_aufgrund_von_Inaktivität_automatisch_abgemeldet_, ADDITIONAL_TITLE)
             Application.Exit()
         Catch ex As Exception
             LOGGER.Error(ex.Message)
@@ -2828,7 +2735,7 @@ Public Class frmMain
                 MyProcess.Start()
             Else
                 LOGGER.Warn($"Clipboardwatcher-Exe not found [{bbtniCW.Tag}]")
-                FormHelper.ShowInfoMessage("Clipboard Watcher could not be started!", omsgTitleWarning)
+                FormHelper.ShowInfoMessage("Clipboard Watcher could not be started!", S.Achtung_)
             End If
 
         Catch ex As Exception
@@ -2943,14 +2850,14 @@ Public Class frmMain
 
                     omsg = "Please select some documents!"
                 End If
-                FormHelper.ShowInfoMessage(omsg, omsgTitleWarning)
+                FormHelper.ShowInfoMessage(omsg, S.Achtung_)
                 Exit Sub
             End If
 
             oProfileId = GridView_Docs.GetRowCellValue(oSelectedRows.Last(), GridView_Docs.Columns("PROFILE_ID"))
 
             If oProfileId = 0 Then
-                FormHelper.ShowInfoMessage("Could not select a profile!", omsgTitleWarning)
+                FormHelper.ShowInfoMessage("Could not select a profile!", S.Achtung_)
                 Exit Sub
             End If
 
@@ -2994,7 +2901,7 @@ Public Class frmMain
                     End If
                     Dim R As DataRow = NewDatatable.NewRow
                     CURRENT_DOC_ID = oDocID
-                    Dim DOC_PATH = GridView_Docs.GetRowCellValue(oRowHandle, FullFilepatColName)
+                    Dim DOC_PATH = GridView_Docs.GetRowCellValue(oRowHandle, FullFilepathColumnName)
                     ' CURRENT_DOC_PATH = DOC_PATH
                     CURRENT_DOC_GUID = GridView_Docs.GetRowCellValue(oRowHandle, "GUID")
                     R("DocID") = CURRENT_DOC_ID
@@ -3010,15 +2917,10 @@ Public Class frmMain
                 LoadNavBar()
                 Await Decide_Load(False)
             Else
-                If USER_LANGUAGE = "de-DE" Then
+                FormHelper.ShowErrorMessage(S.Massenabschluss_konnte_nicht_ausgeführt_werden__weil_windream_nicht_initialisiert_werden_konnte_, ADDITIONAL_TITLE)
-                    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
             End If
         Catch ex As Exception
-            LOGGER.Error(ex)
+            FormHelper.ShowErrorMessage(ex, "BarButtonItemMassValidation_ItemClick")
-            MsgBox("Unhandled Error in tsmiMarkedFilesFinish_Click: " & ex.Message)
         End Try
     End Sub