diff --git a/Interfaces/ZUGFeRDInterface/Enums/Item_Types.vb b/Interfaces/ZUGFeRDInterface/Enums/Item_Types.vb index f1e51814..6ef60951 100644 --- a/Interfaces/ZUGFeRDInterface/Enums/Item_Types.vb +++ b/Interfaces/ZUGFeRDInterface/Enums/Item_Types.vb @@ -3,5 +3,6 @@ DateType '1 MoneyType '2 FileType '3 + ListType '4 End Enum diff --git a/Interfaces/ZUGFeRDInterface/Validator.vb b/Interfaces/ZUGFeRDInterface/Validator.vb index 2016f0cc..8a4279d6 100644 --- a/Interfaces/ZUGFeRDInterface/Validator.vb +++ b/Interfaces/ZUGFeRDInterface/Validator.vb @@ -14,6 +14,7 @@ Public Class Validator ValidateDecimalNodes(pResult) ValidateCurrencyNodes(pResult) + 'TODO Validate Datumsfelder Return pResult End Function diff --git a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb b/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb index f495b563..8bf12f8c 100644 --- a/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb +++ b/Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb @@ -1177,12 +1177,13 @@ Public Class ImportZUGFeRDFiles Dim oNewRow As DataRow = oDataTable.NewRow() oNewRow("REFERENCE_GUID") = pMessageId oNewRow("ITEM_DESCRIPTION") = oProperty.Description - oNewRow("ITEM_VALUE") = oProperty.Value.Truncate(900).Replace("'", "''") + 'oNewRow("ITEM_VALUE") = oProperty.Value.Truncate(900).Replace("'", "''") + oNewRow("ITEM_VALUE") = oProperty.Value.Truncate(900) oNewRow("GROUP_COUNTER") = oGroupCounterValue oNewRow("SPEC_NAME") = oProperty.TableColumn oNewRow("IS_REQUIRED") = oProperty.IsRequired - _logger.Debug("Mapping Property [{0}] with value [{1}]", oProperty.TableColumn, oProperty.Value.Replace("'", "''")) + _logger.Debug("Mapping Property [{0}] with value [{1}]", oProperty.TableColumn, oProperty.Value) oDataTable.Rows.Add(oNewRow) Next