Version 1.2.7.1

MultiTool.Form/My Project/AssemblyInfo.vb

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("WebService Multitool")>
 <Assembly: AssemblyCopyright("Copyright © 2022")>
-<Assembly: AssemblyTrademark("1.2.7.0")>
+<Assembly: AssemblyTrademark("1.2.7.1")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' indem Sie "*" wie unten gezeigt eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.2.7.0")>
+<Assembly: AssemblyVersion("1.2.7.1")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>

MultiTool.Form/frmConfig.vb

@@ -32,26 +32,31 @@ Public Class frmConfig
     End Sub
 
     Private Sub frmConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Try
+            Dim oConnectionString = MSSQLServer.DecryptConnectionString(Config.ConnectionString)
+            Dim oBuilder As New SqlConnectionStringBuilder(oConnectionString) With {
+                .InitialCatalog = "DD_ECM"
+            }
 
-        Dim oConnectionString = MSSQLServer.DecryptConnectionString(Config.ConnectionString)
+            ' Default Values
-        Dim oBuilder As New SqlConnectionStringBuilder(oConnectionString) With {
+            DS_DD_ECM.TBMT_CONFIG.ADDED_WHOColumn.DefaultValue = Environment.UserName
-            .InitialCatalog = "DD_ECM"
+            DS_DD_ECM.TBMT_CONFIG.CHANGED_WHOColumn.DefaultValue = Environment.UserName
-        }
+            DS_DD_ECM.TBMT_TEMPLATE_ITEMS.ADDED_WHOColumn.DefaultValue = Environment.UserName
+            DS_DD_ECM.TBMT_TEMPLATE_ITEMS.CHANGED_WHOColumn.DefaultValue = Environment.UserName
 
-        ' Default Values
+            TBMT_TEMPLATE_ITEMSTableAdapter.Connection.ConnectionString = oBuilder.ToString()
-        DS_DD_ECM.TBMT_CONFIG.ADDED_WHOColumn.DefaultValue = Environment.UserName
+            TBMT_TEMPLATE_ITEMSTableAdapter.Fill(DS_DD_ECM.TBMT_TEMPLATE_ITEMS)
-        DS_DD_ECM.TBMT_CONFIG.CHANGED_WHOColumn.DefaultValue = Environment.UserName
-        DS_DD_ECM.TBMT_TEMPLATE_ITEMS.ADDED_WHOColumn.DefaultValue = Environment.UserName
-        DS_DD_ECM.TBMT_TEMPLATE_ITEMS.CHANGED_WHOColumn.DefaultValue = Environment.UserName
 
-        TBMT_TEMPLATE_ITEMSTableAdapter.Connection.ConnectionString = oBuilder.ToString()
+            TBMT_CONFIGTableAdapter.Connection.ConnectionString = oBuilder.ToString()
-        TBMT_TEMPLATE_ITEMSTableAdapter.Fill(DS_DD_ECM.TBMT_TEMPLATE_ITEMS)
+            TBMT_CONFIGTableAdapter.Fill(DS_DD_ECM.TBMT_CONFIG)
+            TBMT_CONFIGTableAdapter.FillGeneral(TBMT_CONFIG_GENERAL)
 
-        TBMT_CONFIGTableAdapter.Connection.ConnectionString = oBuilder.ToString()
+            LoadGeneralConfig(TBMT_CONFIG_GENERAL)
-        TBMT_CONFIGTableAdapter.Fill(DS_DD_ECM.TBMT_CONFIG)
-        TBMT_CONFIGTableAdapter.FillGeneral(TBMT_CONFIG_GENERAL)
 
-        LoadGeneralConfig(TBMT_CONFIG_GENERAL)
+            BindingSource = TBEDIXMLITEMSBindingSource
+        Catch ex As Exception
+            FormHelper.ShowError(ex, "Laden des Formulars")
+        End Try
     End Sub
 
     Private Sub LoadGeneralConfig(TBMT_CONFIG_GENERAL As DS_DD_ECM.TBMT_CONFIGDataTable)
@@ -133,7 +138,7 @@ Public Class frmConfig
     End Sub
 
     Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
-        BindingSource.AddNew()
+        BindingSource?.AddNew()
     End Sub
 
     Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged