MS Meldung

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

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

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

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!