Update GetPropertyValue

GUIs.Test.ZUGFeRDTest/Form1.vb

@@ -54,24 +54,28 @@ Public Class Form1
         Return args
     End Function
 
-    Private Function LoadPropertyMapFor(args As WorkerArgs, specification As String)
-        Dim oSQL As String = $"SELECT * FROM TBEDM_XML_ITEMS WHERE SPECIFICATION = '{specification}' AND ACTIVE = True"
+    Private Function LoadPropertyMapFor(Args As WorkerArgs, Specification As String)
+        Dim oSQL As String = $"SELECT * FROM TBEDM_XML_ITEMS WHERE SPECIFICATION = '{Specification}' AND ACTIVE = True"
         Dim oResult As DataTable = _firebird.GetDatatable(oSQL)
 
-        For Each row As DataRow In oResult.Rows
-            Dim xmlPath = row.Item("XML_PATH")
-            Dim tableName = row.Item("TABLE_NAME")
-            Dim description = row.Item("DESCRIPTION")
-            Dim isRequired = row.Item("IS_REQUIRED")
+        For Each oRow As DataRow In oResult.Rows
+            Dim xmlPath = oRow.Item("XML_PATH")
+            Dim tableName = oRow.Item("TABLE_NAME")
+            Dim description = oRow.Item("DESCRIPTION")
+            Dim isRequired = oRow.Item("IS_REQUIRED")
+            Dim isGrouped = oRow.Item("IS_GROUPED")
+            Dim groupScope = oRow.Item("GROUP_SCOPE")
 
-            args.PropertyMap.Add(xmlPath, New XmlItemProperty() With {
+            Args.PropertyMap.Add(xmlPath, New XmlItemProperty() With {
                 .Description = description,
                 .TableName = tableName,
-                .IsRequired = isRequired
+                .IsRequired = isRequired,
+                .IsGrouped = isGrouped,
+                .GroupScope = groupScope
             })
         Next
 
-        Return args
+        Return Args
     End Function
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click