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

1、ABAP实现本地化的资产负债表和损益表ABAP实现本地化的资产负债表和损益表ABAP实现本地化的资产负债表和损益表1.设计思路：SAP没有提供标准的符合中国标准的资产负债表和损益表，需要我们在系统中自定义开发，我们在配置报表版本时都指定了一个项目的编号，一个版本下面都有期其统驭的科目范围，我们可以根据这个项目编号找到相应的科目范围，然后根据科目范围获取科目借贷汇总的值。SAP中资产负债表的配置图示：我们传统的资产负债表如下格式：我们可以在程序中用项目编号找到其下面的科目范围，然后取科目汇总值，因为资产负债表是固定的，所以我们要建立一个CBO表来存放各个具体的项目和在SAP中对应的项目编号。最后

2、要强调的是在资产负债表中未分配利润的计算：未分配利润的期末余额=年初结转额（留存收益的上年余额）+今年截至到本月的盈利额（利润表中有体现）利润表的思路和资产负债表是一样的。具体的代码实现：*&*&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*-*RE

3、PORT 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 = 爱思开实业（上海）商贸有限公司

4、合并财务报表版本.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-S

5、ELECTION.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

6、 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)

7、 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

8、_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,”本月累计数

9、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-tx

10、t50,END OF gt_skat.* 2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* 2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* 2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* 2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* 2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* 2012.01.17 CCYU STARTDATA:BEGIN OF gt_head1 OCCURS 0,t

11、1(6),t2(20),t3(20),t4(20),t5(6),t6(20),t7(20),t8(20),END OF gt_head1.DATA:BEGIN OF gt_head2 OCCURS 0,t1(6),t2(20),t3(20),t4(20),END OF gt_head2.DATA:BEGIN OF gt_alv_bs01 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,END OF gt_alv_bs01.* 2012.01.11 ccyu STARTPARAMETERS p_m(3) TYPE n AS LISTBOX VISIBLE LENGTH 4 OBLIGATORY.* 2012.01.11 ccyu END.SELECTION-SCREEN END OF LINE.SELECTION-SCREEN END OF BLOCK blk.*&*&*& Class LCL_APP_COMPT*&*