projekt kivitendo

                                                   tax_id     => SL::DB::Manager::Tax->find_by(taxkey => 0)->id);

      $new_acc_trans->save;

      # deal with fxtransaction

      if ( $self->currency_id != $::instance_conf->get_currency_id ) {

        my $fxamount = _round($amount - ($amount * $exchangerate));

                                                     fx_transaction => 1,

                                                     tax_id         => SL::DB::Manager::Tax->find_by(taxkey => 0)->id);

        $new_acc_trans->save;

        # if invoice exchangerate differs from exchangerate of payment

        # deal with fxloss and fxamount

        if ($self->exchangerate and $self->exchangerate != 1 and $self->exchangerate != $exchangerate) {

                                                       fx_transaction => 0,

                                                       tax_id         => SL::DB::Manager::Tax->find_by(taxkey => 0)->id);

          $new_acc_trans->save;

        };

      };

        # the acc_trans entries are saved individually, not added to $self and then saved all at once

        $new_acc_trans->save;

        $reference_amount -= abs($amount);

        $paid_amount      += -1 * $amount * $exchangerate;

                                                  taxkey     => 0,

                                                  tax_id     => SL::DB::Manager::Tax->find_by(taxkey => 0)->id);

    $arap_booking->save;

    $fx_gain_loss_amount *= -1 if $self->is_sales;

    $self->paid($self->paid + _round($paid_amount) + $fx_gain_loss_amount) if $paid_amount;

      }

    }

    1;

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