Bankimport: Rundungsproblem beim Vergleich Rechnungsbetrag - Kontobetrag

[mfinanz.git] / SL / Controller / BankTransaction.pm

diff --git a/SL/Controller/BankTransaction.pm b/SL/Controller/BankTransaction.pm
index 6b51c246360555747590ebfedd4bd82036ef6d02..5dea0c55f9c7b26485166fbc5e003357d170728c 100644 (file)
--- a/SL/Controller/BankTransaction.pm
+++ b/SL/Controller/BankTransaction.pm
@@ -28,7 +28,6 @@ use SL::DBUtils qw(like);
 
 use List::UtilsBy qw(partition_by);
 use List::MoreUtils qw(any);
-use List::MoreUtils qw(any none);
 use List::Util qw(max);
 
 use Rose::Object::MakeMethods::Generic
@@ -129,7 +128,8 @@ sub action_list {
     $open_invoice->{skonto_type} = 'without_skonto';
     foreach (@{ $sepa_export_items_by_id{ $open_invoice->id } || [] }) {
       my $factor                   = ($_->ar_id == $open_invoice->id ? 1 : -1);
-      $open_invoice->{realamount}  = $::form->format_sellprice($open_invoice->amount*$factor);
+      $open_invoice->{realamount}  = $::form->format_amount(\%::myconfig,$open_invoice->amount*$factor,2);
+
       $open_invoice->{skonto_type} = $_->payment_type;
       $sepa_exports{$_->sepa_export_id} ||= { count => 0, is_ar => 0, amount => 0, proposed => 0, invoices => [], item => $_ };
       $sepa_exports{$_->sepa_export_id}->{count}++;
@@ -182,7 +182,9 @@ sub action_list {
     # score is stored in $bt->{agreement}
 
     foreach my $open_invoice (@all_open_invoices) {
-      ($open_invoice->{agreement}, $open_invoice->{rule_matches}) = $bt->get_agreement_with_invoice($open_invoice);
+      ($open_invoice->{agreement}, $open_invoice->{rule_matches}) = $bt->get_agreement_with_invoice($open_invoice,
+        sepa_export_items => $all_open_sepa_export_items,
+      );
       $open_invoice->{realamount} = $::form->format_amount(\%::myconfig,
                                       $open_invoice->amount * ($open_invoice->{is_ar} ? 1 : -1), 2);
     }