X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=t%2Fdb_helper%2Fprice_tax_calculator.t;h=a4f6ddcaffe7afa22bae239b0792903658f9d51c;hb=24d1656ebd75cc1125b15b1c9727cae0fb4417d1;hp=a80146d7845bea984ba198d02ccb6958a01d233d;hpb=fa7fc7eeb3ca718914affee06c0629a08d571288;p=kivitendo-erp.git diff --git a/t/db_helper/price_tax_calculator.t b/t/db_helper/price_tax_calculator.t index a80146d78..a4f6ddcaf 100644 --- a/t/db_helper/price_tax_calculator.t +++ b/t/db_helper/price_tax_calculator.t @@ -7,27 +7,40 @@ use utf8; use Carp; use Data::Dumper; +use List::MoreUtils qw(uniq); use Support::TestSetup; use Test::Exception; +use SL::Dev::ALL qw(:ALL); use SL::DB::Buchungsgruppe; use SL::DB::Currency; use SL::DB::Customer; +use SL::DB::DeliveryOrder; use SL::DB::Employee; use SL::DB::Invoice; +use SL::DB::Order; use SL::DB::Part; use SL::DB::Unit; +use SL::DB::TaxZone; -my ($customer, $currency_id, @parts, $buchungsgruppe, $buchungsgruppe7, $unit, $employee, $tax, $tax7); +my ($customer, @parts, $buchungsgruppe, $buchungsgruppe7, $unit, $employee, $tax, $tax7, $taxzone); +my ($transdate); + +sub clear_up { + SL::DB::Manager::Order->delete_all(all => 1); + SL::DB::Manager::DeliveryOrder->delete_all(all => 1); + SL::DB::Manager::InvoiceItem->delete_all(all => 1); + SL::DB::Manager::Invoice->delete_all(all => 1); + SL::DB::Manager::Part->delete_all(all => 1); + SL::DB::Manager::Customer->delete_all(all => 1); +}; sub reset_state { my %params = @_; $params{$_} ||= {} for qw(buchungsgruppe unit customer part tax); - SL::DB::Manager::Invoice->delete_all(all => 1); - SL::DB::Manager::Part->delete_all(all => 1); - SL::DB::Manager::Customer->delete_all(all => 1); + clear_up(); $buchungsgruppe = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 19%', %{ $params{buchungsgruppe} }) || croak "No accounting group"; $buchungsgruppe7 = SL::DB::Manager::Buchungsgruppe->find_by(description => 'Standard 7%') || croak "No accounting group for 7\%"; @@ -35,17 +48,16 @@ sub reset_state { $employee = SL::DB::Manager::Employee->current || croak "No employee"; $tax = SL::DB::Manager::Tax->find_by(taxkey => 3, rate => 0.19, %{ $params{tax} }) || croak "No tax"; $tax7 = SL::DB::Manager::Tax->find_by(taxkey => 2, rate => 0.07) || croak "No tax for 7\%"; + $taxzone = SL::DB::Manager::TaxZone->find_by( description => 'Inland') || croak "No taxzone"; - $currency_id = $::instance_conf->get_currency_id; - - $customer = SL::DB::Customer->new( + $customer = new_customer( name => 'Test Customer', - currency_id => $currency_id, + taxzone_id => $taxzone->id, %{ $params{customer} } )->save; @parts = (); - push @parts, SL::DB::Part->new( + push @parts, new_part( partnumber => 'T4254', description => 'Fourty-two fifty-four', lastcost => 1.93, @@ -55,7 +67,7 @@ sub reset_state { %{ $params{part1} } )->save; - push @parts, SL::DB::Part->new( + push @parts, new_part( partnumber => 'T0815', description => 'Zero EIGHT fifteeN @ 7%', lastcost => 5.473, @@ -64,21 +76,34 @@ sub reset_state { unit => $unit->name, %{ $params{part2} } )->save; + + push @parts, new_part( + partnumber => 'T888', + description => 'Triple 8', + lastcost => 0, + sellprice => 0.6, + buchungsgruppen_id => $buchungsgruppe->id, + unit => $unit->name, + %{ $params{part3} } + )->save; + } sub new_invoice { my %params = @_; - return SL::DB::Invoice->new( - customer_id => $customer->id, - currency_id => $currency_id, - employee_id => $employee->id, - salesman_id => $employee->id, - gldate => DateTime->today_local->to_kivitendo, - taxzone_id => 0, - transdate => DateTime->today_local->to_kivitendo, - invoice => 1, - type => 'invoice', + return create_sales_invoice( + transdate => $transdate, + taxzone_id => $taxzone->id, + %params, + ); +} +sub new_order { + my %params = @_; + + return create_sales_order( + transdate => $transdate, + taxzone_id => $taxzone->id, %params, ); } @@ -88,12 +113,18 @@ sub new_item { my $part = delete($params{part}) || $parts[0]; - return SL::DB::InvoiceItem->new( - parts_id => $part->id, - lastcost => $part->lastcost, - sellprice => $part->sellprice, - description => $part->description, - unit => $part->unit, + return create_invoice_item( + part => $part, + %params, + ); +} +sub new_order_item { + my (%params) = @_; + + my $part = delete($params{part}) || $parts[0]; + + return create_order_item( + part => $part, %params, ); } @@ -101,12 +132,14 @@ sub new_item { sub test_default_invoice_one_item_19_tax_not_included() { reset_state(); - my $item = new_item(qty => 2.5); + my $item = new_item(qty => 2.5); my $invoice = new_invoice( taxincluded => 0, invoiceitems => [ $item ], ); + my $taxkey = $item->part->get_taxkey(date => $transdate, is_sales => 1, taxzone => $invoice->taxzone_id); + # sellprice 2.34 * qty 2.5 = 5.85 # 19%(5.85) = 1.1115; rounded = 1.11 # total rounded = 6.96 @@ -128,22 +161,34 @@ sub test_default_invoice_one_item_19_tax_not_included() { is($invoice->marge_percent, 17.4358974358974, "${title}: marge_percent"); is_deeply(\%data, { - allocated => {}, - amounts => { - $buchungsgruppe->income_accno_id_0 => { - amount => 5.85, - tax_id => $tax->id, - taxkey => 3, + allocated => {}, + amounts => { + $buchungsgruppe->income_accno_id($taxzone) => { + amount => 5.85, + tax_id => $tax->id, + taxkey => 3, }, }, - amounts_cogs => {}, - assembly_items => [ + amounts_cogs => {}, + assembly_items => [ [], ], - exchangerate => 1, - taxes => { - $tax->chart_id => 1.11, + exchangerate => 1, + taxes_by_chart_id => { + $tax->chart_id => 1.11, + }, + taxes_by_tax_id => { + $tax->id => 1.1115, }, + items => [ + { linetotal => 5.85, + linetotal_cost => 4.83, + sellprice => 2.34, + tax_amount => 1.1115, + taxkey_id => $taxkey->id, + }, + ], + rounding => 0, }, "${title}: calculated data"); } @@ -157,6 +202,9 @@ sub test_default_invoice_two_items_19_7_tax_not_included() { invoiceitems => [ $item1, $item2 ], ); + my $taxkey1 = $item1->part->get_taxkey(date => $transdate, is_sales => 1, taxzone => $invoice->taxzone_id); + my $taxkey2 = $item2->part->get_taxkey(date => $transdate, is_sales => 1, taxzone => $invoice->taxzone_id); + # item 1: # sellprice 2.34 * qty 2.5 = 5.85 # 19%(5.85) = 1.1115; rounded = 1.11 @@ -169,6 +217,7 @@ sub test_default_invoice_two_items_19_7_tax_not_included() { # item 2: # sellprice 9.714 * qty 1.2 = 11.6568 rounded 11.66 # 7%(11.6568) = 0.815976; rounded = 0.82 + # 7%(11.66) = 0.8162 # total rounded = 12.48 # lastcost 5.473 * qty 1.2 = 6.5676; rounded 6.57 @@ -192,28 +241,47 @@ sub test_default_invoice_two_items_19_7_tax_not_included() { is($invoice->marge_percent, 34.8943460879497, "${title}: marge_percent"); is_deeply(\%data, { - allocated => {}, - amounts => { - $buchungsgruppe->income_accno_id_0 => { - amount => 5.85, - tax_id => $tax->id, - taxkey => 3, + allocated => {}, + amounts => { + $buchungsgruppe->income_accno_id($taxzone) => { + amount => 5.85, + tax_id => $tax->id, + taxkey => 3, }, - $buchungsgruppe7->income_accno_id_0 => { - amount => 11.66, - tax_id => $tax7->id, - taxkey => 2, + $buchungsgruppe7->income_accno_id($taxzone) => { + amount => 11.66, + tax_id => $tax7->id, + taxkey => 2, }, }, - amounts_cogs => {}, - assembly_items => [ + amounts_cogs => {}, + assembly_items => [ [], [], ], - exchangerate => 1, - taxes => { - $tax->chart_id => 1.11, - $tax7->chart_id => 0.82, + exchangerate => 1, + taxes_by_chart_id => { + $tax->chart_id => 1.11, + $tax7->chart_id => 0.82, }, + taxes_by_tax_id => { + $tax->id => 1.1115, + $tax7->id => 0.8162, + }, + items => [ + { linetotal => 5.85, + linetotal_cost => 4.83, + sellprice => 2.34, + tax_amount => 1.1115, + taxkey_id => $taxkey1->id, + }, + { linetotal => 11.66, + linetotal_cost => 6.57, + sellprice => 9.714, + tax_amount => 0.8162, + taxkey_id => $taxkey2->id, + }, + ], + rounding => 0, }, "${title}: calculated data"); } @@ -228,45 +296,37 @@ sub test_default_invoice_three_items_sellprice_rounding_discount() { invoiceitems => [ $item1, $item2, $item3 ], ); - # this is how price_tax_calculator is implemented. It differs from - # the way sales_order / invoice - forms are calculating: - # linetotal = sellprice 5.55 * qty 1 * (1 - 0.05) = 5.2725; rounded 5.27 - # linetotal = sellprice 5.50 * qty 1 * (1 - 0.05) = 5.225 rounded 5.23 - # linetotal = sellprice 5.00 * qty 1 * (1 - 0.05) = 4.75; rounded 4.75 - # ... + my %taxkeys = map { ($_->id => $_->get_taxkey(date => $transdate, is_sales => 1, taxzone => $invoice->taxzone_id)) } uniq map { $_->part } ($item1, $item2, $item3); # item 1: # discount = sellprice 5.55 * discount (0.05) = 0.2775; rounded 0.28 - # sellprice = sellprice 5.55 - discount 0.28 = 5.27; rounded 5.27 - # linetotal = sellprice 5.27 * qty 1 = 5.27; rounded 5.27 + # linetotal = sellprice 5.55 * (1 - discount 0.05) * qty 1 = 5.2725; rounded 5.27 # 19%(5.27) = 1.0013; rounded = 1.00 # total rounded = 6.27 # lastcost 1.93 * qty 1 = 1.93; rounded 1.93 - # line marge_total = 3.34 + # line marge_total = 5.27 - 1.93 = 3.34 # line marge_percent = 63.3776091081594 # item 2: # discount = sellprice 5.50 * discount 0.05 = 0.275; rounded 0.28 - # sellprice = sellprice 5.50 - discount 0.28 = 5.22; rounded 5.22 - # linetotal = sellprice 5.22 * qty 1 = 5.22; rounded 5.22 - # 19%(5.22) = 0.9918; rounded = 0.99 - # total rounded = 6.21 + # linetotal = sellprice 5.50 * (1 - discount 0.05) * qty 1 = 5.225; rounded 5.23 + # 19%(5.23) = .99370; rounded = 0.99 + # total rounded = 6.22 # lastcost 1.93 * qty 1 = 1.93; rounded 1.93 - # line marge_total = 5.22 - 1.93 = 3.29 - # line marge_percent = 3.29/5.22 = 0.630268199233716 + # line marge_total = 5.23 - 1.93 = 3.30 + # line marge_percent = 3.30/5.23 = 0.630975143403442 # item 3: - # discount = sellprice 5.00 * discount 0.25 = 0.25; rounded 0.25 - # sellprice = sellprice 5.00 - discount 0.25 = 4.75; rounded 4.75 - # linetotal = sellprice 4.75 * qty 1 = 4.75; rounded 4.75 + # discount = sellprice 5.00 * discount 0.05 = 0.05 = 0.25; rounded 0.25 + # linetotal = sellprice 5.00 (1 - discount 0.05) * qty 1 = 4.75; rounded 4.75 # 19%(4.75) = 0.9025; rounded = 0.90 # total rounded = 5.65 # lastcost 1.93 * qty 1 = 1.93; rounded 1.93 - # line marge_total = 2.82 - # line marge_percent = 59.3684210526316 + # line marge_total = 4.75 - 1.93 = 2.82 + # line marge_percent = 2.82/4.75 = 59.3684210526316 my $title = 'default invoice, three items, sellprice, rounding, discount'; my %data = $invoice->calculate_prices_and_taxes; @@ -275,48 +335,342 @@ sub test_default_invoice_three_items_sellprice_rounding_discount() { is($item1->marge_percent, 63.3776091081594, "${title}: item1 marge_percent"); is($item1->marge_price_factor, 1, "${title}: item1 marge_price_factor"); - is($item2->marge_total, 3.29, "${title}: item2 marge_total"); - is($item2->marge_percent, 63.0268199233716, "${title}: item2 marge_percent"); + is($item2->marge_total, 3.30, "${title}: item2 marge_total"); + is($item2->marge_percent, 63.0975143403442, "${title}: item2 marge_percent"); is($item2->marge_price_factor, 1, "${title}: item2 marge_price_factor"); is($item3->marge_total, 2.82, "${title}: item3 marge_total"); is($item3->marge_percent, 59.3684210526316, "${title}: item3 marge_percent"); is($item3->marge_price_factor, 1, "${title}: item3 marge_price_factor"); - is($invoice->netamount, 5.27 + 5.22 + 4.75, "${title}: netamount"); + is($invoice->netamount, 5.27 + 5.23 + 4.75, "${title}: netamount"); - # 6.27 + 6.21 + 5.65 = 18.13 - # 1.19*(5.27 + 5.22 + 4.75) = 18.1356; rounded 18.14 - #is($invoice->amount, 6.27 + 6.21 + 5.65, "${title}: amount"); - is($invoice->amount, 18.14, "${title}: amount"); + # 6.27 + 6.22 + 5.65 = 18.14 + # 1.19*(5.27 + 5.23 + 4.75) = 18.1475; rounded 18.15 + #is($invoice->amount, 6.27 + 6.22 + 5.65, "${title}: amount"); + is($invoice->amount, 18.15, "${title}: amount"); - is($invoice->marge_total, 3.34 + 3.29 + 2.82, "${title}: marge_total"); - is($invoice->marge_percent, 62.007874015748, "${title}: marge_percent"); + is($invoice->marge_total, 3.34 + 3.30 + 2.82, "${title}: marge_total"); + is($invoice->marge_percent, 62.0327868852459, "${title}: marge_percent"); is_deeply(\%data, { - allocated => {}, - amounts => { - $buchungsgruppe->income_accno_id_0 => { - amount => 15.24, - tax_id => $tax->id, - taxkey => 3, + allocated => {}, + amounts => { + $buchungsgruppe->income_accno_id($taxzone) => { + amount => 15.25, + tax_id => $tax->id, + taxkey => 3, }, }, - amounts_cogs => {}, - assembly_items => [ + amounts_cogs => {}, + assembly_items => [ [], [], [], ], - exchangerate => 1, - taxes => { - $tax->chart_id => 2.9, + exchangerate => 1, + taxes_by_chart_id => { + $tax->chart_id => 2.9, + }, + taxes_by_tax_id => { + $tax->id => 2.89750, }, + items => [ + { linetotal => 5.27, + linetotal_cost => 1.93, + sellprice => 5.27, + tax_amount => 1.0013, + taxkey_id => $taxkeys{$item1->parts_id}->id, + }, + { linetotal => 5.23, + linetotal_cost => 1.93, + sellprice => 5.23, + tax_amount => 0.9937, + taxkey_id => $taxkeys{$item2->parts_id}->id, + }, + { linetotal => 4.75, + linetotal_cost => 1.93, + sellprice => 4.75, + tax_amount => 0.9025, + taxkey_id => $taxkeys{$item3->parts_id}->id, + } + ], + rounding => 0, }, "${title}: calculated data"); } +sub test_default_invoice_one_item_19_tax_not_included_rounding_discount() { + reset_state(); + + my $item = new_item(qty => 6, part => $parts[2], discount => 0.03); + my $invoice = new_invoice( + taxincluded => 0, + invoiceitems => [ $item ], + ); + + my %taxkeys = map { ($_->id => $_->get_taxkey(date => $transdate, is_sales => 1, taxzone => $invoice->taxzone_id)) } uniq map { $_->part } ($item); + + # 6 parts for 0.60 with 3% discount + # + # linetotal = sellprice 0.60 * qty 6 * discount (1 - 0.03) = 3.492 rounded 3.49 + # total = 3.49 + 0.66 = 4.15 + # + + my $title = 'default invoice, one item, sellprice, rounding, discount'; + my %data = $invoice->calculate_prices_and_taxes; + + is($invoice->netamount, 3.49, "${title}: netamount"); + + is($invoice->amount, 4.15, "${title}: amount"); + + is($invoice->marge_total, 3.49, "${title}: marge_total"); + is($invoice->marge_percent, 100, "${title}: marge_percent"); + + is_deeply(\%data, { + allocated => {}, + amounts => { + $buchungsgruppe->income_accno_id($taxzone) => { + amount => 3.49, + tax_id => $tax->id, + taxkey => 3, + }, + }, + amounts_cogs => {}, + assembly_items => [ + [], + ], + exchangerate => 1, + taxes_by_chart_id => { + $tax->chart_id => 0.66, + }, + taxes_by_tax_id => { + $tax->id => 0.66310, + }, + items => [ + { linetotal => 3.49, + linetotal_cost => 0, + sellprice => 0.58, + tax_amount => 0.6631, + taxkey_id => $taxkeys{$item->parts_id}->id, + }, + ], + rounding => 0, + }, "${title}: calculated data"); +} + +sub test_default_invoice_one_item_19_tax_not_included_rounding_discount_huge_qty() { + reset_state(); + + my $item = new_item(qty => 100000, part => $parts[2], discount => 0.03, sellprice => 0.10); + my $invoice = new_invoice( + taxincluded => 0, + invoiceitems => [ $item ], + ); + + my %taxkeys = map { ($_->id => $_->get_taxkey(date => $transdate, is_sales => 1, taxzone => $invoice->taxzone_id)) } uniq map { $_->part } ($item); + + my $title = 'default invoice, one item, 19% tax not included, rounding, discount, huge qty'; + my %data = $invoice->calculate_prices_and_taxes; + + is($invoice->netamount, 9700, "${title}: netamount"); + + is($invoice->amount, 11543, "${title}: amount"); + + is($invoice->marge_total, 9700, "${title}: marge_total"); + is($invoice->marge_percent, 100, "${title}: marge_percent"); + + is_deeply(\%data, { + allocated => {}, + amounts => { + $buchungsgruppe->income_accno_id($taxzone) => { + amount => 9700, + tax_id => $tax->id, + taxkey => 3, + }, + }, + amounts_cogs => {}, + assembly_items => [ + [], + ], + exchangerate => 1, + taxes_by_chart_id => { + $tax->chart_id => 1843, + }, + taxes_by_tax_id => { + $tax->id => 1843, + }, + items => [ + { linetotal => 9700, + linetotal_cost => 0, + sellprice => 0.1, + tax_amount => 1843, + taxkey_id => $taxkeys{$item->parts_id}->id, + }, + ], + rounding => 0, + }, "${title}: calculated data"); +} + +sub test_default_invoice_one_item_19_tax_not_included_rounding_discount_big_qty_low_sellprice() { + reset_state(); + + my $item = new_item(qty => 10001, sellprice => 0.007, discount => 0.035); + my $invoice = new_invoice( + taxincluded => 0, + invoiceitems => [ $item ], + ); + + my %taxkeys = map { ($_->id => $_->get_taxkey(date => $transdate, is_sales => 1, taxzone => $invoice->taxzone_id)) } uniq map { $_->part } ($item); + + # item 1: + # discount = sellprice 0.007 * discount (0.035) = 0.000245; rounded 0.00 + # sellprice = sellprice 0.007 - discount 0.00 = 0.007 + # linetotal = sellprice 0.007 * qty 10001 * (1 - 0.035) = 67.556755; rounded 67.56 + # 19%(67.56) = 12.8364; rounded = 12.84 + # total rounded = 80.40 + + # lastcost 1.93 * qty 10001 = 19301.93; rounded 19301.93 + # line marge_total = 67.56-19301.93 = -19234.37 + # line marge_percent = 100*-19234.37/67.56 = -28470.0562462996 + + my $title = 'default invoice one item 19 tax not included rounding discount big qty low sellprice'; + my %data = $invoice->calculate_prices_and_taxes; + + is($invoice->netamount, 67.56, "${title}: netamount"); + + is($invoice->amount, 80.40, "${title}: amount"); + + is($invoice->marge_total, -19234.37, "${title}: marge_total"); + is($invoice->marge_percent, -28470.0562462996, "${title}: marge_percent"); + + is_deeply(\%data, { + allocated => {}, + amounts => { + $buchungsgruppe->income_accno_id($taxzone) => { + amount => 67.56, + tax_id => $tax->id, + taxkey => 3, + }, + }, + amounts_cogs => {}, + assembly_items => [ + [], + ], + exchangerate => 1, + taxes_by_chart_id => { + $tax->chart_id => 12.84, + }, + taxes_by_tax_id => { + $tax->id => 12.8364, + }, + items => [ + { linetotal => 67.56, + linetotal_cost => 19301.93, + sellprice => 0.007, + tax_amount => 12.8364, + taxkey_id => $taxkeys{$item->parts_id}->id, + }, + ], + rounding => 0, + }, "${title}: calculated data"); +} +sub test_default_order_two_items_19_one_optional() { + reset_state(); + + my $item = new_order_item(qty => 2.5); + my $item_optional = new_order_item(qty => 2.5, optional => 1); + + my $order = new_order( + taxincluded => 0, + orderitems => [ $item, $item_optional ], + ); + + my $taxkey = $item->part->get_taxkey(date => $transdate, is_sales => 1, taxzone => $order->taxzone_id); + + # sellprice 2.34 * qty 2.5 = 5.85 + # 19%(5.85) = 1.1115; rounded = 1.11 + # total rounded = 6.96 + + # lastcost 1.93 * qty 2.5 = 4.825; rounded 4.83 + # line marge_total = 1.02 + # line marge_percent = 17.4358974358974 + + my $title = 'default order, two item, one item optional, 19% tax not included'; + my %data = $order->calculate_prices_and_taxes; + + is($item->marge_total, 1.02, "${title}: item marge_total"); + is($item->marge_percent, 17.4358974358974, "${title}: item marge_percent"); + is($item->marge_price_factor, 1, "${title}: item marge_price_factor"); + + # optional items have a linetotal and marge, but ... + is($item_optional->marge_total, 1.02, "${title}: item optional marge_total"); + is($item_optional->marge_percent, 17.4358974358974, "${title}: item optional marge_percent"); + is($item_optional->marge_price_factor, 1, "${title}: item optional marge_price_factor"); + + # ... should not be calculated for the record sum + is($order->netamount, 5.85, "${title}: netamount"); + is($order->amount, 6.96, "${title}: amount"); + is($order->marge_total, 1.02, "${title}: marge_total"); + is($order->marge_percent, 17.4358974358974, "${title}: marge_percent"); + is($order->orderitems->[1]->optional, 1, "${title}: second order item has attribute optional"); + # diag explain $order->orderitems->[1]->optional; + # diag explain \%data; + is_deeply(\%data, { + allocated => {}, + amounts => { + $buchungsgruppe->income_accno_id($taxzone) => { + amount => 5.85, + tax_id => $tax->id, + taxkey => 3, + }, + }, + amounts_cogs => {}, + assembly_items => [ + [], + [], + ], + exchangerate => 1, + taxes_by_chart_id => { + $tax->chart_id => 1.11, + }, + taxes_by_tax_id => { + $tax->id => 1.1115, + }, + items => [ + { linetotal => 5.85, + linetotal_cost => 4.83, + sellprice => 2.34, + tax_amount => 1.1115, + taxkey_id => $taxkey->id, + }, + { linetotal => 5.85, + linetotal_cost => 4.83, + sellprice => 2.34, + tax_amount => 1.1115, + taxkey_id => $taxkey->id, + }, + ], + rounding => 0, + }, "${title}: calculated data"); +} + + Support::TestSetup::login(); +$transdate = DateTime->today_local; +$transdate->set_year(2019) if $transdate->year == 2020; # use year 2019 in 2020, because of tax rate change in Germany + test_default_invoice_one_item_19_tax_not_included(); test_default_invoice_two_items_19_7_tax_not_included(); test_default_invoice_three_items_sellprice_rounding_discount(); +test_default_invoice_one_item_19_tax_not_included_rounding_discount(); +test_default_invoice_one_item_19_tax_not_included_rounding_discount_huge_qty(); +test_default_invoice_one_item_19_tax_not_included_rounding_discount_big_qty_low_sellprice(); +test_default_order_two_items_19_one_optional(); +clear_up(); done_testing(); + +# vim: ft=perl +# set emacs to perl mode +# Local Variables: +# mode: perl +# End: