Revision e770cd18
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/DB/Invoice.pm | ||
|---|---|---|
| 98 | 98 |
|
| 99 | 99 |
my $terms = $source->can('payment_id') && $source->payment_id ? $source->payment_terms->terms_netto : 0;
|
| 100 | 100 |
|
| 101 |
my %args = ( map({ ( $_ => $source->$_ ) } qw(customer_id taxincluded shippingpoint shipvia notes intnotes curr salesman_id cusordnumber ordnumber quonumber
|
|
| 101 |
my %args = ( map({ ( $_ => $source->$_ ) } qw(customer_id taxincluded shippingpoint shipvia notes intnotes salesman_id cusordnumber ordnumber quonumber
|
|
| 102 | 102 |
department_id cp_id language_id payment_id delivery_customer_id delivery_vendor_id taxzone_id shipto_id |
| 103 |
globalproject_id transaction_description)), |
|
| 103 |
globalproject_id transaction_description currency_id)),
|
|
| 104 | 104 |
transdate => DateTime->today_local, |
| 105 | 105 |
gldate => DateTime->today_local, |
| 106 | 106 |
duedate => DateTime->today_local->add(days => $terms * 1), |
Auch abrufbar als: Unified diff
Anpassung Rose-Funktionen auf Umstellung currencies