Jobs: Add exception for unsupported zugferd documents

2022-11-24 14:25:59 +01:00
parent a8862709d8
commit b1aba0a80d
5 changed files with 38 additions and 23 deletions
--- a/Jobs/Exceptions.vb
+++ b/Jobs/Exceptions.vb
@@ -43,8 +43,11 @@ Public Class Exceptions
    Public Class UnsupportedFerdException
        Inherits ApplicationException

-        Public Sub New()
+        Public ReadOnly Property XmlFile As String
+
+        Public Sub New(pXmlFile As String)
            MyBase.New("ZUGFeRD document found but is not supported!")
+            _XmlFile = pXmlFile
        End Sub
    End Class