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

Use Logger Module

Browse Source
This commit is contained in:
Jonathan Jenne
2019-04-16 14:01:35 +02:00
parent 4c86bd4c5c
commit 31bf65a5f0
37 changed files with 938 additions and 859 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
View File

@@ -16,12 +16,13 @@ Public Class ClassAllgemeineFunktionen
Sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Process-Manager')"
End If
If ClassDatabase.Execute_non_Query(Sql, True) = True Then
If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> User logged in....", False)
LOGGER.Debug(" >> User logged in....", False)
Else
ClassLogger.Add(" >> User could not be logged in/out....", False)
LOGGER.Info(" >> User could not be logged in/out....", False)
End If
Catch ex As Exception
ClassLogger.Add("Error in LoginOut: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Error in LoginOut: " & ex.Message)
End Try
End Sub
@@ -30,11 +31,12 @@ Public Class ClassAllgemeineFunktionen
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
ClassLogger.Add("Eintrag in Log-Tabelle konnte nicht erstellt werden!!", True)
LOGGER.Info("Eintrag in Log-Tabelle konnte nicht erstellt werden!!", True)
End If
End If
Catch ex As Exception
ClassLogger.Add("Error in Insert_LogEntry: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Error in Insert_LogEntry: " & ex.Message)
End Try
@@ -55,9 +57,10 @@ Public Class ClassAllgemeineFunktionen
Try
Connection.Open()
Catch ex As Exception
LOGGER.Error(ex)
' DB-Connection schliessen
Me.CloseMssqlDb(Connection)
ClassLogger.Add("ExecuteonMSSQL.Connection definieren - Error: " & ex.Message, True)
LOGGER.Info("ExecuteonMSSQL.Connection definieren - Error: " & ex.Message, True)
Return "ExecuteonMSSQL.Connection definieren - Error: " & ex.Message
End Try
@@ -66,7 +69,8 @@ Public Class ClassAllgemeineFunktionen
Try
Command = New SqlCommand(sqlcommand, Connection)
Catch ex As Exception
ClassLogger.Add("ExecuteonMSSQL.sqlcommand definieren - Error: " & ex.Message, True)
LOGGER.Error(ex)
LOGGER.Info("ExecuteonMSSQL.sqlcommand definieren - Error: " & ex.Message, True)
' DB-Connection schliessen
Me.CloseMssqlDb(Connection)
Return "ExecuteonMSSQL.sqlcommand definieren - Error: " & ex.Message
@@ -81,9 +85,10 @@ Public Class ClassAllgemeineFunktionen
Me.CloseMssqlDb(Connection)
Return ""
Catch ex As Exception
LOGGER.Error(ex)
'bei einem Fehler einen Eintrag in der Logdatei erzeugen
ClassLogger.Add("ExecuteonMSSQL.Execute Command - Error: " & ex.Message, True)
ClassLogger.Add("Command-Befehl: " & Command.CommandText, True)
LOGGER.Info("ExecuteonMSSQL.Execute Command - Error: " & ex.Message, True)
LOGGER.Info("Command-Befehl: " & Command.CommandText, True)
' DB-Connection schliessen
Me.CloseMssqlDb(Connection)
Return "ExecuteonMSSQL.Execute Command - Error: " & ex.Message
@@ -92,12 +97,13 @@ Public Class ClassAllgemeineFunktionen
Else
' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
' Eintrag in Logdatei machen
ClassLogger.Add("ExecuteonMSSQL.SQL-Command ist ungültig. Command-Objekt konnte nicht erstellt werden")
LOGGER.Info("ExecuteonMSSQL.SQL-Command ist ungültig. Command-Objekt konnte nicht erstellt werden")
Return "ExecuteonMSSQL.SQL-Command ist ungültig. Command-Objekt konnte nicht erstellt werden"
End If
Catch ex As Exception
LOGGER.Error(ex)
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
ClassLogger.Add("ExecuteonMSSQL.Ein unbekannter Fehler in ExecuteonMSSQL - Error: " & ex.Message, True)
LOGGER.Info("ExecuteonMSSQL.Ein unbekannter Fehler in ExecuteonMSSQL - Error: " & ex.Message, True)
Return "ExecuteonMSSQL.Ein unbekannter Fehler in ExecuteonMSSQL - Error: " & ex.Message
End Try
@@ -118,14 +124,15 @@ Public Class ClassAllgemeineFunktionen
Dim xffres As String = Path & "\" & Stammname & ".xffres"
If file_exists(xffres, clsWD) = True Then
System.IO.File.Delete(xffres)
ClassLogger.Add(">> Datei " & xffres & " erfolgreich gelöscht", False)
LOGGER.Info(">> Datei " & xffres & " erfolgreich gelöscht", False)
Return True
Else
Return Nothing
End If
Catch ex As Exception
ClassLogger.Add(" Fehler bei Delete_xffres", True)
ClassLogger.Add(">> Fehlermeldung: " & ex.Message, False)
LOGGER.Error(ex)
LOGGER.Info(" Fehler bei Delete_xffres", True)
LOGGER.Info(">> Fehlermeldung: " & ex.Message, False)
End Try
End Function
'Public Function Delete_File(originFile As String)
@@ -133,15 +140,15 @@ Public Class ClassAllgemeineFunktionen
' If file_exists(originFile, False) = True Then
' System.IO.File.Delete(originFile)
' ClassLogger.Add(">> Manuelles Löschen: Datei " & originFile & " erfolgreich gelöscht", False)
' LOGGER.Info(">> Manuelles Löschen: Datei " & originFile & " erfolgreich gelöscht", False)
' Return True
' Else
' MsgBox("Die Datei konnte nicht gelsöcht werden. File NOT EXISTS", MsgBoxStyle.Exclamation)
' Return False
' End If
' Catch ex As Exception
' ClassLogger.Add(" Fehler bei Delete_File", True)
' ClassLogger.Add(">> Fehlermeldung: " & ex.Message, False)
' LOGGER.Info(" Fehler bei Delete_File", True)
' LOGGER.Info(">> Fehlermeldung: " & ex.Message, False)
' End Try
'End Function
@@ -149,7 +156,7 @@ Public Class ClassAllgemeineFunktionen
Try
If VIEWER_PDF <> "internal" And vMove_File.EndsWith("pdf") Then
Do While clsWD.CheckFileExists(vMove_File) = True 'func_check_file_use(vMove_File)
ClassLogger.Add(">> MoveRename: Datei noch geöffnet - Warten", False)
LOGGER.Info(">> MoveRename: Datei noch geöffnet - Warten", False)
System.Threading.Thread.Sleep(500)
Loop
End If
@@ -169,16 +176,17 @@ Public Class ClassAllgemeineFunktionen
version = version + 1
Loop
My.Computer.FileSystem.MoveFile(vMove_File, _Ziel)
ClassLogger.Add(">> Datei erfolgreich verschoben - Ziel: " & _Ziel, False)
LOGGER.Info(">> Datei erfolgreich verschoben - Ziel: " & _Ziel, False)
Else
ClassLogger.Add(">> Ziel und Quellpfad sind identisch!", False)
LOGGER.Info(">> Ziel und Quellpfad sind identisch!", False)
End If
Return ""
Catch ex As Exception
ClassLogger.Add(" Fehler bei Move2Folder", True)
ClassLogger.Add(">> Fehlermeldung", False)
ClassLogger.Add(">>" & ex.Message, False)
LOGGER.Error(ex)
LOGGER.Info(" Fehler bei Move2Folder", True)
LOGGER.Info(">> Fehlermeldung", False)
LOGGER.Info(">>" & ex.Message, False)
Insert_LogEntry(Profile_ID, "Fehler bei Move2Folder: " & ex.Message, Environment.UserName)
Return ex.Message
End Try
@@ -187,7 +195,8 @@ Public Class ClassAllgemeineFunktionen
Try
Return clsWD.CheckFileExists(_file)
Catch ex As Exception
ClassLogger.Add("Fehler in Funktion file_exists - Fehler: ", ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Fehler in Funktion file_exists - Fehler: ", ex.Message)
Return False
End Try
End Function
@@ -229,8 +238,9 @@ Public Class ClassAllgemeineFunktionen
End Select
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei checkValue_Exists:")
ClassLogger.Add(" - Unvorhergesehener Fehler bei checkValue_Exists - Fehler: " & vbNewLine & ex.Message)
LOGGER.Info(" - Unvorhergesehener Fehler bei checkValue_Exists - Fehler: " & vbNewLine & ex.Message)
Return False
End Try
End Function
@@ -261,11 +271,12 @@ Public Class ClassAllgemeineFunktionen
End If
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, Environment.UserName)
ClassLogger.Add(" - Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
ClassLogger.Add(" - SQL: " & vsql_statement, False)
ClassLogger.Add(" - Connection: " & vconnectionString, False)
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, False)
LOGGER.Info(" - Connection: " & vconnectionString, False)
Return 99
End Try
End Function
@@ -294,11 +305,12 @@ Public Class ClassAllgemeineFunktionen
cmd.Dispose()
cnn.Close()
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, Environment.UserName)
ClassLogger.Add(" - Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
ClassLogger.Add(" - SQL: " & vsql_statement, False)
ClassLogger.Add(" - Connection: " & vconnectionString, False)
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, False)
LOGGER.Info(" - Connection: " & vconnectionString, False)
Return 99
End Try
End Function