faktEmail Bugfix

This commit is contained in:
2025-06-25 12:03:31 +02:00
parent b085169c65
commit 2afdb174cc
2 changed files with 9 additions and 3 deletions

View File

@@ -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

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.4.2.5")>
<Assembly: AssemblyFileVersion("1.4.2.5")>
<Assembly: AssemblyVersion("1.4.2.6")>
<Assembly: AssemblyFileVersion("1.4.2.6")>