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 ReadOnly FormHelper As FormHelper

    Private ReadOnly Property Config As MultiTool.Shared.Config
        Get
            Return ConfigManager?.Config
        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.
        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) With {
            .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
        txtImportBasePath.EditValue = Config.Webservice.ImportBasePath
        txtImportRelativePath.EditValue = Config.Webservice.ImportRelativePath
    End Sub

    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
        Config.Webservice.BaseUrl = txtBaseURL.EditValue
        Config.Webservice.Username = txtUsername.EditValue
        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