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

MS v2.0

Browse Source
This commit is contained in:
SchreiberM
2019-11-29 14:35:20 +01:00
parent 7e541a8013
commit 2c5f1e4aea
49 changed files with 9759 additions and 3658 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
View File

@@ -29,13 +29,12 @@ Public Class ClassAllgemeineFunktionen
End Try
End Function
Public Function Insert_LogEntry(PROFIL_ID As String, ERR_MSG As String, USR As String)
Public Function Insert_LogEntry(ERR_MSG As String)
Try
If IsNumeric(PROFIL_ID) Then
Dim insert As String = "INSERT INTO TBPM_ERROR_LOG (PROFIL_ID, ERROR_MSG, ADDED_WHO) VALUES (" & PROFIL_ID & ", '" & ERR_MSG & "', '" & USR & "')"
If ExecuteonMSSQL(insert, CONNECTION_STRING) <> "" Then
LOGGER.Info("Eintrag in Log-Tabelle konnte nicht erstellt werden!!", True)
End If
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) <> "" Then
LOGGER.Info("Eintrag in Log-Tabelle konnte nicht erstellt werden!!", True)
End If
Catch ex As Exception
LOGGER.Error(ex)
@@ -63,7 +62,7 @@ Public Class ClassAllgemeineFunktionen
LOGGER.Error(ex)
' DB-Connection schliessen
Me.CloseMssqlDb(Connection)
LOGGER.Info("ExecuteonMSSQL.Connection definieren - Error: " & ex.Message, True)
LOGGER.Debug("ExecuteonMSSQL.Connection definieren - Error: " & ex.Message, True)
Return "ExecuteonMSSQL.Connection definieren - Error: " & ex.Message
End Try
@@ -73,7 +72,7 @@ Public Class ClassAllgemeineFunktionen
Command = New SqlCommand(sqlcommand, Connection)
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("ExecuteonMSSQL.sqlcommand definieren - Error: " & ex.Message, True)
LOGGER.Debug("ExecuteonMSSQL.sqlcommand definieren - Error: " & ex.Message, True)
' DB-Connection schliessen
Me.CloseMssqlDb(Connection)
Return "ExecuteonMSSQL.sqlcommand definieren - Error: " & ex.Message
@@ -183,7 +182,7 @@ Public Class ClassAllgemeineFunktionen
LOGGER.Info(" Fehler bei Move2Folder", True)
LOGGER.Info(">> Fehlermeldung")
LOGGER.Info(">>" & ex.Message)
Insert_LogEntry(Profile_ID, "Fehler bei Move2Folder: " & ex.Message, USER_USERNAME)
Insert_LogEntry($"ERROR >> {ex.Message}")
Return ex.Message
End Try
End Function
@@ -269,7 +268,7 @@ Public Class ClassAllgemeineFunktionen
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
Insert_LogEntry(profil_id, "Unvorhergesehener Fehler bei Execute_Scalar_Oracle: " & ex.Message, USER_USERNAME)
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)
@@ -303,7 +302,7 @@ Public Class ClassAllgemeineFunktionen
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
Insert_LogEntry(profil_id, "Unvorhergesehener Fehler bei Execute_Scalar_Oracle: " & ex.Message, USER_USERNAME)
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)