From 2cd78592fbf1cc89b9fdc9e97f45f950af043c15 Mon Sep 17 00:00:00 2001 From: "G. Richardson" Date: Tue, 7 Jul 2020 17:56:39 +0200 Subject: [PATCH] convert_invoice.t - in 2020 das Jahr 2019 nehmen --- t/db_helper/convert_invoice.t | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/t/db_helper/convert_invoice.t b/t/db_helper/convert_invoice.t index 562296143..8d088999d 100644 --- a/t/db_helper/convert_invoice.t +++ b/t/db_helper/convert_invoice.t @@ -25,6 +25,7 @@ use SL::DB::Unit; use SL::Dev::ALL qw(:ALL); my ($customer, $employee, $payment_do, $unit, @parts, $department); +my ($transdate); my $VISUAL_TEST = 0; # just a sleep to click around @@ -40,6 +41,9 @@ sub reset_state { clear_up(); + $transdate = DateTime->today_local; + $transdate->set_year(2019) if $transdate->year == 2020; # use year 2019 in 2020, because of tax rate change in Germany + $unit = SL::DB::Manager::Unit->find_by(name => 'kg') || die "Can't find unit 'kg'"; $customer = new_customer()->save; @@ -91,6 +95,7 @@ reset_state(); # we create L20199 with two items my $do1 = create_sales_delivery_order( 'department_id' => $department->id, + 'transdate' => $transdate, 'donumber' => 'L20199', 'employee_id' => $employee->id, 'intnotes' => 'some intnotes', @@ -144,7 +149,7 @@ is (SL::DB::Manager::DeliveryOrderItem->get_all_count(where => [ delivery_order_ # convert this do to invoice -my $invoice = $do1->convert_to_invoice(); +my $invoice = $do1->convert_to_invoice(transdate => $transdate); sleep (300) if $VISUAL_TEST; # we can do a real visual test via gui login # test invoice afterwards @@ -234,7 +239,6 @@ clear_up(); 1; - # vim: ft=perl # set emacs to perl mode # Local Variables: -- 2.20.1