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

          # so $amount_of_transaction is negative but needs positive

          $amount_of_transaction *= -1;

          # $invoice->open_amount may be negative for ap_transaction but may be positiv for negativ ap_transaction

          # if $invoice->open_amount is negative $bank_transaction->amount is positve

          # if $invoice->open_amount is positive $bank_transaction->amount is negative