47 lines
1.0 KiB
VB.net
47 lines
1.0 KiB
VB.net
Imports System.IO
|
|
|
|
Public Class Exceptions
|
|
Public Class MissingValueException
|
|
Inherits ApplicationException
|
|
|
|
Public ReadOnly File As FileInfo
|
|
|
|
Public Sub New(File As FileInfo)
|
|
MyBase.New()
|
|
|
|
Me.File = File
|
|
End Sub
|
|
End Class
|
|
|
|
Public Class TooMuchFerdsException
|
|
Inherits ApplicationException
|
|
|
|
Public Sub New()
|
|
MyBase.New("More than one ZUGFeRD document found")
|
|
End Sub
|
|
End Class
|
|
|
|
Public Class InvalidFerdException
|
|
Inherits ApplicationException
|
|
|
|
Public Sub New()
|
|
MyBase.New("ZUGFeRD document found but was not formatted correctly")
|
|
End Sub
|
|
End Class
|
|
|
|
Public Class NoFerdsException
|
|
Inherits ApplicationException
|
|
|
|
Public Sub New()
|
|
MyBase.New("No ZUGFeRD documents found")
|
|
End Sub
|
|
End Class
|
|
Public Class MD5HashException
|
|
Inherits ApplicationException
|
|
|
|
Public Sub New(pInfo As String)
|
|
MyBase.New(pInfo)
|
|
End Sub
|
|
End Class
|
|
End Class
|