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

1、ABAP实现本地化的资产负债表和损益表ABAP实现本地化的资产负债表和损益表DIF 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 = 爱思开实业（上海）商贸有限公司直营店财务报表版本.

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

3、pf-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 OCCUR

4、S 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 T

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

6、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.*利润表下钻数据

7、内表* 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 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,* 201

8、2.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_01

9、1zc.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-hsl

10、vt,END OF gt_monv.DATA:BEGIN OF gs_hsl,hsl01 LIKE faglflext-hslvt,hsl02 LIKE faglflext-hslvt,hsl03 LIKE faglflext-hslvt,hsl04 LIKE faglflext-hslvt,hsl05 LIKE faglflext-hslvt,hsl06 LIKE faglflext-hslvt,hsl07 LIKE faglflext-hslvt,hsl08 LIKE faglflext-hslvt,hsl09 LIKE faglflext-hslvt,hsl10 LIKE faglfle

11、xt-hslvt,hsl11 LIKE faglflext-hslvt,hsl12 LIKE faglflext-hslvt,END OF gs_hsl.DATA:BEGIN OF gs_hsl1,hsl01 LIKE faglflext-hslvt,hsl02 LIKE faglflext-hslvt,hsl03 LIKE faglflext-hslvt,hsl04 LIKE faglflext-hslvt,hsl05 LIKE faglflext-hslvt,hsl06 LIKE faglflext-hslvt,hsl07 LIKE faglflext-hslvt,hsl08 LIKE f

12、aglflext-hslvt,hsl09 LIKE faglflext-hslvt,hsl10 LIKE faglflext-hslvt,hsl11 LIKE faglflext-hslvt,hsl12 LIKE faglflext-hslvt,hslvt LIKE faglflext-hslvt,END OF gs_hsl1.DATA:gs_alv_is TYPE REF TO cl_gui_alv_grid,”the alv object for is reportgs_alv_bs TYPE REF TO cl_gui_alv_grid,”the alv object for bs reportgs_alv_is_dp1 TYPE REF TO cl_gui_alv_grid,”the alv object for bs reportgs_alv_bs_dp1 TYPE REF TO cl_gui_alv_grid,”the alv object for bs reportgs_con TYPE REF TO c