From 727d68f9ac428541819aaf9fc09f7a5ad901e1f3 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Wed, 28 Sep 2022 14:10:23 +0200
Subject: [PATCH] ZUGFeRDService: Add Custom.RejectionTransferEnabled option

---
 Services.ZUGFeRDService/Config.vb       | 1 +
 Services.ZUGFeRDService/ThreadRunner.vb | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/Services.ZUGFeRDService/Config.vb b/Services.ZUGFeRDService/Config.vb
index ae94968c..99b64ee1 100644
--- a/Services.ZUGFeRDService/Config.vb
+++ b/Services.ZUGFeRDService/Config.vb
@@ -31,6 +31,7 @@
         Public Property MaxAttachmentSizeInMegaBytes As Integer = -1
 
 
+        Public Property RejectionTransferEnabled As Boolean = False
         Public Property RejectionTransferTimeUnit As String = "HOUR"
         Public Property RejectionTransferTimeValue As Integer = 12
     End Class
diff --git a/Services.ZUGFeRDService/ThreadRunner.vb b/Services.ZUGFeRDService/ThreadRunner.vb
index 80037170..15c2f08c 100644
--- a/Services.ZUGFeRDService/ThreadRunner.vb
+++ b/Services.ZUGFeRDService/ThreadRunner.vb
@@ -182,7 +182,9 @@ Public Class ThreadRunner
 
     Private Sub DoWork(sender As Object, e As DoWorkEventArgs) Handles _workerThread.DoWork
         Try
-            MaybeUpdateRejected()
+            If _config.Config.Custom.RejectionTransferEnabled = True Then
+                MaybeUpdateRejected()
+            End If
 
             Dim oArgs As WorkerArgs = e.Argument
             _logger.Debug("Background worker running..")