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

finish position import

Browse Source
This commit is contained in:
Jonathan Jenne 2019-05-13 15:32:54 +02:00
parent 83f026d389
commit 58b65564fb
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -320,7 +320,6 @@ Public Class ImportZUGFeRDFiles
_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
@ -337,14 +336,19 @@ Public Class ImportZUGFeRDFiles
If oColumnIsEmpty Then If oColumnIsEmpty Then
oIndexesToRemove.Add(oRowIndex) oIndexesToRemove.Add(oRowIndex)
End If End If
Console.WriteLine($"Column is empty: {oColumnIsEmpty}")
Next Next
' TODO: Remove Empty Rows by `oIndexesToRemove`! oIndexesToRemove = oIndexesToRemove.
OrderByDescending(Function(oIndex) oIndex).
ToList()
For Each oIndex In oIndexesToRemove
For Each oRow In oPropertyList
oRow.Value.RemoveAt(oIndex)
Next
Next
oRowCount -= oIndexesToRemove.Count
' Structure of oPropertyList ' Structure of oPropertyList
' [ # Propertyname # Row 1 # Row 2 ' [ # Propertyname # Row 1 # Row 2