Add MSSQL Functions to ZUGFeRD Service

Jobs/EDMI/ZUGFeRD/WorkerArgs.vb

@@ -7,6 +7,7 @@ Public Class WorkerArgs
     Public OriginalEmailDirectory As String
     Public RejectedEmailDirectory As String
     Public PropertyMap As Dictionary(Of String, XmlItemProperty)
+    Public InsertIntoSQLServer As Boolean
 
     Public Sub New()
         WatchDirectories = New List(Of String)
@@ -15,5 +16,6 @@ Public Class WorkerArgs
         OriginalEmailDirectory = Nothing
         RejectedEmailDirectory = Nothing
         PropertyMap = New Dictionary(Of String, XmlItemProperty)
+        InsertIntoSQLServer = False
     End Sub
 End Class