39 lines
1.2 KiB
VB.net
39 lines
1.2 KiB
VB.net
Imports DigitalData.Modules.Interfaces.ZUGFeRDInterface
|
|
|
|
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
|
|
|
|
Public Class ValidationException
|
|
Inherits ApplicationException
|
|
|
|
Public ValidationErrors As List(Of ZugferdValidationError)
|
|
|
|
Public Sub New()
|
|
MyBase.New("ZUGFeRD document found but validation failed!")
|
|
End Sub
|
|
End Class
|
|
End Class
|