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

16
app/TaskFlow/ClassAllgemeineFunktionen.vb
View File

@@ -91,19 +91,6 @@ Public Class ClassAllgemeineFunktionen
End Try
End Function
Public Function Insert_LogEntry(ERR_MSG As String)
Try
ERR_MSG = ERR_MSG.Replace("'", "''")
Dim insert As String = $"INSERT INTO TBPM_LOG_DEBUG (USERID, LOGMSG) VALUES ({USER_ID},'{ERR_MSG}')"
If ExecuteonMSSQL(insert, CONNECTION_STRING_ECM) <> "" Then
LOGGER.Warn("...Eintrag in Log-Tabelle konnte nicht erstellt werden!!", True)
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Error in Insert_LogEntry: " & ex.Message)
End Try
End Function
Public Function ExecuteonMSSQL(ByVal sqlcommand As String, ConString As String)
Try
' die nötigen Variablen definieren
@@ -208,7 +195,6 @@ Public Class ClassAllgemeineFunktionen
LOGGER.Info("Fehler bei Move2Folder", True)
LOGGER.Info("Fehlermeldung")
LOGGER.Info(ex.Message)
Insert_LogEntry($"ERROR {ex.Message}")
Return ex.Message
End Try
End Function
@@ -294,7 +280,6 @@ Public Class ClassAllgemeineFunktionen
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unexpected error Execute_Scalar_SQLServer" & vbNewLine & "Automatic Index (j/n): " & check.ToString & vbNewLine & "ERROR:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error Execute_Scalar_SQL sql:")
Insert_LogEntry($"ERROR Execute_Scalar_SQLServer{ex.Message}")
LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
LOGGER.Info(" - SQL: " & vsql_statement)
LOGGER.Info(" - Connection: " & vconnectionString)
@@ -328,7 +313,6 @@ Public Class ClassAllgemeineFunktionen
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unexpected error Execute_Scalar_Oracle" & vbNewLine & "Automatic Index (y/n): " & check.ToString & vbNewLine & "Error:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error Execute_Scalar_oracle sql:")
Insert_LogEntry($"ERROR Execute_Scalar_Oracle{ex.Message}")
LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
LOGGER.Info(" - SQL: " & vsql_statement)
LOGGER.Info(" - Connection: " & vconnectionString)