From: G. Richardson Date: Tue, 7 Jul 2020 15:53:33 +0000 (+0200) Subject: SL::DB::Invoice new_from - param transdate übergeben X-Git-Tag: release-3.5.6.1~154 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=424269dc60bf0257584190c881eab1b6ea2fcfd8;p=kivitendo-erp.git SL::DB::Invoice new_from - param transdate übergeben Insbesondere bei Tests nützlich, um das Defaultverhalten zu überschreiben. --- diff --git a/SL/DB/Invoice.pm b/SL/DB/Invoice.pm index d428d08cb..93c17e4ec 100644 --- a/SL/DB/Invoice.pm +++ b/SL/DB/Invoice.pm @@ -174,7 +174,7 @@ sub new_from { 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), - transdate => DateTime->today_local, + transdate => $params{transdate} // DateTime->today_local, gldate => DateTime->today_local, duedate => $terms ? $terms->calc_date(reference_date => DateTime->today_local) : DateTime->today_local, invoice => 1,