Interfaces/Job: Add check for currencyId format in ZUGFeRD documents

Jobs/Exceptions.vb

@@ -1,4 +1,6 @@
-Imports System.IO
+Imports System.Collections.Generic
+Imports System.IO
+Imports DigitalData.Modules.Interfaces.ZUGFeRDInterface
 
 Public Class Exceptions
     Public Class MissingValueException
@@ -75,4 +77,14 @@ Public Class Exceptions
             MyBase.New(pInfo)
         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

Jobs/ZUGFeRD/EmailStrings.vb

@@ -20,6 +20,10 @@
 
     Public Const EMAIL_MD5_ERROR = "<p>Die von Ihnen gesendete Rechnung wurde bereits von unserem System verarbeitet.</p>"
 
+    Public Const EMAIL_VALIDATION_ERROR = "
+        <p>Die von Ihnen gesendete Rechnung hat die ZUGFeRD Validierung nicht bestanden.</p>
+        <p>Die folgenden Felder sind nicht korrekt:<ul>{0}</ul></p>"
+
     Public Const EMAIL_TOO_MUCH_FERDS = "<p>In Ihrer Email ({0}) sind mehr als ein ZUGFeRD Dokument enthalten. Bitte prüfen Sie Rechnung an Anhänge. Nur eine Rechnung darf das ZUGFeRD-Format enthalten</p>"
 
     Public Const EMAIL_NO_FERDS = "<p>Ihre Email ({0}) enthielt keine ZUGFeRD-Dokumente.</p>"

Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb

@@ -254,6 +254,7 @@ Public Class ImportZUGFeRDFiles
 
                                 Try
                                     oDocument = _zugferd.ExtractZUGFeRDFileWithGDPicture(oFile.FullName)
+
                                 Catch ex As ZUGFeRDExecption
                                     Select Case ex.ErrorType
                                         Case ZUGFeRDInterface.ErrorType.NoZugferd
@@ -275,6 +276,17 @@ Public Class ImportZUGFeRDFiles
                                     End Select
                                 End Try
 
+                                ' These validation errors check the document according to the specification.
+                                ' Things like this will be checked:
+                                ' - Currency Codes
+                                ' - Country Codes
+                                ' - DateTime Formats
+                                If oDocument.ValidationErrors.Any() Then
+                                    Throw New ValidationException() With {
+                                        .ValidationErrors = oDocument.ValidationErrors
+                                    }
+                                End If
+
                                 ' Extract all attachments with the extensions specified in `AllowedExtensions`.
                                 ' If you need to extract and use embedded xml files, you need to filter out the zugferd-invoice.xml yourself.
                                 ' Right now the zugferd-invoice.xml is filtered out because `AllowedExtensions` does not contain `xml`.
@@ -375,6 +387,24 @@ Public Class ImportZUGFeRDFiles
                             oIsSuccess = True
                             oMoveDirectory = oArgs.SuccessDirectory
 
+                        Catch ex As ValidationException
+                            _logger.Error(ex)
+
+                            Dim oErrors = ex.ValidationErrors
+                            Dim oMessage = "REJECTED - ZUGFeRD yes but formal validation failed!"
+                            Update_HistoryEntry(oMessageId, oMD5CheckSum, oMessage, oFBTransaction)
+
+                            Dim oErrorList As String = ""
+                            For Each oError In oErrors
+                                oErrorList += $"<li>Element '{oError.ElementName}' mit Wert '{oError.ElementValue}': {oError.ErrorMessage}</li>"
+                            Next
+
+                            Dim oBody = String.Format(EmailStrings.EMAIL_VALIDATION_ERROR, oErrorList)
+                            Dim oEmailData = MoveAndRenameEmailToRejected(oArgs, oMessageId)
+
+                            _email.AddToEmailQueueMSSQL(oMessageId, oBody, oEmailData, "ValidationException", _EmailOutAccountId, oArgs.NamePortal)
+                            AddRejectedState(oMessageId, "ValidationException", "Die Rechnungsvalidierung ist fehlgeschlagen!", "", oSQLTransaction)
+
                         Catch ex As MD5HashException
                             _logger.Error(ex)