ZUGFeRD Dienst: Lesen des XML-PATH-Wertes in die Property-Objekte, für spätere Verwendung

Services.ZUGFeRDService/ThreadRunner.vb

@@ -173,7 +173,7 @@ Public Class ThreadRunner
         Dim oResult As DataTable = _mssql.GetDatatable(oSQL)
 
         For Each oRow As DataRow In oResult.Rows
-            Dim oXmlPath = oRow.Item("XML_PATH")
+            Dim oXmlPath As String = oRow.Item("XML_PATH")
             Dim oTableName = oRow.Item("TABLE_NAME")
             Dim oTableColumn = oRow.Item("TABLE_COLUMN")
             Dim oDescription = oRow.Item("DESCRIPTION")
@@ -189,7 +189,8 @@ Public Class ThreadRunner
                 .IsRequired = oIsRequired,
                 .IsGrouped = oIsGrouped,
                 .GroupScope = oGroupScope,
-                .Specification = oSpecification
+                .Specification = oSpecification,
+                .XMLPath = oXmlPath.Replace(".Value", "")
             })
         Next