From: Jan Büren <jan@kivitendo.de>
Date: Tue, 22 Feb 2022 10:20:41 +0000 (+0100)
Subject: Mahungen: Währung auch für Druckvorlagen bereitstellen
X-Git-Tag: kivitendo-mebil_0.1-0~10^2~2^2~176
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=618b134c01c14489dba1ca0e186a8fb8c6adc83c;p=kivitendo-erp.git

Mahungen: Währung auch für Druckvorlagen bereitstellen

Ansonsten erhält die kivitendo GmbH durch den subtilen
marei default_account.tex zuviele ungeklärte Zahlungseingänge
---

diff --git a/SL/DN.pm b/SL/DN.pm
index d9d02a626..28eb6afc0 100644
--- a/SL/DN.pm
+++ b/SL/DN.pm
@@ -967,7 +967,7 @@ sub print_dunning {
          c.country,           c.department_1, c.department_2, c.email,     c.customernumber,
          c.greeting,          c.contact,      c.phone,        c.fax,       c.homepage,
          c.email,             c.taxincluded,  c.business_id,  c.taxnumber, c.iban,
-         c.ustid,
+         c.ustid,             c.currency_id,  curr.name as currency,
          ar.id AS invoice_id,
          co.*
        FROM dunning d
@@ -975,6 +975,7 @@ sub print_dunning {
        LEFT JOIN customer c  ON (ar.customer_id = c.id)
        LEFT JOIN contacts co ON (ar.cp_id = co.cp_id)
        LEFT JOIN employee e  ON (ar.salesman_id = e.id)
+       LEFT JOIN currencies curr ON (c.currency_id = curr.id)
        WHERE (d.dunning_id = ?)
        LIMIT 1|;
   my $ref = selectfirst_hashref_query($form, $dbh, $query, $dunning_id);