From b7c172c3824ece26a445e444371ac1b77c83d10d Mon Sep 17 00:00:00 2001
From: pitzm <m.pitz@digitaldata.works>
Date: Tue, 28 Jan 2025 14:36:52 +0100
Subject: [PATCH] =?UTF-8?q?Modules.Interfaces:=20Neues=20DB-Feld=20ItemTyp?=
 =?UTF-8?q?e=20hinzugef=C3=BCgt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Interfaces/ZUGFeRDInterface/PropertyValues.vb  | 11 ++++++++---
 Interfaces/ZUGFeRDInterface/XmlItemProperty.vb |  9 +++++++++
 2 files changed, 17 insertions(+), 3 deletions(-)

diff --git a/Interfaces/ZUGFeRDInterface/PropertyValues.vb b/Interfaces/ZUGFeRDInterface/PropertyValues.vb
index c7d1764f..4644afb4 100644
--- a/Interfaces/ZUGFeRDInterface/PropertyValues.vb
+++ b/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}
diff --git a/Interfaces/ZUGFeRDInterface/XmlItemProperty.vb b/Interfaces/ZUGFeRDInterface/XmlItemProperty.vb
index 6cbf2465..651e68aa 100644
--- a/Interfaces/ZUGFeRDInterface/XmlItemProperty.vb
+++ b/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
\ No newline at end of file