ZUGFeRDService: Add IgnoreRejectionStatus Parameter

Services.ZUGFeRDService/Config.vb

@@ -1,5 +1,7 @@
 Public Class Config
     Public Property Firebird As New FirebirdConfig
+    Public Property Custom As New CustomConfig
+
     Public Property MSSQLConnectionString As String = ""
     Public Property MSSQLEnabled As Boolean = False
     Public Property MSSQLEmailOutAccountID As String = 1
@@ -9,6 +11,18 @@
 
     Public Property Debug As Boolean = False
 
+    Public Class CustomConfig
+        ''' <summary>
+        ''' If the file was already rejected, it is allowed to be processed again, 
+        ''' even if the Checksum exists in the history entries (default case)
+        '''
+        ''' 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 status.
+        ''' </summary>
+        Public Property IgnoreRejectionStatus As Boolean = False
+    End Class
+
     Public Class FirebirdConfig
         Public Property DataSource As String = "172.24.12.41"
         Public Property Database As String = "172.24.12.41:E:\DB\Firebird\Databases\EDMI_TEMPLATE\EDMI_MASTER.FDB"

Services.ZUGFeRDService/ThreadRunner.vb

@@ -50,7 +50,8 @@ Public Class ThreadRunner
         End Try
 
         Dim oArgs As New WorkerArgs With {
-            .ExceptionEmailAddress = _config.Config.ExceptionEmailAddress
+            .ExceptionEmailAddress = _config.Config.ExceptionEmailAddress,
+            .IgnoreRejectionStatus = _config.Config.Custom.IgnoreRejectionStatus
         }
         oArgs = LoadFolderConfig(oArgs)
         oArgs = LoadPropertyMapFor(oArgs, "DEFAULT")