1 package SL::DB::PeriodicInvoicesConfig;
7 use SL::DB::MetaSetup::PeriodicInvoicesConfig;
9 __PACKAGE__->meta->add_relationships(
12 class => 'SL::DB::Order',
13 column_map => { oe_id => 'id' },
17 __PACKAGE__->meta->initialize;
19 # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
20 __PACKAGE__->meta->make_manager_class;
22 Readonly our @PERIODICITIES => qw(m q f b y);
23 Readonly our %PERIOD_LENGTHS => ( m => 1, q => 3, f => 4, b => 6, y => 12 );
25 sub get_period_length {
27 return $PERIOD_LENGTHS{ $self->periodicity } || 1;
31 $::lxdebug->message(LXDebug->DEBUG1(), join('', @_));
34 sub handle_automatic_extension {
37 _log_msg("HAE for " . $self->id . "\n");
38 # Don't extend configs that have been terminated. There's nothing to
39 # extend if there's no end date.
40 return if $self->terminated || !$self->end_date;
42 my $today = DateTime->now_local;
43 my $end_date = $self->end_date;
45 _log_msg("today $today end_date $end_date\n");
47 # The end date has not been reached yet, therefore no extension is
49 return if $today <= $end_date;
51 # The end date has been reached. If no automatic extension has been
52 # set then terminate the config and return.
53 if (!$self->extend_automatically_by) {
54 _log_msg("setting inactive\n");
60 # Add the automatic extension period to the new end date as long as
61 # the new end date is in the past. Then save it and get out.
62 $end_date->add(months => $self->extend_automatically_by) while $today > $end_date;
63 _log_msg("new end date $end_date\n");
65 $self->end_date($end_date);
71 sub get_previous_invoice_date {
75 SELECT MAX(ar.transdate)
76 FROM periodic_invoices
77 LEFT JOIN ar ON (ar.id = periodic_invoices.ar_id)
78 WHERE periodic_invoices.config_id = ?
81 my ($max_transdate) = $self->dbh->selectrow_array($query, undef, $self->id);
83 return undef unless $max_transdate;
84 return ref $max_transdate ? $max_transdate : $self->db->parse_date($max_transdate);