jj: ZUGFeRD

Modules.Interfaces/Exceptions.vb

@@ -0,0 +1,13 @@
+Public Class Exceptions
+    Public Class ZUGFeRDExecption
+        Inherits ApplicationException
+
+        Public ReadOnly Property ErrorType() As ZUGFeRDInterface.ErrorType
+
+        Public Sub New(ErrorType As ZUGFeRDInterface.ErrorType, Message As String)
+            MyBase.New(Message)
+
+            _ErrorType = ErrorType
+        End Sub
+    End Class
+End Class