Fix incorrect error message with more than one valid zugferd invoice
This commit is contained in:
parent
222176dfca
commit
39a406bfaf
@ -279,6 +279,14 @@ Public Class ImportZUGFeRDFiles
|
|||||||
End Select
|
End Select
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
|
' Check if there are more than one ZUGFeRD files
|
||||||
|
If oZUGFeRDCount = 1 Then
|
||||||
|
Throw New TooMuchFerdsException()
|
||||||
|
End If
|
||||||
|
|
||||||
|
' Since extraction went well, increase the amount of ZUGFeRD files
|
||||||
|
oZUGFeRDCount += 1
|
||||||
|
|
||||||
' Extract all attachments with the extensions specified in `AllowedExtensions`.
|
' Extract all attachments with the extensions specified in `AllowedExtensions`.
|
||||||
' If you need to extract and use embedded xml files, you need to filter out the zugferd-invoice.xml yourself.
|
' If you need to extract and use embedded xml files, you need to filter out the zugferd-invoice.xml yourself.
|
||||||
' Right now the zugferd-invoice.xml is filtered out because `AllowedExtensions` does not contain `xml`.
|
' Right now the zugferd-invoice.xml is filtered out because `AllowedExtensions` does not contain `xml`.
|
||||||
@ -292,14 +300,6 @@ Public Class ImportZUGFeRDFiles
|
|||||||
' Check the Checksum and rejection status
|
' Check the Checksum and rejection status
|
||||||
oMD5CheckSum = GenerateAndCheck_MD5Sum(oFile.FullName, oArgs.IgnoreRejectionStatus)
|
oMD5CheckSum = GenerateAndCheck_MD5Sum(oFile.FullName, oArgs.IgnoreRejectionStatus)
|
||||||
|
|
||||||
' Check if there are more than one ZUGFeRD files
|
|
||||||
If oZUGFeRDCount = 1 Then
|
|
||||||
Throw New TooMuchFerdsException()
|
|
||||||
End If
|
|
||||||
|
|
||||||
' Since extraction went well, increase the amount of ZUGFeRD files
|
|
||||||
oZUGFeRDCount += 1
|
|
||||||
|
|
||||||
' Check the document against the configured property map and return:
|
' Check the document against the configured property map and return:
|
||||||
' - a List of valid properties
|
' - a List of valid properties
|
||||||
' - a List of missing properties
|
' - a List of missing properties
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user