Clean imported documents, first pass of Import form

MultiTool.Form/frmMain.vb

@@ -6,6 +6,8 @@ Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
 Imports MultiTool.Shared.Templates
+Imports MultiTool.Shared.Winline
+Imports MultiTool.Shared.Winline.Entities
 
 Public Class frmMain
     Private LogConfig As LogConfig
@@ -15,6 +17,7 @@ Public Class frmMain
     Private TemplateLoader As TemplateLoader
     Private GridBuilder As GridBuilder
     Private FormHelper As FormHelper
+    Private WinLine As WinlineData
 
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
@@ -33,10 +36,10 @@ Public Class frmMain
     End Sub
 
     Private Async Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        SplashScreenManager1.ShowWaitForm()
+        SplashScreenManager.ShowWaitForm()
 
         Try
-            SplashScreenManager1.SetWaitFormDescription("Initialisierung der Grundfunktionen")
+            SplashScreenManager.SetWaitFormDescription("Initialisierung der Grundfunktionen")
 
             FormHelper = New FormHelper(LogConfig)
             ConfigManager = New ConfigManager(Of [Shared].Config)(LogConfig,
@@ -62,13 +65,13 @@ Public Class frmMain
                 End If
             End If
 
-            SplashScreenManager1.SetWaitFormDescription("Initialisierung der Datenbankverbindung")
+            SplashScreenManager.SetWaitFormDescription("Initialisierung der Datenbankverbindung")
 
             ' Initialize Database
             Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString)
             Database = New MSSQLServer(LogConfig, oConnectionString)
 
-            SplashScreenManager1.SetWaitFormDescription("Initialisierung der Vorlagen")
+            SplashScreenManager.SetWaitFormDescription("Initialisierung der Vorlagen")
 
             ' Initialize Schemas
             TemplateLoader = New TemplateLoader(LogConfig, Database)
@@ -90,12 +93,32 @@ Public Class frmMain
                 oBindingSource.Add(oTemplate)
             Next
 
+            SplashScreenManager.SetWaitFormDescription("Lade Winline Stammdaten")
+            WinLine = New WinlineData(LogConfig, Database, My.GeneralConfiguration, My.MappingConfiguration, My.MandatorConfiguration)
+            WinLine.Mandators.Clear()
+            WinLine.LoadEconomicYears()
+            Await WinLine.LoadMandators()
+
+            For Each oMandator As Mandator In WinLine.Mandators
+                SplashScreenManager.SetWaitFormDescription(String.Format(My.Resources.frmImportMainExtra.Lade__0__Konten, oMandator.Id))
+                Await WinLine.LoadAccounts(oMandator)
+                SplashScreenManager.SetWaitFormDescription(String.Format(My.Resources.frmImportMainExtra.Lade__0__Artikel, oMandator.Id))
+                Await WinLine.LoadArticles(oMandator)
+                SplashScreenManager.SetWaitFormDescription(String.Format(My.Resources.frmImportMainExtra.Lade__0__Belegarten, oMandator.Id))
+                Await WinLine.LoadDocumentKinds(oMandator)
+            Next
+
+            My.Winline = WinLine
+
             GridControl1.DataSource = oBindingSource
+
+            txtVersion.Caption = String.Format(My.Resources.frmMainExtra.Version___0_, My.Application.Info.Version.ToString)
+            txtCulture.Caption = String.Format(My.Resources.frmMainExtra.Sprache___0_, My.Application.UICulture.ToString)
         Catch ex As Exception
             FormHelper.ShowError(ex, My.Resources.frmImportMainExtra.Laden_der_Winline_Daten)
 
         Finally
-            SplashScreenManager1.CloseWaitForm()
+            SplashScreenManager.CloseWaitForm()
 
         End Try
     End Sub
@@ -120,7 +143,8 @@ Public Class frmMain
                 Dim oForm As New frmImportMain(LogConfig, ConfigManager, oTemplate)
                 oForm.ShowDialog()
             Else
-                MsgBox("Export-Vorlagen werden noch nicht unterstützt!", MsgBoxStyle.Exclamation, Text)
+                Dim oForm As New frmExportMain(LogConfig, ConfigManager, oTemplate)
+                oForm.ShowDialog()
             End If
 
         Catch ex As Exception
@@ -161,6 +185,7 @@ Public Class frmMain
         TryOpenDirectory(LogConfig.LogDirectory, My.Resources.frmImportMainExtra.Logverzeichnis)
     End Sub
 
+    Private Sub RibbonControl1_Click(sender As Object, e As EventArgs) Handles RibbonControl1.Click
 
-
+    End Sub
 End Class