projekt kivitendo

    $exchangerate = $params{exchangerate};

    my $new_open_amount = ( $self->open_amount / $self->get_exchangerate ) * $exchangerate;

    if ($params{fx_book} && $params{fx_fee_amount} > 0) {

      die "Bank Fees can only be added for AP transactions or Sales Credit Notes"

        unless $self->invoice_type =~ m/^purchase_invoice$|^ap_transaction$|^credit_note$/;

      $self->_add_bank_fx_fees(fee           => _round($params{fx_fee_amount}),

                               bt_id         => $params{bt_id},

                               bank_chart_id => $params{chart_id},

                               source        => $params{source},

                               transdate_obj => $transdate_obj  );

      # invoice_amount add gl booking

      $return_bank_amount += _round($params{fx_fee_amount}); # invoice_type needs negative bank_amount

    }

  } elsif (!$self->forex) { # invoices uses default currency. no exchangerate

    $exchangerate = 1;

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

      $new_acc_trans->save;

      $return_bank_amount += $amount;

      push @new_acc_ids, $new_acc_trans->acc_trans_id;

      # deal with fxtransaction ...

      # if invoice exchangerate differs from exchangerate of payment

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

        my $fxgain_chart = SL::DB::Manager::Chart->find_by(id => $::instance_conf->get_fxgain_accno_id) || die "Can't determine fxgain chart";

        my $fxloss_chart = SL::DB::Manager::Chart->find_by(id => $::instance_conf->get_fxloss_accno_id) || die "Can't determine fxloss chart";

        # AR.pm

        # $amount = $form->round_amount($form->{"paid_$i"} * ($form->{exchangerate} - $form->{"exchangerate_$i"}) * -1, 2);

        # AP.pm

        # exchangerate gain/loss

        # $amount = $form->round_amount($form->{"paid_$i"} * ($form->{exchangerate} - $form->{"exchangerate_$i"}), 2);

        my $gain_loss_chart  = $fx_gain_loss_amount > 0 ? $fxgain_chart : $fxloss_chart;

        # for purchase add gain to ap.paid and subtract loss from ap.paid

        $paid_amount += abs($fx_gain_loss_amount) if $fx_gain_loss_amount > 0 && !$self->is_sales; # but add if to match original invoice amount (arap)

        $paid_amount -= abs($fx_gain_loss_amount) if $fx_gain_loss_amount < 0 && !$self->is_sales; # extract if we have fx_loss

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

                                                     chart_id       => $gain_loss_chart->id,

        push @new_acc_ids, $tax_booking->acc_trans_id;

      }

    }

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

    $self->datepaid($transdate_obj);

    $self->save;

}

sub open_amount_fx {

  validate_pos(

    @_,

      {  can       => [ qw(forex get_exchangerate) ],

}

sub amount_less_skonto_fx {

  validate_pos(

    @_,

      {  can       => [ qw(forex get_exchangerate percent_skonto) ],

  return ( $self->amount_less_skonto / $self->get_exchangerate ) * $fx_rate;

}

sub skonto_amount {

  my $self = shift;