X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FPeriodicInvoicesConfig.pm;h=074d4e317b502d02a5cb57351d625b2d6712b937;hb=3da73190b8f201bfb33e3b6d96bbc6330142e922;hp=d49595bb53e39d6bf1158c73367feed0293a17e5;hpb=3a94f4d2dd9a835d4a7007e1b999ea00b3c4e1cd;p=kivitendo-erp.git

diff --git a/SL/DB/PeriodicInvoicesConfig.pm b/SL/DB/PeriodicInvoicesConfig.pm
index d49595bb5..074d4e317 100644
--- a/SL/DB/PeriodicInvoicesConfig.pm
+++ b/SL/DB/PeriodicInvoicesConfig.pm
@@ -2,25 +2,17 @@ package SL::DB::PeriodicInvoicesConfig;
 
 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;
@@ -68,20 +60,42 @@ sub handle_automatic_extension {
   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->end_date           || DateTime->today_local->add(years => 10);
+  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;