Version 1.3.9.8

MultiTool.Common/Documents/DocumentLoader.vb

@@ -226,9 +226,13 @@ Namespace Documents
                 Logger.Debug("Creating fields from [{0}] columns for Table [{1}]", oTable.Columns.Count, oTable.Name)
 
                 For Each oColumn In oTable.Columns
-                    Dim oSubElement = oSubElements.
-                        Where(Function(e) e.Name = oColumn.Name).
-                        SingleOrDefault()
+                    Dim oQuery = oSubElements.Where(Function(e) e.Name = oColumn.Name)
+                    Dim oElementCount = oQuery.Count()
+                    Dim oSubElement = oQuery.FirstOrDefault()
+
+                    If oElementCount > 1 Then
+                        Logger.Warn("Found [{0}] elements for column [{1}]. Using first occurrence.")
+                    End If
 
                     If oSubElement IsNot Nothing Then
                         Dim oRequired = oColumn.IsRequired

MultiTool.Form/My Project/AssemblyInfo.vb

@@ -12,8 +12,8 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("WebService Multitool für WinLine")>
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("WebService Multitool")>
-<Assembly: AssemblyCopyright("Copyright © 2022")>
-<Assembly: AssemblyTrademark("1.3.9.7")>
+<Assembly: AssemblyCopyright("Copyright © 2023")>
+<Assembly: AssemblyTrademark("1.3.9.8")>
 
 <Assembly: ComVisible(False)>
 
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' indem Sie "*" wie unten gezeigt eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.3.9.7")>
+<Assembly: AssemblyVersion("1.3.9.8")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>