AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Peppol 3017 / UBL Logik

Browse Source
This commit is contained in:
PitzM
2025-05-13 14:48:09 +02:00
parent 5774eb7686
commit cf9650be50
5 changed files with 63 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Interfaces/ZUGFeRDInterface/Enums/Item_Types.vb Normal file
View File

@@ -0,0 +1,7 @@
Public Enum Item_Types
StringType '0
DateType '1
MoneyType '2
FileType '3
End Enum

6
Interfaces/ZUGFeRDInterface/PropertyValues.vb
View File

@@ -83,17 +83,17 @@ Public Class PropertyValues
_logger.Error(ex)
oPropertyValues = New List(Of Object)
End Try
' check the first batch of values to determine the row count
If oRowCount = 0 Then '08.04.2025 MS Added as Workaround for Positions Or oGroupScope = "POSITIONS" !
oRowCount = oPropertyValues.Count
End If
' Flatten result value
oPropertyValues = GetFinalPropValue(oPropertyValues)
' Add to list
oPropertyList.Add(oProperty.Value, oPropertyValues)
' check the first batch of values to determine the row count
Next
' Structure of oPropertyList