gl/inquiry/profit_loss.php

   1 <?php
   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 $path_to_root="../..";
  14
  15 include_once($path_to_root . "/includes/session.inc");
  16
  17 include_once($path_to_root . "/includes/date_functions.inc");
  18 include_once($path_to_root . "/includes/ui.inc");
  19 include_once($path_to_root . "/includes/data_checks.inc");
  20
  21 include_once($path_to_root . "/gl/includes/gl_db.inc");
  22
  23 $js = "";
  24 if ($use_date_picker)
  25         $js = get_js_date_picker();
  26
  27 page(_($help_context = "Profit & Loss Drilldown"), false, false, "", $js);
  28
  29 //----------------------------------------------------------------------------------------------------
  30 // Ajax updates
  31
  32 if (get_post('Show'))
  33 {
  34         $Ajax->activate('pl_tbl');
  35 }
  36
  37 if (isset($_GET["TransFromDate"]))
  38         $_POST["TransFromDate"] = $_GET["TransFromDate"];
  39 if (isset($_GET["TransToDate"]))
  40         $_POST["TransToDate"] = $_GET["TransToDate"];
  41 if (isset($_GET["Compare"]))
  42         $_POST["Compare"] = $_GET["Compare"];
  43 if (isset($_GET["Dimension"]))
  44         $_POST["Dimension"] = $_GET["Dimension"];
  45 if (isset($_GET["Dimension2"]))
  46         $_POST["Dimension2"] = $_GET["Dimension2"];
  47 if (isset($_GET["AccGrp"]))
  48         $_POST["AccGrp"] = $_GET["AccGrp"];
  49
  50 //----------------------------------------------------------------------------------------------------
  51
  52 function display_type ($type, $typename, $from, $to, $begin, $end, $compare, $convert,
  53         &$dec, &$pdec, &$rep, $dimension=0, $dimension2=0, $drilldown, $path_to_root)
  54 {
  55         global $levelptr, $k;
  56
  57         $code_per_balance = 0;
  58         $code_acc_balance = 0;
  59         $per_balance_total = 0;
  60         $acc_balance_total = 0;
  61         unset($totals_arr);
  62         $totals_arr = array();
  63
  64         //Get Accounts directly under this group/type
  65         $result = get_gl_accounts(null, null, $type);
  66
  67         while ($account=db_fetch($result))
  68         {
  69                 $per_balance = get_gl_trans_from_to($from, $to, $account["account_code"], $dimension, $dimension2);
  70
  71                 if ($compare == 2)
  72                         $acc_balance = get_budget_trans_from_to($begin, $end, $account["account_code"], $dimension, $dimension2);
  73                 else
  74                         $acc_balance = get_gl_trans_from_to($begin, $end, $account["account_code"], $dimension, $dimension2);
  75                 if (!$per_balance && !$acc_balance)
  76                         continue;
  77
  78                 if ($drilldown && $levelptr == 0)
  79                 {
  80                         $url = "<a href='$path_to_root/gl/inquiry/gl_account_inquiry.php?TransFromDate="
  81                                 . $from . "&TransToDate=" . $to . "&Dimension=" . $dimension . "&Dimension2=" . $dimension2
  82                                 . "&account=" . $account['account_code'] . "'>" . $account['account_code']
  83                                 ." ". $account['account_name'] ."</a>";
  84
  85                         start_row("class='stockmankobg'");
  86                         label_cell($url);
  87                         amount_cell($per_balance * $convert);
  88                         amount_cell($acc_balance * $convert);
  89                         amount_cell(Achieve($per_balance, $acc_balance));
  90                         end_row();
  91                 }
  92
  93                 $code_per_balance += $per_balance;
  94                 $code_acc_balance += $acc_balance;
  95         }
  96
  97         $levelptr = 1;
  98
  99         //Get Account groups/types under this group/type
 100         $result = get_account_types(false, false, $type);
 101         while ($accounttype=db_fetch($result))
 102         {
 103                 $totals_arr = display_type($accounttype["id"], $accounttype["name"], $from, $to, $begin, $end,
 104                         $compare, $convert, $dec, $pdec, $rep, $dimension, $dimension2, $drilldown, $path_to_root);
 105                 $per_balance_total += $totals_arr[0];
 106                 $acc_balance_total += $totals_arr[1];
 107         }
 108
 109         //Display Type Summary if total is != 0
 110         if (($code_per_balance + $per_balance_total + $code_acc_balance + $acc_balance_total) != 0)
 111         {
 112                 if ($drilldown && $type == $_POST["AccGrp"])
 113                 {
 114                         start_row("class='inquirybg' style='font-weight:bold'");
 115                         label_cell(_('Total') . " " . $typename);
 116                         amount_cell(($code_per_balance + $per_balance_total) * $convert);
 117                         amount_cell(($code_acc_balance + $acc_balance_total) * $convert);
 118                         amount_cell(Achieve(($code_per_balance + $per_balance_total), ($code_acc_balance + $acc_balance_total)));
 119                         end_row();
 120                 }
 121                 //START Patch#1 : Display  only direct child types
 122                 $acctype1 = get_account_type($type);
 123                 $parent1 = $acctype1["parent"];
 124                 if ($drilldown && $parent1 == $_POST["AccGrp"])
 125                 //END Patch#2
 126                 //elseif ($drilldown && $type != $_POST["AccGrp"])
 127                 {
 128                         $url = "<a href='$path_to_root/gl/inquiry/profit_loss.php?TransFromDate="
 129                                 . $from . "&TransToDate=" . $to . "&Compare=" . $compare . "&Dimension=" . $dimension . "&Dimension2=" . $dimension2
 130                                 . "&AccGrp=" . $type ."'>" . $type . " " . $typename ."</a>";
 131
 132                         alt_table_row_color($k);
 133                         label_cell($url);
 134                         amount_cell(($code_per_balance + $per_balance_total) * $convert);
 135                         amount_cell(($code_acc_balance + $acc_balance_total) * $convert);
 136                         amount_cell(Achieve(($code_per_balance + $per_balance_total), ($code_acc_balance + $acc_balance_total)));
 137                         end_row();
 138                 }
 139         }
 140
 141         $totals_arr[0] = $code_per_balance + $per_balance_total;
 142         $totals_arr[1] = $code_acc_balance + $acc_balance_total;
 143         return $totals_arr;
 144 }
 145
 146 function Achieve($d1, $d2)
 147 {
 148         if ($d1 == 0 && $d2 == 0)
 149                 return 0;
 150         elseif ($d2 == 0)
 151                 return 999;
 152         $ret = ($d1 / $d2 * 100.0);
 153         if ($ret > 999)
 154                 $ret = 999;
 155         return $ret;
 156 }
 157
 158 function inquiry_controls()
 159 {
 160         $dim = get_company_pref('use_dimension');
 161     start_table(TABLESTYLE_NOBORDER);
 162
 163     date_cells(_("From:"), 'TransFromDate', '', null, -30);
 164         date_cells(_("To:"), 'TransToDate');
 165
 166         //Compare Combo
 167         global $sel;
 168         $sel = array(_("Accumulated"), _("Period Y-1"), _("Budget"));
 169         echo "<td>"._("Compare to").":</td>\n";
 170         echo "<td>";
 171         echo array_selector('Compare', null, $sel);
 172         echo "</td>\n";
 173         if ($dim >= 1)
 174                 dimensions_list_cells(_("Dimension")." 1:", 'Dimension', null, true, " ", false, 1);
 175         if ($dim > 1)
 176                 dimensions_list_cells(_("Dimension")." 2:", 'Dimension2', null, true, " ", false, 2);
 177
 178         submit_cells('Show',_("Show"),'','', 'default');
 179     end_table();
 180
 181         hidden('AccGrp');
 182 }
 183
 184 //----------------------------------------------------------------------------------------------------
 185
 186 function display_profit_and_loss()
 187 {
 188         global $path_to_root, $sel;
 189
 190         if (!isset($_POST['Dimension']))
 191                 $_POST['Dimension'] = 0;
 192         if (!isset($_POST['Dimension2']))
 193                 $_POST['Dimension2'] = 0;
 194         $dimension = $_POST['Dimension'];
 195         $dimension2 = $_POST['Dimension2'];
 196
 197         $from = $_POST['TransFromDate'];
 198         $to = $_POST['TransToDate'];
 199         $compare = $_POST['Compare'];
 200
 201         if (isset($_POST["AccGrp"]) && (strlen($_POST['AccGrp']) > 0))
 202                 $drilldown = 1; // Deeper Level
 203         else
 204                 $drilldown = 0; // Root level
 205
 206         $dec = 0;
 207         $pdec = user_percent_dec();
 208
 209         if ($compare == 0 || $compare == 2)
 210         {
 211                 $end = $to;
 212                 if ($compare == 2)
 213                 {
 214                         $begin = $from;
 215                 }
 216                 else
 217                         $begin = begin_fiscalyear();
 218         }
 219         elseif ($compare == 1)
 220         {
 221                 $begin = add_months($from, -12);
 222                 $end = add_months($to, -12);
 223         }
 224
 225         div_start('pl_tbl');
 226
 227         start_table(TABLESTYLE, "width=50%");
 228
 229         $tableheader =  "<tr>
 230         <td class='tableheader'>" . _("Group/Account Name") . "</td>
 231         <td class='tableheader'>" . _("Period") . "</td>
 232                 <td class='tableheader'>" . $sel[$compare] . "</td>
 233                 <td class='tableheader'>" . _("Achieved %") . "</td>
 234         </tr>";
 235
 236         if (!$drilldown) //Root Level
 237         {
 238                 $parent = -1;
 239                 $classper = 0.0;
 240                 $classacc = 0.0;
 241                 $salesper = 0.0;
 242                 $salesacc = 0.0;
 243
 244                 //Get classes for PL
 245                 $classresult = get_account_classes(false, 0);
 246                 while ($class = db_fetch($classresult))
 247                 {
 248                         $class_per_total = 0;
 249                         $class_acc_total = 0;
 250                         $convert = get_class_type_convert($class["ctype"]);
 251
 252                         //Print Class Name
 253                         table_section_title($class["class_name"],4);
 254                         echo $tableheader;
 255
 256                         //Get Account groups/types under this group/type
 257                         $typeresult = get_account_types(false, $class['cid'], -1);
 258                         while ($accounttype=db_fetch($typeresult))
 259                         {
 260                                 $TypeTotal = display_type($accounttype["id"], $accounttype["name"], $from, $to, $begin, $end, $compare, $convert,
 261                                         $dec, $pdec, $rep, $dimension, $dimension2, $drilldown, $path_to_root);
 262                                 $class_per_total += $TypeTotal[0];
 263                                 $class_acc_total += $TypeTotal[1];
 264
 265                                 if ($TypeTotal[0] != 0 || $TypeTotal[1] != 0 )
 266                                 {
 267                                         $url = "<a href='$path_to_root/gl/inquiry/profit_loss.php?TransFromDate="
 268                                                 . $from . "&TransToDate=" . $to . "&Compare=" . $compare . "&Dimension=" . $dimension . "&Dimension2=" . $dimension2
 269                                                 . "&AccGrp=" . $accounttype['id'] ."'>" . $accounttype['id'] . " " . $accounttype['name'] ."</a>";
 270
 271                                         alt_table_row_color($k);
 272                                         label_cell($url);
 273                                         amount_cell($TypeTotal[0] * $convert);
 274                                         amount_cell($TypeTotal[1] * $convert);
 275                                         amount_cell(Achieve($TypeTotal[0], $TypeTotal[1]));
 276                                         end_row();
 277                                 }
 278                         }
 279
 280                         //Print Class Summary
 281
 282                         start_row("class='inquirybg' style='font-weight:bold'");
 283                         label_cell(_('Total') . " " . $class["class_name"]);
 284                         amount_cell($class_per_total * $convert);
 285                         amount_cell($class_acc_total * $convert);
 286                         amount_cell(Achieve($class_per_total, $class_acc_total));
 287                         end_row();
 288
 289                         $salesper += $class_per_total;
 290                         $salesacc += $class_acc_total;
 291                 }
 292
 293                 start_row("class='inquirybg' style='font-weight:bold'");
 294                 label_cell(_('Calculated Return'));
 295                 amount_cell($salesper *-1);
 296                 amount_cell($salesacc * -1);
 297                 amount_cell(achieve($salesper, $salesacc));
 298                 end_row();
 299
 300         }
 301         else
 302         {
 303                 //Level Pointer : Global variable defined in order to control display of root
 304                 global $levelptr;
 305                 $levelptr = 0;
 306
 307                 $accounttype = get_account_type($_POST["AccGrp"]);
 308                 $classid = $accounttype["class_id"];
 309                 $class = get_account_class($classid);
 310                 $convert = get_class_type_convert($class["ctype"]);
 311
 312                 //Print Class Name
 313                 table_section_title($_POST["AccGrp"] . " " . get_account_type_name($_POST["AccGrp"]),4);
 314                 echo $tableheader;
 315
 316                 $classtotal = display_type($accounttype["id"], $accounttype["name"], $from, $to, $begin, $end, $compare, $convert,
 317                         $dec, $pdec, $rep, $dimension, $dimension2, $drilldown, $path_to_root);
 318
 319         }
 320
 321
 322         end_table(1); // outer table
 323         div_end();
 324 }
 325
 326 //----------------------------------------------------------------------------------------------------
 327
 328 start_form();
 329
 330 inquiry_controls();
 331
 332 display_profit_and_loss();
 333
 334 end_form();
 335
 336 end_page();
 337
 338 ?>