AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add comments

Browse Source
This commit is contained in:
Jonathan Jenne 2019-05-13 15:37:14 +02:00
parent 58b65564fb
commit a1d6e0ff9b
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb
View File

@ -318,8 +318,10 @@ Public Class ImportZUGFeRDFiles
End If End If
Next Next
' check for rows that are empty in every column
' this happens when a grouped row is not filled
' e.g. a row in a invoice that is just a note
_logger.Debug("Done Fetching Property values.") _logger.Debug("Done Fetching Property values.")
Dim oIndexesToRemove As New List(Of Integer) Dim oIndexesToRemove As New List(Of Integer)
For oRowIndex = 0 To oRowCount - 1 For oRowIndex = 0 To oRowCount - 1
@ -327,10 +329,7 @@ Public Class ImportZUGFeRDFiles
For Each oRow In oPropertyList For Each oRow In oPropertyList
Dim oValue As List(Of Object) = oRow.Value.Item(oRowIndex) Dim oValue As List(Of Object) = oRow.Value.Item(oRowIndex)
Dim oIsEmpty = oValue.Count = 0 oColumnIsEmpty = oValue.Count = 0
oColumnIsEmpty = oIsEmpty
Console.WriteLine($"Value is empty: {oValue.Count = 0}")
Next Next
If oColumnIsEmpty Then If oColumnIsEmpty Then
@ -338,16 +337,24 @@ Public Class ImportZUGFeRDFiles
End If End If
Next Next
oIndexesToRemove = oIndexesToRemove. _logger.Debug("Removing {0} empty rows.", oIndexesToRemove)
OrderByDescending(Function(oIndex) oIndex).
ToList()
' order indexes to remove descending to avoid indexOutOfRange errors
If oIndexesToRemove.Count > 0 Then
oIndexesToRemove = oIndexesToRemove.
OrderByDescending(Function(oIndex) oIndex).
ToList()
End If
' now remove all empty rows.
For Each oIndex In oIndexesToRemove For Each oIndex In oIndexesToRemove
For Each oRow In oPropertyList For Each oRow In oPropertyList
oRow.Value.RemoveAt(oIndex) oRow.Value.RemoveAt(oIndex)
Next Next
Next Next
' decrease row count by rows removed
oRowCount -= oIndexesToRemove.Count oRowCount -= oIndexesToRemove.Count
' Structure of oPropertyList ' Structure of oPropertyList