finish translations for frmMain
This commit is contained in:
Jonathan Jenne
parent
5841457dd4
commit
03140a938e
@ -63,7 +63,25 @@ Namespace My.Resources
|
||||
resourceCulture = value
|
||||
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>
|
||||
@ -72,7 +90,52 @@ Namespace My.Resources
|
||||
Return ResourceManager.GetString("Achtung:", resourceCulture)
|
||||
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
|
||||
|
||||
@ -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>
|
||||
@ -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>
|
||||
@ -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>
|
||||
@ -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
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user