projekt kivitendo

our @EXPORT_OK = qw(skonto_date amount_less_skonto within_skonto_period percent_skonto reference_account open_amount skonto_amount valid_skonto_amount validate_payment_type get_payment_select_options_for_bank_transaction forex _skonto_charts_and_tax_correction get_exchangerate_for_bank_transaction get_exchangerate _add_bank_fx_fees);

  # todo named params

sub _add_bank_fx_fees {

  my ($self, %params)   = @_;

  my $amount = $params{fee};

  croak "no amount passed for bank fx fees"   unless abs(_round($amount)) >= 0.01;

  croak "no banktransaction.id passed"        unless $params{bt_id};

  croak "no bank chart id passed"             unless $params{bank_chart_id};

  croak "no banktransaction.transdate passed" unless ref $params{transdate_obj} eq 'DateTime';

  $params{memo}   //= '';

  $params{source} //= '';

  my ($credit, $debit);

  $credit = SL::DB::Chart->load_cached($params{bank_chart_id});

  $debit  = SL::DB::Manager::Chart->find_by(description => 'Nebenkosten des Geldverkehrs');

  croak("No such Chart ID")  unless ref $credit eq 'SL::DB::Chart' && ref $debit eq 'SL::DB::Chart';

  my $notes = SL::HTML::Util->strip($self->notes);

  my $current_transaction = SL::DB::GLTransaction->new(

         employee_id    => $self->employee_id,

         transdate      => $params{transdate_obj},

         notes          => $params{source} . ' ' . $params{memo},

         description    => $notes || $self->invnumber,

         reference      => t8('Automatic Foreign Exchange Bank Fees') . " "  . $self->invnumber,

         department_id  => $self->department_id ? $self->department_id : undef,

         imported       => 0, # not imported

         taxincluded    => 0,

    )->add_chart_booking(

         chart  => $debit,

         debit  => abs($amount),

         source => t8('Automatic Foreign Exchange Bank Fees') . " "  . $self->invnumber,

         memo   => $params{memo},

         tax_id => 0,

    )->add_chart_booking(

         chart  => $credit,

         credit => abs($amount),

         source => t8('Automatic Foreign Exchange Bank Fees') . " "  . $self->invnumber,

         memo   => $params{memo},

         tax_id => 0,

    )->post;

    # add a stable link acc_trans_id to bank_transactions.id

    foreach my $transaction (@{ $current_transaction->transactions }) {

      my %props_acc = (

           acc_trans_id        => $transaction->acc_trans_id,

           bank_transaction_id => $params{bt_id},

           gl                  => $current_transaction->id,

      );

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

    }

    # Record a record link from banktransactions to gl

    my %props_rl = (

         from_table => 'bank_transactions',

         from_id    => $params{bt_id},

         to_table   => 'gl',

         to_id      => $current_transaction->id,

    );

    SL::DB::RecordLink->new(%props_rl)->save;

    # Record a record link from ap to gl

    # linked gl booking will appear in tab linked records

    # this is just a link for convenience

    %props_rl = (

         #from_table => $is_sales ? 'ar' : 'ap',

         from_table => 'ap',

         from_id    => $self->id,

         to_table   => 'gl',

         to_id      => $current_transaction->id,

    );

    SL::DB::RecordLink->new(%props_rl)->save;

}

sub get_exchangerate {

  # return record exchange rate if set

  return $self->exchangerate if $self->exchangerate > 0;

  # none defined check daily exchangerate at records transdate

sub get_exchangerate_for_bank_transaction {

  validate_pos(

    @_,

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

         callbacks => { 'has forex'      => sub { return $_[0]->forex } } },

      {  callbacks => {

           'is an integer'               => sub { return $_[0] =~ /^[1-9][0-9]*$/                                              },

           'is a valid bank transaction' => sub { ref SL::DB::BankTransaction->load_cached($_[0]) eq 'SL::DB::BankTransaction' },

           'has a valid valuta date'     => sub { ref SL::DB::BankTransaction->load_cached($_[0])->valutadate eq 'DateTime'    },

         },

      }

  );

  my ($self, $bt_id) = @_;

  my $bt   = SL::DB::BankTransaction->load_cached($bt_id);

  my $rate = SL::DB::Manager::Exchangerate->find_by(currency_id => $self->currency_id,

                                                    transdate   => $bt->valutadate,

                                                   );

  return undef unless $rate;

  return $self->is_sales ? $rate->buy : $rate->sell; # also undef if not defined

}