<?php
/**********************************************************************
Copyright (C) FrontAccounting, LLC.
- Released under the terms of the GNU Affero General Public License,
- AGPL, as published by the Free Software Foundation, either version
- 3 of the License, or (at your option) any later version.
+ Released under the terms of the GNU General Public License, GPL,
+ as published by the Free Software Foundation, either version 3
+ of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- See the License here <http://www.gnu.org/licenses/agpl-3.0.html>.
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+ See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
***********************************************************************/
-$page_security = 8;
+$page_security = 'SA_GLANALYTIC';
$path_to_root="../..";
include_once($path_to_root . "/includes/session.inc");
-include_once($path_to_root . "/includes/date_functions.inc");
include_once($path_to_root . "/includes/ui.inc");
+include_once($path_to_root . "/includes/date_functions.inc");
+include_once($path_to_root . "/admin/db/fiscalyears_db.inc");
include_once($path_to_root . "/includes/data_checks.inc");
include_once($path_to_root . "/gl/includes/gl_db.inc");
$js = "";
-if ($use_date_picker)
+if (user_use_date_picker())
$js = get_js_date_picker();
-page(_("Trial Balance"), false, false, "", $js);
+page(_($help_context = "Trial Balance"), false, false, "", $js);
+
+$k = 0;
+$pdeb = $pcre = $cdeb = $ccre = $tdeb = $tcre = $pbal = $cbal = $tbal = 0;
//----------------------------------------------------------------------------------------------------
// Ajax updates
//
-if (get_post('Show'))
+if (get_post('Show'))
{
$Ajax->activate('balance_tbl');
}
function gl_inquiry_controls()
{
+ $dim = get_company_pref('use_dimension');
start_form();
- start_table("class='tablestyle_noborder'");
+ start_table(TABLESTYLE_NOBORDER);
- date_cells(_("From:"), 'TransFromDate', '', null, -30);
+ $date = today();
+ if (!isset($_POST['TransToDate']))
+ $_POST['TransToDate'] = end_month($date);
+ if (!isset($_POST['TransFromDate']))
+ $_POST['TransFromDate'] = add_days(end_month($date), -user_transaction_days());
+ start_row();
+ date_cells(_("From:"), 'TransFromDate');
date_cells(_("To:"), 'TransToDate');
+ if ($dim >= 1)
+ dimensions_list_cells(_("Dimension")." 1:", 'Dimension', null, true, " ", false, 1);
+ if ($dim > 1)
+ dimensions_list_cells(_("Dimension")." 2:", 'Dimension2', null, true, " ", false, 2);
check_cells(_("No zero values"), 'NoZero', null);
check_cells(_("Only balances"), 'Balance', null);
-
- submit_cells('Show',_("Show"),'','', true);
+ submit_cells('Show',_("Show"),'','', 'default');
+ end_row();
end_table();
end_form();
}
//----------------------------------------------------------------------------------------------------
-function get_balance($account, $from, $to, $from_incl=true, $to_incl=true)
+function display_trial_balance($type, $typename)
{
- $sql = "SELECT SUM(IF(amount >= 0, amount, 0)) AS debit, SUM(IF(amount < 0, -amount, 0)) AS credit, SUM(amount) AS balance
- FROM ".TB_PREF."gl_trans,".TB_PREF."chart_master,".TB_PREF."chart_types, ".TB_PREF."chart_class
- WHERE ".TB_PREF."gl_trans.account=".TB_PREF."chart_master.account_code AND ".TB_PREF."chart_master.account_type=".TB_PREF."chart_types.id
- AND ".TB_PREF."chart_types.class_id=".TB_PREF."chart_class.cid AND";
-
- if ($account != null)
- $sql .= " account='$account' AND";
- $from_date = date2sql($from);
- if ($from_incl)
- $sql .= " tran_date >= '$from_date' AND";
- else
- $sql .= " tran_date > IF(".TB_PREF."chart_class.balance_sheet=1, '0000-00-00', '$from_date') AND";
- $to_date = date2sql($to);
- if ($to_incl)
- $sql .= " tran_date <= '$to_date' ";
- else
- $sql .= " tran_date < '$to_date' ";
+ global $path_to_root, $SysPrefs,
+ $k, $pdeb, $pcre, $cdeb, $ccre, $tdeb, $tcre, $pbal, $cbal, $tbal;
- $result = db_query($sql,"No general ledger accounts were returned");
-
- return db_fetch($result);
-}
-
-//----------------------------------------------------------------------------------------------------
-
-function display_trial_balance()
-{
- global $table_style, $path_to_root;
-
- div_start('balance_tbl');
- start_table($table_style);
- $tableheader = "<tr>
- <td rowspan=2 class='tableheader'>" . _("Account") . "</td>
- <td rowspan=2 class='tableheader'>" . _("Account Name") . "</td>
- <td colspan=2 class='tableheader'>" . _("Brought Forward") . "</td>
- <td colspan=2 class='tableheader'>" . _("This Period") . "</td>
- <td colspan=2 class='tableheader'>" . _("Balance") . "</td>
- </tr><tr>
- <td class='tableheader'>" . _("Debit") . "</td>
- <td class='tableheader'>" . _("Credit") . "</td>
- <td class='tableheader'>" . _("Debit") . "</td>
- <td class='tableheader'>" . _("Credit") . "</td>
- <td class='tableheader'>" . _("Debit") . "</td>
- <td class='tableheader'>" . _("Credit") . "</td>
- </tr>";
-
- echo $tableheader;
+ $printtitle = 0; //Flag for printing type name
$k = 0;
- $accounts = get_gl_accounts();
- $pdeb = $pcre = $cdeb = $ccre = $tdeb = $tcre = $pbal = $cbal = $tbal = 0;
- $begin = begin_fiscalyear();
+ //Get Accounts directly under this group/type
+ $accounts = get_gl_accounts(null, null, $type);
+
+ $begin = get_fiscalyear_begin_for_date($_POST['TransFromDate']);
if (date1_greater_date2($begin, $_POST['TransFromDate']))
$begin = $_POST['TransFromDate'];
$begin = add_days($begin, -1);
-
+
+ $Apdeb=$pdeb;
+ $Apcre=$pcre;
+ $Acdeb=$cdeb;
+ $Accre=$ccre;
+ $Atdeb=$tdeb;
+ $Atcre=$tcre;
+ $Apbal=$pbal;
+ $Acbal=$cbal;
+ $Atbal=$tbal;
+
while ($account = db_fetch($accounts))
{
- $prev = get_balance($account["account_code"], $begin, $_POST['TransFromDate'], false, false);
- $curr = get_balance($account["account_code"], $_POST['TransFromDate'], $_POST['TransToDate'], true, true);
- $tot = get_balance($account["account_code"], $begin, $_POST['TransToDate'], false, true);
+ //Print Type Title if it has atleast one non-zero account
+ if (!$printtitle)
+ {
+ start_row("class='inquirybg' style='font-weight:bold'");
+ label_cell(_("Group")." - ".$type ." - ".$typename, "colspan=8");
+ end_row();
+ $printtitle = 1;
+ }
+
+ // 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"], $_POST['Dimension'], $_POST['Dimension2'], $begin, $begin, false, true);
+ $offset = min($open['debit'], $open['credit']);
+ } else
+ $offset = 0;
+
+ $prev = get_balance($account["account_code"], $_POST['Dimension'], $_POST['Dimension2'], $begin, $_POST['TransFromDate'], false, false);
+ $curr = get_balance($account["account_code"], $_POST['Dimension'], $_POST['Dimension2'], $_POST['TransFromDate'], $_POST['TransToDate'], true, true);
+ $tot = get_balance($account["account_code"], $_POST['Dimension'], $_POST['Dimension2'], $begin, $_POST['TransToDate'], false, true);
if (check_value("NoZero") && !$prev['balance'] && !$curr['balance'] && !$tot['balance'])
continue;
alt_table_row_color($k);
- $url = "<a href='$path_to_root/gl/inquiry/gl_account_inquiry.php?" . SID . "TransFromDate=" . $_POST["TransFromDate"] . "&TransToDate=" . $_POST["TransToDate"] . "&account=" . $account["account_code"] . "'>" . $account["account_code"] . "</a>";
+ $url = "<a href='$path_to_root/gl/inquiry/gl_account_inquiry.php?TransFromDate=" . $_POST["TransFromDate"] . "&TransToDate=" . $_POST["TransToDate"] . "&account=" . $account["account_code"] . "&Dimension=" . $_POST["Dimension"] . "&Dimension2=" . $_POST["Dimension2"] . "'>" . $account["account_code"] . "</a>";
label_cell($url);
label_cell($account["account_name"]);
display_debit_or_credit_cells($prev['balance']);
display_debit_or_credit_cells($curr['balance']);
display_debit_or_credit_cells($tot['balance']);
-
+
}
else
{
- amount_cell($prev['debit']);
- amount_cell($prev['credit']);
+ amount_cell($prev['debit']-$offset);
+ amount_cell($prev['credit']-$offset);
amount_cell($curr['debit']);
amount_cell($curr['credit']);
- amount_cell($tot['debit']);
- amount_cell($tot['credit']);
+ amount_cell($tot['debit']-$offset);
+ amount_cell($tot['credit']-$offset);
$pdeb += $prev['debit'];
$pcre += $prev['credit'];
$cdeb += $curr['debit'];
$ccre += $curr['credit'];
$tdeb += $tot['debit'];
$tcre += $tot['credit'];
- }
+ }
$pbal += $prev['balance'];
$cbal += $curr['balance'];
$tbal += $tot['balance'];
end_row();
}
- //$prev = get_balance(null, $begin, $_POST['TransFromDate'], false, false);
- //$curr = get_balance(null, $_POST['TransFromDate'], $_POST['TransToDate'], true, true);
- //$tot = get_balance(null, $begin, $_POST['TransToDate'], false, true);
- if (!check_value('Balance'))
+ //Get Account groups/types under this group/type
+ $result = get_account_types(false, false, $type);
+ while ($accounttype=db_fetch($result))
{
- start_row("class='inquirybg' style='font-weight:bold'");
- label_cell(_("Total") ." - ".$_POST['TransToDate'], "colspan=2");
- amount_cell($pdeb);
- amount_cell($pcre);
- amount_cell($cdeb);
- amount_cell($ccre);
- amount_cell($tdeb);
- amount_cell($tcre);
- end_row();
- }
+ //Print Type Title if has sub types and not previously printed
+ if (!$printtitle)
+ {
+ start_row("class='inquirybg' style='font-weight:bold'");
+ label_cell(_("Group")." - ".$type ." - ".$typename, "colspan=8");
+ end_row();
+ $printtitle = 1;
+
+ }
+ display_trial_balance($accounttype["id"], $accounttype["name"].' ('.$typename.')');
+ }
+
start_row("class='inquirybg' style='font-weight:bold'");
- label_cell(_("Ending Balance") ." - ".$_POST['TransToDate'], "colspan=2");
- display_debit_or_credit_cells($pbal);
- display_debit_or_credit_cells($cbal);
- display_debit_or_credit_cells($tbal);
- end_row();
+ label_cell(_("Total") ." - ".$typename, "colspan=2");
- end_table(1);
- div_end();
+ if (!check_value('Balance'))
+ {
+ amount_cell($pdeb-$Apdeb );
+ amount_cell($pcre-$Apcre);
+ amount_cell($cdeb-$Acdeb );
+ amount_cell($ccre-$Accre );
+ amount_cell($tdeb-$Atdeb );
+ amount_cell($tcre-$Atcre);
+ }
+ else
+ {
+ display_debit_or_credit_cells($pbal-$Apbal);
+ display_debit_or_credit_cells($cbal-$Acbal );
+ display_debit_or_credit_cells($tbal-$Atbal);
+ }
+ end_row();
}
//----------------------------------------------------------------------------------------------------
gl_inquiry_controls();
-display_trial_balance();
+if (isset($_POST['TransFromDate']))
+{
+ $row = get_current_fiscalyear();
+ if (date1_greater_date2($_POST['TransFromDate'], sql2date($row['end'])))
+ {
+ display_error(_("The from date cannot be bigger than the fiscal year end."));
+ set_focus('TransFromDate');
+ return;
+ }
+}
+div_start('balance_tbl');
+if (!isset($_POST['Dimension']))
+ $_POST['Dimension'] = 0;
+if (!isset($_POST['Dimension2']))
+ $_POST['Dimension2'] = 0;
+start_table(TABLESTYLE);
+$tableheader = "<tr>
+ <td rowspan=2 class='tableheader'>" . _("Account") . "</td>
+ <td rowspan=2 class='tableheader'>" . _("Account Name") . "</td>
+ <td colspan=2 class='tableheader'>" . _("Brought Forward") . "</td>
+ <td colspan=2 class='tableheader'>" . _("This Period") . "</td>
+ <td colspan=2 class='tableheader'>" . _("Balance") . "</td>
+ </tr><tr>
+ <td class='tableheader'>" . _("Debit") . "</td>
+ <td class='tableheader'>" . _("Credit") . "</td>
+ <td class='tableheader'>" . _("Debit") . "</td>
+ <td class='tableheader'>" . _("Credit") . "</td>
+ <td class='tableheader'>" . _("Debit") . "</td>
+ <td class='tableheader'>" . _("Credit") . "</td>
+ </tr>";
+
+echo $tableheader;
+
+//display_trial_balance();
+
+$classresult = get_account_classes(false);
+while ($class = db_fetch($classresult))
+{
+ start_row("class='inquirybg' style='font-weight:bold'");
+ label_cell(_("Class")." - ".$class['cid'] ." - ".$class['class_name'], "colspan=8");
+ end_row();
+
+ //Get Account groups/types under this group/type with no parents
+ $typeresult = get_account_types(false, $class['cid'], -1);
+ while ($accounttype=db_fetch($typeresult))
+ {
+ display_trial_balance($accounttype["id"], $accounttype["name"]);
+ }
+}
+
+if (!check_value('Balance'))
+{
+ start_row("class='inquirybg' style='font-weight:bold'");
+ label_cell(_("Total") ." - ".$_POST['TransToDate'], "colspan=2");
+ amount_cell($pdeb);
+ amount_cell($pcre);
+ amount_cell($cdeb);
+ amount_cell($ccre);
+ amount_cell($tdeb);
+ amount_cell($tcre);
+ end_row();
+}
+start_row("class='inquirybg' style='font-weight:bold'");
+label_cell(_("Ending Balance") ." - ".$_POST['TransToDate'], "colspan=2");
+display_debit_or_credit_cells($pbal);
+display_debit_or_credit_cells($cbal);
+display_debit_or_credit_cells($tbal);
+end_row();
+
+end_table(1);
+if (($pbal = round2($pbal, user_price_dec())) != 0 && $_POST['Dimension'] == 0 && $_POST['Dimension2'] == 0)
+ display_warning(_("The Opening Balance is not in balance, probably due to a non closed Previous Fiscalyear."));
+div_end();
//----------------------------------------------------------------------------------------------------
end_page();
-?>
-