+ }
+ $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->{credit} || 0, $f->{currency});
+ $x++;
+ $ws->write_string($y, $x, " = ", $f->{bigmath});
+ $x++;
+ $ws->write($y, $x, $row->{tax} - $row->{credit}, $f->{currency});
+ $x++;
+ $ws->write($y, $x, $row->{tax_paid} || 0, $f->{currency});
+
+ $rownum++;