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