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

Tweak logging, ZUGFeRD Import

Browse Source
This commit is contained in:
Jonathan Jenne
2019-03-12 15:48:47 +01:00
parent af00fab575
commit 463f4ce22d
3 changed files with 125 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Modules.Logging/Logger.vb
View File

@@ -8,7 +8,15 @@ Public Class Logger
''' </summary>
''' <param name="blockId">A unique Identifier for this block, eg. DocId, FullPath, ..</param>
Public Sub NewBlock(blockId As String)
Dim message As String = $"=========={vbTab}{vbTab}Start of Block {blockId}{vbTab}{vbTab}=========="
Dim message As String = $"-----> Start of Block {blockId}"
Dim logEventInfo As New LogEventInfo(LogLevel.Info, Name, message)
Dim WrapperType As Type = GetType(Logger)
Log(WrapperType, logEventInfo)
End Sub
Public Sub EndBlock()
Dim message As String = $"<----- End of Block"
Dim logEventInfo As New LogEventInfo(LogLevel.Info, Name, message)
Dim WrapperType As Type = GetType(Logger)