ZUGFeRDService: Add config option MaxAttachmentSizeInMegaBytes

2021-07-13 13:38:54 +02:00
parent b81d6a1314
commit d8c534c3e3
7 changed files with 70 additions and 15 deletions
--- a/GUIs.Test.ZUGFeRDTest/Form1.vb
+++ b/GUIs.Test.ZUGFeRDTest/Form1.vb
@@ -86,7 +86,10 @@ Public Class Form1
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        Dim args As New WorkerArgs()
+        Dim args As New WorkerArgs() With {
+            .MaxAttachmentSizeInMegaBytes = 10,
+            .IgnoreRejectionStatus = False
+        }
        args = LoadFolderConfig(args)
        args = LoadPropertyMapFor(args, "DEFAULT")
        args.InsertIntoSQLServer = True