Fix directory names

MultiTool.Shared/Winline/Data.vb

@@ -157,6 +157,7 @@ Namespace Winline
 
             For Each oMandator As Mandator In pMandators
                 Try
+                    '  TODO: This is Schaum specific, maybe move to config later
                     Dim oSQL = $"
                         SELECT 
                         [c030],
@@ -171,7 +172,7 @@ Namespace Winline
                     Dim oTable As DataTable = Database.GetDatatable(oSQL)
 
                     If oTable.Rows.Count = 0 Then
-                        Logger.Warn("No DocumentKinds found for Mandator [{0}]", oMandator.Id)
+                        Logger.Debug("No DocumentKinds found for Mandator [{0}]", oMandator.Id)
                         Continue For
                     End If
 

MultiTool.Shared/Winline/WebService.vb

@@ -16,12 +16,14 @@ Namespace Winline
         Private ReadOnly Serializer As Serializer
         Private ReadOnly Mapper As AutoMapper.Mapper
         Private ReadOnly FileEx As File
+        Private ReadOnly AppDataPath As String
 
-        Public Sub New(pLogConfig As LogConfig, pConfig As Config)
+        Public Sub New(pLogConfig As LogConfig, pConfig As Config, pAppDataPath As String)
             MyBase.New(pLogConfig, pLogConfig.GetLogger())
             FileEx = New File(pLogConfig)
             Serializer = New Serializer(pLogConfig)
             Config = pConfig
+            AppDataPath = pAppDataPath
             'Mapper = MapperFactory.GetMapper()
         End Sub
 
@@ -226,7 +228,7 @@ Namespace Winline
         'End Function
 
         Private Function GetBaseWebServicePath() As String
-            Return IO.Path.Combine(FileEx.GetAppDataPath("Digital Data", "EDI Document Importer"), "WebService")
+            Return IO.Path.Combine(AppDataPath, "WebService")
         End Function
 
         Private Function GetBaseFilenameForRequest() As String