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

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 definition TYPE-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 ST