DN: Bei Fehlern in der Transaktion Fehler anzeigen

[mfinanz.git] / SL / DN.pm

diff --git a/SL/DN.pm b/SL/DN.pm
index 8191c5c19857048a7d9322afc71a5f81ba0a200f..9273bf56482f009c6c044c8299ebf1729ff46784 100644 (file)
--- a/SL/DN.pm
+++ b/SL/DN.pm
@@ -292,6 +292,10 @@ sub save_dunning {
   $main::lxdebug->enter_sub();
 
   my $rc = SL::DB->client->with_transaction(\&_save_dunning, $self, $myconfig, $form, $rows);
+
+  if (!$rc) {
+    die SL::DB->client->error
+  }
   $::lxdebug->leave_sub;
 
   return $rc;
@@ -799,7 +803,8 @@ sub print_dunning {
          ar.transdate,       ar.duedate,      ar.customer_id,
          ar.invnumber,       ar.ordnumber,    ar.cp_id,
          ar.amount,          ar.netamount,    ar.paid,
-         (SELECT cu.name FROM currencies cu WHERE cu.id=ar.currency_id) AS curr,
+         (SELECT cu.name FROM currencies cu WHERE cu.id = ar.currency_id) AS curr,
+         (SELECT description from department WHERE id = ar.department_id) AS department,
          ar.amount - ar.paid AS open_amount,
          ar.amount - ar.paid + da.fee + da.interest AS linetotal