From 994c50b52f8635153d4cae74e47ed3137af4bd52 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Mon, 3 Aug 2026 12:24:52 +0200
Subject: [PATCH] =?UTF-8?q?div.=20=C3=84nderungen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 SDL/Fakturierung/cAutomailversand.vb      | 8 ++++----
 SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/SDL/Fakturierung/cAutomailversand.vb b/SDL/Fakturierung/cAutomailversand.vb
index d84303e0..1c5bfdcb 100644
--- a/SDL/Fakturierung/cAutomailversand.vb
+++ b/SDL/Fakturierung/cAutomailversand.vb
@@ -639,13 +639,13 @@ Public Class cAutomailversand
 
     End Function
 
-    Private Function getAnhangbezeichnung(sprache As String, RECHNUNG As cRechnungsausgang, BelegartenNr As Integer)
+    Private Function getAnhangbezeichnung(sprache As String, RECHNUNG As cRechnungsausgang, BelegartenNr As Integer, Optional onlyBelegsuebersetzung As Boolean = False)
 
         Dim Anhangsbez = ""
         If RECHNUNG IsNot Nothing Then
 
             Select Case sprache
-                Case "A", "AT", "D", "DE", "CH" : If BelegartenNr = 71 Then Anhangsbez = "Gutschriftsanhänge.pdf" Else Anhangsbez = "Rechnungsanhänge.pdf"
+                Case "A", "AT", "D", "DE", "CH" : If BelegartenNr = 71 Then IIf(onlyBelegsuebersetzung, Anhangsbez = "Gutschrift.pdf", Anhangsbez = "Gutschriftsanhänge.pdf") Else IIf(onlyBelegsuebersetzung, Anhangsbez = "Rechnung.pdf", Anhangsbez = "Rechnungsanhänge.pdf")
                 Case "TR" : If BelegartenNr = 71 Then Anhangsbez = "Kredi.pdf" Else Anhangsbez = "Fatura.pdf"
                 Case Else : If BelegartenNr = 71 Then Anhangsbez = "Creditnote.pdf" Else Anhangsbez = "Invoice.pdf"
             End Select
@@ -682,7 +682,7 @@ Public Class cAutomailversand
             Dim mergeList As New List(Of String)
 
             ' Beleg
-            Dim belegName = If(RECHNUNG.BelegartenKz = "AR", "Rechnung.pdf", "Gutschrift.pdf")
+            Dim belegName = getAnhangbezeichnung(sprache, RECHNUNG, BelegartenNr, True)
 
             For Each pdf In listPDFs
                 ATTACHMENTS.Add(New cFakt_MailATTach(pdf, belegName))
@@ -784,7 +784,7 @@ Public Class cAutomailversand
 
             '1--> Beleg
             For Each l In listPDFs
-                ATTACHMENTS.Add(New cFakt_MailATTach(l, If(RECHNUNG.BelegartenKz = "AR", "Rechnung.pdf", "Gutschrift.pdf")))
+                ATTACHMENTS.Add(New cFakt_MailATTach(l, getAnhangbezeichnung(RECHNUNG.RechnungSprache, RECHNUNG, RECHNUNG.BelegartenNr, True)))
             Next
 
             '2--> Anhänge der Rechnung
diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
index dcc3cd78..075fd699 100644
--- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
+++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb
@@ -3471,9 +3471,9 @@ Public Class usrCntlFaktAbrechnung
 
         setAutomailversand(True)
 
-        saveMe()
-
-        initRECHNUNG()
+        If saveMe() Then
+            initRECHNUNG()
+        End If
 
     End Sub