projekt kivitendo

      }

    # pay invoice

    # TODO rewrite this: really booked amount should be a return value of Payment.pm

    # also this controller shouldnt care about how to calc skonto. we simply delegate the

    # payment_type to the helper and get the corresponding bank_transaction values back

    # hotfix to get the signs right - compare absolute values and later set the signs

                          currency_id   => $currency_id,

                          bt_id         => $bt_id,

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

    my $booked_amount = shift @acc_ids;

    $bank_transaction->invoice_amount($bank_transaction->invoice_amount + $booked_amount * $sign);

    # ... and record the origin via BankTransactionAccTrans

    if (scalar(@acc_ids) < 2) {

  my $rounded_params_amount = _round( $params{amount} ); # / $exchangerate);

  my $fx_gain_loss_amount = 0; # for fx_gain and fx_loss

  my $db = $self->db;

  $db->with_transaction(sub {

    my $new_acc_trans;

      # total amount against bank, do we already know this by now?

      $new_acc_trans = SL::DB::AccTransaction->new(trans_id   => $self->id,

                                                   chart_id   => $account_bank->id,

                                                   chart_link => $account_bank->link,

    1;

  }) || die t8('error while paying invoice #1 : ', $self->invnumber) . $db->error . "\n";

}

sub skonto_date {