Building Trial Balance Report. Please help

Question

Hello guys,
I have a trial balance report which reports over more than one period (say between jan and march).
I have registered functions to get the opening and closing balance. Then included total debits and credits for each period. I'd like to think I've done this successfully and to the best of my knowledge.
However for some code combinations I see an opening balance (say 1,000,000) , total credits 0, total debits 5,000 and closing balance 400,000. What I mean basically is, the figures do not seem to tally. When I analyze the account from GL inquiry the total debits and total credits are exactly as shown in my report. Can anyone help me with this or maybe anyone with a better query. I am doing this project on 11i.
Many Thanks.
Here are my functions:
create or replace function get_open_balance
(p_code_combination_id in number,
p_set_of_books_id in number,
p_period_name in varchar2)
return number
is
v_open_balance number := 0;
begin
          SELECT
nvl(sum(bal.begin_balance_dr - bal.begin_balance_cr),0)
INTO v_open_balance
          FROM gl_code_combinations_kfv cc
          ,gl_balances bal
          WHERE
          cc.code_combination_id = bal.code_combination_id
          AND cc.code_combination_id = p_code_combination_id
          AND bal.period_name = p_period_name
          AND bal.set_of_books_id = p_set_of_books_id
          ORDER by
          cc.concatenated_segments;
return v_open_balance;
exception
when no_data_found then
return 0;
when others then
return 0;
end get_open_balance;
create or replace function get_close_balance
(p_code_combination_id in number,
p_set_of_books_id in number,
p_period_name in varchar2)
return number
is
v_close_balance number := 0;
begin
          SELECT
nvl(sum(bal.begin_balance_dr - bal.begin_balance_cr +
bal.period_net_dr - bal.period_net_cr),0)
INTO v_close_balance
          FROM gl_code_combinations_kfv cc
          ,gl_balances bal
          WHERE
          cc.code_combination_id = bal.code_combination_id
          AND cc.code_combination_id = p_code_combination_id
          AND bal.period_name = p_period_name
          AND bal.set_of_books_id = p_set_of_books_id
          ORDER by
          cc.concatenated_segments;
return v_close_balance;
exception
when no_data_found then
return 0;
when others then
return 0;
end get_close_balance;
Then here is my query:
select
gcc.code_combination_id,
gcc.concatenated_segments,
gsob.currency_code,
gsob.name sob_name,
gl_flexfields_pkg.get_description_sql(gcc.chart_of_accounts_id,
4, gcc.segment4) account_description,
get_open_balance(gcc.code_combination_id, gsob.set_of_books_id, :p_period_from) opening_balance,
nvl((select sum(entered_cr)
from gl_je_lines gjl
where gjl.code_combination_id = gcc.code_combination_id
and gjl.status = 'P'
and gjl.effective_date between to_date('01-' || :p_period_from)
and last_day(to_date('01-' || :p_period_to))),0) credit,
nvl((select sum(entered_dr)
from gl_je_lines gjl
where gjl.code_combination_id = gcc.code_combination_id
and gjl.status = 'P'
and gjl.effective_date between to_date('01-' || :p_period_from)
and last_day(to_date('01-' || :p_period_to))),0) debit,
get_close_balance(gcc.code_combination_id, gsob.set_of_books_id, :p_period_to) closing_balance
from gl_code_combinations_kfv gcc, gl_sets_of_books gsob
where gsob.chart_of_accounts_id = gcc.chart_of_accounts_id
and gsob.set_of_books_id = nvl(:p_set_of_books_id, gsob.set_of_books_id)

Answer 1

