ZUGFeRDRESTService: Improve Logging

2020-03-23 16:24:39 +01:00
parent b5feec77f7
commit c9fdf80936
2 changed files with 74 additions and 35 deletions
--- a/Modules.Interfaces/ZUGFeRDInterface.vb
+++ b/Modules.Interfaces/ZUGFeRDInterface.vb
@@ -18,6 +18,7 @@ Public Class ZUGFeRDInterface
        NoValidFile
        NoZugferd
        NoValidZugferd
+        MissingProperties
    End Enum

    Public ReadOnly Property FileGroup As FileGroups
@@ -130,7 +131,7 @@ Public Class ZUGFeRDInterface
            Dim oFoundResult As PDFAttachments.AttachmentResult = Nothing

            For Each oResult In oResults
-                If oResult.FileName = PDFAttachments.ZUGFERD_XML_FILENAME Then
+                If oResult.FileName.ToUpper() = PDFAttachments.ZUGFERD_XML_FILENAME.ToUpper() Then
                    oFound = True
                    oFoundResult = oResult
                End If