Modules.Interfaces: Log-Meldungen ergänzt

Interfaces/ZUGFeRDInterface.vb

@@ -196,6 +196,12 @@ Public Class ZUGFeRDInterface
 
             oResult = _Validator.ValidateZUGFeRDDocument(oResult)
 
+            If oResult.ValidationErrors.Count > 0 Then
+                _logger.Warn($"XML-Logik - Nach Validator() Errors: {oResult.ValidationErrors.Count}")
+            Else
+                _logger.Info($"XML-Logik - Nach Validator() NO Errors.")
+            End If
+
         Catch ex As ZUGFeRDExecption
             ' Don't log ZUGFeRD Exceptions here, they should be handled by the calling code.
             ' It also produces misleading error messages when checking if an attachment is a zugferd file.

Interfaces/ZUGFeRDInterface/Validator.vb

@@ -26,6 +26,7 @@ Public Class Validator
             For Each oNode As XElement In oDecimalNodes
                 Dim oParsedValue As Decimal = 0.0
                 If Decimal.TryParse(oNode.Value, oParsedValue) = False Then
+                    _logger.Warn($"Invalid Decimal Value in {oNode.Name.LocalName}")
                     pResult.ValidationErrors.Add(New ZugferdValidationError() With {
                     .ElementName = oNode.Name.LocalName,
                     .ElementValue = oNode.Value,
@@ -50,6 +51,8 @@ Public Class Validator
             For Each oNode As XElement In oCurrencyCodeNodes
                 Dim oValid = ValidateCurrencyCode(oNode.Value)
                 If oValid = False Then
+                    _logger.Warn($"Invalid CurrencyCode in {oNode.Name.LocalName}")
+
                     pResult.ValidationErrors.Add(New ZugferdValidationError() With {
                         .ElementName = oNode.Name.LocalName,
                         .ElementValue = oNode.Value,
@@ -78,6 +81,7 @@ Public Class Validator
 
                 Dim oValid = ValidateCurrencyCode(oCurrencyID)
                 If oValid = False Then
+                    _logger.Warn($"Invalid CurrencyID in {oNode.Name.LocalName}")
                     pResult.ValidationErrors.Add(New ZugferdValidationError() With {
                         .ElementName = oNode.Name.LocalName,
                         .ElementValue = oCurrencyID,