Merge branch 'debian' into b-3.6.1

[mfinanz.git] / SL / DB / Helper / SalesPurchaseInvoice.pm

diff --git a/SL/DB/Helper/SalesPurchaseInvoice.pm b/SL/DB/Helper/SalesPurchaseInvoice.pm
index ed1ba32d2857101dc61fe20b0b1c49e9149f9e67..59e4697e7652d2aed546ec4aa10ad72ca483dc0a 100644 (file)
--- a/SL/DB/Helper/SalesPurchaseInvoice.pm
+++ b/SL/DB/Helper/SalesPurchaseInvoice.pm
@@ -32,7 +32,7 @@ sub get_tax_and_amount_by_tax_chart_id {
     $total ||= 0;
     $total  += $transaction->amount;
   }
-  die "Invalid calculated amount" if abs($total) - abs($self->amount) > 0.001;
+  die "Invalid calculated amount. Calc: $total Amount: " . abs($self->amount) if abs($total) - abs($self->amount) > 0.001;
   return $tax_and_amount_by_tax_id;
 }