projekt kivitendo

    $open_amount            = abs($open_amount);

    $open_amount           -= $free_skonto_amount if ($payment_type eq 'free_skonto');

    my $not_assigned_amount = abs($bank_transaction->not_assigned_amount);

    # get the right direction for the payment bookings (all amounts < 0 are stornos, credit notes or negative ap)

    $amount_for_payment *= -1 if $invoice->amount < 0;

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

    # get the right direction for the bank transaction

    # ... and then pay the invoice

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

  my $is_linked_bank_transaction;

  if ($::form->{id}

      && SL::DB::Manager::BankTransactionAccTrans->find_by(ap_id => $::form->{id})) {

    $is_linked_bank_transaction = 1;

                    : $is_closed                  ? t8('The billing period has already been locked.')

                    : $has_sepa_exports           ? t8('This invoice has been linked with a sepa export, undo this first.')

                    : $is_linked_bank_transaction ? t8('This transaction is linked with a bank transaction. Please undo and redo the bank transaction booking if needed.')

                    : $change_never               ? t8('Changing invoices has been disabled in the configuration.')

                    : $change_on_same_day_only    ? t8('Invoices can only be changed on the day they are posted.')

                    : $has_storno                 ? t8('This invoice has been canceled already.')