Revision 2b5c7398
Von Moritz Bunkus vor mehr als 4 Jahren hinzugefügt
| SL/DB/Invoice.pm | ||
|---|---|---|
|
$terms = $source->customer->payment_terms if !defined $terms && $source->customer;
|
||
|
|
||
|
my %args = ( map({ ( $_ => $source->$_ ) } qw(customer_id taxincluded shippingpoint shipvia notes intnotes salesman_id cusordnumber ordnumber department_id
|
||
|
cp_id language_id taxzone_id globalproject_id transaction_description currency_id delivery_term_id), @columns),
|
||
|
cp_id language_id taxzone_id tax_point globalproject_id transaction_description currency_id delivery_term_id), @columns),
|
||
|
transdate => $params{transdate} // DateTime->today_local,
|
||
|
gldate => DateTime->today_local,
|
||
|
duedate => $terms ? $terms->calc_date(reference_date => DateTime->today_local) : DateTime->today_local,
|
||
Auch abrufbar als: Unified diff
SL::DB::Invoice->new_from: auch Leistungsdatum (tax_point) übernehmen