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

MS 2.4.9.6 Zusätzliche Meldungen und @DisplayOnly Möglichkeit

Browse Source
This commit is contained in:
Developer01
2024-08-26 16:41:27 +02:00
parent 3b08bafa49
commit 1b04665e82
19 changed files with 1405 additions and 706 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
app/TaskFlow/ClassParamRefresh.vb
View File

@@ -20,6 +20,9 @@ Public Class ClassParamRefresh
ElseIf oRow.Item("TITLE") = "PM_VALIDATOR_SEARCH_DEF" Then
SQL_VALIDATOR_SEARCHES = oRow.Item("SQL_COMMAND")
LOGGER.Debug($"VALIDATOR-SQL FROM SQLCommands DD: {SQL_VALIDATOR_SEARCHES}")
ElseIf oRow.Item("TITLE") = "TF_WORKFLOW_MESSAGE" Then
SQL_WF_MESSAGES = oRow.Item("SQL_COMMAND")
LOGGER.Debug($"WF_MESSAGES-SQL FROM SQLCommands DD: {SQL_WF_MESSAGES}")
End If
Next
End If
@@ -98,16 +101,6 @@ Public Class ClassParamRefresh
IDB_ACTIVE = False
End If
End If
'ElseIf oMode.StartsWith("PM.IDB_APP_SERV_CONID!") Then
' Dim CON_ID = oMode.Replace("PM.IDB_APP_SERV_CONID!", "")
' Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID)
' CONNECTION_STRING_IDB_APP_SERVER = oConString
' If ClassDatabase.Init(CONNECTION_STRING_IDB_APP_SERVER) = True Then
' LOGGER.Info($"Got an IDB APP-Server-Connection [{CON_ID}]!")
' End If
ElseIf oMode = "PM.EXCEL_OVERVIEW" Then
EXCEL_OVERVIEW = True
LOGGER.Debug($"EXCEL_OVERVIEW [{EXCEL_OVERVIEW}]")