1、*-*C.R No |Date|Developer|Description* 2012.01.11|ccyuREPORT 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.I
2、F c IS INITIAL.PERFORM setlist.gv_name = 爱思开实业（上海）商贸有限公司合并财务报表版本.c = X.gv_rp = 资产负债表.ELSE.PERFORM setpcg USING p_rpv.CASE p_rpv.WHEN 2070.WHEN 2071.gv_name = 爱思开实业（上海）商贸有限公总部财务报表版本.WHEN 2072.gv_name = 爱思开实业（上海）商贸有限公司直营店财务报表版本.WHEN 2073.gv_name = ”.ENDCASE.IF p_rp = BS.gv_rp = 利润表.ENDIF.START-OF-SELE
3、CTION.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）BEGIN OF gt_bsegsyn
4、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.BEGIN OF gt_fagasyn OCCURS 0.INCLUDE STRUCTURE faglflexa.END OF gt_fagasyn.TYPES: ch（3） TYPE c,cf（4） TYPE c,cgcp（12） TYPE c,ok_code LIKE sy-u
5、comm.c,d,gv_bs TYPE ukurs_curr VALUE 1,”倍数gv_iden（2）.“要显示的资产负债表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.BEGIN OF gt_bs OCCURS 0,uk
6、urs TYPE ukurs_curr,gdatu TYPE gdatu_inv,END OF gt_bs.gv_mf（5）.”The month field*The report version account information.“要显示的利润表BEGIN OF gt_alv_is0 OCCURS 0,lct TYPE int1,item TYPE zitem,yamt LIKE faglflext-hslvt,”本年累计数mamt LIKE faglflext-hslvt,”本月累计数END OF gt_alv_is0.“下载数据的内表BEGIN OF gt_alv_is01 OCC
7、URS 0,END OF gt_alv_is01.*利润表下钻数据内表* 2012.01.16 CCYU STARTBEGIN OF gt_skat OCCURS 0,saknr LIKE skat-saknr,txt50 LIKE skat-txt50,END OF gt_skat.* 2012.01.16 CCYU END.BEGIN OF gt_alv_is_dp1 OCCURS 0,racct LIKE faglflexa-racct,hsl LIKE faglflexa-hsl,END OF gt_alv_is_dp1.BEGIN OF gt_alv_bs_dp1 END OF gt
8、_alv_bs_dp1.BEGIN OF gt_alv_bs_dp2 END OF gt_alv_bs_dp2.BEGIN OF gs_alv_bs_dp_obj ,END OF gs_alv_bs_dp_obj.gs_alv_bs_dp_obj1 TYPE gs_alv_bs_dp_obj.gt_alv_bs_dp TYPE STANDARD TABLE OF gs_alv_bs_dp_obj.*利润表下钻临时数据内表BEGIN OF gt_alv_is_dp2 OCCURS 0,END OF gt_alv_is_dp2.BEGIN OF gt_fagl_011zc OCCURS 0,ver
9、sn 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.BEGIN OF gt_fagl_011qt OCCURS 0,LIKE fagl_011qt-ergsl,END OF gt_fagl_011qt.BEGIN OF gt_mamt_is OCCURS 0,amt LIKE faglflext-hslvt,END OF gt_mam
10、t_is.RANGES gr_act FOR faglflext-racct.BEGIN OF gt_monv OCCURS 0,month（2） TYPE n,value LIKE faglflext-hslvt,END OF gt_monv.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
11、,hsl07 LIKE faglflext-hslvt,hsl08 LIKE faglflext-hslvt,hsl09 LIKE faglflext-hslvt,hsl10 LIKE faglflext-hslvt,hsl11 LIKE faglflext-hslvt,hsl12 LIKE faglflext-hslvt,END OF gs_hsl.BEGIN OF gs_hsl1,hslvt LIKE faglflext-hslvt,END OF gs_hsl1.gs_alv_is TYPE REF TO cl_gui_alv_grid,”the alv object for is rep
12、ortgs_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 cl_gui_custom_container,”the contianer objectgs_con1 TYPE REF TO cl_g
13、ui_custom_container,”the contianer objectgs_layout TYPE lvc_s_layo,”set the layout of the alvgt_fieldcat TYPE lvc_t_fcat,”the field catelog tablegs_fieldcat TYPE lvc_s_fcat,”the field catelog work areag_toolbar TYPE ui_functions,”the toolbar of the alvg_toolbar1 gt_sort TYPE lvc_t_sort,”control the
14、sort of the alvgs_sort TYPE lvc_s_sort.”the work area of the gt_sortgs_dyndoc_id TYPE REF TO cl_dd_document ,gs_dyndoc_id1 TYPE REF TO cl_dd_document ,gs_splitter TYPE REF TO cl_gui_splitter_container ,gs_parent_html TYPE REF TO cl_gui_container ,gs_parent_grid TYPE REF TO cl_gui_container ,gs_split
15、ter1 TYPE REF TO cl_gui_splitter_container ,gs_parent_html1 TYPE REF TO cl_gui_container ,gs_parent_grid1 TYPE REF TO cl_gui_container ,gs_html_cntrl TYPE REF TO cl_gui_html_viewer .*SCREEN DEFINEDATA ok_code.2012.01.17 CCYU STARTBEGIN OF gt_head1 t1（6）,t2（20）,t3（20）,t4（20）,t5（6）,t6（20）,t7（20）,t8（20
16、）,END OF gt_head1.BEGIN OF gt_head2 END OF gt_head2.BEGIN OF gt_alv_bs01 OCCURS 0,gt_alv_bs01.2012.01.17 CCYU END.SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME TITLE text-001.“公司代码SELECTION-SCREEN BEGIN OF LINE.SELECTION-SCREEN POSITION 1.SELECTION-SCREEN COMMENT （79） text-002.SELECTION-SCREEN END
17、OF LINE.“CurrencySELECTION-SCREEN POSITION 1. “从位置1开始输出SELECTION-SCREEN COMMENT （7） text-003 FOR FIELD p_curr.SELECTION-SCREEN POSITION 15.PARAMETERS p_curr TYPE ch AS LISTBOX VISIBLE LENGTH 12 OBLIGATORY DEFAULT CNY .“report versionSELECTION-SCREEN COMMENT （9） text-004 FOR FIELD p_rpv.PARAMETERS p_
18、rpv TYPE cf AS LISTBOX VISIBLE LENGTH 12 USER-COMMAND dp OBLIGATORY DEFAULT 2070.SELECTION-SCREEN POSITION 28.SELECTION-SCREEN COMMENT （60） gv_name.“profit center groupSELECTION-SCREEN COMMENT （12） text-005 FOR FIELD p_pcg.PARAMETERS p_pcg TYPE cgcp AS LISTBOX VISIBLE LENGTH 12 USER-COMMAND dp1 OBLI
19、GATORY.“profit centerSELECTION-SCREEN COMMENT （12） text-006 FOR FIELD p_pc.PARAMETERS p_pc TYPE cgcp AS LISTBOX VISIBLE LENGTH 12 MODIF ID pc.“REPROTSELECTION-SCREEN COMMENT （12） text-007 FOR FIELD p_rp.PARAMETERS p_rp TYPE cgcp AS LISTBOX VISIBLE LENGTH 12 USER-COMMAND rp OBLIGATORY DEFAULT BS.SELE
20、CTION-SCREEN COMMENT （12） gv_rp.“YEARSELECTION-SCREEN COMMENT （12） text-008 FOR FIELD p_y.PARAMETERS p_y（4） TYPE n OBLIGATORY.“MONTHSELECTION-SCREEN COMMENT （12） text-009 FOR FIELD p_m.* PARAMETERS P_M（2） TYPE N OBLIGATORY.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 BLOCK blk. Class LCL_APP_COMPTthe event han
