ZUGFeRDService: Neues DB-Feld ItemType hinzugefügt

GUIs.Test.ZUGFeRDTest/Form1.vb

@@ -47,6 +47,7 @@ Public Class Form1
                 Dim isGrouped = oRow.Item("IS_GROUPED")
                 Dim groupScope = oRow.Item("GROUP_SCOPE")
                 Dim specification = oRow.Item("SPECIFICATION")
+                Dim oItemType = oRow.Item("ITEM_TYPE")
 
                 Args.PropertyMap.Add(xmlPath, New XmlItemProperty() With {
                     .Description = description,
@@ -55,7 +56,8 @@ Public Class Form1
                     .IsRequired = isRequired,
                     .IsGrouped = isGrouped,
                     .GroupScope = groupScope,
-                    .Specification = specification',.XMLPath = xmlPath.Replace(".Value", "")
+                    .Specification = specification,
+                    .ItemType = oItemType',.XMLPath = xmlPath.Replace(".Value", "")
                 })
             Next