MS ZUGFERDService/Jobs - configurable PortalName

GUIs.Test.ZUGFeRDTest/Form1.vb

@@ -88,13 +88,14 @@ Public Class Form1
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         Dim args As New WorkerArgs() With {
             .MaxAttachmentSizeInMegaBytes = 10,
-            .IgnoreRejectionStatus = False
+            .IgnoreRejectionStatus = False,
+            .NamePortal = "TEST FROM FORM"
         }
         args = LoadFolderConfig(args)
         args = LoadPropertyMapFor(args, "DEFAULT")
         args.InsertIntoSQLServer = True
 
-        Dim job As New Jobs.ImportZUGFeRDFiles(_logConfig, _firebird, 1, _mssql)
+        Dim job As New Jobs.ImportZUGFeRDFiles(_logConfig, _firebird, 1, "TEST", _mssql)
 
         job.Start(args)
     End Sub