First Version with Template Config from Database

MultiTool.Form/frmConfig.vb

@@ -1,7 +1,12 @@
-Imports DigitalData.Modules.Config
+Imports System.Data.SqlClient
+Imports DigitalData.Modules.Config
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
 
 Public Class frmConfig
     Public Property ConfigManager As ConfigManager(Of MultiTool.Shared.Config)
+    Private LogConfig As LogConfig
+    Private FormHelper As FormHelper
 
     Private ReadOnly Property Config As MultiTool.Shared.Config
         Get
@@ -9,7 +14,27 @@ Public Class frmConfig
         End Get
     End Property
 
+    Public Sub New(pLogConfig As LogConfig)
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        LogConfig = pLogConfig
+        FormHelper = New FormHelper(pLogConfig)
+    End Sub
+
     Private Sub frmConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim oConnectionString = MSSQLServer.DecryptConnectionString(Config.ConnectionString)
+        Dim oBuilder As New SqlConnectionStringBuilder(oConnectionString)
+        oBuilder.InitialCatalog = "DD_ECM"
+
+        TBEDI_XML_ITEMSTableAdapter.Connection.ConnectionString = oBuilder.ToString()
+        TBEDI_XML_ITEMSTableAdapter.Fill(Me.DS_DD_ECM.TBEDI_XML_ITEMS)
+
+        txtInputDir.EditValue = Config.InputDirectory
+        txtOutputDir.EditValue = Config.OutputDirectory
+        txtSchemaDir.EditValue = Config.SchemaDirectory
+
         txtBaseURL.EditValue = Config.Webservice.BaseUrl
         txtUsername.EditValue = Config.Webservice.Username
         txtPassword.EditValue = Config.Webservice.Password
@@ -23,6 +48,19 @@ Public Class frmConfig
         Config.Webservice.Password = txtPassword.EditValue
         Config.Webservice.ImportBasePath = txtImportBasePath.EditValue
         Config.Webservice.ImportRelativePath = txtImportRelativePath.EditValue
+
+        Config.InputDirectory = txtInputDir.EditValue
+        Config.OutputDirectory = txtOutputDir.EditValue
+        Config.SchemaDirectory = txtSchemaDir.EditValue
+
         ConfigManager.Save()
+
+        Try
+            TBEDIXMLITEMSBindingSource.EndEdit()
+            TBEDI_XML_ITEMSTableAdapter.Update(DS_DD_ECM.TBEDI_XML_ITEMS)
+        Catch ex As Exception
+            FormHelper.ShowError(ex, "Speichern der Konfiguration")
+        End Try
+
     End Sub
 End Class