忙了大半年终于可以休息休息了

onnet168

发点资料给大家分享一下
科目余额sql:
select  gb.period_year                              会计年度
       ,gb.period_name                              会计期间
       ,gcck.concatenated_segments                  科目代码
       ,gl_flexfields_pkg.get_description_sql(gcck.chart_of_accounts_id,1,gcck.segment1)     公司
       ,gl_flexfields_pkg.get_description_sql(gcck.chart_of_accounts_id,2,gcck.segment2)     成本中心
       ,gl_flexfields_pkg.get_description_sql(gcck.chart_of_accounts_id,3,gcck.segment3)     会计科目
       ,gl_flexfields_pkg.get_description_sql(gcck.chart_of_accounts_id,4,gcck.segment4)     子科目                     
       ,gl_flexfields_pkg.get_description_sql(gcck.chart_of_accounts_id,5,gcck.segment5)     产品段                  
       ,gl_flexfields_pkg.get_description_sql(gcck.chart_of_accounts_id,6,gcck.segment6)     片区
       ,gl_flexfields_pkg.get_description_sql(gcck.chart_of_accounts_id,7,gcck.segment7)     备用
               
       ,gb.begin_balance_dr - gb.begin_balance_cr    期初余额
       ,gb.period_net_dr         本期借方发生
       ,gb.period_net_cr         本期贷方发生
       ,nvl(gb.period_net_dr, 0) - nvl(gb.period_net_cr, 0) 本期净额
       ,nvl(gb.begin_balance_dr, 0) + nvl(gb.period_net_dr, 0) -
           nvl(gb.begin_balance_cr, 0) - nvl(gb.period_net_cr, 0) 期末余额
   from gl.gl_balances           gb,
       gl_code_combinations_kfv gcck
where gb.code_combination_id = gcck.code_combination_id
   and gb.currency_code = 'RMB'
   and gcck.summary_flag = 'N'
   and gb.actual_flag = 'A'

[ 本帖最后由 onnet168 于 2007-2-1 08:34 编辑 ]

onnet168

有时间整理整理心得

Terence

谢谢楼主分享!
不过你发的SQL好像不能运行啊?比如SUM你没GRUOP BY...........

onnet168

哈,将sum去掉就可以了

onnet168

create or replace type tabletypes as table of number;


create or replace function sub_str(p_str in varchar2)
return mytabletype
as
lstr varchar2(1000) default p_str||'.';
ln number;
ldata tabletypes:=tabletypes();
begin
loop
ln:=instr(lstr,'.');
exit when (nvl(ln,0)=0);
ldata.extend;
ldata(ldata.count):=ltrim(rtrim(substr(lstr,1,ln-1)));
lstr:=sub_str(lstr,ln+1);
end loop;
return ldata;
end;


select * from table(cast(sub_str('11.12.13') as tabletypes));

cqd1234

谢谢楼主的分享大

sunjinhai

多謝樓主分享啊

kenny

thanks!

captain

支持楼主

suniangu

呵呵 没用到GL  昏死啊