Revision 0c3c9aa1
Von Tamino Steinert vor 3 Tagen hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 81 | 81 |
|
| 82 | 82 |
__PACKAGE__->before_save('_before_save_set_ord_quo_number');
|
| 83 | 83 |
__PACKAGE__->before_save('_before_save_create_new_project');
|
| 84 |
__PACKAGE__->before_save('_valid_periodic_invoice_config');
|
|
| 84 | 85 |
__PACKAGE__->before_save('_before_save_remove_empty_custom_shipto');
|
| 85 | 86 |
__PACKAGE__->before_save('_before_save_set_custom_shipto_module');
|
| 86 | 87 |
__PACKAGE__->after_save('_after_save_link_records');
|
| ... | ... | |
| 125 | 126 |
return 1; |
| 126 | 127 |
} |
| 127 | 128 |
|
| 129 |
sub _valid_periodic_invoice_config {
|
|
| 130 |
my ($self) = @_; |
|
| 131 |
|
|
| 132 |
if ($self->periodic_invoices_config) {
|
|
| 133 |
if ($self->periodic_invoices_config->periodicity eq 'o') {
|
|
| 134 |
my @error_pos; |
|
| 135 |
foreach my $item (@{$self->items_sorted()}) {
|
|
| 136 |
push @error_pos, $item->position if $item->periodic_invoice_items_config; |
|
| 137 |
} |
|
| 138 |
die t8("Periodic invoice config of order set to once. Can not have periodic invoice config for item(s) at position #1.",
|
|
| 139 |
join(', ', @error_pos)
|
|
| 140 |
) if scalar @error_pos; |
|
| 141 |
} else {
|
|
| 142 |
my $error_string; |
|
| 143 |
foreach my $item (@{$self->items_sorted()}) {
|
|
| 144 |
my $item_config = $item->periodic_invoice_items_config |
|
| 145 |
or next; |
|
| 146 |
$error_string .= t8("Start date before order start date at position #1.", $item->position) . "\n"
|
|
| 147 |
if $item_config->start_date |
|
| 148 |
&& $item_config->start_date < $self->periodic_invoices_config->start_date; |
|
| 149 |
$error_string .= t8("Start date after end date at position #1.", $item->position) . "\n"
|
|
| 150 |
if $item_config->start_date && $item_config->end_date |
|
| 151 |
&& $item_config->start_date > $item_config->end_date; |
|
| 152 |
} |
|
| 153 |
die $error_string if $error_string; |
|
| 154 |
} |
|
| 155 |
} else {
|
|
| 156 |
my @error_pos; |
|
| 157 |
foreach my $item (@{$self->items_sorted()}) {
|
|
| 158 |
push @error_pos, $item->position if $item->periodic_invoice_items_config; |
|
| 159 |
} |
|
| 160 |
die t8("Periodic invoice config for item(s) at position #1, but no for order.",
|
|
| 161 |
join(', ', @error_pos)
|
|
| 162 |
) if scalar @error_pos; |
|
| 163 |
} |
|
| 164 |
|
|
| 165 |
return 1; |
|
| 166 |
} |
|
| 128 | 167 |
|
| 129 | 168 |
sub _before_save_remove_empty_custom_shipto {
|
| 130 | 169 |
my ($self) = @_; |
Auch abrufbar als: Unified diff
S:D:Order: validiere Konfiguration für Wiederkehrende-Rechnung