From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 17 Aug 2016 08:47:34 +0000 (+0200)
Subject: Bankauszug: nur Warnung wegen Überzahlung bei tatsächlicher Überzahlung
X-Git-Tag: release-3.5.4~2132
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=8b14060fa510268875cec5d0e4bfe924a9f6897b;p=kivitendo-erp.git

Bankauszug: nur Warnung wegen Überzahlung bei tatsächlicher Überzahlung
---

diff --git a/SL/Controller/BankTransaction.pm b/SL/Controller/BankTransaction.pm
index 8f4bffd5c..68047f314 100644
--- a/SL/Controller/BankTransaction.pm
+++ b/SL/Controller/BankTransaction.pm
@@ -533,11 +533,13 @@ sub save_single_bank_transaction {
         $bank_transaction->invoice_amount($bank_transaction->amount);
         $amount_of_transaction = 0;
 
-        push @warnings, {
-          %data,
-          result  => 'warning',
-          message => $::locale->text('Invoice #1 was overpaid by #2.', $invoice->invnumber, $::form->format_amount(\%::myconfig, $overpaid_amount, 2)),
-        };
+        if ($overpaid_amount >= 0.01) {
+          push @warnings, {
+            %data,
+            result  => 'warning',
+            message => $::locale->text('Invoice #1 was overpaid by #2.', $invoice->invnumber, $::form->format_amount(\%::myconfig, $overpaid_amount, 2)),
+          };
+        }
       }
 
       # Record a record link from the bank transaction to the invoice