32 lines
890 B
VB.net
32 lines
890 B
VB.net
Imports DigitalData.Modules.Logging
|
|
Imports DigitalData.Services.EDMIService.IDB
|
|
|
|
Public Class BaseClass
|
|
Friend LogConfig As LogConfig
|
|
Friend Logger As Logger
|
|
|
|
Public Sub New(pLogConfig As LogConfig)
|
|
Dim oClassName = [GetType]().Name
|
|
LogConfig = pLogConfig
|
|
Logger = pLogConfig.GetLogger(oClassName)
|
|
End Sub
|
|
|
|
''' <summary>
|
|
'''
|
|
''' </summary>
|
|
''' <exception cref="ApplicationException"></exception>
|
|
Public Sub LogAndThrow(pMessage As String)
|
|
Logger.Warn(pMessage)
|
|
Throw New ApplicationException(pMessage)
|
|
End Sub
|
|
|
|
''' <summary>
|
|
'''
|
|
''' </summary>
|
|
''' <exception cref="ApplicationException"></exception>
|
|
Public Sub LogAndThrow(pException As Exception, pMessage As String)
|
|
Logger.Error(pException)
|
|
Throw New ApplicationException(pMessage, pException)
|
|
End Sub
|
|
End Class
|