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

MS Meldung

Browse Source
This commit is contained in:
SchreiberM 2023-09-20 13:16:54 +02:00
parent 31ac48207c
commit 2facc47a4b
4 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
app/TaskFlow/ClassInit.vb
View File

@ -427,6 +427,7 @@ Public Class ClassInit
ERROR_STATE = "START INCOMPLETE" ERROR_STATE = "START INCOMPLETE"
End If End If
End If End If
'Alles OK bis hierhin...nun die FolderwatchKonfig laden 'Alles OK bis hierhin...nun die FolderwatchKonfig laden
LOGGER.Debug("Init Userlogin successfull completed....") LOGGER.Debug("Init Userlogin successfull completed....")
End If End If

2
app/TaskFlow/ClassParamRefresh.vb
View File

@ -76,6 +76,8 @@ Public Class ClassParamRefresh
ElseIf oMode = "PM.NO_BASICCONF" Then ElseIf oMode = "PM.NO_BASICCONF" Then
BASIC_CONF_VISIBLE = False BASIC_CONF_VISIBLE = False
LOGGER.Debug($"BASIC_CONF_VISIBLE [{BASIC_CONF_VISIBLE}]") 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 ElseIf oMode.StartsWith("PM.IDB_CONID!") Then
If CONNECTION_STRING_IDB <> "" And dbIDBInitialized = True Then If CONNECTION_STRING_IDB <> "" And dbIDBInitialized = True Then
IDB_ACTIVE = True IDB_ACTIVE = True

1
app/TaskFlow/ModuleMySettings.vb
View File

@ -23,4 +23,5 @@
Public Property FILE_DELIMITER As String = "_" Public Property FILE_DELIMITER As String = "_"
Public Property WMSESSION_STARTSTOP_STARTUP As Boolean = False Public Property WMSESSION_STARTSTOP_STARTUP As Boolean = False
Public Property SYS_LOCKED_MAINTENANCE As Boolean = False
End Module End Module

7
app/TaskFlow/frmMain.vb
View File

@ -238,6 +238,13 @@ Public Class frmMain
MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), MsgBoxStyle.Critical, "Exception") MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), MsgBoxStyle.Critical, "Exception")
Me.Close() Me.Close()
End If 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 Else
LOGGER.Info("Username: " & USER_USERNAME, False) LOGGER.Info("Username: " & USER_USERNAME, False)
'Wenn license abgelaufen und der User nicht admin ist! 'Wenn license abgelaufen und der User nicht admin ist!