Revision 424269dc
Von G. Richardson vor mehr als 4 Jahren hinzugefügt
| SL/DB/Invoice.pm | ||
|---|---|---|
| 174 | 174 |
|
| 175 | 175 |
my %args = ( map({ ( $_ => $source->$_ ) } qw(customer_id taxincluded shippingpoint shipvia notes intnotes salesman_id cusordnumber ordnumber department_id
|
| 176 | 176 |
cp_id language_id taxzone_id globalproject_id transaction_description currency_id delivery_term_id), @columns), |
| 177 |
transdate => DateTime->today_local, |
|
| 177 |
transdate => $params{transdate} // DateTime->today_local,
|
|
| 178 | 178 |
gldate => DateTime->today_local, |
| 179 | 179 |
duedate => $terms ? $terms->calc_date(reference_date => DateTime->today_local) : DateTime->today_local, |
| 180 | 180 |
invoice => 1, |
Auch abrufbar als: Unified diff
SL::DB::Invoice new_from - param transdate übergeben
Insbesondere bei Tests nützlich, um das Defaultverhalten zu
überschreiben.