projekt kivitendo

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

# dead method,  used to be called in get_payment_select_options_for_bank_transaction

# error handling is now in _skonto_charts_and_tax_correction that dies with a user info

# and not silently disables the option for the user

sub check_skonto_configuration {

  my $self = shift;

  my $is_sales = ref($self) eq 'SL::DB::Invoice';

  my $skonto_configured = 1; # default is assume skonto works

  # my $transactions = $self->transactions;

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

    # find all transactions with an AR_amount or AP_amount link

    my $tax = SL::DB::Manager::Tax->get_first( where => [taxkey => $transaction->taxkey, id => $transaction->tax_id ]);

    # acc_trans entries for the taxes (chart_link == A[RP]_tax) often

    # have combinations of taxkey & tax_id that don't exist in

    # tax. Those must be skipped.

    next if !$tax && ($transaction->chart_link !~ m{A[RP]_amount});

    croak "no tax for taxkey " . $transaction->{taxkey} unless ref $tax;

    $transaction->{chartlinks} = { map { $_ => 1 } split(m/:/, $transaction->chart_link) };

    if ( $is_sales && $transaction->{chartlinks}->{AR_amount} ) {

      $skonto_configured = 0 unless $tax->skonto_sales_chart_id;

    } elsif ( !$is_sales && $transaction->{chartlinks}->{AP_amount}) {

      $skonto_configured = 0 unless $tax->skonto_purchase_chart_id;

    };

  };

  return $skonto_configured;

}