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

diff --git a/SL/Controller/BankTransaction.pm b/SL/Controller/BankTransaction.pm
index 8f4bffd5ce35d5fbfb25ee404347cd5b55be3098..68047f3144d3204c066da6215f3e3b8395eca4bb 100644 (file)
--- 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;
 
         $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
       }
 
       # Record a record link from the bank transaction to the invoice