projekt kivitendo

use List::Util qw(min sum);

      $order->{net_amount} = $self->calculate_periodic_invoices_order_netamount($order);

sub calculate_periodic_invoices_order_netamount {

  my ($self, $order) = @_;

  my $cfg        = $order->periodic_invoices_config;

  my $num_years  = 0;

  my $cur_date   = $cfg->start_date->clone;

  my $end_date   = $cfg->terminated ? $self->end_date : undef;

  $end_date    //= DateTime->today_local;

  $end_date      = min($end_date, DateTime->today_local);

  while ($cur_date <= $end_date) {

    $num_years++;

    $cur_date->add(years => 1);

  }

  return $num_years * $order->netamount * (12 / $order->periodic_invoices_config->get_period_length);

}