Modules.Interface: Listen-Items Handling (Item_Type = 4)

Interfaces/ZUGFeRDInterface/PropertyValues.vb

@@ -71,7 +71,7 @@ Public Class PropertyValues
             Dim oGroupScope As String = oGroup.Key
 
             Dim oPropertyList As New Dictionary(Of XmlItemProperty, List(Of Object))
-            Dim oRowCount = 0
+            Dim oRowCount = 0       ' TODO - Es wird anhand der Anzahl XML-Knoten ermittelt wieviele Rows gelesen werden???????
 
             _logger.Debug($"Fetching Property values for group [{oGroupScope}].")
 
@@ -154,6 +154,17 @@ Public Class PropertyValues
 
                     End If
 
+                    If oTableColumn = "INVOICE_CURRENCY" Or oItemType = 4 Then
+                        Dim oValuestring = oPropertyValue.ToString()
+
+                        ' Bei Listenelementen entfernen wir den String Item, um den Wert zu erhalten
+                        If oValuestring.Contains("Item") Then
+                            oValuestring = oValuestring.Replace("Item", "")
+                        End If
+
+                        oPropertyValue = oValuestring
+                    End If
+
                     oResult.ValidProperties.Add(New ValidProperty() With {
                         .MessageId = MessageId,
                         .Description = oPropertyDescription,
@@ -237,7 +248,14 @@ Public Class PropertyValues
 
             ' Statt dem Zahlenwert des Enums, wollen wir die Währungsbezeichnung
             If oTableColumn = "INVOICE_CURRENCY" Or oItemType = 4 Then
-                oPropertyValue = oPropertyValue.ToString()
+                Dim oValuestring = oPropertyValue.ToString()
+
+                ' Bei Listenelementen entfernen wir den String Item, um den Wert zu erhalten
+                If oValuestring.Contains("Item") Then
+                    oValuestring = oValuestring.Replace("Item", "")
+                End If
+
+                oPropertyValue = oValuestring
             End If
 
             oResult.ValidProperties.Add(New ValidProperty() With {