Revision bfd1a518
Von Bernd Bleßmann vor mehr als 2 Jahren hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 374 | 374 |
employee => SL::DB::Manager::Employee->current, |
| 375 | 375 |
); |
| 376 | 376 |
|
| 377 |
if ( $is_abbr_any->(qw(sopo poso rqso)) ) {
|
|
| 377 |
if ( $is_abbr_any->(qw(sopo poso rqso sosq porq rqsq sqrq sorq)) ) {
|
|
| 378 | 378 |
$args{ordnumber} = undef;
|
| 379 | 379 |
$args{quonumber} = undef;
|
| 380 | 380 |
$args{reqdate} = DateTime->today_local->next_workday();
|
| ... | ... | |
| 391 | 391 |
if ( $is_abbr_any->(qw(soso)) ) {
|
| 392 | 392 |
$args{periodic_invoices_config} = $source->periodic_invoices_config->clone_and_reset if $source->periodic_invoices_config;
|
| 393 | 393 |
} |
| 394 |
if ( $is_abbr_any->(qw(sosq porq rqsq sqrq sorq)) ) {
|
|
| 395 |
$args{ordnumber} = undef;
|
|
| 396 |
$args{quonumber} = undef;
|
|
| 397 |
$args{reqdate} = DateTime->today_local->next_workday();
|
|
| 398 |
} |
|
| 399 | 394 |
if ( $is_abbr_any->(qw(sqrq sorq)) ) {
|
| 400 | 395 |
$args{cusordnumber} = undef;
|
| 401 | 396 |
} |
Auch abrufbar als: Unified diff
SL::DB::Order>new_from: mini-Refactoring
gleichen Code zusammen gefasst.