diff --git a/app/TaskFlow/ClassInit.vb b/app/TaskFlow/ClassInit.vb index 99bb574..cb24f80 100644 --- a/app/TaskFlow/ClassInit.vb +++ b/app/TaskFlow/ClassInit.vb @@ -427,6 +427,7 @@ Public Class ClassInit ERROR_STATE = "START INCOMPLETE" End If End If + 'Alles OK bis hierhin...nun die FolderwatchKonfig laden LOGGER.Debug("Init Userlogin successfull completed....") End If diff --git a/app/TaskFlow/ClassParamRefresh.vb b/app/TaskFlow/ClassParamRefresh.vb index 9387848..3fbee8c 100644 --- a/app/TaskFlow/ClassParamRefresh.vb +++ b/app/TaskFlow/ClassParamRefresh.vb @@ -76,6 +76,8 @@ Public Class ClassParamRefresh ElseIf oMode = "PM.NO_BASICCONF" Then BASIC_CONF_VISIBLE = False LOGGER.Debug($"BASIC_CONF_VISIBLE [{BASIC_CONF_VISIBLE}]") + ElseIf oMode = "PM.SYS_LOCKED_MAINTENANCE" Then + SYS_LOCKED_MAINTENANCE = True ElseIf oMode.StartsWith("PM.IDB_CONID!") Then If CONNECTION_STRING_IDB <> "" And dbIDBInitialized = True Then IDB_ACTIVE = True diff --git a/app/TaskFlow/ModuleMySettings.vb b/app/TaskFlow/ModuleMySettings.vb index 7c472c5..e8fc482 100644 --- a/app/TaskFlow/ModuleMySettings.vb +++ b/app/TaskFlow/ModuleMySettings.vb @@ -23,4 +23,5 @@ Public Property FILE_DELIMITER As String = "_" Public Property WMSESSION_STARTSTOP_STARTUP As Boolean = False + Public Property SYS_LOCKED_MAINTENANCE As Boolean = False End Module diff --git a/app/TaskFlow/frmMain.vb b/app/TaskFlow/frmMain.vb index 90009b6..9259c54 100644 --- a/app/TaskFlow/frmMain.vb +++ b/app/TaskFlow/frmMain.vb @@ -238,6 +238,13 @@ Public Class frmMain MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), MsgBoxStyle.Critical, "Exception") 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!" + If USER_LANGUAGE <> "de-DE" Then + msg = $"Due to maintenance work, access to Your workflow is currently blocked!" & vbNewLine & "Thank You for Your patience!" + End If + MsgBox(msg, MsgBoxStyle.Exclamation, ADDITIONAL_TITLE) + Me.Close() Else LOGGER.Info("Username: " & USER_USERNAME, False) 'Wenn license abgelaufen und der User nicht admin ist!