Revision d24e5589
Von Tamino Steinert vor etwa 2 Monaten hinzugefügt
| SL/DB/PeriodicInvoicesConfig.pm | ||
|---|---|---|
| 46 | 46 |
$new_order->reqdate($period_start_date); |
| 47 | 47 |
$new_order->tax_point( |
| 48 | 48 |
add_months( |
| 49 |
$period_start_date, $self->get_billing_period_length |
|
| 49 |
$period_start_date, $self->get_billing_period_length || $self->get_order_value_period_length || 1
|
|
| 50 | 50 |
)->add(days => -1) |
| 51 | 51 |
); |
| 52 | 52 |
my @items; |
| ... | ... | |
| 192 | 192 |
|
| 193 | 193 |
sub get_billing_period_length {
|
| 194 | 194 |
my $self = shift; |
| 195 |
return $PERIOD_LENGTHS{ $self->periodicity } || 1;
|
|
| 195 |
return $PERIOD_LENGTHS{ $self->periodicity };
|
|
| 196 | 196 |
} |
| 197 | 197 |
|
| 198 | 198 |
sub get_order_value_period_length {
|
| 199 | 199 |
my $self = shift; |
| 200 | 200 |
return $self->get_billing_period_length if $self->order_value_periodicity eq 'p'; |
| 201 |
return $ORDER_VALUE_PERIOD_LENGTHS{ $self->order_value_periodicity } || 1;
|
|
| 201 |
return $ORDER_VALUE_PERIOD_LENGTHS{ $self->order_value_periodicity };
|
|
| 202 | 202 |
} |
| 203 | 203 |
|
| 204 | 204 |
sub add_months {
|
Auch abrufbar als: Unified diff
S:D:PeriodicInvoicesConfig: Periodizität von einmalig nicht überschreiben