- $rep->row -= 16;
- $rep->Font('italic');
- $rep->TextCol(0, 1, _("General Ledger"));
- $rep->aligns[1] = 'left';
- $rep->TextCol(1, 3, _("Description"));
- $rep->TextCol(3, 4, _("Amount"));
- $rep->Font();
- $rep->Line($rep->row - 6);
-
- $rep->row -= 22;
-
- $taxes = getTaxTypes();
- $total = 0;
- $bdate = date2sql($from);
- $edate = date2sql($to);
-
- while ($tx = db_fetch($taxes))
- {
- if ($tx['sales_gl_code'] == $tx['purchasing_gl_code'])
- {
- $sql = "SELECT SUM(IF(amount >= 0, amount, 0)) AS payable, SUM(IF(amount < 0, -amount, 0)) AS collectible
- FROM ".TB_PREF."gl_trans WHERE account = '".$tx['sales_gl_code']."' AND tran_date >= '$bdate' AND tran_date <= '$edate'";
- $result = db_query($sql, "Error retrieving tax inquiry");
- $row = db_fetch($result);
- $payable = -$row['payable'];
- $collectible.= -$row['collectible'];
- }
- else
- {
- $sql = "SELECT SUM(amount) AS collectible
- FROM ".TB_PREF."gl_trans WHERE account = '".$tx['sales_gl_code']."' AND tran_date >= '$bdate' AND tran_date <= '$edate'";
- $result = db_query($sql, "Error retrieving tax inquiry");
- $row = db_fetch($result);
- $collectible = -$row['collectible'];
- $sql = "SELECT SUM(amount) AS payable
- FROM ".TB_PREF."gl_trans WHERE account = '".$tx['purchasing_gl_code']."' AND tran_date >= '$bdate' AND tran_date <= '$edate'";
- $result = db_query($sql, "Error retrieving tax inquiry");
- $row = db_fetch($result);
- $payable = -$row['payable'];
- }
- $net = $collectible + $payable;
- $total += $net;
- $rep->TextCol(0, 1, $tx['name'] . " " . $tx['rate'] . "%");
- $rep->TextCol(1, 3, _("Charged on sales") . " (" . _("Output Tax")."):");
- $rep->TextCol(3, 4, number_format2($collectible, $dec));
- $rep->NewLine();
- $rep->TextCol(0, 1, $tx['name'] . " " . $tx['rate'] . "%");
- $rep->TextCol(1, 3, _("Paid on purchases") . " (" . _("Input Tax")."):");
- $rep->TextCol(3, 4, number_format2($payable, $dec));
- $rep->NewLine();
- $rep->Font('bold');
- $rep->TextCol(0, 1, $tx['name'] . " " . $tx['rate'] . "%");
- $rep->TextCol(1, 3, _("Net payable or collectible"));
- $rep->TextCol(3, 4, number_format2($net, $dec));
- $rep->Font();
- $rep->NewLine();
- }