X-Git-Url: https://delta.frontaccounting.com/gitweb/?a=blobdiff_plain;f=reporting%2Frep708.php;h=1da9ce2a39bc7dfd796398c388b0b5ce80df15fd;hb=b14f304532b7d124e79ee2a03d60a0850c8a417d;hp=fc71d67318d84720f01c736f5fb8d48f9815d8a0;hpb=66626dafdf0a397406e36663f3ed15321d09984a;p=fa-stable.git diff --git a/reporting/rep708.php b/reporting/rep708.php index fc71d673..1da9ce2a 100644 --- a/reporting/rep708.php +++ b/reporting/rep708.php @@ -1,22 +1,140 @@ . +***********************************************************************/ +$page_security = 'SA_GLANALYTIC'; // ---------------------------------------------------------------- // $ Revision: 2.0 $ // Creator: Joe Hunt // date_: 2005-05-19 // Title: Trial Balance // ---------------------------------------------------------------- -$path_to_root="../"; +$path_to_root=".."; + +include_once($path_to_root . "/includes/session.inc"); +include_once($path_to_root . "/admin/db/fiscalyears_db.inc"); +include_once($path_to_root . "/includes/ui.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"); + +$pdeb = $pcre = $cdeb = $ccre = $tdeb = $tcre = $pbal = $cbal = $tbal = 0; + +//---------------------------------------------------------------------------------------------------- + +function display_type ($type, $typename, &$dec, &$rep, $from, $to, $zero, $balances, $dimension, $dimension2) +{ + global $pdeb, $pcre, $cdeb, $ccre, $tdeb, $tcre, $pbal, $cbal, $tbal, $SysPrefs; + + $printtitle = 0; //Flag for printing type name + + //Get Accounts directly under this group/type + $accounts = get_gl_accounts(null, null, $type); + + $begin = get_fiscalyear_begin_for_date($from); + if (date1_greater_date2($begin, $from)) + $begin = $from; + $begin = add_days($begin, -1); + while ($account=db_fetch($accounts)) + { + //Print Type Title if it has atleast one non-zero account + if (!$printtitle) + { + $rep->row -= 4; + $rep->TextCol(0, 8, _("Group")." - ".$type ." - ".$typename); + $printtitle = 1; + $rep->row -= 4; + $rep->Line($rep->row); + $rep->NewLine(); + } + + // 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"], $dimension, $dimension2, $begin, $begin, false, true); + $offset = min($open['debit'], $open['credit']); + } else + $offset = 0; -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"); + $prev = get_balance($account["account_code"], $dimension, $dimension2, $begin, $from, false, false); + $curr = get_balance($account["account_code"], $dimension, $dimension2, $from, $to, true, true); + $tot = get_balance($account["account_code"], $dimension, $dimension2, $begin, $to, false, true); + + if ($zero == 0 && !$prev['balance'] && !$curr['balance'] && !$tot['balance']) + continue; + $rep->TextCol(0, 1, $account['account_code']); + $rep->TextCol(1, 2, $account['account_name']); + if ($balances != 0) + { + if ($prev['balance'] >= 0.0) + $rep->AmountCol(2, 3, $prev['balance'], $dec); + else + $rep->AmountCol(3, 4, abs($prev['balance']), $dec); + if ($curr['balance'] >= 0.0) + $rep->AmountCol(4, 5, $curr['balance'], $dec); + else + $rep->AmountCol(5, 6, abs($curr['balance']), $dec); + if ($tot['balance'] >= 0.0) + $rep->AmountCol(6, 7, $tot['balance'], $dec); + else + $rep->AmountCol(7, 8, abs($tot['balance']), $dec); + } + else + { + $rep->AmountCol(2, 3, $prev['debit']-$offset, $dec); + $rep->AmountCol(3, 4, $prev['credit']-$offset, $dec); + $rep->AmountCol(4, 5, $curr['debit'], $dec); + $rep->AmountCol(5, 6, $curr['credit'], $dec); + $rep->AmountCol(6, 7, $tot['debit']-$offset, $dec); + $rep->AmountCol(7, 8, $tot['credit']-$offset, $dec); + $pdeb += $prev['debit']-$offset; + $pcre += $prev['credit']-$offset; + $cdeb += $curr['debit']; + $ccre += $curr['credit']; + $tdeb += $tot['debit']-$offset; + $tcre += $tot['credit']-$offset; + } + + $pbal += $prev['balance']; + $cbal += $curr['balance']; + $tbal += $tot['balance']; + $rep->NewLine(); + + if ($rep->row < $rep->bottomMargin + $rep->lineHeight) + { + $rep->Line($rep->row - 2); + $rep->NewPage(); + } + } + + //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) + { + $rep->row -= 4; + $rep->TextCol(0, 8, _("Group")." - ".$type ." - ".$typename); + $printtitle = 1; + $rep->row -= 4; + $rep->Line($rep->row); + $rep->NewLine(); + } + display_type($accounttype["id"], $accounttype["name"].' ('.$typename.')', $dec, $rep, $from, $to, $zero, $balances, $dimension, $dimension2); + } +} //---------------------------------------------------------------------------------------------------- -// trial_inquiry_controls(); print_trial_balance(); //---------------------------------------------------------------------------------------------------- @@ -24,40 +142,52 @@ print_trial_balance(); function print_trial_balance() { global $path_to_root; + global $pdeb, $pcre, $cdeb, $ccre, $tdeb, $tcre, $pbal, $cbal, $tbal; - include_once($path_to_root . "reporting/includes/pdf_report.inc"); $dim = get_company_pref('use_dimension'); $dimension = $dimension2 = 0; $from = $_POST['PARAM_0']; $to = $_POST['PARAM_1']; $zero = $_POST['PARAM_2']; + $balances = $_POST['PARAM_3']; if ($dim == 2) { - $dimension = $_POST['PARAM_3']; - $dimension2 = $_POST['PARAM_4']; - $comments = $_POST['PARAM_5']; + $dimension = $_POST['PARAM_4']; + $dimension2 = $_POST['PARAM_5']; + $comments = $_POST['PARAM_6']; + $orientation = $_POST['PARAM_7']; + $destination = $_POST['PARAM_8']; } else if ($dim == 1) { - $dimension = $_POST['PARAM_3']; - $comments = $_POST['PARAM_4']; + $dimension = $_POST['PARAM_4']; + $comments = $_POST['PARAM_5']; + $orientation = $_POST['PARAM_6']; + $destination = $_POST['PARAM_7']; } else { - $comments = $_POST['PARAM_3']; + $comments = $_POST['PARAM_4']; + $orientation = $_POST['PARAM_5']; + $destination = $_POST['PARAM_6']; } + 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'); $dec = user_price_dec(); - $cols2 = array(0, 50, 230, 330, 430, 530); + $cols2 = array(0, 50, 190, 310, 430, 530); //-------------0--1---2----3----4----5-- $headers2 = array('', '', _('Brought Forward'), _('This Period'), _('Balance')); $aligns2 = array('left', 'left', 'left', 'left', 'left'); - $cols = array(0, 50, 200, 250, 300, 350, 400, 450, 500, 550); - //------------0--1---2----3----4----5----6----7----8----9-- + $cols = array(0, 50, 150, 210, 270, 330, 390, 450, 510, 570); + //------------0--1---2----3----4----5----6----7----8-- $headers = array(_('Account'), _('Account Name'), _('Debit'), _('Credit'), _('Debit'), _('Credit'), _('Debit'), _('Credit')); @@ -73,7 +203,7 @@ function print_trial_balance() 3 => array('text' => _('Dimension')." 2", 'from' => get_dimension_string($dimension2), 'to' => '')); } - else if ($dim == 1) + elseif ($dim == 1) { $params = array( 0 => $comments, 1 => array('text' => _('Period'),'from' => $from, 'to' => $to), @@ -86,82 +216,72 @@ function print_trial_balance() 1 => array('text' => _('Period'),'from' => $from, 'to' => $to)); } - $rep = new FrontReport(_('Trial Balance'), "TrialBalance.pdf", user_pagesize()); + $rep = new FrontReport(_('Trial Balance'), "TrialBalance", user_pagesize(), 9, $orientation); + if ($orientation == 'L') + { + recalculate_cols($cols); + recalculate_cols($cols2); + } $rep->Font(); $rep->Info($params, $cols, $headers, $aligns, $cols2, $headers2, $aligns2); - $rep->Header(); - $totprev = $totcurr = 0.0; + $rep->NewPage(); - $accounts = get_gl_accounts(); - - while ($account=db_fetch($accounts)) + $classresult = get_account_classes(false); + while ($class = db_fetch($classresult)) { - - if (is_account_balancesheet($account["account_code"])) - $begin = ""; - else - { - $begin = begin_fiscalyear(); - if (date1_greater_date2($begin, $from)) - $begin = $from; - $begin = add_days($begin, -1); - } - - $prev_balance = get_gl_balance_from_to($begin, $from, $account["account_code"], $dimension, $dimension2); - - $curr_balance = get_gl_trans_from_to($from, $to, $account["account_code"], $dimension, $dimension2); - - if ($zero == 0 && !$prev_balance && !$curr_balance) - continue; - $totprev += $prev_balance; - $totcurr += $curr_balance; - $rep->TextCol(0, 1, $account['account_code']); - $rep->TextCol(1, 2, $account['account_name']); - - if ($prev_balance >= 0.0) - $rep->TextCol(2, 3, number_format2(abs($prev_balance), $dec)); - else - $rep->TextCol(3, 4, number_format2(abs($prev_balance), $dec)); - if ($curr_balance >= 0.0) - $rep->TextCol(4, 5, number_format2(abs($curr_balance), $dec)); - else - $rep->TextCol(5, 6, number_format2(abs($curr_balance), $dec)); - if ($curr_balance + $prev_balance >= 0.0) - $rep->TextCol(6, 7, number_format2(abs($curr_balance + $prev_balance), $dec)); - else - $rep->TextCol(7, 8, number_format2(abs($curr_balance + $prev_balance), $dec)); - + $rep->Font('bold'); + $rep->TextCol(0, 1, $class['cid']); + $rep->TextCol(1, 4, $class['class_name']); + $rep->Font(); $rep->NewLine(); - if ($rep->row < $rep->bottomMargin + $rep->lineHeight) + //Get Account groups/types under this group/type with no parents + $typeresult = get_account_types(false, $class['cid'], -1); + while ($accounttype=db_fetch($typeresult)) { - $rep->Line($rep->row - 2); - $rep->Header(); + display_type($accounttype["id"], $accounttype["name"], $dec, $rep, $from, $to, $zero, $balances, $dimension, $dimension2); } + $rep->NewLine(); } $rep->Line($rep->row); $rep->NewLine(); $rep->Font('bold'); + if ($balances == 0) + { + $rep->TextCol(0, 2, _("Total")); + $rep->AmountCol(2, 3, $pdeb, $dec); + $rep->AmountCol(3, 4, $pcre, $dec); + $rep->AmountCol(4, 5, $cdeb, $dec); + $rep->AmountCol(5, 6, $ccre, $dec); + $rep->AmountCol(6, 7, $tdeb, $dec); + $rep->AmountCol(7, 8, $tcre, $dec); + $rep->NewLine(); + } $rep->TextCol(0, 2, _("Ending Balance")); - if ($totprev >= 0.0) - $rep->TextCol(2, 3, number_format2(abs($totprev), $dec)); + if ($pbal >= 0.0) + $rep->AmountCol(2, 3, $pbal, $dec); else - $rep->TextCol(3, 4, number_format2(abs($totprev), $dec)); - if ($totcurr >= 0.0) - $rep->TextCol(4, 5, number_format2(abs($totcurr), $dec)); + $rep->AmountCol(3, 4, abs($pbal), $dec); + if ($cbal >= 0.0) + $rep->AmountCol(4, 5, $cbal, $dec); else - $rep->TextCol(5, 6, number_format2(abs($totcurr), $dec)); - if ($totcurr + $totprev >= 0.0) - $rep->TextCol(6, 7, number_format2(abs($totcurr + $totprev), $dec)); + $rep->AmountCol(5, 6, abs($cbal), $dec); + if ($tbal >= 0.0) + $rep->AmountCol(6, 7, $tbal, $dec); else - $rep->TextCol(7, 8, number_format2(abs($totcurr + $totprev), $dec)); - - $rep->Line($rep->row - 6); - + $rep->AmountCol(7, 8, abs($tbal), $dec); + $rep->NewLine(); + + $rep->Line($rep->row + 10); + if (($pbal = round2($pbal, $dec)) != 0.0 && $dimension == 0 && $dimension2 == 0) + { + $rep->NewLine(2); + $rep->Font(); + $rep->TextCol(0, 8, _("The Opening Balance is not in balance, probably due to a non closed Previous Fiscalyear.")); + } $rep->End(); } -?> \ No newline at end of file