Finanzcontrollingbericht: wiederkehrende Rechnungen berücksichtigen

[mfinanz.git] / SL / DB / PeriodicInvoicesConfig.pm

diff --git a/SL/DB/PeriodicInvoicesConfig.pm b/SL/DB/PeriodicInvoicesConfig.pm
index c9ef22285cb59f17e310782e8a8b5d882dd1c681..45536752c0fe60ec81fd9eb4e8faa9958802da83 100644 (file)
--- a/SL/DB/PeriodicInvoicesConfig.pm
+++ b/SL/DB/PeriodicInvoicesConfig.pm
@@ -4,13 +4,7 @@ use strict;
 
 use SL::DB::MetaSetup::PeriodicInvoicesConfig;
 
-__PACKAGE__->meta->add_relationships(
-  order        => {
-    type       => 'many to one',
-    class      => 'SL::DB::Order',
-    column_map => { oe_id => 'id' },
-  },
-);
+use List::Util qw(max min);
 
 __PACKAGE__->meta->initialize;
 
@@ -82,4 +76,27 @@ SQL
   return ref $max_transdate ? $max_transdate : $self->db->parse_date($max_transdate);
 }
 
+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->end_date                  || DateTime->today_local->add(years => 10);
+  my $start_date = $params{past_dates} ? undef : $self->get_previous_invoice_date;
+  $start_date  ||= $cur_date->clone->subtract(days => 1);
+
+  $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 @dates;
+}
+
 1;