Excellent!
Thank you very much.
Here is the update (this is for R12. In 11i just replace bal.ledger_id in the get_open_balance and get_close_balance functions with bal.set_of_books_id):
create or replace
function get_open_balance
(p_company in varchar2,
p_code_combination_id in number,
p_set_of_books_id in number,
p_period_name in varchar2)
return number
is
v_open_balance number := 0;
v_currency_code varchar2(500);
begin
-- get currency code for the set of books
begin
select currency_code
into v_currency_code
from gl_sets_of_books
where set_of_books_id = p_set_of_books_id;
exception
when others then
null;
end;
-- get sum
SELECT
nvl(sum(bal.begin_balance_dr - bal.begin_balance_cr),0)
INTO v_open_balance
FROM gl_code_combinations_kfv cc
,gl_balances bal
WHERE
cc.code_combination_id = bal.code_combination_id
AND cc.code_combination_id = p_code_combination_id
AND bal.period_name = p_period_name
AND bal.actual_flag = 'A'
AND bal.translated_flag is null
AND cc.segment1 = p_company
AND bal.currency_code = v_currency_code
AND bal.ledger_id = p_set_of_books_id
ORDER by
cc.concatenated_segments;
return v_open_balance;
exception
when no_data_found then
return 0;
when others then
return 0;
end get_open_balance;
create or replace
function get_close_balance
(p_company in varchar2,
p_code_combination_id in number,
p_set_of_books_id in number,
p_period_name in varchar2)
return number
is
v_close_balance number := 0;
v_currency_code varchar2(500);
begin
-- get currency code for the set of books
begin
select currency_code
into v_currency_code
from gl_sets_of_books
where set_of_books_id = p_set_of_books_id;
exception
when others then
null;
end;
-- get sum
SELECT
nvl(sum(bal.begin_balance_dr - bal.begin_balance_cr +
bal.period_net_dr - bal.period_net_cr),0)
INTO v_close_balance
FROM gl_code_combinations_kfv cc
,gl_balances bal
WHERE
cc.code_combination_id = bal.code_combination_id
AND cc.code_combination_id = p_code_combination_id
AND bal.period_name = p_period_name
AND bal.actual_flag = 'A'
AND bal.translated_flag is null
AND cc.segment1 = p_company
AND bal.currency_code = v_currency_code
AND bal.ledger_id = p_set_of_books_id
ORDER by
cc.concatenated_segments;
return v_close_balance;
exception
when no_data_found then
return 0;
when others then
return 0;
end get_close_balance;
select
gcc.code_combination_id,
gcc.concatenated_segments,
gsob.currency_code,
gsob.name sob_name,
gcc.segment3 account_code,
gl_flexfields_pkg.get_description_sql(gcc.chart_of_accounts_id,
3, gcc.segment3) account_description,
get_open_balance(gcc.segment1, gcc.code_combination_id, gsob.set_of_books_id, :p_period_from) opening_balance,
nvl((select sum(decode(gjh.currency_code, gsob.currency_code, entered_cr, accounted_cr))
from gl_je_lines gjl, gl_je_headers gjh
where gjl.code_combination_id = gcc.code_combination_id
and gjh.actual_flag = 'A'
and gjh.je_header_id = gjl.je_header_id
and gjh.status = 'P'
and gjh.ledger_id = gjl.ledger_id
and gjl.status = 'P'
and gjl.effective_date between to_date('01-' || :p_period_from)
and last_day(to_date('01-' || :p_period_to))),0) credit,
nvl((select sum(decode(gjh.currency_code, gsob.currency_code, entered_dr, accounted_dr))
from gl_je_lines gjl, gl_je_headers gjh
where gjl.code_combination_id = gcc.code_combination_id
and gjh.actual_flag = 'A'
and gjh.je_header_id = gjl.je_header_id
and gjh.status = 'P'
and gjl.status = 'P'
and gjh.ledger_id = gjl.ledger_id
and gjl.effective_date between to_date('01-' || :p_period_from)
and last_day(to_date('01-' || :p_period_to))),0) debit,
get_close_balance(gcc.segment1, gcc.code_combination_id, gsob.set_of_books_id, :p_period_to) closing_balance
from gl_code_combinations_kfv gcc, gl_sets_of_books gsob
where gsob.chart_of_accounts_id = gcc.chart_of_accounts_id
and gcc.segment1 = :p_company
and gsob.set_of_books_id = nvl(:p_set_of_books_id, gsob.set_of_books_id)
Edited by: igwe on Jul 16, 2012 4:21 AM