Attribute VB_Name = "modError"
'==============================================================================
'
' File   : Error.bas
' Date   : 18.03.1999
' Version: 1.00
' Author : Andreas Schmidt, lindner&partner
'
'==============================================================================
'
' *shared*
'
' Standard-Fehler-MessageBox mit Logging der
' Fehlermeldung.
'
'==============================================================================
'
' History:
'
' Date   : 11.02.1999
' Version: 1.00
' Author : Andreas Schmidt, lindner&partner
'
' Erste dokumentierte Version.
'
'==============================================================================

Option Explicit

' Helper für Fehlerausgaben
'
' @param sMethod    Name des Aufrufers
' @param sInfo      optionaler Hinweistext
'
Public Sub showError(sMethod As String, Optional sInfo As String)
    Dim sError As String
    
    If IsMissing(sInfo) Then sInfo = ""
    
    If Not IsMissing(sInfo) Then sError = sError & sInfo & vbCrLf & vbCrLf
    
    If Err.Number <> 0 Then
        sError = sError & Error$(Err.Number) & " (" & Err.Number & ")"
    End If
    
    If Not g_Logger Is Nothing Then
        Call g_Logger.log(1, sMethod + ": " + sError)
    End If
    
    Call ErrorMsgBox(sMethod + ": " + sError)
End Sub