+ }
+ $ws->write_string($y, $x, " \N{U+00D7} ", $f->{bigmath}); # MULTIPLICATION SIGN
+ $x++;
+ my $rate = $row->{rate};
+ $rate = $rate / 100 if $rate =~ /^[\d\.]+$/;
+ $ws->write($y, $x, $rate, $f->{number});
+ $x++;
+ $ws->write_string($y, $x, " = ", $f->{bigmath});
+ $x++;
+ my $estimated = $row->{estimated} || 0;
+ $estimated = '' if $rate eq 'variable';
+ $ws->write($y, $x, $estimated, $f->{currency});
+ $x++;
+ $ws->write($y, $x, $row->{tax} || 0, $f->{currency});
+ $x++;
+ $ws->write_string($y, $x, " \N{U+2212} ", $f->{bigmath}); # MINUS SIGN
+ $x++;
+ $ws->write($y, $x, $row->{tax_credited} || 0, $f->{currency});
+ $x++;
+ $ws->write_string($y, $x, " = ", $f->{bigmath});
+ $x++;
+ $ws->write($y, $x, $row->{tax} - $row->{tax_credited}, $f->{currency});
+ $x++;
+ $ws->write($y, $x, $row->{tax_paid} || 0, $f->{currency});
+
+ $rownum++;
+ $y++;
+ $prev_row = $row;
+}
+
+# at the end of everything
+if ( $report->{out_sales} > 0 ) {
+ my $f = $format[0];
+ $ws->set_row($y, 30); # height
+ $ws->write($y, 0, mt('Out of taxable region'), $f->{rowhead_outside});
+ $ws->write($y, 1, $report->{out_sales}, $f->{currency_outside});