ABAP实现本地化的资产负债表和损益表..docxVIP

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 icon.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,