ZUGFeRD Service: Abfrage EN16931_ID ergänzt

Services.ZUGFeRDService/ThreadRunner.vb

@@ -185,6 +185,7 @@ Public Class ThreadRunner
             Dim oGroupScope = oRow.Item("GROUP_SCOPE")
             Dim oSpecification = oRow.Item("SPECIFICATION")
             Dim oItemType = oRow.Item("ITEM_TYPE")
+            Dim oEN16931Value = oRow.Item("EN16931_ID")
 
             pArgs.PropertyMap.Add(oXmlPath, New XmlItemProperty() With {
                 .Description = oDescription,
@@ -195,7 +196,8 @@ Public Class ThreadRunner
                 .GroupScope = oGroupScope,
                 .Specification = oSpecification,
                 .XMLPath = oXmlPath.Replace(".Value", ""),
-                .ItemType = oItemType
+                .ItemType = oItemType,
+                .EN16931_ID = oEN16931Value
             })
         Next