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

MS PRopertyValues Interfaces

Browse Source
This commit is contained in:
Developer01 2025-04-10 22:28:58 +02:00
parent 11b7a196dd
commit c74b778227
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Interfaces/ZUGFeRDInterface/PropertyValues.vb
View File

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