projekt kivitendo

  # see pod

  if (@{ $bank_transaction->linked_invoices } || $bank_transaction->invoice_amount != 0) {

        return {

          %data,

          result  => 'error',

          message => $::locale->text("Bank transaction with id #1 has already been linked to one or more record and/or some amount is already assigned.", $bank_transaction->id),

        };

      }

      # pay invoice or go to the next bank transaction if the amount is not sufficiently high

      if ($invoice->open_amount <= $amount_of_transaction && $n_invoices < $max_invoices) {

        my $open_amount = ($payment_type eq 'with_skonto_pt'?$invoice->amount_less_skonto:$invoice->open_amount);

        # first calculate new bank transaction amount ...

        if ($invoice->is_sales) {

          $amount_of_transaction -= $sign * $open_amount;

          $bank_transaction->invoice_amount($bank_transaction->invoice_amount + $open_amount);

        } else {

          $amount_of_transaction += $sign * $open_amount;

          $bank_transaction->invoice_amount($bank_transaction->invoice_amount - $open_amount);

        }

        # ... and then pay the invoice

        my @acc_ids = $invoice->pay_invoice(chart_id => $bank_transaction->local_bank_account->chart_id,

                              trans_id     => $invoice->id,

                              amount       => $open_amount,

                              payment_type => $payment_type,

                              source       => $source,

                              memo         => $memo,

                              transdate    => $bank_transaction->transdate->to_kivitendo);

        # ... and record the origin via BankTransactionAccTrans

        if (scalar(@acc_ids) != 2) {

          return {

            %data,

            result  => 'error',

            message => $::locale->text("Unable to book transactions for bank purpose #1", $bank_transaction->purpose),

          };

        }

        foreach my $acc_trans_id (@acc_ids) {

            my $id_type = $invoice->is_sales ? 'ar' : 'ap';

            my  %props_acc = (

              acc_trans_id        => $acc_trans_id,

              bank_transaction_id => $bank_transaction->id,

              $id_type            => $invoice->id,

            );

            SL::DB::BankTransactionAccTrans->new(%props_acc)->save;

        }

      } else {

      # use the whole amount of the bank transaction for the invoice, overpay the invoice if necessary

        # $invoice->open_amount     is negative for credit_notes

        # $bank_transaction->amount is negative for outgoing transactions

        # so $amount_of_transaction is negative but needs positive

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

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

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

        # but amount of transaction is for both positive

        $amount_of_transaction *= -1 if ($invoice->amount < 0);

        # if we have a skonto case - the last invoice needs skonto

        $amount_of_transaction = $invoice->amount_less_skonto if ($payment_type eq 'with_skonto_pt');

        my $overpaid_amount = $amount_of_transaction - $invoice->open_amount;

        $invoice->pay_invoice(chart_id     => $bank_transaction->local_bank_account->chart_id,

                              trans_id     => $invoice->id,

                              amount       => $amount_of_transaction,

                              payment_type => $payment_type,

                              source       => $source,

                              memo         => $memo,

                              transdate    => $bank_transaction->transdate->to_kivitendo);

        $bank_transaction->invoice_amount($bank_transaction->amount);

        $amount_of_transaction = 0;

        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)),

          };

        }

      }

the assigned invoices (1 .. n) the last invoice will be overpayed.

use Test::More tests => 208;

  is($ar_transaction->paid                     , '135.00000' , "$testname: 'salesinv overpaid' was overpaid");

  is($bt->invoice_amount                       , '135.00000' , "$testname: bt invoice amount was assigned overpaid amount");

  is($ar_transaction->open_amount == 0 ? 1 : 0 , 0           , "$testname: 'salesinv overpaid is open (via amount-paid)");

  # two payments on different days, 10 and 119. If there is only one invoice we want it be overpaid.

  $bt_1->load;

  is($ar_transaction->paid , '129.00000' , "$testname: 'salesinv overpaid partial' was overpaid");

  is($bt_1->invoice_amount ,  '10.00000' , "$testname: bt_1 invoice amount was assigned overpaid amount");

  is($bt_2->invoice_amount , '119.00000' , "$testname: bt_2 invoice amount was assigned overpaid amount");