From 03140a938ee03b0a1ff1731cc454f71cf3fce07d Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 15 Sep 2022 13:14:22 +0200 Subject: [PATCH] finish translations for frmMain --- .../Translations/frmMain_Strings.Designer.vb | 276 +++++++++++++++++- .../Translations/frmMain_Strings.en.resx | 9 + .../Translations/frmMain_Strings.fr.resx | 9 + .../Translations/frmMain_Strings.resx | 90 ++++++ app/DD_PM_WINDREAM/frmMain.vb | 270 ++++++----------- 5 files changed, 468 insertions(+), 186 deletions(-) diff --git a/app/DD_PM_WINDREAM/Translations/frmMain_Strings.Designer.vb b/app/DD_PM_WINDREAM/Translations/frmMain_Strings.Designer.vb index 0dd6950..b8510cc 100644 --- a/app/DD_PM_WINDREAM/Translations/frmMain_Strings.Designer.vb +++ b/app/DD_PM_WINDREAM/Translations/frmMain_Strings.Designer.vb @@ -63,7 +63,25 @@ Namespace My.Resources resourceCulture = value End Set End Property - + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die [{0}] Workflows ähnelt. + ''' + Friend Shared ReadOnly Property __0___Workflows() As String + Get + Return ResourceManager.GetString("[{0}] Workflows", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die {0} Vorgänge ähnelt. + ''' + Friend Shared ReadOnly Property _0__Vorgänge() As String + Get + Return ResourceManager.GetString("{0} Vorgänge", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Zeichenfolge, die Achtung: ähnelt. ''' @@ -72,7 +90,52 @@ Namespace My.Resources Return ResourceManager.GetString("Achtung:", resourceCulture) End Get End Property - + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Aktuell keine Workflowdaten vorhanden! ähnelt. + ''' + Friend Shared ReadOnly Property Aktuell_keine_Workflowdaten_vorhanden_() As String + Get + Return ResourceManager.GetString("Aktuell keine Workflowdaten vorhanden!", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Aktuelle Lizenz ist abgelaufen oder ungültig! ähnelt. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Anzahl Lizenzen: {0} ähnelt. + ''' + Friend Shared ReadOnly Property Anzahl_Lizenzen___0_() As String + Get + Return ResourceManager.GetString("Anzahl Lizenzen: {0}", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Bitte konfigurieren Sie eine Datenbankverbindung! ähnelt. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Bitte kontaktieren Sie Ihren Administrator! ähnelt. + ''' + 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 + ''' ''' Sucht eine lokalisierte Zeichenfolge, die Bitte schließen Sie den offenen Workflow! ähnelt. ''' @@ -81,5 +144,214 @@ Namespace My.Resources Return ResourceManager.GetString("Bitte schließen Sie den offenen Workflow!", resourceCulture) End Get End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Bitte wählen Sie ein Profil aus! ähnelt. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Der gewählte Beleg ist durch einen anderen Benutzer bereits in Bearbeitung oder anderweitig gesperrt! ähnelt. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Detailansicht Profil: {0} ähnelt. + ''' + Friend Shared ReadOnly Property Detailansicht_Profil___0_() As String + Get + Return ResourceManager.GetString("Detailansicht Profil: {0}", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Es existiert bereits ein aktiver Workflow! ähnelt. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Es ist keine Windream Session vorhanden. Bitte überprüfen Sie das Log. ähnelt. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Fehlende Datenbank Konfiguration ähnelt. + ''' + Friend Shared ReadOnly Property Fehlende_Datenbank_Konfiguration() As String + Get + Return ResourceManager.GetString("Fehlende Datenbank Konfiguration", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Filter aktiv ähnelt. + ''' + Friend Shared ReadOnly Property Filter_aktiv() As String + Get + Return ResourceManager.GetString("Filter aktiv", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Gesamtübersicht ähnelt. + ''' + Friend Shared ReadOnly Property Gesamtübersicht() As String + Get + Return ResourceManager.GetString("Gesamtübersicht", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Ghost Modus ({0}) deaktivieren ähnelt. + ''' + Friend Shared ReadOnly Property Ghost_Modus___0___deaktivieren() As String + Get + Return ResourceManager.GetString("Ghost Modus ({0}) deaktivieren", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Größer ähnelt. + ''' + Friend Shared ReadOnly Property Größer() As String + Get + Return ResourceManager.GetString("Größer", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die HINWEIS: Debug Modus ist eingeschaltet! ähnelt. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Kleiner ähnelt. + ''' + Friend Shared ReadOnly Property Kleiner() As String + Get + Return ResourceManager.GetString("Kleiner", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Letzte Synchronisation: {0} ähnelt. + ''' + Friend Shared ReadOnly Property Letzte_Synchronisation___0_() As String + Get + Return ResourceManager.GetString("Letzte Synchronisation: {0}", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Lizenz-Zähler: {0} ähnelt. + ''' + Friend Shared ReadOnly Property Lizenz_Zähler___0_() As String + Get + Return ResourceManager.GetString("Lizenz-Zähler: {0}", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Massenabschluss ähnelt. + ''' + Friend Shared ReadOnly Property Massenabschluss() As String + Get + Return ResourceManager.GetString("Massenabschluss", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert werden konnte! ähnelt. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Nächste Aktivitätsüberprüfung: {0} {1} ähnelt. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Normal ähnelt. + ''' + Friend Shared ReadOnly Property Normal() As String + Get + Return ResourceManager.GetString("Normal", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Popup Erinnerung aktivieren ({0} min) ähnelt. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Popup Erinnerung deaktivieren ähnelt. + ''' + Friend Shared ReadOnly Property Popup_Erinnerung_deaktivieren() As String + Get + Return ResourceManager.GetString("Popup Erinnerung deaktivieren", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Profil (Fixiert) ähnelt. + ''' + Friend Shared ReadOnly Property Profil__Fixiert_() As String + Get + Return ResourceManager.GetString("Profil (Fixiert)", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die Sie wurden aufgrund von Inaktivität automatisch abgemeldet! ähnelt. + ''' + 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 + + ''' + ''' 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. + ''' + 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 diff --git a/app/DD_PM_WINDREAM/Translations/frmMain_Strings.en.resx b/app/DD_PM_WINDREAM/Translations/frmMain_Strings.en.resx index 5956a0a..5835698 100644 --- a/app/DD_PM_WINDREAM/Translations/frmMain_Strings.en.resx +++ b/app/DD_PM_WINDREAM/Translations/frmMain_Strings.en.resx @@ -123,4 +123,13 @@ Attention: + + Bigger + + + Smaller + + + Normal + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/Translations/frmMain_Strings.fr.resx b/app/DD_PM_WINDREAM/Translations/frmMain_Strings.fr.resx index fdb528d..dd20a5c 100644 --- a/app/DD_PM_WINDREAM/Translations/frmMain_Strings.fr.resx +++ b/app/DD_PM_WINDREAM/Translations/frmMain_Strings.fr.resx @@ -123,4 +123,13 @@ Attention: + + Plus grand + + + Petit + + + Normal + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/Translations/frmMain_Strings.resx b/app/DD_PM_WINDREAM/Translations/frmMain_Strings.resx index 50dfa3a..96a8956 100644 --- a/app/DD_PM_WINDREAM/Translations/frmMain_Strings.resx +++ b/app/DD_PM_WINDREAM/Translations/frmMain_Strings.resx @@ -120,7 +120,97 @@ Achtung: + + Aktuell keine Workflowdaten vorhanden! + + + Aktuelle Lizenz ist abgelaufen oder ungültig! + + + Anzahl Lizenzen: {0} + + + Bitte konfigurieren Sie eine Datenbankverbindung! + + + Bitte kontaktieren Sie Ihren Administrator! + Bitte schließen Sie den offenen Workflow! + + Bitte wählen Sie ein Profil aus! + + + Der gewählte Beleg ist durch einen anderen Benutzer bereits in Bearbeitung oder anderweitig gesperrt! + + + Detailansicht Profil: {0} + + + Es existiert bereits ein aktiver Workflow! + + + Es ist keine Windream Session vorhanden. Bitte überprüfen Sie das Log. + + + Fehlende Datenbank Konfiguration + + + Filter aktiv + + + Gesamtübersicht + + + Ghost Modus ({0}) deaktivieren + + + Größer + + + HINWEIS: Debug Modus ist eingeschaltet! + + + Kleiner + + + Letzte Synchronisation: {0} + + + Lizenz-Zähler: {0} + + + Massenabschluss + + + Massenabschluss konnte nicht ausgeführt werden, weil windream nicht initialisiert werden konnte! + + + Normal + + + Nächste Aktivitätsüberprüfung: {0} {1} + + + Popup Erinnerung aktivieren ({0} min) + + + Popup Erinnerung deaktivieren + + + Profil (Fixiert) + + + Sie wurden aufgrund von Inaktivität automatisch abgemeldet! + + + System konnte die Profilworkflows nicht auswerten!{0}Bitte wählen Sie ein Profil durch Klicken auf einen Beleg oder eine Überschrift! + + + [{0}] Workflows + + + {0} Vorgänge + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 4a61954..e5b2144 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/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 _Init As New ClassInit + Private ReadOnly allgFunk As New ClassAllgemeineFunktionen + 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 = "Normal", .Value = 0}, - New FontSetting With {.Title = "Größer", .Value = 2} + New FontSetting With {.Title = S.Kleiner, .Value = -2}, + New FontSetting With {.Title = S.Normal, .Value = 0}, + 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 = "License Count: " & USERCOUNT_LOGGED_IN - Else - bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN - End If + bsiUserLoggedIn.Caption = String.Format(S.Lizenz_Zähler___0_, USERCOUNT_LOGGED_IN) + 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) - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in User Check:") + FormHelper.ShowErrorMessage(ex, "frmMain_Load/UserCheck") 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) - MsgBox("Unexpected Error in LoadForm - Step 4: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") + FormHelper.ShowErrorMessage(ex, "frmMain_Load/RefreshTimer") 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) - MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") + FormHelper.ShowErrorMessage(ex, "frmMain_Load/WindreamLogin") 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) - LOGGER.Info("Load_Profile_items - Error: " & ex.Message) - 'MsgBox("Unexpected Error in Load_Profile_items - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + FormHelper.ShowErrorMessage(ex, "LoadNavBar") 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 - objectCount_Descr &= " Vorgänge" - Else - objectCount_Descr &= " objects" - End If + + Dim objectCount_Descr = String.Format(S._0__Vorgänge, GridView_Docs.RowCount.ToString) '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 = "Last Client-Sync: " & Now.ToLongTimeString - Else - bsilastsync.Caption = "Letzte Synchronisation: " & Now.ToLongTimeString - End If + bsilastsync.Caption = String.Format(S.Letzte_Synchronisation___0_, Now.ToLongTimeString) 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) - 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) + FormHelper.ShowErrorMessage(ex, "Load_Profil_from_Grid") + 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 - Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns(FullFilepatColName)) + If Not IsNothing(GridView_Docs.Columns(FullFilepathColumnName)) Then + 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" - 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) + FormHelper.ShowWarningMessage(S.Der_gewählte_Beleg_ist_durch_einen_anderen_Benutzer_bereits_in_Bearbeitung_oder_anderweitig_gesperrt_, S.Achtung_) 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) - MsgBox("Error Init_IDB:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - LOGGER.Info("Unexpected error in Init_IDB: " & ex.Message, True) + FormHelper.ShowErrorMessage(ex, "Init_IDB") 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) - MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - LOGGER.Info("Unexpected error in Init_windream: " & ex.Message, True) + FormHelper.ShowErrorMessage(ex, "Init_windream") 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 = "Aktuell keine Workflowdaten vorhanden!" - Else - GridView_Docs.ViewCaption = "No workflowdata!" - End If + GridView_Docs.ViewCaption = S.Aktuell_keine_Workflowdaten_vorhanden_ 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 = "HINWEIS: UserDebugMode ist eingeschaltet!" - Else - bsiDebug.Caption = "INFORMATION: UserDebugMode activated!" - End If + bsiDebug.Caption = S.HINWEIS__Debug_Modus_ist_eingeschaltet_ 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) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden Grundeinstellungen:") + FormHelper.ShowErrorMessage(ex, "frmConfig/Load") 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 = "License Count: " & USERCOUNT_LOGGED_IN - Else - bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN - End If - + bsiUserLoggedIn.Caption = String.Format(S.Lizenz_Zähler___0_, USERCOUNT_LOGGED_IN) 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 = $"Ghost Modus ({USER_GHOST_MODE_USRNAME}) inaktivieren" - Else - BarButtonItemGhostMode.Caption = $"Inactivate ghost mode ({USER_GHOST_MODE_USRNAME})" - End If - + BarButtonItemGhostMode.Caption = String.Format(S.Ghost_Modus___0___deaktivieren, USER_GHOST_MODE_USRNAME) BarButtonItemGhostMode.Visibility = DevExpress.XtraBars.BarItemVisibility.Always _Init.InitBasics() @@ -2678,12 +2617,8 @@ 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 = " filtered" - Else - objectCount_Descr = " Filter aktiv" - End If - GridView_Docs.ViewCaption += $"|{objectCount_Descr}" + objectCount_Descr = S.Filter_aktiv + GridView_Docs.ViewCaption += $"| {objectCount_Descr}" Else Ev_Filter_Panel_Closed = False End If @@ -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 - - 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 + bsiRowCount.Caption = String.Format(S.__0___Workflows, oRowCount) Catch ex As Exception bsiRowCount.Caption = "Error getting RowCount" End Try - 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 + GridView_Docs.ViewCaption = S.Gesamtübersicht 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 - 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 + FormHelper.ShowErrorMessage(S.Massenabschluss_konnte_nicht_ausgeführt_werden__weil_windream_nicht_initialisiert_werden_konnte_, ADDITIONAL_TITLE) End If Catch ex As Exception - LOGGER.Error(ex) - MsgBox("Unhandled Error in tsmiMarkedFilesFinish_Click: " & ex.Message) + FormHelper.ShowErrorMessage(ex, "BarButtonItemMassValidation_ItemClick") End Try End Sub