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' },

  my $all_open_ap_invoices = SL::DB::Manager::PurchaseInvoice->get_all(where => [amount => { ne => \'paid' }], with_objects => ['vendor'  ,'payment_terms']);

  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 };

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

  my %sepa_exports;

  # first collect sepa export items to open invoices

  foreach my $open_invoice (@all_open_invoices){

    $open_invoice->{realamount}  = $::form->format_amount(\%::myconfig,$open_invoice->amount,2);

    $open_invoice->{skonto_type} = 'without_skonto';

    foreach ( @{$all_open_sepa_export_items}) {

      if ( $_->ap_id == $open_invoice->id ||  $_->ar_id == $open_invoice->id ) {

        my $factor = ($_->ar_id == $open_invoice->id?1:-1);

        $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}++ ;

        $sepa_exports{$_->sepa_export_id}->{is_ar}++ if  $_->ar_id == $open_invoice->id;

        $sepa_exports{$_->sepa_export_id}->{amount} += $_->amount * $factor;

        push @{ $sepa_exports{$_->sepa_export_id}->{invoices} }, $open_invoice;

      }

    }

  }

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

    ## 5 Stellen hinter dem Komma auf 2 Stellen reduzieren

    $bt->amount($bt->amount*1);

    $bt->invoice_amount($bt->invoice_amount*1);

    $bt->{proposals}    = [];

    $bt->{rule_matches} = [];

    $bt->{remote_name} .= $bt->{remote_name_1} if $bt->{remote_name_1};

      foreach ( keys  %sepa_exports) {

          ## jupp

          @{$bt->{proposals}} = @{$sepa_exports{$_}->{invoices}};

          $sepa_exports{$_}->{proposed}=1;

          push(@proposals, $bt);

          next;

        }

      }

    }

    # try to match the current $bt to each of the open_invoices, saving the

    # the arrays $bt->{proposals} and $bt->{rule_matches}, and the agreement

    # score is stored in $bt->{agreement}

      ($open_invoice->{agreement}, $open_invoice->{rule_matches}) = $bt->get_agreement_with_invoice($open_invoice);

      $open_invoice->{realamount} = $::form->format_amount(\%::myconfig,

                                      $open_invoice->amount * ($open_invoice->{is_ar} ? 1 : -1), 2);

                                          : abs(@{ $_->{proposals} }[0]->amount + $_->amount) < 0.01)

  } @{ $bank_transactions };

  # sort bank transaction proposals by quality (score) of proposal

  $bank_transactions = [ sort { $a->{agreement} <=> $b->{agreement} } @{ $bank_transactions } ] if $::form->{sort_by} eq 'proposal' and $::form->{sort_dir} == 1;

  $bank_transactions = [ sort { $b->{agreement} <=> $a->{agreement} } @{ $bank_transactions } ] if $::form->{sort_by} eq 'proposal' and $::form->{sort_dir} == 0;

  $::request->layout->add_javascripts("kivi.BankTransaction.js");

  $self->render('bank_transactions/list',

                title             => t8('Bank transactions MT940'),

}

sub save_single_bank_transaction {

  my ($self, %params) = @_;

  return [ @linked_invoices ];

}

sub get_agreement_with_invoice {

  my ($self, $invoice) = @_;

    skonto_exact_amount         => 5,

    wrong_sign                  => -1,

    sepa_export_item            => 5,

  );

  my ($agreement,$rule_matches);

  # compare banking arrangements

  my ($iban, $bank_code, $account_number);

  $bank_code      = $invoice->customer->bank_code      if $invoice->is_sales;

  };

  # if there is exactly one non-executed sepa_export_item for the invoice

      my $sei = $seis->[0];

        $agreement    += $points{sepa_export_item};

        $rule_matches .= 'sepa_export_item(' . $points{'sepa_export_item'} . ') ';

      }

  $bank_account->save;

}

sub create_bank_transaction {

 my (%params) = @_;

use strict;

  SL::DB::Manager::Part->delete_all(all => 1);

  SL::DB::Manager::Customer->delete_all(all => 1);

  SL::DB::Manager::Vendor->delete_all(all => 1);

  SL::DB::Manager::BankAccount->delete_all(all => 1);

  SL::DB::Manager::PaymentTerm->delete_all(all => 1);

  SL::DB::Manager::Currency->delete_all(where => [ name => 'CUR' ]);

test_ap_payment_part_transaction();

test_neg_sales_invoice();

# remove all created data at end of test

clear_up();

  is($bt->invoice_amount      , '-345.10000', "$testname: bt invoice_amount ok");

}

1;