27 lines
852 B
VB.net
27 lines
852 B
VB.net
Public Class Exceptions
|
|
Public Class ZUGFeRDExecption
|
|
Inherits ApplicationException
|
|
|
|
Public ReadOnly Property ErrorType() As ZUGFeRDInterface.ErrorType
|
|
|
|
''' <summary>
|
|
''' Contains the name of the extracted xml file if already extracted.
|
|
''' </summary>
|
|
''' <returns>A filename like zugferd-invoice.xml</returns>
|
|
Public ReadOnly Property XmlFile As String = String.Empty
|
|
|
|
Public Sub New(ErrorType As ZUGFeRDInterface.ErrorType, Message As String)
|
|
MyBase.New(Message)
|
|
|
|
_ErrorType = ErrorType
|
|
End Sub
|
|
|
|
Public Sub New(ErrorType As ZUGFeRDInterface.ErrorType, Message As String, pXmlFileName As String)
|
|
MyBase.New(Message)
|
|
|
|
_ErrorType = ErrorType
|
|
_XmlFile = pXmlFileName
|
|
End Sub
|
|
End Class
|
|
End Class
|