projekt kivitendo

  my $period_end_date   = $period_start_date->clone->truncate(to => 'month')->add(months => $config->get_billing_period_length)->subtract(days => 1);

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

  my $net        = $params{config}->order->netamount * (12 / $params{config}->get_billing_period_length);

  order_value_periodicity => { type => 'varchar', length => 1, not_null => 1 },

  periodicity             => { type => 'varchar', length => 1, not_null => 1 },

our %PERIOD_LENGTHS             = ( m => 1, q => 3, b => 6, y => 12 );

our %ORDER_VALUE_PERIOD_LENGTHS = ( %PERIOD_LENGTHS, 2 => 24, 3 => 36, 4 => 48, 5 => 60 );

our @PERIODICITIES              = keys %PERIOD_LENGTHS;

our @ORDER_VALUE_PERIODICITIES  = keys %ORDER_VALUE_PERIOD_LENGTHS;

sub get_billing_period_length {

sub get_order_value_period_length {

  my $self = shift;

  return $self->get_billing_period_length if $self->order_value_periodicity eq 'p';

  return $ORDER_VALUE_PERIOD_LENGTHS{ $self->order_value_periodicity } || 1;

}

  my $period_len = $self->get_billing_period_length;

__END__

=pod

=encoding utf8

=head1 NAME

SL::DB::PeriodicInvoicesConfig - DB model for the configuration for periodic invoices

=head1 FUNCTIONS

=over 4

=item C<calculate_invoice_dates %params>

Calculates dates for which invoices will have to be created. Returns a

list of L<DateTime> objects.

This function looks at the configuration settings and at the list of

invoices that have already been created for this configuration. The

date range for which dates are created are controlled by several

values:

=over 2

=item * The properties C<first_billing_date> and C<start_date>

determine the start date.

=item * The properties C<end_date> and C<terminated> determine the end

date.

=item * The optional parameter C<past_dates> determines whether or not

dates for which invoices have already been created will be included in

the list. The default is not to include them.

=item * The optional parameters C<start_date> and C<end_date> override

the start and end dates from the configuration.

=item * If no end date is set or implied via the configuration and no

C<end_date> parameter is given then the function will use 100 years

in the future as the end date.

=back

=item C<get_billing_period_length>

Returns the number of months corresponding to the billing

periodicity. This means that a new invoice has to be created every x

months starting with the value in C<first_billing_date> (or

C<start_date> if C<first_billing_date> is unset).

=item C<get_order_value_period_length>

Returns the number of months the order's value refers to. This looks

at the C<order_value_periodicity>.

Each invoice's value is calculated as C<order value *

billing_period_length / order_value_period_length>.

=item C<get_previous_billed_period_start_date>

Returns the highest date (as an instance of L<DateTime>) for which an

invoice has been created from this configuration.

=item C<handle_automatic_extension>

Configurations which haven't been terminated and which have an end

date set may be eligible for automatic extension by a certain number

of months. This what the function implements.

If the configuration is not eligible or if the C<end_date> hasn't been

reached yet then nothing is done and C<undef> is returned. Otherwise

its behavior is determined by the C<extend_automatically_by> property.

If the property C<extend_automatically_by> is not 0 then the

C<end_date> will be extended by C<extend_automatically_by> months, and

the configuration will be saved. In this case the new end date will be

returned.

Otherwise (if C<extend_automatically_by> is 0) the property C<active>

will be set to 1, and the configuration will be saved. In this case

C<undef> will be returned.

=back

=head1 BUGS

Nothing here yet.

=head1 AUTHOR

Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>

=cut

      my $config = { map { $_ => $config_obj->$_ } qw(active terminated periodicity order_value_periodicity start_date_as_date end_date_as_date first_billing_date_as_date extend_automatically_by ar_chart_id

    $config =  { periodicity             => 'm',

                 order_value_periodicity => 'p', # = same as periodicity

  $config->{periodicity}             = 'm' if none { $_ eq $config->{periodicity}             }       @SL::DB::PeriodicInvoicesConfig::PERIODICITIES;

  $config->{order_value_periodicity} = 'p' if none { $_ eq $config->{order_value_periodicity} } ('p', @SL::DB::PeriodicInvoicesConfig::ORDER_VALUE_PERIODICITIES);

                 periodicity             => (any { $_ eq $::form->{periodicity}             }       @SL::DB::PeriodicInvoicesConfig::PERIODICITIES)              ? $::form->{periodicity}             : 'm',

                 order_value_periodicity => (any { $_ eq $::form->{order_value_periodicity} } ('p', @SL::DB::PeriodicInvoicesConfig::ORDER_VALUE_PERIODICITIES)) ? $::form->{order_value_periodicity} : 'p',

  '2 years'                     => '2 Jahre',

  '3 years'                     => '3 Jahre',

  '4 years'                     => '4 Jahre',

  '5 years'                     => '5 Jahre',

  'Billing Periodicity'         => 'Abrechnungsperiodizität',

  'Order value periodicity'     => 'Auftragswert basiert auf Periodizität',

  'same as periodicity'         => 'stimmt mit Abrechnungsperiodizität überein',

-- @tag: periodic_invoices_order_value_periodicity

-- @description: Wiederkehrende Rechnungen: Einstellung für Periode, auf die sich der Auftragswert bezieht

-- @depends: release_3_1_0

-- Spalte »periodicity«: nur ein Zeichen, und Check auf gültige Werte

ALTER TABLE periodic_invoices_configs

ADD CONSTRAINT periodic_invoices_configs_valid_periodicity

CHECK (periodicity IN ('m', 'q', 'b', 'y'));

ALTER TABLE periodic_invoices_configs

ALTER COLUMN periodicity TYPE varchar(1);

-- Neue Spalte »order_value_periodicity«

ALTER TABLE periodic_invoices_configs

ADD COLUMN order_value_periodicity varchar(1);

UPDATE periodic_invoices_configs

SET order_value_periodicity = 'p';

ALTER TABLE periodic_invoices_configs

ALTER COLUMN order_value_periodicity

SET NOT NULL;

ALTER TABLE periodic_invoices_configs

ADD CONSTRAINT periodic_invoices_configs_valid_order_value_periodicity

CHECK (order_value_periodicity IN ('p', 'm', 'q', 'b', 'y', '2', '3', '4', '5'));

[% SET style="width: 400px" %]

     <th align="right" valign="top">[%- LxERP.t8('Billing Periodicity') %]</th>

      [% L.select_tag("periodicity", [ [ "m", LxERP.t8("monthly") ], [ "q", LxERP.t8("every third month") ], [ "b", LxERP.t8("semiannually") ], [ "y", LxERP.t8("yearly") ] ], default=periodicity, style=style) %]

     </td>

    </tr>

    <tr>

     <th align="right" valign="top">[%- LxERP.t8('Order value periodicity') %]</th>

     <td valign="top">

      [% L.select_tag("order_value_periodicity",

                      [ [ "p", LxERP.t8("same as periodicity") ], [ "m", LxERP.t8("monthly") ], [ "q", LxERP.t8("every third month") ], [ "b", LxERP.t8("semiannually") ], [ "y", LxERP.t8("yearly") ],

                        [ "2", LxERP.t8("2 years") ], [ "3", LxERP.t8("3 years") ], [ "4", LxERP.t8("4 years") ], [ "5", LxERP.t8("5 years") ], ],

                      default=order_value_periodicity, style=style) %]

      [% L.select_tag("ar_chart_id", AR, title_key => 'description', default => ar_chart_id, style=style) %]

      [% L.select_tag("printer_id", ALL_PRINTERS, title_key = 'printer_description', default = printer_id, disabled = !print, style=style) %]