From 2afdb174cc5b5805d24a9f7ff8d86546a17ca939 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 25 Jun 2025 12:03:31 +0200 Subject: [PATCH] faktEmail Bugfix --- SDL/Fakturierung/frmFaktEmail.vb | 8 +++++++- SDL/My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 714dc60f..b4fc0757 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -1057,7 +1057,13 @@ Public Class frmFaktEmail Dim extension = ".pdf" - Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(IIf(SammelrechungArt <> 6, RECHNUNG.BelegartenBez & "sanhänge_", RECHNUNG.BelegartenBez & "_") & RgNr & extension, extension,, False, "Zusammenfassung") + + Dim Belegsbezeichnung As String = "Beleg" + If RECHNUNG IsNot Nothing AndAlso RECHNUNG.BelegartenBez <> "" Then + Belegsbezeichnung = RECHNUNG.BelegartenBez + End If + + Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(IIf(SammelrechungArt <> 6, Belegsbezeichnung & "sanhänge_", Belegsbezeichnung & "_") & RgNr & extension, extension,, False, "Zusammenfassung") If RECHNUNG IsNot Nothing AndAlso RECHNUNG.Firma_ID = 19 Then diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 20c7010a..8b68c701 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +