AppCustom/WinLineProductNumberGenerator
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add logfiles per machine

Browse Source
This commit is contained in:
Jonathan Jenne 2020-09-23 10:21:13 +02:00
parent c415a9f5ec
commit 73328b67fc
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
WinLineArtikelnummerGenerator/frmMain.vb
View File

@ -5,6 +5,7 @@
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
My.Application.LogConfig = New LogConfig( My.Application.LogConfig = New LogConfig(
Suffix:=Environment.MachineName,
LogPath:=LogConfig.PathType.CustomPath, LogPath:=LogConfig.PathType.CustomPath,
CustomLogPath:=Application.StartupPath, CustomLogPath:=Application.StartupPath,
CompanyName:="Digital Data", CompanyName:="Digital Data",
@ -52,6 +53,8 @@
Dim oVendors = My.Application.Winline.GetVendors() Dim oVendors = My.Application.Winline.GetVendors()
listboxVendors.DataSource = oVendors listboxVendors.DataSource = oVendors
_Logger.Info("Application started from Machine {0}", Environment.MachineName)
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler beim Initialisieren (Datenbank):" & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text) MsgBox("Fehler beim Initialisieren (Datenbank):" & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
_Logger.Error(ex) _Logger.Error(ex)