Search options (Page 23 of 26)

With Few modification we can have Group Total in Trial Balance. This is very needful in analyzing groups. Below is the code

<?php
/**********************************************************************
    Copyright (C) FrontAccounting, LLC.
    Released under the terms of the GNU General Public License, GPL,
    as published by the Free Software Foundation, either version 3
    of the License, or (at your option) any later version.
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
    See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
***********************************************************************/
$page_security = 'SA_GLANALYTIC';
$path_to_root="../..";

include_once($path_to_root . "/includes/session.inc");

include_once($path_to_root . "/includes/ui.inc");
include_once($path_to_root . "/includes/date_functions.inc");
include_once($path_to_root . "/admin/db/fiscalyears_db.inc");
include_once($path_to_root . "/includes/data_checks.inc");

include_once($path_to_root . "/gl/includes/gl_db.inc");

$js = "";
if (user_use_date_picker())
    $js = get_js_date_picker();

page(_($help_context = "Trial Balance"), false, false, "", $js);

$k = 0;
$pdeb = $pcre = $cdeb = $ccre = $tdeb = $tcre = $pbal = $cbal = $tbal = 0;

//----------------------------------------------------------------------------------------------------
// Ajax updates
//
if (get_post('Show'))
{
    $Ajax->activate('balance_tbl');
}

function gl_inquiry_controls()
{
    $dim = get_company_pref('use_dimension');
    start_form();

    start_table(TABLESTYLE_NOBORDER);

    $date = today();
    if (!isset($_POST['TransToDate']))
        $_POST['TransToDate'] = end_month($date);
    if (!isset($_POST['TransFromDate']))
        $_POST['TransFromDate'] = add_days(end_month($date), -user_transaction_days());
    date_cells(_("From:"), 'TransFromDate');
    date_cells(_("To:"), 'TransToDate');
    if ($dim >= 1)
        dimensions_list_cells(_("Dimension")." 1:", 'Dimension', null, true, " ", false, 1);
    if ($dim > 1)
        dimensions_list_cells(_("Dimension")." 2:", 'Dimension2', null, true, " ", false, 2);
    check_cells(_("No zero values"), 'NoZero', null);
    check_cells(_("Only balances"), 'Balance', null);

    submit_cells('Show',_("Show"),'','', 'default');
    end_table();
    end_form();
}

//----------------------------------------------------------------------------------------------------

function display_trial_balance($type, $typename)
{
    global $path_to_root, $SysPrefs,
         $k, $pdeb, $pcre, $cdeb, $ccre, $tdeb, $tcre, $pbal, $cbal, $tbal;

    $printtitle = 0; //Flag for printing type name

    $k = 0;

    //Get Accounts directly under this group/type
    $accounts = get_gl_accounts(null, null, $type);

    $begin = get_fiscalyear_begin_for_date($_POST['TransFromDate']);
    if (date1_greater_date2($begin, $_POST['TransFromDate']))
        $begin = $_POST['TransFromDate'];
    $begin = add_days($begin, -1);

    $Apdeb=$pdeb;
        $Apcre=$pcre;
        $Acdeb=$cdeb;
        $Accre=$ccre;
        $Atdeb=$tdeb;
        $Atcre=$tcre;
        $Apbal=$pbal;
        $Acbal=$cbal;
        $Atbal=$tbal;

    while ($account = db_fetch($accounts))
    {
        //Print Type Title if it has atleast one non-zero account
        if (!$printtitle)
        {
            start_row("class='inquirybg' style='font-weight:bold'");
            label_cell(_("Group")." - ".$type ." - ".$typename, "colspan=8");
            end_row();
            $printtitle = 1;
        }

        // 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"], $_POST['Dimension'], $_POST['Dimension2'], $begin,  $begin, false, true);
            $offset = min($open['debit'], $open['credit']);
        } else
            $offset = 0;

        $prev = get_balance($account["account_code"], $_POST['Dimension'], $_POST['Dimension2'], $begin, $_POST['TransFromDate'], false, false);
        $curr = get_balance($account["account_code"], $_POST['Dimension'], $_POST['Dimension2'], $_POST['TransFromDate'], $_POST['TransToDate'], true, true);
        $tot = get_balance($account["account_code"], $_POST['Dimension'], $_POST['Dimension2'], $begin, $_POST['TransToDate'], false, true);
        if (check_value("NoZero") && !$prev['balance'] && !$curr['balance'] && !$tot['balance'])
            continue;
        alt_table_row_color($k);

        $url = "<a href='$path_to_root/gl/inquiry/gl_account_inquiry.php?TransFromDate=" . $_POST["TransFromDate"] . "&TransToDate=" . $_POST["TransToDate"] . "&account=" . $account["account_code"] . "&Dimension=" . $_POST["Dimension"] . "&Dimension2=" . $_POST["Dimension2"] . "'>" . $account["account_code"] . "</a>";

        label_cell($url);
        label_cell($account["account_name"]);
        if (check_value('Balance'))
        {
            display_debit_or_credit_cells($prev['balance']);
            display_debit_or_credit_cells($curr['balance']);
            display_debit_or_credit_cells($tot['balance']);

        }
        else
        {
            amount_cell($prev['debit']-$offset);
            amount_cell($prev['credit']-$offset);
            amount_cell($curr['debit']);
            amount_cell($curr['credit']);
            amount_cell($tot['debit']-$offset);
            amount_cell($tot['credit']-$offset);
            $pdeb += $prev['debit'];
            $pcre += $prev['credit'];
            $cdeb += $curr['debit'];
            $ccre += $curr['credit'];
            $tdeb += $tot['debit'];
            $tcre += $tot['credit'];
        }
        $pbal += $prev['balance'];
        $cbal += $curr['balance'];
        $tbal += $tot['balance'];
        end_row();
    }

    //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)
        {
            start_row("class='inquirybg' style='font-weight:bold'");
            label_cell(_("Group")." - ".$type ." - ".$typename, "colspan=8");
            end_row();
            $printtitle = 1;

        }
        display_trial_balance($accounttype["id"], $accounttype["name"].' ('.$typename.')');
    }

    //added by faisal for group total

    if (!check_value('Balance'))
    {
        start_row("class='inquirybg' style='font-weight:bold'");
        label_cell(_("Total") ." - ".$typename, "colspan=2");

        amount_cell($pdeb-$Apdeb );
        amount_cell($pcre-$Apcre);
        amount_cell($cdeb-$Acdeb );
        amount_cell($ccre-$Accre );
        amount_cell($tdeb-$Atdeb );
        amount_cell($tcre-$Atcre);
        end_row();
    }
    else
    {
    start_row("class='inquirybg' style='font-weight:bold'");
    label_cell(_("Total") ." - ".$typename , "colspan=2");
    display_debit_or_credit_cells($pbal-$Apbal);
    display_debit_or_credit_cells($cbal-$Acbal );
    display_debit_or_credit_cells($tbal-$Atbal);
    end_row();
    }
     //end by faisal for group total
}

