32 lines
679 B
VB.net
32 lines
679 B
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 NoFerdsException
|
|
Inherits ApplicationException
|
|
|
|
Public Sub New()
|
|
MyBase.New("No ZUGFeRD documents found")
|
|
End Sub
|
|
End Class
|
|
End Class
|