2 /**********************************************************************
3 Copyright (C) FrontAccounting, LLC.
4 Released under the terms of the GNU General Public License, GPL,
5 as published by the Free Software Foundation, either version 3
6 of the License, or (at your option) any later version.
7 This program is distributed in the hope that it will be useful,
8 but WITHOUT ANY WARRANTY; without even the implied warranty of
9 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
10 See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
11 ***********************************************************************/
12 $page_security = 'SA_GLREP';
13 // ----------------------------------------------------------------
17 // Title: Chart of GL Accounts
18 // ----------------------------------------------------------------
21 include_once($path_to_root . "/includes/session.inc");
22 include_once($path_to_root . "/includes/date_functions.inc");
23 include_once($path_to_root . "/includes/data_checks.inc");
24 include_once($path_to_root . "/gl/includes/gl_db.inc");
26 //----------------------------------------------------------------------------------------------------
28 function display_type ($type, $typename, &$dec, &$rep, $showbalance)
30 $printtitle = 0; //Flag for printing type name
32 //Get Accounts directly under this group/type
33 $result = get_gl_accounts(null, null, $type);
34 while ($account=db_fetch($result))
36 //Print Type Title if it has atleast one non-zero account
41 $rep->TextCol(0, 1, $type);
42 $rep->TextCol(1, 4, $typename);
44 $rep->Line($rep->row);
47 if ($showbalance == 1)
49 $begin = begin_fiscalyear();
50 if (is_account_balancesheet($account["account_code"]))
52 $balance = get_gl_trans_from_to($begin, ToDay(), $account["account_code"], 0);
54 $rep->TextCol(0, 1, $account['account_code']);
55 $rep->TextCol(1, 2, $account['account_name']);
56 $rep->TextCol(2, 3, $account['account_code2']);
57 if ($showbalance == 1)
58 $rep->AmountCol(3, 4, $balance, $dec);
62 //Get Account groups/types under this group/type
63 $result = get_account_types(false, false, $type);
64 while ($accounttype=db_fetch($result))
66 //Print Type Title if has sub types and not previously printed
71 $rep->TextCol(0, 1, $type);
72 $rep->TextCol(1, 4, $typename);
74 $rep->Line($rep->row);
78 display_type($accounttype["id"], $accounttype["name"], $dec, $rep, $showbalance);
82 //----------------------------------------------------------------------------------------------------
84 print_Chart_of_Accounts();
86 //----------------------------------------------------------------------------------------------------
88 function print_Chart_of_Accounts()
92 $showbalance = $_POST['PARAM_0'];
93 $comments = $_POST['PARAM_1'];
94 $destination = $_POST['PARAM_2'];
96 include_once($path_to_root . "/reporting/includes/excel_report.inc");
98 include_once($path_to_root . "/reporting/includes/pdf_report.inc");
102 $cols = array(0, 50, 300, 425, 500);
104 $headers = array(_('Account'), _('Account Name'), _('Account Code'), _('Balance'));
106 $aligns = array('left', 'left', 'left', 'right');
108 $params = array(0 => $comments);
110 $rep = new FrontReport(_('Chart of Accounts'), "ChartOfAccounts", user_pagesize());
113 $rep->Info($params, $cols, $headers, $aligns);
116 $classresult = get_account_classes(false);
117 while ($class = db_fetch($classresult))
120 $rep->TextCol(0, 1, $class['cid']);
121 $rep->TextCol(1, 4, $class['class_name']);
125 //Get Account groups/types under this group/type with no parents
126 $typeresult = get_account_types(false, $class['cid'], -1);
127 while ($accounttype=db_fetch($typeresult))
129 display_type($accounttype["id"], $accounttype["name"], $dec, $rep, $showbalance);
133 $rep->Line($rep->row + 10);