From 38f330b94b9dc412a34c6e980121fef6dd6b5a79 Mon Sep 17 00:00:00 2001 From: pitzm Date: Mon, 15 Jan 2024 10:26:34 +0100 Subject: [PATCH] Interfaces/Zugferd: Extension With ToUpper() and Substring(1) --- Interfaces/ZUGFeRDInterface/PDFEmbeds.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Interfaces/ZUGFeRDInterface/PDFEmbeds.vb b/Interfaces/ZUGFeRDInterface/PDFEmbeds.vb index 95bb1ffd..f11deaf7 100644 --- a/Interfaces/ZUGFeRDInterface/PDFEmbeds.vb +++ b/Interfaces/ZUGFeRDInterface/PDFEmbeds.vb @@ -169,8 +169,11 @@ Public Class PDFEmbeds Dim oExtension As String = oFileInfo.Extension If String.IsNullOrWhiteSpace(oExtension) Then - Logger.Error("The embedded file [{0}] does not have any extension. Skipping.") + Logger.Error("The embedded file [{0}] does not have any extension. Skipping.", oFileName) Continue For + Else + ' Jetzt wissen wir, das es eine Extension gibt! + oExtension = oFileInfo.Extension.ToUpper.Substring(1) End If If pExtensions.Contains(oExtension) Then