projekt kivitendo

      @where

    ],

  );

  # credit notes have a negative amount, treat differently

  my $all_open_ar_invoices = SL::DB::Manager::Invoice        ->get_all(where => [ or => [ amount => { gt => \'paid' },

                                                                                          and => [ type    => 'credit_note',

  my $all_open_sepa_export_items = SL::DB::Manager::SepaExportItem->get_all(where => [chart_id => $bank_account->chart_id ,

                                                                             'sepa_export.executed' => 0, 'sepa_export.closed' => 0 ], with_objects => ['sepa_export']);

  my @all_open_invoices;

  # filter out invoices with less than 1 cent outstanding

  push @all_open_invoices, map { $_->{is_ar}=1 ; $_ } grep { abs($_->amount - $_->paid) >= 0.01 } @{ $all_open_ar_invoices };

    }

  }

  # try to match each bank_transaction with each of the possible open invoices

  # by awarding points

  my @proposals;

        push(@{$bt->{rule_matches}}, $_->{rule_matches});

      };

    };

  }  # finished one bt

  # finished all bt