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..")