Lines 343-349
if ( $op eq 'list' ) {
Link Here
|
343 |
$foot{$$line{tax_rate}}{tax_rate} = $$line{tax_rate}; |
343 |
$foot{$$line{tax_rate}}{tax_rate} = $$line{tax_rate}; |
344 |
$foot{$$line{tax_rate}}{tax_value} += get_rounded_price($$line{tax_value}); |
344 |
$foot{$$line{tax_rate}}{tax_value} += get_rounded_price($$line{tax_value}); |
345 |
$total_tax_value += $$line{tax_value}; |
345 |
$total_tax_value += $$line{tax_value}; |
346 |
$foot{$$line{tax_rate}}{quantity} += get_rounded_price($$line{quantity}); |
346 |
$foot{$$line{tax_rate}}{quantity} += $$line{quantity}; |
347 |
$total_quantity += $$line{quantity}; |
347 |
$total_quantity += $$line{quantity}; |
348 |
$foot{$$line{tax_rate}}{total_tax_excluded} += $$line{total_tax_excluded}; |
348 |
$foot{$$line{tax_rate}}{total_tax_excluded} += $$line{total_tax_excluded}; |
349 |
$total_tax_excluded += $$line{total_tax_excluded}; |
349 |
$total_tax_excluded += $$line{total_tax_excluded}; |
Lines 456-465
sub get_order_infos {
Link Here
|
456 |
# If we have an actual cost that should be the total, otherwise use the ecost |
456 |
# If we have an actual cost that should be the total, otherwise use the ecost |
457 |
$line{unitprice_tax_included} += 0; |
457 |
$line{unitprice_tax_included} += 0; |
458 |
$line{unitprice_tax_excluded} += 0; |
458 |
$line{unitprice_tax_excluded} += 0; |
459 |
my $cost_tax_included = $line{unitprice_tax_included} || $line{ecost_tax_included}; |
459 |
$line{total_tax_included} = get_rounded_price($line{ecost_tax_included} * $line{quantity}); |
460 |
my $cost_tax_excluded = $line{unitprice_tax_excluded} || $line{ecost_tax_excluded}; |
460 |
$line{total_tax_excluded} = get_rounded_price($line{ecost_tax_excluded} * $line{quantity}); |
461 |
$line{total_tax_included} = get_rounded_price($cost_tax_included) * $line{quantity}; |
|
|
462 |
$line{total_tax_excluded} = get_rounded_price($cost_tax_excluded) * $line{quantity}; |
463 |
$line{tax_value} = $line{tax_value_on_ordering}; |
461 |
$line{tax_value} = $line{tax_value_on_ordering}; |
464 |
$line{tax_rate} = $line{tax_rate_on_ordering}; |
462 |
$line{tax_rate} = $line{tax_rate_on_ordering}; |
465 |
|
463 |
|