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 get_payment_suggestions validate_payment_type open_sepa_transfer_amount get_payment_select_options_for_bank_transaction exchangerate forex _skonto_charts_and_tax_correction);

};

sub open_sepa_transfer_amount {

my $self = shift;

# die "was buggy for ar and not really in use at all";

my ($vc, $key, $type);

if ( ref($self) eq 'SL::DB::Invoice' ) {

$vc = 'customer';

$key = 'ar_id'; # BUGGY ar_id

$type = 'ar';

} else {

$vc = 'vendor';

$key = 'ap_id';

$type = 'ap';

};

my $sql = qq|SELECT SUM(sei.amount) AS amount FROM sepa_export_items sei | .

qq| LEFT JOIN sepa_export se ON (sei.sepa_export_id = se.id) | .

qq| WHERE $key = ? AND NOT se.closed AND (se.vc = '$vc') |;

my ($open_sepa_amount) = $self->db->dbh->selectrow_array($sql, undef, $self->id);

return $open_sepa_amount || 0;

};

sub get_payment_suggestions {

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

my $open_amount = $self->open_amount;

$open_amount -= $self->open_sepa_transfer_amount if $params{sepa};

$self->{invoice_amount_suggestion} = $open_amount;

undef $self->{payment_select_options};

push(@{$self->{payment_select_options}} , { payment_type => 'without_skonto', display => t8('without skonto') });

if ( $self->within_skonto_period ) {

# If there have been no payments yet suggest amount_less_skonto, otherwise the open amount

if ( $open_amount && # invoice amount not 0

$open_amount == $self->amount && # no payments yet, or sum of payments and sepa export amounts is zero

$self->check_skonto_configuration) {

$self->{invoice_amount_suggestion} = $self->amount_less_skonto;

push(@{$self->{payment_select_options}} , { payment_type => 'with_skonto_pt', display => t8('with skonto acc. to pt') , selected => 1 });

} else {

if ( ( $self->valid_skonto_amount($self->open_amount) || $self->valid_skonto_amount($open_amount) ) and not $params{sepa} ) {

# Will never be reached

die "This case is as dead as the dead cat. Go to start, don't pick 2,000 \$";

$self->{invoice_amount_suggestion} = $open_amount;

# only suggest difference_as_skonto if open_amount exactly matches skonto_amount

# AND we aren't in SEPA mode

my $selected = 0;

$selected = 1 if _round($open_amount) == _round($self->skonto_amount);

push(@{$self->{payment_select_options}} , { payment_type => 'difference_as_skonto', display => t8('difference as skonto') , selected => $selected });

};

};

} else {

# invoice was configured with skonto, but skonto date has passed, or no skonto available

$self->{invoice_amount_suggestion} = $open_amount;

# difference_as_skonto doesn't make any sense for SEPA transfer, as this doesn't cause any actual payment

if ( $self->valid_skonto_amount($self->open_amount) && not $params{sepa} ) {

# probably also dead code

die "This case is as dead as the dead cat. Go to start, don't pick 2,000 \$";

push(@{$self->{payment_select_options}} , { payment_type => 'difference_as_skonto', display => t8('difference as skonto') , selected => 0 });

};

};

return 1;

};