From 59cfbb19841025a7df0bde9daa8f47716f8c2fe5 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Thu, 29 Sep 2022 09:10:14 +0200
Subject: [PATCH] ZUGFeRDService: Add RejectionTransferEnabled option

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

diff --git a/Services.ZUGFeRDService/Config.vb b/Services.ZUGFeRDService/Config.vb
index 99b64ee1..1281e170 100644
--- a/Services.ZUGFeRDService/Config.vb
+++ b/Services.ZUGFeRDService/Config.vb
@@ -31,7 +31,7 @@
         Public Property MaxAttachmentSizeInMegaBytes As Integer = -1
 
 
-        Public Property RejectionTransferEnabled As Boolean = False
+        Public Property RejectionTransferEnabled As Boolean = True
         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 15c2f08c..1a2a7e44 100644
--- a/Services.ZUGFeRDService/ThreadRunner.vb
+++ b/Services.ZUGFeRDService/ThreadRunner.vb
@@ -184,6 +184,8 @@ Public Class ThreadRunner
         Try
             If _config.Config.Custom.RejectionTransferEnabled = True Then
                 MaybeUpdateRejected()
+            Else
+                _logger.Debug("Transferring rejection status to Firebird is disabled.")
             End If
 
             Dim oArgs As WorkerArgs = e.Argument