Revision 2a976334
Von Jan Büren vor mehr als 2 Jahren hinzugefügt
| SL/DB/Helper/Payment.pm | ||
|---|---|---|
|
use Data::Dumper;
|
||
|
use DateTime;
|
||
|
use List::Util qw(sum);
|
||
|
use Params::Validate qw(:all);
|
||
|
|
||
|
use SL::DATEV qw(:CONSTANTS);
|
||
|
use SL::DB::Exchangerate;
|
||
| ... | ... | |
|
return @skonto_charts;
|
||
|
}
|
||
|
|
||
|
|
||
|
sub within_skonto_period {
|
||
|
my $self = shift;
|
||
|
my $dateref = shift || DateTime->now->truncate( to => 'day' );
|
||
|
|
||
|
return undef unless ref $dateref eq 'DateTime';
|
||
|
return 0 unless $self->skonto_date;
|
||
|
|
||
|
# return 1 if requested date (or today) is inside skonto period
|
||
|
# this will also return 1 if date is before the invoice date
|
||
|
return $dateref <= $self->skonto_date;
|
||
|
};
|
||
|
validate(
|
||
|
@_,
|
||
|
{ transdate => {
|
||
|
isa => 'DateTime',
|
||
|
callbacks => {
|
||
|
'self has a skonto date' => sub { ref $self->skonto_date eq 'DateTime' },
|
||
|
'is within skonto period' => sub { return shift() <= $self->skonto_date },
|
||
|
},
|
||
|
},
|
||
|
}
|
||
|
);
|
||
|
# then return true
|
||
|
return 1;
|
||
|
}
|
||
|
|
||
|
sub valid_skonto_amount {
|
||
|
my $self = shift;
|
||
Auch abrufbar als: Unified diff
S/D/H/Payment: within_skonto_period umgeschrieben auf Params::Validate