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

120
app/DD_PM_WINDREAM/frmMain.vb
View File

@@ -33,7 +33,8 @@ Public Class frmMain
My.Settings.Save()
SaveGridLayout()
Catch ex As Exception
ClassLogger.Add("Error in Save FormLayout: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Error in Save FormLayout: " & ex.Message)
End Try
If WINDREAM?.oSession?.aLoggedin = True Then
WINDREAM.Stop_WMCC_andCo()
@@ -44,11 +45,12 @@ Public Class frmMain
Try
ClassAllgemeineFunktionen.LoginOut("LOGOUT")
ClassLogger.Add("## ProcessManager beendet - " & Now, False)
ClassLogger.Add("", False)
LOGGER.Info("## ProcessManager beendet - " & Now, False)
LOGGER.Info("", False)
Catch ex As Exception
ClassLogger.Add("### Fehler bei LogOut")
ClassLogger.Add("### Fehler: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("### Fehler bei LogOut")
LOGGER.Info("### Fehler: " & ex.Message)
End Try
End Sub
@@ -60,10 +62,11 @@ Public Class frmMain
End Sub
Private Sub frmMain_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Initializing MainForm....", False)
LOGGER.Debug(" >> Initializing MainForm....", False)
Try
UserLookAndFeel.Default.SetSkinStyle("VS2010")
Catch ex As Exception
LOGGER.Error(ex)
End Try
@@ -74,18 +77,19 @@ Public Class frmMain
End If
Try
If CultureInfo.CurrentUICulture.ThreeLetterISOLanguageName = "eng" Then
ClassLogger.Add("## CurrentUICulture.Name: " & CultureInfo.CurrentUICulture.Name, False)
LOGGER.Info("## CurrentUICulture.Name: " & CultureInfo.CurrentUICulture.Name, False)
INDEX_DMS_ERSTELLT = "DMS Created"
INDEX_DMS_ERSTELLT_ZEIT = "DMS Created Time"
My.Settings.Save()
End If
Catch ex As Exception
LOGGER.Error(ex)
MessageBox.Show("Fehler bei Laden der CurrentUICulture-Info!", "Achtung:", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
If Refresh_ConnectionString() = True Then
Try
tslblLicenses.Text = "Anzahl Lizenzen: " & LICENSE_COUNT
If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> Initializing MainForm....", False)
LOGGER.Debug(" >> Initializing MainForm....", False)
If ERROR_STATE = "NO USER" Then
MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt!" & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
Me.Close()
@@ -95,7 +99,7 @@ Public Class frmMain
Me.Close()
End If
Else
ClassLogger.Add(">> Username: " & Environment.UserName, False)
LOGGER.Info(">> Username: " & Environment.UserName, False)
'Wenn license abgelaufen und der User nicht admin ist!
If LICENSE_EXPIRED = True Then
If USER_IS_ADMIN = False Then
@@ -113,6 +117,7 @@ Public Class frmMain
tslblUserLoggedin.Text = "Anzahl User eingeloggt: " & USERCOUNT_LOGGED_IN
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei User Check:")
End Try
@@ -121,6 +126,7 @@ Public Class frmMain
Decide_Load()
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Fehler bei Laden des Formulars: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
@@ -133,6 +139,7 @@ Public Class frmMain
TimerRefresh.Start()
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unexpected Error in LoadForm - Step 4: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
End Try
@@ -151,10 +158,11 @@ Public Class frmMain
Me.Close()
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unexpected Error in windream-login - Step 5: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
End Try
If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> MainForm initialized!", False)
LOGGER.Debug(" >> MainForm initialized!", False)
End If
End Sub
@@ -169,6 +177,7 @@ Public Class frmMain
TimerReminder.Stop()
End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
@@ -188,7 +197,8 @@ Public Class frmMain
Me.Size = My.Settings.frmMainSize
End If
Catch ex As Exception
ClassLogger.Add("Error in Load FormLayout: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Error in Load FormLayout: " & ex.Message)
End Try
End Sub
Function Refresh_ConnectionString()
@@ -200,6 +210,7 @@ Public Class frmMain
Return True
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Refresh_ConnectionString:")
Return False
End Try
@@ -217,7 +228,8 @@ Public Class frmMain
Dim xml As String = GetXML_LayoutName()
GridView_Docs.SaveLayoutToXml(xml, OptionsLayoutBase.FullLayout)
Catch ex As Exception
ClassLogger.Add("Error while saving GridLayout: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Error while saving GridLayout: " & ex.Message)
End Try
End Sub
@@ -230,7 +242,8 @@ Public Class frmMain
Dim xml As String = GetXML_LayoutName()
GridView_Docs.RestoreLayoutFromXml(xml, OptionsLayoutBase.FullLayout)
Catch ex As Exception
ClassLogger.Add("Error while restoring layout: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Error while restoring layout: " & ex.Message)
End Try
End Sub
@@ -258,7 +271,8 @@ Public Class frmMain
End If
Catch ex As Exception
ClassLogger.Add("Error while resetting layout: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Error while resetting layout: " & ex.Message)
End Try
End Sub
@@ -273,7 +287,8 @@ Public Class frmMain
CurrGroup.ItemLinks.Clear()
Catch ex As Exception
ClassLogger.Add("CurrGroupClear - Error: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("CurrGroupClear - Error: " & ex.Message)
End Try
@@ -303,7 +318,8 @@ Public Class frmMain
CurrGroup.Expanded = profileGroupOpen
Catch ex As Exception
ClassLogger.Add("Load_Profile_items - Error: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Load_Profile_items - Error: " & ex.Message)
MsgBox("Unexpected Error in Load_Profile_items - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Cursor = Cursors.Default
@@ -342,7 +358,8 @@ Public Class frmMain
Return True
Catch ex As Exception
ClassLogger.Add("Load_Profiles_for_User - Error: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Load_Profiles_for_User - Error: " & ex.Message)
Return False
End Try
End Function
@@ -396,6 +413,7 @@ Public Class frmMain
Try
chart.Series.Clear()
Catch ex As Exception
LOGGER.Error(ex)
End Try
' Set DataSource
@@ -439,6 +457,7 @@ Public Class frmMain
Try
chart.Series.Clear()
Catch ex As Exception
LOGGER.Error(ex)
End Try
' Set DataSource
@@ -459,7 +478,8 @@ Public Class frmMain
End If
End If
Catch ex As Exception
ClassLogger.Add("Layout Dashboard - Error: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Layout Dashboard - Error: " & ex.Message)
MsgBox("Unexpected Error in Layout Dashboard - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@@ -555,7 +575,8 @@ Public Class frmMain
End If
Catch ex As Exception
ClassLogger.Add("Load_single_Profile - Error: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Load_single_Profile - Error: " & ex.Message)
End Try
End Sub
@@ -565,6 +586,7 @@ Public Class frmMain
Try
GridView_Docs.Columns.Clear()
Catch ex As Exception
LOGGER.Error(ex)
End Try
@@ -640,6 +662,7 @@ Public Class frmMain
Columns_Removed = True
GRID_INV_COL_REMOVED = True
Catch ex As Exception
LOGGER.Error(ex)
End Try
@@ -648,7 +671,8 @@ Public Class frmMain
Next
Return Columns_Removed
Catch ex As Exception
ClassLogger.Add("Unexpected Error in GridView_CheckInvalidColumns: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in GridView_CheckInvalidColumns: " & ex.Message)
End Try
End Function
Sub LoadProfile_PM()
@@ -692,14 +716,15 @@ Public Class frmMain
GridView_Docs.OptionsBehavior.AutoExpandAllGroups = True
GridView_Docs.OptionsView.ShowGroupedColumns = False
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Formatting Grid: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message)
End Try
Dim Columns_Removed = GridView_CheckInvalidColumns()
RestoreLayout()
If GridView_Docs.Columns.Count <= 2 Then
ClassLogger.Add("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
Reset_GridLayout()
End If
@@ -708,12 +733,14 @@ Public Class frmMain
Try
GridView_Docs.Columns.Clear()
Catch ex As Exception
LOGGER.Error(ex)
End Try
End If
End If
Catch ex As Exception
ClassLogger.Add("LoadProfile_PM - Fehler: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("LoadProfile_PM - Fehler: " & ex.Message)
MsgBox("Fehler LoadProfile_PM - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
@@ -725,6 +752,7 @@ Public Class frmMain
' Load_Profil()
Check_Timer_Notification()
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden Grundeinstellungen:")
End Try
@@ -740,7 +768,7 @@ Public Class frmMain
Load_Profile_items()
Decide_Load()
tsslblLastSysnc.Text = "Letzte Synchronisation: " & Now.ToLongTimeString
End Sub
Private Sub NotifyIcon1_Click(sender As System.Object, e As System.EventArgs) Handles NotifyIcon1.Click
@@ -761,7 +789,8 @@ Public Class frmMain
Load_single_Profile()
End If
Catch ex As Exception
ClassLogger.Add("Unexpected error in Decide_load: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Unexpected error in Decide_load: " & ex.Message)
End Try
If TimerRefresh.Enabled = False Then
TimerRefresh.Start()
@@ -798,13 +827,15 @@ Public Class frmMain
Try
splash.ShowDialog()
Catch ex As Exception
ClassLogger.Add($"Error in Splash: {ex.Message}")
LOGGER.Error(ex)
LOGGER.Info($"Error in Splash: {ex.Message}")
End Try
Try
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Catch ex As Exception
ClassLogger.Add($"Error in InitializeComponent: {ex.Message}")
LOGGER.Error(ex)
LOGGER.Info($"Error in InitializeComponent: {ex.Message}")
End Try
@@ -833,6 +864,7 @@ Public Class frmMain
frmValidator.ShowDialog()
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
Me.Visible = True
@@ -942,6 +974,7 @@ Public Class frmMain
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
@@ -954,11 +987,12 @@ Public Class frmMain
WINDREAM = New ClassPMWindream()
WINDREAM.Create_Session()
If LOG_ERRORS_ONLY = False Then ClassLogger.Add(" >> windream initialized", False)
LOGGER.Debug(" >> windream initialized", False)
Return True
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error Init_windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
ClassLogger.Add(">> Unexpected error in Init_windream: " & ex.Message, True)
LOGGER.Info(">> Unexpected error in Init_windream: " & ex.Message, True)
Return False
End Try
End Function
@@ -1027,6 +1061,7 @@ Public Class frmMain
End If
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unhandled Error in tsmiMarkedFilesFinish_Click: " & ex.Message)
End Try
End Sub
@@ -1053,7 +1088,7 @@ Public Class frmMain
tslblmessage.Text = ""
If CURRENT_DT_VW_PROFILE_USER.Rows.Count = 0 Then
ClassLogger.Add(" >> no profiles for user: '" & Environment.UserName & "' configured!", False)
LOGGER.Info(" >> no profiles for user: '" & Environment.UserName & "' configured!", False)
NO_WORKFLOWITEMS = True
tslblmessage.Text = "Keine Profile für Ihren User hinterlegt"
Cursor = Cursors.Default
@@ -1083,7 +1118,8 @@ Public Class frmMain
Try
DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1", True)
Catch ex As Exception
ClassLogger.Add(ex.Message)
LOGGER.Error(ex)
LOGGER.Info(ex.Message)
End Try
@@ -1101,6 +1137,7 @@ Public Class frmMain
Try
GridView_Docs.Columns.Clear()
Catch ex As Exception
LOGGER.Error(ex)
End Try
Cursor = Cursors.Default
@@ -1150,7 +1187,7 @@ Public Class frmMain
Dim oindex As Integer = 0
If Not IsNothing(DTGRID_GROUPS) Then
For Each oGridGroup As DataRow In DTGRID_GROUPS.Rows
If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> Addig group [{oGridGroup.Item("GROUPNAME")}] for Grid...", False)
LOGGER.Debug($" >> Addig group [{oGridGroup.Item("GROUPNAME")}] for Grid...", False)
GridView_Docs.Columns.Item(oGridGroup.Item("GROUPNAME")).GroupIndex = oindex
oindex += 1
Next
@@ -1158,13 +1195,13 @@ Public Class frmMain
GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = oindex
End If
GridView_Docs.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
GridView_Docs.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
For index = 0 To GridView_Docs.GroupCount - 1
Dim v = GridView_Docs.GroupedColumns(index).ToString
If LOG_ERRORS_ONLY = False Then ClassLogger.Add($" >> Addig tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...", False)
LOGGER.Debug($" >> Addig tag [{GridView_Docs.Columns.Item("PROFILE_ID")}] for group...", False)
GridView_Docs.GroupedColumns(index).Tag = GridView_Docs.Columns.Item("PROFILE_ID")
Next
@@ -1180,7 +1217,8 @@ Public Class frmMain
GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Formatting Grid: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message)
End Try
Try
For Each grid_column As GridColumn In GridView_Docs.Columns
@@ -1202,6 +1240,7 @@ Public Class frmMain
Try
grid_column.Dispose()
Catch ex As Exception
LOGGER.Error(ex)
End Try
@@ -1211,7 +1250,8 @@ Public Class frmMain
End If
Next
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Checking ColumnsGrid: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in Checking ColumnsGrid: " & ex.Message)
End Try
@@ -1219,7 +1259,7 @@ Public Class frmMain
'GridView_Docs.SaveLayoutToXml(GetXML_LayoutName())
SaveGridLayout()
If GridView_Docs.Columns.Count <= 2 Then
ClassLogger.Add("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
LOGGER.Info("GridView_Docs.Columns.Count <= 2 - Reset_Gridlayout will be forced...", False)
Reset_GridLayout()
End If
@@ -1231,6 +1271,7 @@ Public Class frmMain
Try
GridView_Docs.Columns.Clear()
Catch ex As Exception
LOGGER.Error(ex)
End Try
End If
@@ -1240,7 +1281,8 @@ Public Class frmMain
Catch ex As Exception
ClassLogger.Add("Load_Grid_Overview - Fehler: " & ex.Message)
LOGGER.Error(ex)
LOGGER.Info("Load_Grid_Overview - Fehler: " & ex.Message)
MsgBox("Fehler Load_Grid_Overview - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
Cursor = Cursors.Default
@@ -1308,6 +1350,7 @@ Public Class frmMain
End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
End Sub
@@ -1347,6 +1390,7 @@ Public Class frmMain
End If
Catch ex As Exception
LOGGER.Error(ex)
End Try
End Sub