Finanzübersicht: wied. Rechnungen für ganzes Jahr auf einmal berücksichtigen
authorMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 23 Sep 2014 15:30:09 +0000 (17:30 +0200)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Thu, 19 Feb 2015 09:20:42 +0000 (10:20 +0100)
SL/Controller/FinancialOverview.pm

index 6d3fc10..cd153d2 100644 (file)
@@ -145,13 +145,11 @@ sub calculate_periodic_invoices {
 sub calculate_one_periodic_invoice {
   my ($self, %params) = @_;
 
-  my @dates           = $params{config}->calculate_invoice_dates(start_date => $params{start_date}, end_date => $params{end_date}, past_dates => 1);
-  my $first_date      = $dates[0];
+  return if $params{config}->start_date > $params{end_date};
 
-  return if !$first_date;
-
-  my $net  = $params{config}->order->netamount * scalar(@dates);
-  my $sord = $self->data->{sales_orders};
+  my $first_date = $params{config}->start_date->clone->set_year($self->year);
+  my $net        = $params{config}->order->netamount * (12 / $params{config}->get_period_length);
+  my $sord       = $self->data->{sales_orders};
 
   $sord->{months  }->[ $first_date->month   - 1 ] += $net;
   $sord->{quarters}->[ $first_date->quarter - 1 ] += $net;