From: Bernd Bleßmann <bernd@kivitendo-premium.de>
Date: Tue, 23 Mar 2021 10:06:06 +0000 (+0100)
Subject: Mahnungen: Rechnungsnummer der Mahnrechung im PDF-Dateinamen statt dunning_id
X-Git-Tag: kivitendo-mebil_0.1-0~9^2~402
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=62ac28eecd116eb0a806c2b354f216423ea43821;p=kivitendo-erp.git

Mahnungen: Rechnungsnummer der Mahnrechung im PDF-Dateinamen statt dunning_id

Der Dateiname wird auch als Name des Anhangs bei Mailversand verwendet und dann
sieht es besser aus, wenn der Name auch mit der Rechnunsgnummer übereinstimmt.
---

diff --git a/SL/DN.pm b/SL/DN.pm
index ea47209b2..1a615011f 100644
--- a/SL/DN.pm
+++ b/SL/DN.pm
@@ -1136,7 +1136,7 @@ sub print_invoice_for_fees {
   $self->set_customer_cvars($myconfig, $form);
   $self->set_template_options($myconfig, $form);
 
-  my $filename = Common::unique_id() . "dunning_invoice_${dunning_id}.pdf";
+  my $filename = Common::unique_id() . "dunning_invoice_" . $form->{invnumber} . ".pdf";
 
   my $spool             = $::lx_office_conf{paths}->{spool};
   $form->{OUT}          = "$spool/$filename";
@@ -1145,7 +1145,7 @@ sub print_invoice_for_fees {
 
   map { delete $form->{$_} } grep /^[a-z_]+_\d+$/, keys %{ $form };
 
-  my $attachment_filename      = $form->get_formname_translation('dunning_invoice') . "_${dunning_id}.pdf";
+  my $attachment_filename      = $form->get_formname_translation('dunning_invoice') . "_" . $form->{invnumber} . ".pdf";
   $form->{attachment_filename} = $attachment_filename;
   $form->{attachment_type}     = "dunning";
   $form->{attachment_id}       = $invoice_id;