ZUGFeRDService: Add IgnoreRejectionStatus Parameter

Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb

@@ -240,8 +240,8 @@ Public Class ImportZUGFeRDFiles
                                     oEmbeddedAttachmentFiles.AddRange(oAttachments)
                                 End If
 
-                                ' TODO MD5
-                                oMD5CheckSum = Check_MD5Sum(oFile.FullName)
+                                ' Check the Checksum and rejection status
+                                oMD5CheckSum = Check_MD5Sum(oFile.FullName, oArgs.IgnoreRejectionStatus)
 
                                 ' Check if there are more than one ZUGFeRD files
                                 If oZUGFeRDCount = 1 Then
@@ -723,7 +723,7 @@ Public Class ImportZUGFeRDFiles
         ' even if the Checksum exists in the history entries (default case)
         ' Which means, if it was not rejected before, it will be rejected in any case!
         '
-        ' This logic can be overwritten by the ForceRejection parameter.
+        ' This logic can be overwritten by the IgnoreRejectionStatus parameter.
         ' If it is set to true, the file will be rejected if the file exists in the history entries,
         ' regardless of the rejected parameter.
         If oRejected = False Or pIgnoreRejectionStatus = True Then

Modules.Jobs/EDMI/ZUGFeRD/WorkerArgs.vb

@@ -7,11 +7,13 @@ Public Class WorkerArgs
     Public ErrorDirectory As String
     Public OriginalEmailDirectory As String
     Public RejectedEmailDirectory As String
-    Public ExceptionEmailAddress As String
     Public AttachmentsSubDirectory As String
     Public PropertyMap As Dictionary(Of String, XmlItemProperty)
     Public InsertIntoSQLServer As Boolean
 
+    Public ExceptionEmailAddress As String
+    Public IgnoreRejectionStatus As Boolean
+
     Public Sub New()
         WatchDirectories = New List(Of String)
         SuccessDirectory = Nothing
@@ -19,8 +21,10 @@ Public Class WorkerArgs
         OriginalEmailDirectory = Nothing
         RejectedEmailDirectory = Nothing
         AttachmentsSubDirectory = Nothing
-        ExceptionEmailAddress = Nothing
         PropertyMap = New Dictionary(Of String, XmlItemProperty)
         InsertIntoSQLServer = False
+
+        ExceptionEmailAddress = Nothing
+        IgnoreRejectionStatus = False
     End Sub
 End Class