use strict;
-use Readonly;
-
use SL::DB::MetaSetup::PeriodicInvoicesConfig;
-__PACKAGE__->meta->add_relationships(
- order => {
- type => 'one to one',
- class => 'SL::DB::Order',
- column_map => { oe_id => 'id' },
- },
-);
+use List::Util qw(max min);
__PACKAGE__->meta->initialize;
# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
__PACKAGE__->meta->make_manager_class;
-Readonly our @PERIODICITIES => qw(m q f b y);
-Readonly our %PERIOD_LENGTHS => ( m => 1, q => 3, f => 4, b => 6, y => 12 );
+our @PERIODICITIES = qw(m q f b y);
+our %PERIOD_LENGTHS = ( m => 1, q => 3, f => 4, b => 6, y => 12 );
sub get_period_length {
my $self = shift;
return $end_date;
}
-sub get_previous_invoice_date {
+sub get_previous_billed_period_start_date {
my $self = shift;
my $query = <<SQL;
- SELECT MAX(ar.transdate)
+ SELECT MAX(period_start_date)
FROM periodic_invoices
- LEFT JOIN ar ON (ar.id = periodic_invoices.ar_id)
- WHERE periodic_invoices.config_id = ?
+ WHERE config_id = ?
SQL
- my ($max_transdate) = $self->dbh->selectrow_array($query, undef, $self->id);
+ my ($date) = $self->dbh->selectrow_array($query, undef, $self->id);
+
+ return undef unless $date;
+ return ref $date ? $date : $self->db->parse_date($date);
+}
+
+sub calculate_invoice_dates {
+ my ($self, %params) = @_;
+
+ my $period_len = $self->get_period_length;
+ my $cur_date = $self->first_billing_date || $self->start_date;
+ my $end_date = $self->terminated ? $self->end_date : undef;
+ $end_date //= DateTime->today_local->add(years => 100);
+ my $start_date = $params{past_dates} ? undef : $self->get_previous_billed_period_start_date;
+ $start_date = $start_date ? $start_date->add(days => 1) : $cur_date->clone;
+
+ $start_date = max($start_date, $params{start_date}) if $params{start_date};
+ $end_date = min($end_date, $params{end_date}) if $params{end_date};
+
+ my @dates;
+
+ while ($cur_date <= $end_date) {
+ push @dates, $cur_date->clone if $cur_date >= $start_date;
+
+ $cur_date->add(months => $period_len);
+ }
- return undef unless $max_transdate;
- return ref $max_transdate ? $max_transdate : $self->db->parse_date($max_transdate);
+ return @dates;
}
1;