Migrate from Filesystem to Base

GUIs.Test.ZUGFeRDTest/Form1.vb

@@ -37,7 +37,7 @@ Public Class Form1
 
             Select Case oFolderType
                 Case ZUGFERD_IN
-                    args.WatchDirectories.Add(row.Item("FOLDER_PATH"))
+                    args.WatchDirectory = row.Item("FOLDER_PATH")
 
                 Case ZUGFERD_SUCCESS
                     args.SuccessDirectory = row.Item("FOLDER_PATH")
@@ -95,9 +95,8 @@ Public Class Form1
         }
         args = LoadFolderConfig(args)
         args = LoadPropertyMapFor(args)
-        args.InsertIntoSQLServer = True
 
-        Dim job As New Jobs.ImportZUGFeRDFiles(_logConfig, _firebird, _mssql)
+        Dim job As New Jobs.ImportZUGFeRDFiles(_logConfig, _mssql)
 
         job.Start(args)
     End Sub