Revision d2fdb900
Von Tamino Steinert vor mehr als 1 Jahr hinzugefügt
| SL/DB/Reclamation.pm | ||
|---|---|---|
|
closed => 0,
|
||
|
delivered => 0,
|
||
|
transdate => DateTime->today_local,
|
||
|
reqdate => DateTime->today_local->next_workday(),
|
||
|
);
|
||
|
if ( $is_abbr_any->(qw(srsr prpr srpr prsr)) ) { #Reclamation
|
||
|
map { $record_args{$_} = $source->$_ } # {{{ for vim folds
|
||
| ... | ... | |
|
netamount
|
||
|
notes
|
||
|
payment_id
|
||
|
reqdate
|
||
|
salesman_id
|
||
|
shippingpoint
|
||
|
shipvia
|
||
Auch abrufbar als: Unified diff
Model::Record: update_for_save_as_new implementiert