projekt kivitendo

      # A configuration can be set to inactive by

      # $config->handle_automatic_extension. Therefore the check in

      # ...->get_all() does not suffice.

      _log_msg("Config " . $config->id . " active " . $config->active);

      next unless $config->active;

      my @dates = _calculate_dates($config);

      _log_msg("Dates: " . join(' ', map { $_->to_lxoffice } @dates));

      foreach my $date (@dates) {

        my $data = $self->_create_periodic_invoice($config, $date);

        next unless $data;

        _log_msg("Invoice " . $data->{invoice}->invnumber . " posted for config ID " . $config->id . ", period start date " . $::locale->format_date(\%::myconfig, $date) . "\n");

        push @{ $self->{posted_invoices} }, $data->{invoice};

    foreach my $inv ( @invoices_to_print ) { $self->_print_invoice($inv); }

    foreach my $inv ( @invoices_to_email ) { $self->_email_invoice($inv); }

sub _adjust_sellprices_for_period_lengths {

  my (%params) = @_;

  return if $params{config}->periodicity eq 'o';

  my $billing_len     = $params{config}->get_billing_period_length;

  my $order_value_len = $params{config}->get_order_value_period_length;

  return if $billing_len == $order_value_len;

  my $is_last_invoice_in_cycle = $params{config}->is_last_bill_date_in_order_value_cycle(date => $params{period_start_date});

  _log_msg("_adjust_sellprices_for_period_lengths: period_start_date $params{period_start_date} is_last_invoice_in_cycle $is_last_invoice_in_cycle billing_len $billing_len order_value_len $order_value_len");

  if ($order_value_len < $billing_len) {

    my $num_orders_per_invoice = $billing_len / $order_value_len;

    $_->sellprice($_->sellprice * $num_orders_per_invoice) for @{ $params{invoice}->items };

    return;

  }

  my $num_invoices_in_cycle = $order_value_len / $billing_len;

  foreach my $item (@{ $params{invoice}->items }) {

    my $sellprice_one_invoice = $::form->round_amount($item->sellprice * $billing_len / $order_value_len, 2);

    if ($is_last_invoice_in_cycle) {

      $item->sellprice($item->sellprice - ($num_invoices_in_cycle - 1) * $sellprice_one_invoice);

    } else {

      $item->sellprice($sellprice_one_invoice);

    }

  }

}

  my $self              = shift;

  my $config            = shift;

  my $period_start_date = shift;

  my $time_period_vars  = _generate_time_period_variables($config, $period_start_date);

  my $invdate           = DateTime->today_local;

  my $order   = $config->order;

    my $tax_point = ($invoice->tax_point // $time_period_vars->{period_end_date}->[0])->clone;

    while ($tax_point < $period_start_date) {

      $tax_point->add(months => $config->get_billing_period_length);

    }

    $intnotes    .= "Automatisch am " . $invdate->to_lxoffice . " erzeugte Rechnung";

    $invoice->assign_attributes(deliverydate => $period_start_date,

                                tax_point    => $tax_point,

                                intnotes     => $intnotes,

                                employee     => $order->employee, # new_from sets employee to import user

                                direct_debit => $config->direct_debit,

                               );

    _adjust_sellprices_for_period_lengths(invoice => $invoice, config => $config, period_start_date => $period_start_date);

    period_start_date => $period_start_date,

sub _calculate_dates {

  my ($config) = @_;

  return $config->calculate_invoice_dates(end_date => DateTime->today_local);

}

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

  my $invoice       = $data->{invoice};

  my $config        = $data->{config};

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

  $data->{config}->load;

  return unless $data->{config}->send_email;

    (split(m{,}, $data->{config}->email_recipient_address),

     $data->{config}->email_recipient_contact   ? ($data->{config}->email_recipient_contact->cp_email) : (),

     $data->{invoice}->{customer}->invoice_mail ? ($data->{invoice}->{customer}->invoice_mail) : ()

  my $language      = $data->{invoice}->language ? $data->{invoice}->language->template_code : undef;

    record                 => $data->{invoice},

  $data->{invoice}->flatten_to_form($create_params{variables}, format_amounts => 1);

    $self->_store_pdf_in_webdav        ($pdf_file_name, $data->{invoice});

    $self->_store_pdf_in_filemanagement($pdf_file_name, $data->{invoice});

        object           => $data->{config},

        invoice          => $data->{invoice},

        vars             => $data->{time_period_vars},

      $mail->{record_id}   = $data->{invoice}->id,

      $mail->{from}        = $data->{config}->email_sender || $::lx_office_conf{periodic_invoices}->{email_from};

      $mail->{subject}     = $data->{config}->email_subject;

      $mail->{message}     = $data->{config}->email_body;

        name     => sprintf('%s %s.pdf', $label, $data->{invoice}->invnumber),

        push @{ $self->{emailed_failed} }, [ $data->{invoice}, $error ];

    push @{ $self->{emailed_invoices} }, $data->{invoice} unless $overall_error;

    push @{ $self->{emailed_failed} }, [ $data->{invoice}, $EVAL_ERROR ];

Iterate over all periodic invoice configurations, extend them if

applicable, calculate the dates for which invoices have to be posted

and post those invoices by converting the order into an invoice for

each date.