Revision d5c192b8
Von Bernd Bleßmann vor etwa 3 Jahren hinzugefügt
| SL/Controller/Order.pm | ||
|---|---|---|
| 69 | 69 |
my ($self) = @_; |
| 70 | 70 |
|
| 71 | 71 |
$self->order->transdate(DateTime->now_local()); |
| 72 |
my $extra_days = $self->{type} eq 'sales_quotation' ? $::instance_conf->get_reqdate_interval :
|
|
| 73 |
$self->{type} eq 'sales_order' ? $::instance_conf->get_delivery_date_interval : 1;
|
|
| 72 |
my $extra_days = $self->type eq sales_quotation_type() ? $::instance_conf->get_reqdate_interval :
|
|
| 73 |
$self->type eq sales_order_type() ? $::instance_conf->get_delivery_date_interval : 1;
|
|
| 74 | 74 |
|
| 75 |
if ( ($self->{type} eq 'sales_order' && $::instance_conf->get_deliverydate_on)
|
|
| 76 |
|| ($self->{type} eq 'sales_quotation' && $::instance_conf->get_reqdate_on)
|
|
| 75 |
if ( ($self->type eq sales_order_type() && $::instance_conf->get_deliverydate_on)
|
|
| 76 |
|| ($self->type eq sales_quotation_type() && $::instance_conf->get_reqdate_on)
|
|
| 77 | 77 |
&& (!$self->order->reqdate)) {
|
| 78 | 78 |
$self->order->reqdate(DateTime->today_local->next_workday(extra_days => $extra_days)); |
| 79 | 79 |
} |
| ... | ... | |
| 227 | 227 |
|
| 228 | 228 |
# Set new reqdate unless changed if it is enabled in client config |
| 229 | 229 |
if ($order->reqdate == $saved_order->reqdate) {
|
| 230 |
my $extra_days = $self->{type} eq 'sales_quotation' ? $::instance_conf->get_reqdate_interval :
|
|
| 231 |
$self->{type} eq 'sales_order' ? $::instance_conf->get_delivery_date_interval : 1;
|
|
| 230 |
my $extra_days = $self->type eq sales_quotation_type() ? $::instance_conf->get_reqdate_interval :
|
|
| 231 |
$self->type eq sales_order_type() ? $::instance_conf->get_delivery_date_interval : 1;
|
|
| 232 | 232 |
|
| 233 |
if ( ($self->{type} eq 'sales_order' && !$::instance_conf->get_deliverydate_on)
|
|
| 234 |
|| ($self->{type} eq 'sales_quotation' && !$::instance_conf->get_reqdate_on)) {
|
|
| 233 |
if ( ($self->type eq sales_order_type() && !$::instance_conf->get_deliverydate_on)
|
|
| 234 |
|| ($self->type eq sales_quotation_type() && !$::instance_conf->get_reqdate_on)) {
|
|
| 235 | 235 |
$new_attrs{reqdate} = '';
|
| 236 | 236 |
} else {
|
| 237 | 237 |
$new_attrs{reqdate} = DateTime->today_local->next_workday(extra_days => $extra_days);
|
Auch abrufbar als: Unified diff
Auftrag-Controller: Vergleich des Beleg-Typs einheitlicher …
- Zum Typ-Vergleich die Typ-Funktionen verwenden.
War hier kein Problem, kann aber Typos verhindern - dafür sind die Funktionen
gedacht gewesen.
- Auf type nicht als Hash-Key, sondern als Methode zugreifen.
Dann ist das einheitlicher, da das auch überall sonst im Controller so gemacht
wird.