WIP

EDIDocumentImport/frmMain.vb

@@ -24,7 +24,7 @@ Public Class frmMain
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
             LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "EDI Document Importer")
-            ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath)
+            ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
             Logger = LogConfig.GetLogger()
 
             ' If ConnectionString does not exist, show SQL Config Form
@@ -41,8 +41,13 @@ Public Class frmMain
             End If
 
             ' Initialize Database
-            Database = New MSSQLServer(LogConfig, ConfigManager.Config.ConnectionString)
+            Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString)
+            Database = New MSSQLServer(LogConfig, oConnectionString)
             Winline = New WinLineInfo(LogConfig, Database)
+            Winline.LoadMandators()
+
+            cmbMandator.Properties.DataSource = Winline.Mandators
+            cmbCustomer.Properties.DataSource = Winline.Mandators
 
             ' Initialize Grids
             GridBuilder = New GridBuilder(New List(Of GridView) From {GridViewFiles, GridViewPositions})
@@ -106,7 +111,7 @@ Public Class frmMain
 
         txtBELEGKEY.Text = oHead.BELEGKEY
         txtRunningNumber.Text = oHead.Laufnummer
-        txtMandator.Text = oHead.Fakt_Kontonummer
+        cmbMandator.EditValue = Winline.Mandators.Where(Function(m) m.Id = oHead.Fakt_Kontonummer).SingleOrDefault()
         txtOrderIssuer.Text = oHead.Fakt_Ansprechpartner
         txtOrderNumber.Text = oHead.AuftragsBestellnummer
         dateOrderDate.EditValue = oHead.Datum_AuftragBestellung