AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ZUGFeRDService: Add Custom.RejectionTransferEnabled option

Browse Source
This commit is contained in:
Jonathan Jenne 2022-09-28 14:10:23 +02:00
parent 6fffd35625
commit 727d68f9ac
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Services.ZUGFeRDService/Config.vb
View File

@ -31,6 +31,7 @@
Public Property MaxAttachmentSizeInMegaBytes As Integer = -1 Public Property MaxAttachmentSizeInMegaBytes As Integer = -1
Public Property RejectionTransferEnabled As Boolean = False
Public Property RejectionTransferTimeUnit As String = "HOUR" Public Property RejectionTransferTimeUnit As String = "HOUR"
Public Property RejectionTransferTimeValue As Integer = 12 Public Property RejectionTransferTimeValue As Integer = 12
End Class End Class

4
Services.ZUGFeRDService/ThreadRunner.vb
View File

@ -182,7 +182,9 @@ Public Class ThreadRunner
Private Sub DoWork(sender As Object, e As DoWorkEventArgs) Handles _workerThread.DoWork Private Sub DoWork(sender As Object, e As DoWorkEventArgs) Handles _workerThread.DoWork
Try Try
MaybeUpdateRejected() If _config.Config.Custom.RejectionTransferEnabled = True Then
MaybeUpdateRejected()
End If
Dim oArgs As WorkerArgs = e.Argument Dim oArgs As WorkerArgs = e.Argument
_logger.Debug("Background worker running..") _logger.Debug("Background worker running..")