div. Änderungen

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

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -3471,9 +3471,9 @@ Public Class usrCntlFaktAbrechnung
 
         setAutomailversand(True)
 
-        saveMe()
-
-        initRECHNUNG()
+        If saveMe() Then
+            initRECHNUNG()
+        End If
 
     End Sub