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_GLANALYTIC';
13 // ----------------------------------------------------------------
17 // Title: Annual expense breakdown
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 print_annual_expense_breakdown();
30 //----------------------------------------------------------------------------------------------------
32 function getPeriods($row, $account, $dimension, $dimension2)
36 $date13 = date('Y-m-d',mktime(0,0,0,$mo+1,1,$yr));
37 $date12 = date('Y-m-d',mktime(0,0,0,$mo,1,$yr));
38 $date11 = date('Y-m-d',mktime(0,0,0,$mo-1,1,$yr));
39 $date10 = date('Y-m-d',mktime(0,0,0,$mo-2,1,$yr));
40 $date09 = date('Y-m-d',mktime(0,0,0,$mo-3,1,$yr));
41 $date08 = date('Y-m-d',mktime(0,0,0,$mo-4,1,$yr));
42 $date07 = date('Y-m-d',mktime(0,0,0,$mo-5,1,$yr));
43 $date06 = date('Y-m-d',mktime(0,0,0,$mo-6,1,$yr));
44 $date05 = date('Y-m-d',mktime(0,0,0,$mo-7,1,$yr));
45 $date04 = date('Y-m-d',mktime(0,0,0,$mo-8,1,$yr));
46 $date03 = date('Y-m-d',mktime(0,0,0,$mo-9,1,$yr));
47 $date02 = date('Y-m-d',mktime(0,0,0,$mo-10,1,$yr));
48 $date01 = date('Y-m-d',mktime(0,0,0,$mo-11,1,$yr));
50 $sql = "SELECT SUM(CASE WHEN tran_date >= '$date01' AND tran_date < '$date02' THEN amount / 1000 ELSE 0 END) AS per01,
51 SUM(CASE WHEN tran_date >= '$date02' AND tran_date < '$date03' THEN amount / 1000 ELSE 0 END) AS per02,
52 SUM(CASE WHEN tran_date >= '$date03' AND tran_date < '$date04' THEN amount / 1000 ELSE 0 END) AS per03,
53 SUM(CASE WHEN tran_date >= '$date04' AND tran_date < '$date05' THEN amount / 1000 ELSE 0 END) AS per04,
54 SUM(CASE WHEN tran_date >= '$date05' AND tran_date < '$date06' THEN amount / 1000 ELSE 0 END) AS per05,
55 SUM(CASE WHEN tran_date >= '$date06' AND tran_date < '$date07' THEN amount / 1000 ELSE 0 END) AS per06,
56 SUM(CASE WHEN tran_date >= '$date07' AND tran_date < '$date08' THEN amount / 1000 ELSE 0 END) AS per07,
57 SUM(CASE WHEN tran_date >= '$date08' AND tran_date < '$date09' THEN amount / 1000 ELSE 0 END) AS per08,
58 SUM(CASE WHEN tran_date >= '$date09' AND tran_date < '$date10' THEN amount / 1000 ELSE 0 END) AS per09,
59 SUM(CASE WHEN tran_date >= '$date10' AND tran_date < '$date11' THEN amount / 1000 ELSE 0 END) AS per10,
60 SUM(CASE WHEN tran_date >= '$date11' AND tran_date < '$date12' THEN amount / 1000 ELSE 0 END) AS per11,
61 SUM(CASE WHEN tran_date >= '$date12' AND tran_date < '$date13' THEN amount / 1000 ELSE 0 END) AS per12
62 FROM ".TB_PREF."gl_trans
63 WHERE account='$account'";
65 $sql .= " AND dimension_id = ".($dimension<0?0:db_escape($dimension));
67 $sql .= " AND dimension2_id = ".($dimension2<0?0:db_escape($dimension2));
69 $result = db_query($sql, "Transactions for account $account could not be calculated");
71 return db_fetch($result);
74 //----------------------------------------------------------------------------------------------------
76 function print_annual_expense_breakdown()
78 global $path_to_root, $date_system;
80 $dim = get_company_pref('use_dimension');
81 $dimension = $dimension2 = 0;
85 $year = $_POST['PARAM_0'];
86 $dimension = $_POST['PARAM_1'];
87 $dimension2 = $_POST['PARAM_2'];
88 $comments = $_POST['PARAM_3'];
89 $destination = $_POST['PARAM_4'];
93 $year = $_POST['PARAM_0'];
94 $dimension = $_POST['PARAM_1'];
95 $comments = $_POST['PARAM_2'];
96 $destination = $_POST['PARAM_3'];
100 $year = $_POST['PARAM_0'];
101 $comments = $_POST['PARAM_1'];
102 $destination = $_POST['PARAM_2'];
105 include_once($path_to_root . "/reporting/includes/excel_report.inc");
107 include_once($path_to_root . "/reporting/includes/pdf_report.inc");
110 //$pdec = user_percent_dec();
112 $cols = array(0, 40, 150, 180, 210, 240, 270, 300, 330, 360, 390, 420, 450, 480, 510);
113 //------------0--1---2----3----4----5----6----7----8----10---11---12---13---14---15-
118 $sql = "SELECT YEAR(end) AS yr, MONTH(end) AS mo FROM ".TB_PREF."fiscal_year WHERE YEAR(begin)=".db_escape($year);
119 $result = db_query($sql, "could not get fiscal year");
120 $row = db_fetch($result);
125 if ($date_system == 1)
126 list($yr, $mo, $da) = jalali_to_gregorian($yr, $mo, $da);
127 elseif ($date_system == 2)
128 list($yr, $mo, $da) = islamic_to_gregorian($yr, $mo, $da);
129 $per12 = strftime('%b',mktime(0,0,0,$mo,$da,$yr));
130 $per11 = strftime('%b',mktime(0,0,0,$mo-1,$da,$yr));
131 $per10 = strftime('%b',mktime(0,0,0,$mo-2,$da,$yr));
132 $per09 = strftime('%b',mktime(0,0,0,$mo-3,$da,$yr));
133 $per08 = strftime('%b',mktime(0,0,0,$mo-4,$da,$yr));
134 $per07 = strftime('%b',mktime(0,0,0,$mo-5,$da,$yr));
135 $per06 = strftime('%b',mktime(0,0,0,$mo-6,$da,$yr));
136 $per05 = strftime('%b',mktime(0,0,0,$mo-7,$da,$yr));
137 $per04 = strftime('%b',mktime(0,0,0,$mo-8,$da,$yr));
138 $per03 = strftime('%b',mktime(0,0,0,$mo-9,$da,$yr));
139 $per02 = strftime('%b',mktime(0,0,0,$mo-10,$da,$yr));
140 $per01 = strftime('%b',mktime(0,0,0,$mo-11,$da,$yr));
142 $headers = array(_('Account'), _('Account Name'), $per01, $per02, $per03, $per04,
143 $per05, $per06, $per07, $per08, $per09, $per10, $per11, $per12);
145 $aligns = array('left', 'left', 'right', 'right', 'right', 'right', 'right', 'right',
146 'right', 'right', 'right', 'right', 'right', 'right');
150 $params = array( 0 => $comments,
151 1 => array('text' => _("Year"),
152 'from' => $year, 'to' => ''),
153 2 => array('text' => _("Dimension")." 1",
154 'from' => get_dimension_string($dimension), 'to' => ''),
155 3 => array('text' => _("Dimension")." 2",
156 'from' => get_dimension_string($dimension2), 'to' => ''),
157 4 => array('text' => _('Info'), 'from' => _('Amounts in thousands'),
162 $params = array( 0 => $comments,
163 1 => array('text' => _("Year"),
164 'from' => $year, 'to' => ''),
165 2 => array('text' => _('Dimension'),
166 'from' => get_dimension_string($dimension), 'to' => ''),
167 3 => array('text' => _('Info'), 'from' => _('Amounts in thousands'),
172 $params = array( 0 => $comments,
173 1 => array('text' => _("Year"),
174 'from' => $year, 'to' => ''),
175 2 => array('text' => _('Info'), 'from' => _('Amounts in thousands'),
179 $rep = new FrontReport(_('Annual Expense Breakdown'), "AnnualBreakDown", user_pagesize());
182 $rep->Info($params, $cols, $headers, $aligns);
187 0 => Array(1 => 0,0,0,0,0,0,0,0,0,0,0,0),
188 Array(1 => 0,0,0,0,0,0,0,0,0,0,0,0),
189 Array(1 => 0,0,0,0,0,0,0,0,0,0,0,0),
190 Array(1 => 0,0,0,0,0,0,0,0,0,0,0,0),
191 Array(1 => 0,0,0,0,0,0,0,0,0,0,0,0),
192 Array(1 => 0,0,0,0,0,0,0,0,0,0,0,0),
193 Array(1 => 0,0,0,0,0,0,0,0,0,0,0,0),
194 Array(1 => 0,0,0,0,0,0,0,0,0,0,0,0),
195 Array(1 => 0,0,0,0,0,0,0,0,0,0,0,0),
196 Array(1 => 0,0,0,0,0,0,0,0,0,0,0,0));
197 $total2 = Array(1 => 0,0,0,0,0,0,0,0,0,0,0,0);
198 $sales = Array(1 => 0,0,0,0,0,0,0,0,0,0,0,0);
199 $calc = Array(1 => 0,0,0,0,0,0,0,0,0,0,0,0);
200 $typename = array('','','','','','','','','','');
201 $closing = array(-1,-1,-1,-1,-1,-1,-1,-1,-1,-1);
209 $accounts = get_gl_accounts_all(0);
211 while ($account=db_fetch($accounts))
213 if ($account['account_code'] == null && $account['parent'] > 0)
216 if ($account['account_code'] != null)
218 $bal = getPeriods($row, $account["account_code"], $dimension, $dimension2);
219 if (!$bal['per01'] && !$bal['per02'] && !$bal['per03'] && !$bal['per04'] &&
220 !$bal['per05'] && !$bal['per06'] && !$bal['per07'] && !$bal['per08'] &&
221 !$bal['per09'] && !$bal['per10'] && !$bal['per11'] && !$bal['per12'])
224 if ($account['AccountClassName'] != $classname)
226 if ($classname != '')
232 if ($account['AccountTypeName'] != $typename[$level])
234 if ($typename[$level] != '')
236 for ( ; $level >= 0, $typename[$level] != ''; $level--)
238 if ($account['parent'] == $closing[$level] || $account['parent'] < $last || $account['parent'] <= 0)
241 $rep->Line($rep->row);
243 $rep->TextCol(0, 2, _('Total') . " " . $typename[$level]);
244 for ($i = 1; $i <= 12; $i++)
246 $rep->AmountCol($i + 1, $i + 2, $total[$level][$i] * $convert, $dec);
247 $total[$level][$i] = 0.0;
257 $rep->Line($rep->row);
260 $rep->TextCol(0, 2, _('Total') . " " . $classname);
261 for ($i = 1; $i <= 12; $i++)
263 $rep->AmountCol($i + 1, $i + 2, $total2[$i] * $convert, $dec);
264 $sales[$i] += $total2[$i];
267 $total2 = Array(1 => 0,0,0,0,0,0,0,0,0,0,0,0);
272 if ($account['AccountClassName'] != $classname)
275 $rep->TextCol(0, 5, $account['AccountClassName']);
280 if ($account['parent'] != $last)
281 $last = $account['parent'];
282 $typename[$level] = $account['AccountTypeName'];
283 $closing[$level] = $account['parent'];
285 $rep->TextCol(0, 5, $account['AccountTypeName']);
287 $rep->Line($rep->row);
290 $classname = $account['AccountClassName'];
291 $ctype = $account['ClassType'];
292 $convert = get_class_type_convert($ctype);
294 if ($account['account_code'] != null)
296 $balance = array(1 => $bal['per01'], $bal['per02'], $bal['per03'], $bal['per04'],
297 $bal['per05'], $bal['per06'], $bal['per07'], $bal['per08'],
298 $bal['per09'], $bal['per10'], $bal['per11'], $bal['per12']);
299 $rep->TextCol(0, 1, $account['account_code']);
300 $rep->TextCol(1, 2, $account['account_name']);
302 for ($i = 1; $i <= 12; $i++)
304 $rep->AmountCol($i + 1, $i + 2, $balance[$i] * $convert, $dec);
305 $total2[$i] += $balance[$i];
307 for ($j = 0; $j <= $level; $j++)
309 for ($i = 1; $i <= 12; $i++)
310 $total[$j][$i] += $balance[$i];
314 if ($rep->row < $rep->bottomMargin + 3 * $rep->lineHeight)
316 $rep->Line($rep->row - 2);
321 if ($account['AccountClassName'] != $classname)
323 if ($classname != '')
328 if ($account['AccountTypeName'] != $typename[$level])
330 if ($typename[$level] != '')
332 for ( ; $level >= 0, $typename[$level] != ''; $level--)
334 if ($account['parent'] == $closing[$level] || $account['parent'] < $last || $account['parent'] <= 0)
337 $rep->Line($rep->row);
339 $rep->TextCol(0, 2, _('Total') . " " . $typename[$level]);
340 for ($i = 1; $i <= 12; $i++)
342 $rep->AmountCol($i + 1, $i + 2, $total[$level][$i] * $convert, $dec);
343 $total[$level][$i] = 0.0;
353 $rep->Line($rep->row);
357 $rep->TextCol(0, 2, _('Total') . " " . $classname);
358 for ($i = 1; $i <= 12; $i++)
360 $rep->AmountCol($i + 1, $i + 2, $total2[$i] * $convert, $dec);
361 $calc[$i] = $sales[$i] + $total2[$i];
365 $rep->TextCol(0, 2, _('Calculated Return'));
366 for ($i = 1; $i <= 12; $i++)
367 $rep->AmountCol($i + 1, $i + 2, $calc[$i] * -1, $dec); // always convert
374 $rep->Line($rep->row);