//----------------------------------------------------------------------------------------------------

gl_inquiry_controls();

if (isset($_POST['TransFromDate']))
{
    $row = get_current_fiscalyear();
    if (date1_greater_date2($_POST['TransFromDate'], sql2date($row['end'])))
    {
        display_error(_("The from date cannot be bigger than the fiscal year end."));
        set_focus('TransFromDate');
        return;
    }
}
div_start('balance_tbl');
if (!isset($_POST['Dimension']))
    $_POST['Dimension'] = 0;
if (!isset($_POST['Dimension2']))
    $_POST['Dimension2'] = 0;
start_table(TABLESTYLE);
$tableheader =  "<tr>
    <td rowspan=2 class='tableheader'>" . _("Account") . "</td>
    <td rowspan=2 class='tableheader'>" . _("Account Name") . "</td>
    <td colspan=2 class='tableheader'>" . _("Brought Forward") . "</td>
    <td colspan=2 class='tableheader'>" . _("This Period") . "</td>
    <td colspan=2 class='tableheader'>" . _("Balance") . "</td>
    </tr><tr>
    <td class='tableheader'>" . _("Debit") . "</td>
    <td class='tableheader'>" . _("Credit") . "</td>
    <td class='tableheader'>" . _("Debit") . "</td>
    <td class='tableheader'>" . _("Credit") . "</td>
    <td class='tableheader'>" . _("Debit") . "</td>
    <td class='tableheader'>" . _("Credit") . "</td>
    </tr>";

echo $tableheader;

//display_trial_balance();

$classresult = get_account_classes(false);
while ($class = db_fetch($classresult))
{
    start_row("class='inquirybg' style='font-weight:bold'");
    label_cell(_("Class")." - ".$class['cid'] ." - ".$class['class_name'], "colspan=8");
    end_row();

    //Get Account groups/types under this group/type with no parents
    $typeresult = get_account_types(false, $class['cid'], -1);
    while ($accounttype=db_fetch($typeresult))
    {
        display_trial_balance($accounttype["id"], $accounttype["name"]);
    }
}

    if (!check_value('Balance'))
    {
        start_row("class='inquirybg' style='font-weight:bold'");
        label_cell(_("Total") ." - ".$_POST['TransToDate'], "colspan=2");
        amount_cell($pdeb);
        amount_cell($pcre);
        amount_cell($cdeb);
        amount_cell($ccre);
        amount_cell($tdeb);
        amount_cell($tcre);
        end_row();
    }
    start_row("class='inquirybg' style='font-weight:bold'");
    label_cell(_("Ending Balance") ." - ".$_POST['TransToDate'], "colspan=2");
    display_debit_or_credit_cells($pbal);
    display_debit_or_credit_cells($cbal);
    display_debit_or_credit_cells($tbal);
    end_row();

    end_table(1);
    if (($pbal = round2($pbal, user_price_dec())) != 0 && $_POST['Dimension'] == 0 && $_POST['Dimension2'] == 0)
        display_warning(_("The Opening Balance is not in balance, probably due to a non closed Previous Fiscalyear."));
    div_end();

//----------------------------------------------------------------------------------------------------

end_page();

If a customer transaction is not fully allocated (partially allocated), Selecting
Suppress Zeros to Yes And
Show Balances to Yes

in Customer Balances Report is giving a misleading Customer Net Balance.

Ideally Suppress Zero shall Suppress only Voided Transactions from the Report But Since it is also removing Fully Settled Transactions, the running balance is not revealing correct final balance if Show Balance is Set to Yes

For Better Understanding you may check Customer Balance of 4 Dimension in the following system

fa.boxygen.biz/fa2325

id: admin
pass: Pakistan1947
company: gp

Once Activated URDU the Urdu Text is shown as ????????? in Fields.