AppCustom/MultiTool
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix directory names

Browse Source
This commit is contained in:
Jonathan Jenne
2021-10-29 10:50:48 +02:00
parent 1035a0fb1f
commit 880a345e06
4 changed files with 16 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
MultiTool.Form/frmImportMain.vb
View File

@@ -57,14 +57,15 @@ Public Class frmImportMain
Try
txtVersion.Caption = String.Format(txtVersion.Caption, Application.ProductVersion)
LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "EDI Document Importer")
LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, Application.CompanyName, Application.ProductName)
Logger = LogConfig.GetLogger()
Logger.Info("EDI Document Importer, Version [{0}]", Application.ProductVersion)
Logger.Info("Starting {0}, Version [{1}]", Application.ProductName, Application.ProductVersion)
ConfigManager = New ConfigManager(Of Config)(LogConfig,
Application.UserAppDataPath,
Application.CommonAppDataPath,
Application.StartupPath)
Application.UserAppDataPath,
Application.CommonAppDataPath,
Application.StartupPath
)
Message = New Message(LogConfig)
@@ -90,7 +91,7 @@ Public Class frmImportMain
Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString)
Database = New MSSQLServer(LogConfig, oConnectionString)
Winline = New Data(LogConfig, Database, ConfigManager.Config)
WebService = New WebService(LogConfig, ConfigManager.Config)
WebService = New WebService(LogConfig, ConfigManager.Config, Application.UserAppDataPath)
PositionData = New PositionData(LogConfig, Winline)
Catch ex As Exception
ShowError(ex, "Initialisieren der Anwendungs Daten")
@@ -370,7 +371,8 @@ Public Class frmImportMain
End Sub
Private Sub btnOpenOutputDirectory_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnOpenOutputDirectory.ItemClick
Dim oOutputDirectory = IO.Path.Combine(FileEx.GetAppDataPath("Digital Data", "EDI Document Importer"), "WebService")
Dim oOutputDirectory = Path.Combine(Application.UserAppDataPath, "WebService")
'Dim oOutputDirectory = IO.Path.Combine(FileEx.GetAppDataPath("Digital Data", "EDI Document Importer"), "WebService")
TryOpenDirectory(oOutputDirectory, "Ausgabeverzeichnis")
End Sub

2
MultiTool.Form/frmImportMain_old.vb
View File

@@ -53,7 +53,7 @@ Public Class frmImportMain_old
Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString)
Database = New MSSQLServer(LogConfig, oConnectionString)
Winline = New Data(LogConfig, Database, ConfigManager.Config)
WebService = New WebService(LogConfig, ConfigManager.Config)
WebService = New WebService(LogConfig, ConfigManager.Config, Application.UserAppDataPath)
PositionData = New PositionData(LogConfig, Winline)
' Load WinLine Data