AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Logging bei LoadnewDocument, Errorhandling, Button Reject, Focus nach Lookup

Browse Source
This commit is contained in:
SchreiberM
2024-07-03 15:37:31 +02:00
parent d902548ec5
commit cd75a665e6
42 changed files with 4380 additions and 764 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/TaskFlow/frmMain.vb
View File

@@ -186,7 +186,7 @@ Public Class frmMain
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
BSIVERSION1.Caption = oVErsion
If ERROR_STATE = "NO DB-CONNECTION" Or ERROR_STATE = "FAILED DBCONNECTION" Then
MsgBox(S.Bitte_konfigurieren_Sie_eine_Datenbankverbindung_, MsgBoxStyle.Critical, "Fehlende Konfiguration:")
frmKonfig.ShowDialog()
@@ -241,9 +241,9 @@ Public Class frmMain
Me.Close()
End If
ElseIf SYS_LOCKED_MAINTENANCE = True Then
Dim msg = $"Wegen Wartungsarbeiten ist der Zugriff auf den Workflow gerade gesperrt!" & vbNewLine & "Vielen Dank für Ihre Geduld!"
Dim msg = $"Wegen Wartungsarbeiten ist der Zugriff auf den Workflow aktuell gesperrt!" & vbNewLine & "Vielen Dank für Ihre Geduld!"
If USER_LANGUAGE <> "de-DE" Then
msg = $"Due to maintenance work, access to Your workflow is currently blocked!" & vbNewLine & "Thank You for Your patience!"
msg = $"Due to maintenance work, access to the workflow is currently blocked!" & vbNewLine & "Thank You for Your patience!"
End If
MsgBox(msg, MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Me.Close()