X-Git-Url: https://delta.frontaccounting.com/gitweb/?a=blobdiff_plain;f=reporting%2Frep707.php;h=19a01cabbfe64952f350729c9a8839aa75d77319;hb=7e6e0807990447d2977b970c3a0fd28dc9250194;hp=5dd9c1b2e282484590a78c4f4885f381820cec11;hpb=fa3dd600a4b60b528e4c69519c856125e6c3f9bf;p=fa-stable.git diff --git a/reporting/rep707.php b/reporting/rep707.php index 5dd9c1b2..19a01cab 100644 --- a/reporting/rep707.php +++ b/reporting/rep707.php @@ -9,10 +9,10 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the License here . ***********************************************************************/ -$page_security = 2; +$page_security = 'SA_GLANALYTIC'; // ---------------------------------------------------------------- // $ Revision: 2.0 $ -// Creator: Joe Hunt +// Creator: Joe Hunt, Chaitanya for the recursive version 2009-02-05. // date_: 2005-05-19 // Title: Profit and Loss Statement // ---------------------------------------------------------------- @@ -22,9 +22,114 @@ include_once($path_to_root . "/includes/session.inc"); include_once($path_to_root . "/includes/date_functions.inc"); include_once($path_to_root . "/includes/data_checks.inc"); include_once($path_to_root . "/gl/includes/gl_db.inc"); +include_once($path_to_root . "/admin/db/tags_db.inc"); //---------------------------------------------------------------------------------------------------- +function display_type ($type, $typename, $from, $to, $begin, $end, $compare, $convert, &$dec, &$pdec, &$rep, $dimension, $dimension2, + $tags, &$pg, $graphics) +{ + $code_per_balance = 0; + $code_acc_balance = 0; + $per_balance_total = 0; + $acc_balance_total = 0; + $totals_arr = array(); + + $printtitle = 0; //Flag for printing type name + + //Get Accounts directly under this group/type + $result = get_gl_accounts(null, null, $type); + while ($account=db_fetch($result)) + { + if ($tags != -1 && is_array($tags) && $tags[0] != false) + { + if (!is_record_in_tags($tags, TAG_ACCOUNT, $account['account_code'])) + continue; + } + $per_balance = get_gl_trans_from_to($from, $to, $account["account_code"], $dimension, $dimension2); + + if ($compare == 2) + $acc_balance = get_budget_trans_from_to($begin, $end, $account["account_code"], $dimension, $dimension2); + else + $acc_balance = get_gl_trans_from_to($begin, $end, $account["account_code"], $dimension, $dimension2); + if (!$per_balance && !$acc_balance) + continue; + + //Print Type Title if it has atleast one non-zero account + if (!$printtitle) + { + $printtitle = 1; + $rep->row -= 4; + $rep->TextCol(0, 5, $typename); + $rep->row -= 4; + $rep->Line($rep->row); + $rep->NewLine(); + } + + $rep->TextCol(0, 1, $account['account_code']); + $rep->TextCol(1, 2, $account['account_name']); + + $rep->AmountCol(2, 3, $per_balance * $convert, $dec); + $rep->AmountCol(3, 4, $acc_balance * $convert, $dec); + $rep->AmountCol(4, 5, Achieve($per_balance, $acc_balance), $pdec); + + $rep->NewLine(); + + if ($rep->row < $rep->bottomMargin + 3 * $rep->lineHeight) + { + $rep->Line($rep->row - 2); + $rep->NewPage(); + } + + $code_per_balance += $per_balance; + $code_acc_balance += $acc_balance; + } + + //Get Account groups/types under this group/type + $result = get_account_types(false, false, $type); + while ($accounttype=db_fetch($result)) + { + //Print Type Title if has sub types and not previously printed + if (!$printtitle) + { + $printtitle = 1; + $rep->row -= 4; + $rep->TextCol(0, 5, $typename); + $rep->row -= 4; + $rep->Line($rep->row); + $rep->NewLine(); + } + + $totals_arr = display_type($accounttype["id"], $accounttype["name"], $from, $to, $begin, $end, $compare, $convert, $dec, + $pdec, $rep, $dimension, $dimension2, $tags, $pg, $graphics); + $per_balance_total += $totals_arr[0]; + $acc_balance_total += $totals_arr[1]; + } + + //Display Type Summary if total is != 0 OR head is printed (Needed in case of unused hierarchical COA) + if (($code_per_balance + $per_balance_total + $code_acc_balance + $acc_balance_total) != 0 || $printtitle) + { + $rep->row += 6; + $rep->Line($rep->row); + $rep->NewLine(); + $rep->TextCol(0, 2, _('Total') . " " . $typename); + $rep->AmountCol(2, 3, ($code_per_balance + $per_balance_total) * $convert, $dec); + $rep->AmountCol(3, 4, ($code_acc_balance + $acc_balance_total) * $convert, $dec); + $rep->AmountCol(4, 5, Achieve(($code_per_balance + $per_balance_total), ($code_acc_balance + $acc_balance_total)), $pdec); + if ($graphics) + { + $pg->x[] = $typename; + $pg->y[] = abs($code_per_balance + $per_balance_total); + $pg->z[] = abs($code_acc_balance + $acc_balance_total); + } + $rep->NewLine(); + } + + $totals_arr[0] = $code_per_balance + $per_balance_total; + $totals_arr[1] = $code_acc_balance + $acc_balance_total; + return $totals_arr; +} + print_profit_and_loss_statement(); //---------------------------------------------------------------------------------------------------- @@ -45,7 +150,7 @@ function Achieve($d1, $d2) function print_profit_and_loss_statement() { - global $comp_path, $path_to_root; + global $path_to_root, $SysPrefs; $dim = get_company_pref('use_dimension'); $dimension = $dimension2 = 0; @@ -57,36 +162,49 @@ function print_profit_and_loss_statement() { $dimension = $_POST['PARAM_3']; $dimension2 = $_POST['PARAM_4']; - $graphics = $_POST['PARAM_5']; - $comments = $_POST['PARAM_6']; - $destination = $_POST['PARAM_7']; + $tags = (isset($_POST['PARAM_5']) ? $_POST['PARAM_5'] : -1); + $decimals = $_POST['PARAM_6']; + $graphics = $_POST['PARAM_7']; + $comments = $_POST['PARAM_8']; + $orientation = $_POST['PARAM_9']; + $destination = $_POST['PARAM_10']; } - else if ($dim == 1) + elseif ($dim == 1) { $dimension = $_POST['PARAM_3']; - $graphics = $_POST['PARAM_4']; - $comments = $_POST['PARAM_5']; - $destination = $_POST['PARAM_6']; + $tags = (isset($_POST['PARAM_4']) ? $_POST['PARAM_4'] : -1); + $decimals = $_POST['PARAM_5']; + $graphics = $_POST['PARAM_6']; + $comments = $_POST['PARAM_7']; + $orientation = $_POST['PARAM_8']; + $destination = $_POST['PARAM_9']; } else { - $graphics = $_POST['PARAM_3']; - $comments = $_POST['PARAM_4']; - $destination = $_POST['PARAM_5']; + $tags = (isset($_POST['PARAM_3']) ? $_POST['PARAM_3'] : -1); + $decimals = $_POST['PARAM_4']; + $graphics = $_POST['PARAM_5']; + $comments = $_POST['PARAM_6']; + $orientation = $_POST['PARAM_7']; + $destination = $_POST['PARAM_8']; } 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'); if ($graphics) { include_once($path_to_root . "/reporting/includes/class.graphic.inc"); $pg = new graph(); } - $dec = 0; + if (!$decimals) + $dec = 0; + else + $dec = user_price_dec(); $pdec = user_percent_dec(); - $cols = array(0, 50, 200, 350, 425, 500); + $cols = array(0, 60, 200, 350, 425, 500); //------------0--1---2----3----4----5-- $headers = array(_('Account'), _('Account Name'), _('Period'), _('Accumulated'), _('Achieved %')); @@ -100,19 +218,22 @@ function print_profit_and_loss_statement() 2 => array('text' => _('Dimension')." 1", 'from' => get_dimension_string($dimension), 'to' => ''), 3 => array('text' => _('Dimension')." 2", - 'from' => get_dimension_string($dimension2), 'to' => '')); + 'from' => get_dimension_string($dimension2), 'to' => ''), + 4 => array('text' => _('Tags'), 'from' => get_tag_names($tags), 'to' => '')); } - else if ($dim == 1) + elseif ($dim == 1) { $params = array( 0 => $comments, 1 => array('text' => _('Period'),'from' => $from, 'to' => $to), 2 => array('text' => _('Dimension'), - 'from' => get_dimension_string($dimension), 'to' => '')); + 'from' => get_dimension_string($dimension), 'to' => ''), + 3 => array('text' => _('Tags'), 'from' => get_tag_names($tags), 'to' => '')); } else { $params = array( 0 => $comments, - 1 => array('text' => _('Period'),'from' => $from, 'to' => $to)); + 1 => array('text' => _('Period'),'from' => $from, 'to' => $to), + 2 => array('text' => _('Tags'), 'from' => get_tag_names($tags), 'to' => '')); } @@ -131,243 +252,97 @@ function print_profit_and_loss_statement() { $begin = add_months($from, -12); $end = add_months($to, -12); + if (date_comp($to, end_month($to)) == 0) // compensate for leap years. If to-date equal end month + $end = end_month($end); // then the year-1 should also be end month $headers[3] = _('Period Y-1'); } - $rep = new FrontReport(_('Profit and Loss Statement'), "ProfitAndLoss", user_pagesize()); + $rep = new FrontReport(_('Profit and Loss Statement'), "ProfitAndLoss", user_pagesize(), 9, $orientation); + if ($orientation == 'L') + recalculate_cols($cols); $rep->Font(); $rep->Info($params, $cols, $headers, $aligns); - $rep->Header(); + $rep->NewPage(); - $classname = ''; - - $typeper = array(0,0,0,0,0,0,0,0,0,0); - $typeacc = array(0,0,0,0,0,0,0,0,0,0); - $typename = array('','','','','','','','','',''); - $closing = array(-1,-1,-1,-1,-1,-1,-1,-1,-1,-1); - $level = 0; - - $classper = 0.0; - $classacc = 0.0; $salesper = 0.0; - $salesacc = 0.0; - $last = -1; - - $accounts = get_gl_accounts_all(0); + $salesacc = 0.0; - while ($account=db_fetch($accounts)) + $classresult = get_account_classes(false, 0); + while ($class = db_fetch($classresult)) { - if ($account['account_code'] == null && $account['parent'] > 0) - continue; - - if ($account['account_code'] != null) - { - $per_balance = get_gl_trans_from_to($from, $to, $account["account_code"], $dimension, $dimension2); - - if ($compare == 2) - $acc_balance = get_budget_trans_from_to($begin, $end, $account["account_code"], $dimension, $dimension2); - else - $acc_balance = get_gl_trans_from_to($begin, $end, $account["account_code"], $dimension, $dimension2); - if (!$per_balance && !$acc_balance) - continue; - } - - if ($account['AccountClassName'] != $classname) - { - if ($classname != '') - { - $closeclass = true; - } - } - - if ($account['AccountTypeName'] != $typename[$level]) - { - if ($typename[$level] != '') - { - for ( ; $level >= 0, $typename[$level] != ''; $level--) - { - if ($account['parent'] == $closing[$level] || $account['parent'] < $last) - { - $rep->row += 6; - $rep->Line($rep->row); - $rep->NewLine(); - $rep->TextCol(0, 2, _('Total') . " " . $typename[$level]); - $rep->AmountCol(2, 3, $typeper[$level], $dec); - $rep->AmountCol(3, 4, $typeacc[$level], $dec); - $rep->AmountCol(4, 5, Achieve($typeper[$level], $typeacc[$level]), $pdec); - if ($graphics) - { - $pg->x[] = $typename[$level]; - $pg->y[] = abs($typeper[$level]); - $pg->z[] = abs($typeacc[$level]); - } - $typeper[$level] = $typeacc[$level] = 0.0; - } - else - break; - $rep->NewLine(); - } - //$rep->NewLine(); - if ($closeclass) - { - $rep->row += 6; - $rep->Line($rep->row); - $rep->NewLine(); - $rep->Font('bold'); - $rep->TextCol(0, 2, _('Total') . " " . $classname); - $rep->AmountCol(2, 3, $classper, $dec); - $rep->AmountCol(3, 4, $classacc, $dec); - $rep->AmountCol(4, 5, Achieve($classper, $classacc), $pdec); - $rep->Font(); - $salesper += $classper; - $salesacc += $classacc; - $classper = $classacc = 0.0; - $rep->NewLine(2); - $closeclass = false; - } - } - if ($account['AccountClassName'] != $classname) - { - $rep->Font('bold'); - $rep->TextCol(0, 5, $account['AccountClassName']); - $rep->Font(); - $rep->NewLine(); - } - $level++; - if ($account['parent'] != $last) - $last = $account['parent']; - $typename[$level] = $account['AccountTypeName']; - $closing[$level] = $account['parent']; - $rep->row -= 4; - $rep->TextCol(0, 5, $account['AccountTypeName']); - $rep->row -= 4; - $rep->Line($rep->row); - $rep->NewLine(); - } - $classname = $account['AccountClassName']; - - if ($account['account_code'] != null) - { - $per_balance *= -1; - $acc_balance *= -1; + $class_per_total = 0; + $class_acc_total = 0; + $convert = get_class_type_convert($class["ctype"]); - for ($i = 0; $i <= $level; $i++) - { - $typeper[$i] += $per_balance; - $typeacc[$i] += $acc_balance; - } - $classper += $per_balance; - $classacc += $acc_balance; - $rep->TextCol(0, 1, $account['account_code']); - $rep->TextCol(1, 2, $account['account_name']); - - $rep->AmountCol(2, 3, $per_balance, $dec); - $rep->AmountCol(3, 4, $acc_balance, $dec); - $rep->AmountCol(4, 5, Achieve($per_balance, $acc_balance), $pdec); - - $rep->NewLine(); - - if ($rep->row < $rep->bottomMargin + 3 * $rep->lineHeight) - { - $rep->Line($rep->row - 2); - $rep->Header(); - } - } - } - if ($account['AccountClassName'] != $classname) - { - if ($classname != '') + //Print Class Name + $rep->Font('bold'); + $rep->TextCol(0, 5, $class["class_name"]); + $rep->Font(); + $rep->NewLine(); + + //Get Account groups/types under this group/type with no parents + $typeresult = get_account_types(false, $class['cid'], -1); + while ($accounttype=db_fetch($typeresult)) { - $closeclass = true; + $classtotal = display_type($accounttype["id"], $accounttype["name"], $from, $to, $begin, $end, $compare, $convert, $dec, + $pdec, $rep, $dimension, $dimension2, $tags, $pg, $graphics); + $class_per_total += $classtotal[0]; + $class_acc_total += $classtotal[1]; } + + //Print Class Summary + $rep->row += 6; + $rep->Line($rep->row); + $rep->NewLine(); + $rep->Font('bold'); + $rep->TextCol(0, 2, _('Total') . " " . $class["class_name"]); + $rep->AmountCol(2, 3, $class_per_total * $convert, $dec); + $rep->AmountCol(3, 4, $class_acc_total * $convert, $dec); + $rep->AmountCol(4, 5, Achieve($class_per_total, $class_acc_total), $pdec); + $rep->Font(); + $rep->NewLine(2); + + $salesper += $class_per_total; + $salesacc += $class_acc_total; } - if ($account['AccountTypeName'] != $typename[$level]) + + $rep->Font('bold'); + $rep->TextCol(0, 2, _('Calculated Return')); + $rep->AmountCol(2, 3, $salesper *-1, $dec); // always convert + $rep->AmountCol(3, 4, $salesacc * -1, $dec); + $rep->AmountCol(4, 5, Achieve($salesper, $salesacc), $pdec); + if ($graphics) { - if ($typename[$level] != '') - { - for ( ; $level >= 0, $typename[$level] != ''; $level--) - { - if ($account['parent'] == $closing[$level] || $account['parent'] < $last) - { - $rep->row += 6; - $rep->Line($rep->row); - $rep->NewLine(); - $rep->TextCol(0, 2, _('Total') . " " . $typename[$level]); - $rep->AmountCol(2, 3, $typeper[$level], $dec); - $rep->AmountCol(3, 4, $typeacc[$level], $dec); - $rep->AmountCol(4, 5, Achieve($typeper[$level], $typeacc[$level]), $pdec); - if ($graphics) - { - $pg->x[] = $typename[$level]; - $pg->y[] = abs($typeper[$level]); - $pg->z[] = abs($typeacc[$level]); - } - $typeper[$level] = $typeacc[$level] = 0.0; - } - else - break; - $rep->NewLine(); - } - //$rep->NewLine(); - if ($closeclass) - { - $rep->Line($rep->row + 6); - $calculateper = $salesper + $classper; - $calculateacc = $salesacc + $classacc; - $rep->row += 6; - $rep->Line($rep->row); - $rep->NewLine(); - - $rep->Font('bold'); - $rep->TextCol(0, 2, _('Total') . " " . $classname); - $rep->AmountCol(2, 3, $classper, $dec); - $rep->AmountCol(3, 4, $classacc, $dec); - $rep->AmountCol(4, 5, Achieve($classper, $classacc), $pdec); - - $rep->NewLine(2); - $rep->TextCol(0, 2, _('Calculated Return')); - $rep->AmountCol(2, 3, $calculateper, $dec); - $rep->AmountCol(3, 4, $calculateacc, $dec); - $rep->AmountCol(4, 5, Achieve($calculateper, $calculateacc), $pdec); - if ($graphics) - { - $pg->x[] = _('Calculated Return'); - $pg->y[] = abs($calculateper); - $pg->z[] = abs($calculateacc); - } - - $rep->Font(); - - $rep->NewLine(); - } - } + $pg->x[] = _('Calculated Return'); + $pg->y[] = abs($salesper); + $pg->z[] = abs($salesacc); } + $rep->Font(); + $rep->NewLine(); $rep->Line($rep->row); if ($graphics) { - global $decseps, $graph_skin; $pg->title = $rep->title; $pg->axis_x = _("Group"); $pg->axis_y = _("Amount"); $pg->graphic_1 = $headers[2]; $pg->graphic_2 = $headers[3]; $pg->type = $graphics; - $pg->skin = $graph_skin; + $pg->skin = $SysPrefs->graph_skin; $pg->built_in = false; - $pg->fontfile = $path_to_root . "/reporting/fonts/Vera.ttf"; - $pg->latin_notation = ($decseps[$_SESSION["wa_current_user"]->prefs->dec_sep()] != "."); - $filename = $comp_path.'/'.user_company(). "/pdf_files/test.png"; + $pg->latin_notation = ($SysPrefs->decseps[user_dec_sep()] != "."); + $filename = company_path(). "/pdf_files/". random_id().".png"; $pg->display($filename, true); $w = $pg->width / 1.5; $h = $pg->height / 1.5; $x = ($rep->pageWidth - $w) / 2; $rep->NewLine(2); if ($rep->row - $h < $rep->bottomMargin) - $rep->Header(); + $rep->NewPage(); $rep->AddImage($filename, $x, $rep->row - $h, $w, $h); } + $rep->End(); } -?> \ No newline at end of file