Modules.Interfaces: Neues DB-Feld ItemType hinzugefügt

Interfaces/ZUGFeRDInterface/PropertyValues.vb

@@ -30,6 +30,8 @@ Public Class PropertyValues
         Public Description As String
         Public Value As String
         Public XMLPath As String
+
+        Public ItemType As Integer = 0
     End Class
 
     Public Class MissingProperty
@@ -109,6 +111,7 @@ Public Class PropertyValues
                     Dim oIsRequired As Boolean = oColumn.Key.IsRequired
                     Dim oPropertyDescription As String = oColumn.Key.Description
                     Dim oPropertyPath As String = oColumn.Key.XMLPath
+                    Dim oItemType As Integer = oColumn.Key.ItemType
 
                     Dim oRowCounter = oRowIndex + oGlobalGroupCounter + 1
 
@@ -144,7 +147,8 @@ Public Class PropertyValues
                         .TableName = oTableName,
                         .TableColumn = oTableColumn,
                         .IsRequired = oIsRequired,
-                        .XMLPath = oPropertyPath
+                        .XMLPath = oPropertyPath,
+                        .ItemType = oItemType
                     })
                 Next
             Next
@@ -162,6 +166,7 @@ Public Class PropertyValues
             Dim oTableName = oItem.Value.TableName
             Dim oIsRequired = oItem.Value.IsRequired
             Dim oDescription = oItem.Value.Description
+            Dim oItemType = oItem.Value.ItemType
 
             Try
                 oPropertyValueList = GetPropValue(pDocument, oItem.Key)
@@ -225,7 +230,8 @@ Public Class PropertyValues
                 .TableName = oTableName,
                 .TableColumn = oTableColumn,
                 .IsRequired = oIsRequired,
-                .XMLPath = oPropertyPath
+                .XMLPath = oPropertyPath,
+                .ItemType = oItemType
              })
         Next
 
@@ -304,7 +310,6 @@ Public Class PropertyValues
                 Return oResults
             End If
 
-
         Next
 
         Return New List(Of Object) From {Obj}

Interfaces/ZUGFeRDInterface/XmlItemProperty.vb

@@ -16,4 +16,13 @@
     ''' XML Pfad, für Anzeige in Ablehnungsmail
     ''' </summary>
     Public XMLPath As String
+
+    ''' <summary>
+    ''' (Daten-)Typ des Knoten
+    ''' 0 = Default / Text
+    ''' 1 = Datum
+    ''' 2 = Gleitkomma
+    ''' 3 = Memo-Feld
+    ''' </summary>
+    Public ItemType As Integer
 End Class