$path_to_root="..";
include_once($path_to_root . "/includes/session.inc");
+include_once($path_to_root . "/admin/db/fiscalyears_db.inc");
include_once($path_to_root . "/includes/ui.inc");
include_once($path_to_root . "/includes/date_functions.inc");
include_once($path_to_root . "/includes/data_checks.inc");
function display_type ($type, $typename, &$dec, &$rep, $from, $to, $zero, $balances, $dimension, $dimension2)
{
- global $pdeb, $pcre, $cdeb, $ccre, $tdeb, $tcre, $pbal, $cbal, $tbal;
+ global $pdeb, $pcre, $cdeb, $ccre, $tdeb, $tcre, $pbal, $cbal, $tbal, $SysPrefs;
$printtitle = 0; //Flag for printing type name
//Get Accounts directly under this group/type
$accounts = get_gl_accounts(null, null, $type);
- $begin = begin_fiscalyear();
+ $begin = get_fiscalyear_begin_for_date($from);
if (date1_greater_date2($begin, $from))
$begin = $from;
$begin = add_days($begin, -1);
$rep->NewLine();
}
+ // FA doesn't really clear the closed year, therefore the brought forward balance includes all the transactions from the past, even though the balance is null.
+ // If we want to remove the balanced part for the past years, this option removes the common part from from the prev and tot figures.
+ if (@$SysPrefs->clear_trial_balance_opening)
+ {
+ $open = get_balance($account["account_code"], $dimension, $dimension2, $begin, $begin, false, true);
+ $offset = min($open['debit'], $open['credit']);
+ } else
+ $offset = 0;
+
$prev = get_balance($account["account_code"], $dimension, $dimension2, $begin, $from, false, false);
$curr = get_balance($account["account_code"], $dimension, $dimension2, $from, $to, true, true);
$tot = get_balance($account["account_code"], $dimension, $dimension2, $begin, $to, false, true);
}
else
{
- $rep->AmountCol(2, 3, $prev['debit'], $dec);
- $rep->AmountCol(3, 4, $prev['credit'], $dec);
+ $rep->AmountCol(2, 3, $prev['debit']-$offset, $dec);
+ $rep->AmountCol(3, 4, $prev['credit']-$offset, $dec);
$rep->AmountCol(4, 5, $curr['debit'], $dec);
$rep->AmountCol(5, 6, $curr['credit'], $dec);
- $rep->AmountCol(6, 7, $tot['debit'], $dec);
- $rep->AmountCol(7, 8, $tot['credit'], $dec);
- $pdeb += $prev['debit'];
- $pcre += $prev['credit'];
+ $rep->AmountCol(6, 7, $tot['debit']-$offset, $dec);
+ $rep->AmountCol(7, 8, $tot['credit']-$offset, $dec);
+ $pdeb += $prev['debit']-$offset;
+ $pcre += $prev['credit']-$offset;
$cdeb += $curr['debit'];
$ccre += $curr['credit'];
- $tdeb += $tot['debit'];
- $tcre += $tot['credit'];
+ $tdeb += $tot['debit']-$offset;
+ $tcre += $tot['credit']-$offset;
}
$pbal += $prev['balance'];
$dimension = $_POST['PARAM_4'];
$dimension2 = $_POST['PARAM_5'];
$comments = $_POST['PARAM_6'];
- $destination = $_POST['PARAM_7'];
+ $orientation = $_POST['PARAM_7'];
+ $destination = $_POST['PARAM_8'];
}
else if ($dim == 1)
{
$dimension = $_POST['PARAM_4'];
$comments = $_POST['PARAM_5'];
- $destination = $_POST['PARAM_6'];
+ $orientation = $_POST['PARAM_6'];
+ $destination = $_POST['PARAM_7'];
}
else
{
$comments = $_POST['PARAM_4'];
- $destination = $_POST['PARAM_5'];
+ $orientation = $_POST['PARAM_5'];
+ $destination = $_POST['PARAM_6'];
}
if ($destination)
include_once($path_to_root . "/reporting/includes/excel_report.inc");
else
include_once($path_to_root . "/reporting/includes/pdf_report.inc");
+ $orientation = ($orientation ? 'L' : 'P');
$dec = user_price_dec();
$cols2 = array(0, 50, 190, 310, 430, 530);
3 => array('text' => _('Dimension')." 2",
'from' => get_dimension_string($dimension2), 'to' => ''));
}
- else if ($dim == 1)
+ elseif ($dim == 1)
{
$params = array( 0 => $comments,
1 => array('text' => _('Period'),'from' => $from, 'to' => $to),
1 => array('text' => _('Period'),'from' => $from, 'to' => $to));
}
- $rep = new FrontReport(_('Trial Balance'), "TrialBalance", user_pagesize());
+ $rep = new FrontReport(_('Trial Balance'), "TrialBalance", user_pagesize(), 9, $orientation);
+ if ($orientation == 'L')
+ {
+ recalculate_cols($cols);
+ recalculate_cols($cols2);
+ }
$rep->Font();
$rep->Info($params, $cols, $headers, $aligns, $cols2, $headers2, $aligns2);
$rep->NewPage();
-
+
$classresult = get_account_classes(false);
while ($class = db_fetch($classresult))
{
else
$rep->AmountCol(7, 8, abs($tbal), $dec);
$rep->NewLine();
-
+
$rep->Line($rep->row + 10);
if (($pbal = round2($pbal, $dec)) != 0.0 && $dimension == 0 && $dimension2 == 0)
{
$rep->End();
}
-?>
\ No newline at end of file