Finish FinalSQL, GLN/EAN for export, double click to open template, exporting multiple documents

MultiTool.Form/frmMain.vb

@@ -74,9 +74,9 @@ Public Class frmMain
 
             ' Initialize Schemas
             TemplateLoader = New TemplateLoader(LogConfig, Database)
-            Await TemplateLoader.LoadGeneralConfiguration()
             Await TemplateLoader.LoadTemplates()
             Await TemplateLoader.LoadTemplateConfiguration()
+            Await TemplateLoader.LoadGeneralConfiguration()
             Await TemplateLoader.LoadMappingConfiguration()
             Await TemplateLoader.LoadMandatorConfiguration()
 
@@ -123,49 +123,8 @@ Public Class frmMain
     End Sub
 
     Private Sub btnOpenImportExportForm_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnOpenImportExportForm.ItemClick
-        Try
-            Dim oTemplate As Template = GridViewTemplates.GetRow(GridViewTemplates.FocusedRowHandle)
-
-            If oTemplate Is Nothing Then
-                MsgBox("Keine Vorlage ausgewählt! Bitte wählen Sie eine Vorlage aus!", MsgBoxStyle.Exclamation, Text)
-                Exit Sub
-            End If
-
-            ' Initialize template tables
-            oTemplate.Tables = New List(Of Template.Table)
-
-            ' Fill tables
-            oTemplate = TemplateLoader.UpdateTemplateFromFile(oTemplate, My.GeneralConfiguration.TemplateDirectory)
-            oTemplate = TemplateLoader.UpdateTemplateFromDatabase(oTemplate)
-            oTemplate = TemplateLoader.UpdateTemplateTablesFromDatabase(oTemplate, TemplateLoader.TemplateConfiguration)
-
-            Dim oBaseDirectories As New List(Of String) From {
-                oTemplate.InputDirectory,
-                oTemplate.OutputDirectory,
-                oTemplate.ArchiveDirectory
-            }
-            Dim oOutputDirectories As New List(Of String) From {
-                oTemplate.OutputReportDirectory,
-                oTemplate.OutputWebserviceDirectory,
-                oTemplate.OutputXmlFileDirectory
-            }
-
-            If TryCreateTemplateDirectories(oBaseDirectories) Then
-                If TryCreateTemplateDirectories(oOutputDirectories) Then
-                    If oTemplate.IsImport Then
-                        Dim oForm As New frmImportMain(LogConfig, ConfigManager, oTemplate)
-                        oForm.ShowDialog()
-                    Else
-                        Dim oForm As New frmExportMain(LogConfig, ConfigManager, oTemplate)
-                        oForm.ShowDialog()
-                    End If
-                End If
-            End If
-
-        Catch ex As Exception
-            FormHelper.ShowError(ex, My.Resources.frmMainExtra.Laden_der_Vorlage)
-
-        End Try
+        Dim oTemplate As Template = GridViewTemplates.GetRow(GridViewTemplates.FocusedRowHandle)
+        OpenImportExportForm(oTemplate)
     End Sub
 
     Private Function TryCreateTemplateDirectories(pDirectories As List(Of String)) As Boolean
@@ -207,4 +166,55 @@ Public Class frmMain
     Private Sub btnOpenSchemaDirectory_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnOpenSchemaDirectory.ItemClick
         FormHelper.TryOpenDirectory(My.GeneralConfiguration.TemplateDirectory, My.Resources.frmImportMainExtra.Vorlagenverzeichnis)
     End Sub
+
+    Private Sub GridViewTemplates_DoubleClick(sender As Object, e As EventArgs) Handles GridViewTemplates.DoubleClick
+        Dim oTemplate As Template = GridViewTemplates.GetRow(GridViewTemplates.FocusedRowHandle)
+        OpenImportExportForm(oTemplate)
+    End Sub
+
+    Private Sub OpenImportExportForm(pTemplate As Template)
+        Try
+
+
+            If pTemplate Is Nothing Then
+                MsgBox("Keine Vorlage ausgewählt! Bitte wählen Sie eine Vorlage aus!", MsgBoxStyle.Exclamation, Text)
+                Exit Sub
+            End If
+
+            ' Initialize template tables
+            pTemplate.Tables = New List(Of Template.Table)
+
+            ' Fill tables
+            pTemplate = TemplateLoader.UpdateTemplateFromFile(pTemplate, My.GeneralConfiguration.TemplateDirectory)
+            pTemplate = TemplateLoader.UpdateTemplateFromDatabase(pTemplate)
+            pTemplate = TemplateLoader.UpdateTemplateTablesFromDatabase(pTemplate, TemplateLoader.TemplateConfiguration)
+
+            Dim oBaseDirectories As New List(Of String) From {
+                pTemplate.InputDirectory,
+                pTemplate.OutputDirectory,
+                pTemplate.ArchiveDirectory
+            }
+            Dim oOutputDirectories As New List(Of String) From {
+                pTemplate.OutputReportDirectory,
+                pTemplate.OutputWebserviceDirectory,
+                pTemplate.OutputXmlFileDirectory
+            }
+
+            If TryCreateTemplateDirectories(oBaseDirectories) Then
+                If TryCreateTemplateDirectories(oOutputDirectories) Then
+                    If pTemplate.IsImport Then
+                        Dim oForm As New frmImportMain(LogConfig, ConfigManager, pTemplate)
+                        oForm.ShowDialog()
+                    Else
+                        Dim oForm As New frmExportMain(LogConfig, ConfigManager, pTemplate)
+                        oForm.ShowDialog()
+                    End If
+                End If
+            End If
+
+        Catch ex As Exception
+            FormHelper.ShowError(ex, My.Resources.frmMainExtra.Laden_der_Vorlage)
+
+        End Try
+    End Sub
 End Class