Modules.Interfaces: Belegarten in ZUGFeRD 2.3.x korrigiert und fehlende nachgetragen.

Vorbereitung BT-Felder-Anzeige
This commit is contained in:
2025-06-27 10:48:48 +02:00
parent 0ed996100d
commit 390a524736
4 changed files with 2310 additions and 2473 deletions

View File

@@ -27,6 +27,7 @@ Public Class PropertyValues
Public IsRequired As Boolean
Public GroupCounter As Integer = -1
Public EN16931_ID As String
Public Description As String
Public Value As String
Public XMLPath As String
@@ -35,6 +36,7 @@ Public Class PropertyValues
End Class
Public Class MissingProperty
Public EN16931_ID As String
Public Description As String
Public XMLPath As String
@@ -112,6 +114,7 @@ Public Class PropertyValues
Dim oPropertyDescription As String = oColumn.Key.Description
Dim oPropertyPath As String = oColumn.Key.XMLPath
Dim oItemType As Integer = oColumn.Key.ItemType
Dim oEN16931Value As String = oColumn.Key.EN16931_ID
Dim oRowCounter = oRowIndex + oGlobalGroupCounter + 1
@@ -128,6 +131,7 @@ Public Class PropertyValues
If oColumn.Key.IsRequired Then
_logger.Warn($"{MessageId} # oPropertyValue for column [{oTableColumn}] is empty or not found but is required. Continuing with Empty String.")
Dim oMissingProperty = New MissingProperty() With {
.EN16931_ID = oEN16931Value,
.Description = oPropertyDescription,
.XMLPath = oPropertyPath
}
@@ -158,7 +162,8 @@ Public Class PropertyValues
.TableColumn = oTableColumn,
.IsRequired = oIsRequired,
.XMLPath = oPropertyPath,
.ItemType = oItemType
.ItemType = oItemType,
.EN16931_ID = oEN16931Value
})
Next
Next