projekt kivitendo

    my $new_order = clone($orig_order);

    $new_order->reqdate($period_start_date);

    $new_order->tax_point(

        $period_start_date, $self->get_billing_period_length || $self->get_order_value_period_length || 1

      )->add(days => -1)

    );

        || $self->first_billing_date || $self->start_date;

      my @dates = $self->calculate_invoice_dates(

        start_date => $start_date,

      );

      my $once_date = scalar @dates ? $dates[0] : undef;

      return if $period_start_date != $once_date;

      my $periods = $max_periods;

      if ($item_config->start_date) {

        $periods-- while $periods > 0

      }

      if ($item_config->end_date) {

        my $periods_from_end = 0;

        $periods_from_end++ while $periods_from_end < $periods

        $periods -= $periods_from_end;

      }

      return if $periods == 0;

    my $month_to_start = $start_date->year * 12 + $start_date->month - $months_first_period;

    $month_to_start += 1

    my $month_after_last_created = 0;

    if ($last_created_on_date) {

      $month_after_last_created =

        $last_created_on_date->year * 12 + $last_created_on_date->month - $months_first_period;

      $month_after_last_created += 1

    }

    my $months_from_period_start = max(

    my $period_count = int($months_from_period_start / $billing_period_length); # floor

    $period_count += $months_from_period_start % $billing_period_length != 0 ? 1 : 0; # ceil

    while ($next_period_start_date <= $end_date) {

      push @start_dates, $next_period_start_date;

      $period_count++;

    }

  } else { # single

    push @start_dates, $first_period_start_date

}

sub add_months {

  my $start_months_of_date = $date->month;

  $date = $date->clone();

      $active = 1;

      my $end_date = $self->end_date;

      _log_msg("HAE for " . $self->id . " from " . $self->end_date . " to " . $end_date . " on " . $today . "\n");

      $self->update_attributes(end_date => $end_date);

    }

        $active = 1;

        my $end_date = $item_config->end_date;

        _log_msg("HAE for item " . $item->id . " from " . $item_config->end_date . " to " . $end_date . " on " . $today . "\n");

        $item_config->update_attributes(end_date => $end_date);

      }