X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a9903fd72fc5a09d99eb60707dfd3aadcabfe73f..41a1b801:/SL/OE.pm diff --git a/SL/OE.pm b/SL/OE.pm index 3954a9308..ef6f59792 100644 --- a/SL/OE.pm +++ b/SL/OE.pm @@ -958,7 +958,8 @@ sub _retrieve { $form->{useasnew} = 1 if $is_collective_order == 1; if (!$form->{id}) { - my $extra_days = $form->{type} eq 'sales_quotation' ? $::instance_conf->get_reqdate_interval : 1; + my $extra_days = $form->{type} eq 'sales_quotation' ? $::instance_conf->get_reqdate_interval : + $form->{type} eq 'sales_order' ? $::instance_conf->get_delivery_date_interval : 1; $form->{reqdate} = DateTime->today_local->next_workday(extra_days => $extra_days)->to_kivitendo; $form->{transdate} = DateTime->today_local->to_kivitendo; }