-$pdeb = $pcre = $cdeb = $ccre = $tdeb = $tcre = $pbal = $cbal = $tbal = 0;\r
-$cls_pdeb = $cls_pcre = $cls_cdeb = $cls_ccre = $cls_tdeb = $cls_tcre = $cls_pbal = $cls_cbal = $cls_tbal = 0;\r
-$grp_pdeb = $grp_pcre = $grp_cdeb = $grp_ccre = $grp_tdeb = $grp_tcre = $grp_pbal = $grp_cbal = $grp_tbal = 0;\r
-\r
-//----------------------------------------------------------------------------------------------------\r
-\r
-function display_type ($type, $typename, &$dec, &$rep, $from, $to, $zero, $balances, $dimension, $dimension2)\r
-{\r
- global $pdeb, $pcre, $cdeb, $ccre, $tdeb, $tcre, $pbal, $cbal, $tbal;\r
- \r
- $printtitle = 0; //Flag for printing type name \r
- \r
- //Get Accounts directly under this group/type\r
- $accounts = get_gl_accounts(null, null, $type); \r
- \r
- $pdeb = $pcre = $cdeb = $ccre = $tdeb = $tcre = $pbal = $cbal = $tbal = 0;\r
-\r
- $begin = begin_fiscalyear();\r
- if (date1_greater_date2($begin, $from))\r
- $begin = $from;\r
- $begin = add_days($begin, -1);\r
- while ($account=db_fetch($accounts))\r
- {\r
- //Print Type Title if it has atleast one non-zero account \r
- if (!$printtitle)\r
- { \r
- $rep->row -= 4;\r
- $rep->TextCol(0, 8, _("Group")." - ".$type ." - ".$typename); \r
- $printtitle = 1;\r
- $rep->row -= 4;\r
- $rep->Line($rep->row);\r
- $rep->NewLine(); \r
- }\r
- \r
- $prev = get_balance($account["account_code"], $dimension, $dimension2, $begin, $from, false, false);\r
- $curr = get_balance($account["account_code"], $dimension, $dimension2, $from, $to, true, true);\r
- $tot = get_balance($account["account_code"], $dimension, $dimension2, $begin, $to, false, true);\r
-\r
- if ($zero == 0 && !$prev['balance'] && !$curr['balance'] && !$tot['balance'])\r
- continue;\r
- $rep->TextCol(0, 1, $account['account_code']);\r
- $rep->TextCol(1, 2, $account['account_name']);\r
- if ($balances != 0)\r
- {\r
- if ($prev['balance'] >= 0.0)\r
- $rep->AmountCol(2, 3, $prev['balance'], $dec);\r
- else\r
- $rep->AmountCol(3, 4, abs($prev['balance']), $dec);\r
- if ($curr['balance'] >= 0.0)\r
- $rep->AmountCol(4, 5, $curr['balance'], $dec);\r
- else\r
- $rep->AmountCol(5, 6, abs($curr['balance']), $dec);\r
- if ($tot['balance'] >= 0.0)\r
- $rep->AmountCol(6, 7, $tot['balance'], $dec);\r
- else\r
- $rep->AmountCol(7, 8, abs($tot['balance']), $dec);\r
- }\r
- else\r
- {\r
- $rep->AmountCol(2, 3, $prev['debit'], $dec);\r
- $rep->AmountCol(3, 4, $prev['credit'], $dec);\r
- $rep->AmountCol(4, 5, $curr['debit'], $dec);\r
- $rep->AmountCol(5, 6, $curr['credit'], $dec);\r
- $rep->AmountCol(6, 7, $tot['debit'], $dec);\r
- $rep->AmountCol(7, 8, $tot['credit'], $dec);\r
- $pdeb += $prev['debit'];\r
- $pcre += $prev['credit'];\r
- $cdeb += $curr['debit'];\r
- $ccre += $curr['credit'];\r
- $tdeb += $tot['debit'];\r
- $tcre += $tot['credit'];\r
- } \r
- $pbal += $prev['balance'];\r
- $cbal += $curr['balance'];\r
- $tbal += $tot['balance'];\r
- $rep->NewLine();\r
-\r
- if ($rep->row < $rep->bottomMargin + $rep->lineHeight)\r
- {\r
- $rep->Line($rep->row - 2);\r
- $rep->NewPage();\r
- }\r
- }\r
- \r
- //Get Account groups/types under this group/type\r
- $result = get_account_types(false, false, $type);\r
- while ($accounttype=db_fetch($result))\r
- {\r
- //Print Type Title if has sub types and not previously printed\r
- if (!$printtitle)\r
- {\r
- $rep->row -= 4;\r
- $rep->TextCol(0, 8, _("Group")." - ".$type ." - ".$typename); \r
- $printtitle = 1;\r
- $rep->row -= 4;\r
- $rep->Line($rep->row);\r
- $rep->NewLine(); \r
- }\r
- display_type($accounttype["id"], $accounttype["name"].' ('.$typename.')', $dec, $rep, $from, $to, $zero, $balances, $dimension, $dimension2);\r
- }\r
-}\r
-\r
+$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;
+
+ $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);
+ }
+}
+