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

WIP: Remove empty rows

Browse Source
This commit is contained in:
Jonathan Jenne 2019-05-13 12:37:01 +02:00
parent 6650b01b10
commit 83f026d389
1 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -320,6 +320,32 @@ Public Class ImportZUGFeRDFiles
_logger.Debug("Done Fetching Property values.")
Dim oIndexesToRemove As New List(Of Integer)
For oRowIndex = 0 To oRowCount - 1
Dim oColumnIsEmpty = False
For Each oRow In oPropertyList
Dim oValue As List(Of Object) = oRow.Value.Item(oRowIndex)
Dim oIsEmpty = oValue.Count = 0
oColumnIsEmpty = oIsEmpty
Console.WriteLine($"Value is empty: {oValue.Count = 0}")
Next
If oColumnIsEmpty Then
oIndexesToRemove.Add(oRowIndex)
End If
Console.WriteLine($"Column is empty: {oColumnIsEmpty}")
Next
' TODO: Remove Empty Rows by `oIndexesToRemove`!
' Structure of oPropertyList
' [ # Propertyname # Row 1 # Row 2
' PositionsMenge: [BilledQuantity1, BilledQuantity2, ...],
@ -358,7 +384,7 @@ Public Class ImportZUGFeRDFiles
oPropertyValue = String.Empty
End If
_logger.Debug("Property {0} has value {1}", oPropertyDescription, oPropertyValue)
_logger.Debug("Property {0} has value '{1}'", oPropertyDescription, oPropertyValue)
Dim oCommand = $"INSERT INTO {oTableName} (REFERENCE_GUID, ITEM_DESCRIPTION, ITEM_VALUE, GROUP_COUNTER) VALUES ('{oFileGroupId}', '{oPropertyDescription}', '{oPropertyValue}', {oRowCounter})"
_logger.Debug("Mapping Property {0} to value {1}. Will be inserted into table {2} with RowCounter {3}", oPropertyDescription, oPropertyValue, oTableName, oRowCounter)