……………………………………………………………最新资料推荐…………………………………………………ABAP实现本地化的资产负债表和损益表1.设计思路：SAP没有提供标准的符合中国标准的资产负债表和损益表，需要我们在系统中自定义开发，我们在配置报表版本时都指定了一个项目的编号，一个版本下面都有期其统驭的科目范围，我们可以根据这个项目编号找到相应的科目范围，然后根据科目范围获取科目借贷汇总的值SAP中资产负债表的配置图示：我们传统的资产负债表如下格式：我们可以在程序中用项目编号找到其下面的科目范围，然后取科目汇总值，因为资产负债表是固定的，所以我们要建立一个CBO表来存放各个具体的项目和在SAP中对应的项目编号最后要强调的是在资产负债表中未分配利润的计算：未分配利润的期末余额=年初结转额（留存收益的上年余额）+今年截至到本月的盈利额（利润表中有体现）利润表的思路和资产负债表是一样的具体的代码实现：*&———————————————————————**&Company Code:N207*& module:FI*& create by:rrzhang*& create date:2011.12.28*&———————————————————————**& title:资产负债表，利润表*& Description:资产负债表，利润表报表呈现*&———————————————————————**& Change History*———————————————————————-**C.R No |Date|Developer|Description*———————————————————————-** 2012.01.11|ccyu*———————————————————————-*REPORT zfir00026.INCLUDE zfir00026_top.INCLUDE zfir00026_cls.INCLUDE zfir00026_f01.INCLUDE zfir00026_o01.INCLUDE zfir00026_i01.INCLUDE .INITIALIZATION.p_y = sy-datum+0(4).p_m = sy-datum+4(2).AT SELECTION-SCREEN OUTPUT.PERFORM setdis USING p_rpv.IF c IS INITIAL.PERFORM setlist.gv_name = ‘爱思开实业（上海）商贸有限公司合并财务报表版本’.c = ‘X’.gv_rp = ‘资产负债表’.ELSE.PERFORM setpcg USING p_rpv.CASE p_rpv.WHEN ‘2070′.gv_name = ‘爱思开实业（上海）商贸有限公司合并财务报表版本’.WHEN ‘2071′.gv_name = ‘爱思开实业（上海）商贸有限公总部财务报表版本’.WHEN ‘2072′.gv_name = ‘爱思开实业（上海）商贸有限公司直营店财务报表版本’.WHEN ‘2073′.gv_name = ”.ENDCASE.IF p_rp = ‘BS’.gv_rp = ‘资产负债表’.ELSE.gv_rp = ‘利润表’.ENDIF.ENDIF.START-OF-SELECTION.PERFORM synchrodata.PERFORM get_data1.*&———————————————————————**& Include ZFIR00026_TOP*&———————————————————————**Data definitionTYPE-POOLS vrm.TABLES:faglflexa.“同步数据用的凭证抬头表DATA:BEGIN OF gt_bkpfsyn OCCURS 0,gjahr LIKE bkpf-gjahr,bukrs LIKE bkpf-bukrs,belnr LIKE bkpf-belnr,END OF gt_bkpfsyn.DATA ly(4) TYPE n.“同步数据用的凭证行项目表（bseg）DATA:BEGIN OF gt_bsegsyn OCCURS 0,gjahr LIKE bseg-gjahr,bukrs LIKE bseg-bukrs,belnr LIKE bseg-belnr,prctr LIKE bseg-prctr,pprct LIKE bseg-pprct,buzei LIKE bseg-buzei,END OF gt_bsegsyn.DATA:BEGIN OF gt_fagasyn OCCURS 0.INCLUDE STRUCTURE faglflexa.DATA:END OF gt_fagasyn.TYPES: ch(3) TYPE c,cf(4) TYPE c,cgcp(12) TYPE c,ok_code LIKE sy-ucomm.DATA:c,d,gv_bs TYPE ukurs_curr VALUE 1,”倍数gv_iden(2).“要显示的资产负债表DATA:BEGIN OF gt_alv_bs0 OCCURS 0,lct1 TYPE int1,item1 TYPE zitem,yamt1 TYPE hslvt12,ysamt1 TYPE hslvt12,lct2 TYPE int1,item2 TYPE zitem,yamt2 TYPE hslvt12,ysamt2 TYPE hslvt12,waers LIKE t001-waers,END OF gt_alv_bs0.DATA:BEGIN OF gt_bs OCCURS 0,ukurs TYPE ukurs_curr,gdatu TYPE gdatu_inv,END OF gt_bs.DATA:gv_mf(5).”The month field*The report version account information.“要显示的利润表DATA:BEGIN OF gt_alv_is0 OCCURS 0,lct TYPE int1,item TYPE zitem,yamt LIKE faglflext-hslvt,”本年累计数mamt LIKE faglflext-hslvt,”本月累计数waers LIKE t001-waers,END OF gt_alv_is0.“下载数据的内表DATA:BEGIN OF gt_alv_is01 OCCURS 0,lct TYPE int1,item TYPE zitem,yamt LIKE faglflext-hslvt,”本年累计数mamt LIKE faglflext-hslvt,”本月累计数END OF gt_alv_is01.*利润表下钻数据内表* –>2012.01.16 CCYU STARTDATA:BEGIN OF gt_skat OCCURS 0,saknr LIKE skat-saknr,txt50 LIKE skat-txt50,END OF gt_skat.* <–2012.01.16 CCYU END.DATA:BEGIN OF gt_alv_is_dp1 OCCURS 0,racct LIKE faglflexa-racct,* –>2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* <–2012.01.16 CCYU END.hsl LIKE faglflexa-hsl,END OF gt_alv_is_dp1.*利润表下钻数据内表DATA:BEGIN OF gt_alv_bs_dp1 OCCURS 0,racct LIKE faglflexa-racct,* –>2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* <–2012.01.16 CCYU END.hsl LIKE faglflexa-hsl,END OF gt_alv_bs_dp1.DATA:BEGIN OF gt_alv_bs_dp2 OCCURS 0,racct LIKE faglflexa-racct,* –>2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* <–2012.01.16 CCYU END.hsl LIKE faglflexa-hsl,END OF gt_alv_bs_dp2.TYPES:BEGIN OF gs_alv_bs_dp_obj ,racct LIKE faglflexa-racct,* –>2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* <–2012.01.16 CCYU END.hsl LIKE faglflexa-hsl,END OF gs_alv_bs_dp_obj.DATA:gs_alv_bs_dp_obj1 TYPE gs_alv_bs_dp_obj.TYPES:gt_alv_bs_dp TYPE STANDARD TABLE OF gs_alv_bs_dp_obj.*利润表下钻临时数据内表DATA:BEGIN OF gt_alv_is_dp2 OCCURS 0,racct LIKE faglflexa-racct,* –>2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* <–2012.01.16 CCYU END.hsl LIKE faglflexa-hsl,END OF gt_alv_is_dp2.DATA:BEGIN OF gt_fagl_011zc OCCURS 0,versn LIKE fagl_011zc-versn,ergsl LIKE fagl_011zc-ergsl,txt45 LIKE fagl_011qt-txt45,vonkt LIKE fagl_011zc-vonkt,biskt LIKE fagl_011zc-biskt,END OF gt_fagl_011zc.DATA:BEGIN OF gt_fagl_011qt OCCURS 0,ergsl LIKE fagl_011qt-ergsl,txt45 LIKE fagl_011qt-txt45,END OF gt_fagl_011qt.DATA:BEGIN OF gt_mamt_is OCCURS 0,amt LIKE faglflext-hslvt,END OF gt_mamt_is.RANGES gr_act FOR faglflext-racct.DATA:BEGIN OF gt_monv OCCURS 0,month(2) TYPE n,value LIKE faglflext-hslvt,END OF gt_monv.DATA:BEGIN OF gs_hsl,hsl01 LIKE faglflext-hslvt,hsl02 LIK。