ZUGFeRDService: Neues DB-Feld ItemType hinzugefügt

Services.ZUGFeRDService/ThreadRunner.vb

@@ -184,6 +184,7 @@ Public Class ThreadRunner
             Dim oIsGrouped = oRow.Item("IS_GROUPED")
             Dim oGroupScope = oRow.Item("GROUP_SCOPE")
             Dim oSpecification = oRow.Item("SPECIFICATION")
+            Dim oItemType = oRow.Item("ITEM_TYPE")
 
             pArgs.PropertyMap.Add(oXmlPath, New XmlItemProperty() With {
                 .Description = oDescription,
@@ -193,7 +194,8 @@ Public Class ThreadRunner
                 .IsGrouped = oIsGrouped,
                 .GroupScope = oGroupScope,
                 .Specification = oSpecification,
-                .XMLPath = oXmlPath.Replace(".Value", "")
+                .XMLPath = oXmlPath.Replace(".Value", ""),
+                .ItemType = oItemType
             })
         Next