abap实现本地化的资产负债表和损益表

1.设计思路：
SAP没有提供标准的符合中国标准的资产负债表和损益表，需要我们在系统中自定义开发，我们在配置报表版本时都指定了一个项目的编号，一个版本下面都有期其统驭的科目范围，我们可以根据这个项目编号找到相应的科目范围，然后根据科目范围获取科目借贷汇总的值。

SAP中资产负债表的配置图示：
SAP中资产负债表的配置图.jpg

我们传统的资产负债表如下格式：
传统的资产负债表.jpg

我们可以在程序中用项目编号找到其下面的科目范围，然后取科目汇总值，因为资产负债表是固定的，所以我们要建立一个CBO表来存放各个具体的项目和在SAP中对应的项目编号。
最后要强调的是在资产负债表中未分配利润的计算：
未分配利润的期末余额=年初结转额（留存收益的上年余额）+今年截至到本月的盈利额（利润表中有体现）
利润表的思路和资产负债表是一样的。
未分配利润的期末余额.jpg

2.主程序代码：

*&---------------------------------------------------------------------*
*& Report ZDEMON_032
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zdemon_032.
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 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 TYPE 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 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.
*利润表下钻数据内表
* –>2012.01.16 CCYU START
DATA:BEGIN OF gt_skat OCCURS 0,
saknr LIKE skat-saknr,
txt50 LIKE skat-txt50,
END OF gt_skat.
* <–2012.01.16 CCYU END.
DATA:BEGIN OF gt_alv_is_dp1 OCCURS 0,
racct LIKE faglflexa-racct,
* –>2012.01.16 CCYU START
txt50 LIKE skat-txt50,
* <–2012.01.16 CCYU END.
hsl LIKE faglflexa-hsl,
END OF gt_alv_is_dp1.
*利润表下钻数据内表
DATA:BEGIN OF gt_alv_bs_dp1 OCCURS 0,
racct LIKE faglflexa-racct,
* –>2012.01.16 CCYU START
txt50 LIKE skat-txt50,
* <–2012.01.16 CCYU END.
hsl LIKE faglflexa-hsl,
END OF gt_alv_bs_dp1.
DATA:BEGIN OF gt_alv_bs_dp2 OCCURS 0,
racct LIKE faglflexa-racct,
* –>2012.01.16 CCYU START
txt50 LIKE skat-txt50,
* <–2012.01.16 CCYU END.
hsl LIKE faglflexa-hsl,
END OF gt_alv_bs_dp2.
TYPES:BEGIN OF gs_alv_bs_dp_obj ,
racct LIKE faglflexa-racct,
* –>2012.01.16 CCYU START
txt50 LIKE skat-txt50,
* <–2012.01.16 CCYU END.
hsl LIKE faglflexa-hsl,
END OF gs_alv_bs_dp_obj.
DATA:gs_alv_bs_dp_obj1 TYPE gs_alv_bs_dp_obj.
TYPES:gt_alv_bs_dp TYPE STANDARD TABLE OF gs_alv_bs_dp_obj.
*利润表下钻临时数据内表
DATA:BEGIN OF gt_alv_is_dp2 OCCURS 0,
racct LIKE faglflexa-racct,
* –>2012.01.16 CCYU START
txt50 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_011zc.
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-hslvt,
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 faglflext-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 faglflext-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 REPORT
gs_alv_bs TYPE REF TO cl_gui_alv_grid,"the alv OBJECT FOR bs REPORT
gs_alv_is_dp1 TYPE REF TO cl_gui_alv_grid,"the alv OBJECT FOR bs REPORT
gs_alv_bs_dp1 TYPE REF TO cl_gui_alv_grid,"the alv OBJECT FOR bs REPORT
gs_con TYPE REF TO cl_gui_custom_container,"the contianer OBJECT
gs_con1 TYPE ref TO cl_gui_custom_container,"the contianer OBJECT
gs_layout TYPE lvc_s_layo,"set the LAYOUT OF the alv
gt_fieldcat TYPE lvc_t_fcat,"the FIELD catelog TABLE
gs_fieldcat TYPE lvc_s_fcat,"the FIELD catelog WORK AREA
g_toolbar TYPE ui_functions,"the toolbar OF the alv
g_toolbar1 TYPE ui_functions,"the toolbar OF the alv
gt_sort TYPE lvc_t_sort,"control the SORT of the alv
gs_sort TYPE lvc_s_sort.
"the work area of the gt_sort
data:gs_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_splitter1 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 DEFINE
DATA ok_code.
* –>2012.01.17 CCYU START
DATA:BEGIN OF gt_head1 OCCURS 0,
t1(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.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 OF LINE.
"Currency
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-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' .
SELECTION-SCREEN END OF LINE.
"report version
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT (9) text-004 FOR FIELD p_rpv.
SELECTION-SCREEN POSITION 15.
PARAMETERS p_rpv TYPE cf AS LISTBOX VISIBLE LENGTH 12 USER-COMMAND dp OBLIGATORY DEFAULT '2070'.
SELECTION-SCREEN POSITION 28.
SELECTION-SCREEN COMMENT (60) gv_name.
SELECTION-SCREEN END OF LINE.
"profit center group
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT (12) text-005 FOR FIELD p_pcg.
SELECTION-SCREEN POSITION 15.
PARAMETERS p_pcg TYPE cgcp AS LISTBOX VISIBLE LENGTH 12 USER-COMMAND dp1 OBLIGATORY.
SELECTION-SCREEN END OF LINE.
"profit center
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT (12) text-006 FOR FIELD p_pc.
SELECTION-SCREEN POSITION 15.
PARAMETERS p_pc TYPE cgcp AS LISTBOX VISIBLE LENGTH 12 MODIF ID pc.
SELECTION-SCREEN END OF LINE.
"REPROT
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT (12) text-007 FOR FIELD p_rp.
SELECTION-SCREEN POSITION 15.
PARAMETERS p_rp TYPE cgcp AS LISTBOX VISIBLE LENGTH 12 USER-COMMAND rp OBLIGATORY DEFAULT 'bs'.
SELECTION-SCREEN COMMENT (12) gv_rp.
SELECTION-SCREEN END OF LINE.
"YEAR
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT (12) text-008 FOR FIELD p_y.
SELECTION-SCREEN POSITION 15.
PARAMETERS p_y(4) TYPE n OBLIGATORY.
SELECTION-SCREEN END OF LINE.
"MONTH
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT (12) text-009 FOR FIELD p_m.
SELECTION-SCREEN POSITION 15.
* PARAMETERS P_M(2) TYPE N OBLIGATORY.
* –>2012.01.11 ccyu START
PARAMETERS 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
*&———————————————————————*
* the event handler class for alv
*———————————————————————-*
CLASS lcl_app_compt DEFINITION.
PUBLIC SECTION .
*the function handle_toolbar which handle the toolbar event of the alv
METHODS : handle_toolbar FOR EVENT toolbar
OF cl_gui_alv_grid
IMPORTING e_object
e_interactive .
*the function handle_user_command which handle the user_command
*event of the alv
METHODS: handle_user_command FOR EVENT user_command
OF cl_gui_alv_grid
IMPORTING e_ucomm .
*the function handle_topofpage which handle the top of page
METHODS:handle_topofpage FOR EVENT top_of_page
OF cl_gui_alv_grid
IMPORTING e_dyndoc_id .
*handle the hotspot_click事件
METHODS:handle_hotspot_click FOR EVENT hotspot_click
OF cl_gui_alv_grid
IMPORTING e_row_id e_column_id es_row_no.
ENDCLASS. "LCL_APP_COMPT
*& Include ZOOALV_CLS *
*&———————————————————————*
*&———————————————————————*
*& Class (Implementation) lcl_app_compt
*&———————————————————————*
* implementation:for alv
*———————————————————————-*
CLASS lcl_app_compt IMPLEMENTATION.
METHOD : handle_toolbar .
PERFORM modify_toolbar USING e_object " .
ENDMETHOD . ":
":
method: handle_user_command .
PERFORM fm_user_command USING e_ucomm .
ENDMETHOD . ":
"handle_user_command
*TOP OF PAGE
method: handle_topofpage .
PERFORM fm_add_topofpage USING e_dyndoc_id .
ENDMETHOD . ":
"handle_topofpage
method:handle_hotspot_click.
PERFORM drilldownis1 USING e_row_id e_column_id es_row_no.
ENDMETHOD. ":
"handle_hotspot_click
endclass. "lcl_app_compt
*&———————————————————————*
*& Include ZFIR00026_F01
*&———————————————————————*
*&———————————————————————*
*& Form SETLIST
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
FORM setlist .
DATA: itab TYPE STANDARD TABLE OF vrm_value,
line TYPE vrm_value.
CLEAR itab[].
line-key = 'cny'.
line-text = 'cny'.
APPEND line TO itab.
line-key = 'krw'.
line-text = 'krw'.
APPEND line TO itab.
CALL FUNCTION 'vrm_set_values'
EXPORTING
id = 'p_curr'
values = itab[].
CLEAR itab[].
CLEAR line.
line-key = '2070'.
line-text = '2070'.
APPEND line TO itab.
line-key = '2071'.
line-text = '2071'.
APPEND line TO itab.
line-key = '2072'.
line-text = '2072'.
APPEND line TO itab.
line-key = '2073'.
line-text = '2073'.
APPEND line TO itab.
CALL FUNCTION 'vrm_set_values'
EXPORTING
id = 'p_rpv'
values = itab[].
IF p_pcg IS INITIAL.
CLEAR itab[].
CLEAR line.
line-key = 'n207'.
line-text = 'n207'.
APPEND line TO itab.
CALL FUNCTION 'vrm_set_values'
EXPORTING
id = 'p_pcg'
values = itab[].
ENDIF.
CLEAR itab[].
CLEAR line.
line-key = 'bs'.
line-text = 'bs'.
APPEND line TO itab.
line-key = 'is'.
line-text = 'is'.
APPEND line TO itab.
CALL FUNCTION 'vrm_set_values'
EXPORTING
id = 'p_rp'
values = itab[].
* –>2012.01.11 CCYU SRART
CLEAR itab[].
CLEAR line.
line-key = '01'.
line-text = '01'.
APPEND line TO itab.
line-key = '02'.
line-text = '02'.
APPEND line TO itab.
line-key = '03'.
line-text = '03'.
APPEND line TO itab.
line-key = '04'.
line-text = '04'.
APPEND line TO itab.
line-key = '05'.
line-text = '05'.
APPEND line TO itab.
line-key = '06'.
line-text = '06'.
APPEND line TO itab.
line-key = '07'.
line-text = '07'.
APPEND line TO itab.
line-key = '08'.
line-text = '08'.
APPEND line TO itab.
line-key = '09'.
line-text = '09'.
APPEND line TO itab.
line-key = '10'.
line-text = '10'.
APPEND line TO itab.
line-key = '11'.
line-text = '11'.
APPEND line TO itab.
line-key = '12'.
line-text = '12'.
APPEND line TO itab.
CALL FUNCTION 'vrm_set_values'
EXPORTING
id = 'p_m'
values = itab[].
" if p_pcg is initial.
" clear itab[].
" call function 'vrm_set_values'
" exporting
" id = 'p_pc'
" values = itab[].
" else.
PERFORM setpcg USING p_rpv.
" endif.
* <–2012.01.11 CCYU END.
ENDFORM. "setlist
" setlist
*&———————————————————————*
*& Form SETPCG
*&———————————————————————*
* text
*———————————————————————-*
* SET THE PROFIT CENTER GROUP
*———————————————————————-*
form setpcg using p.
DATA: itab TYPE STANDARD TABLE OF vrm_value,
line TYPE vrm_value.
CLEAR: itab[],line.
"CLEAR p_pcg.
IF p = '2070'.
line-key = 'n207'.
line-text = 'n207'.
APPEND line TO itab.
CALL FUNCTION 'vrm_set_values'
EXPORTING
id = 'p_pcg'
values = itab[].
p_pcg = 'n207'.
CLEAR itab[].
" append line to itab.
CALL FUNCTION 'vrm_set_values'
EXPORTING
id = 'p_pc'
values = itab[].
CLEAR d.
ELSE.
CLEAR itab[].
CLEAR p_pc.
CALL FUNCTION 'vrm_set_values'
EXPORTING
id = 'p_pc'
values = itab[].
IF d IS INITIAL.
SELECT DISTINCT setname AS key setname AS text FROM setleaf
INTO CORRESPONDING FIELDS OF TABLE itab
WHERE subclass = 'n207' AND setclass = '0106'.
IF itab[] IS NOT INITIAL.
CALL FUNCTION 'vrm_set_values'
EXPORTING
id = 'p_pcg'
values = itab[].
READ TABLE itab INTO line INDEX 1.
p_pcg = line-key.
CLEAR itab[].
SELECT DISTINCT valfrom AS key valfrom AS text FROM setleaf
INTO CORRESPONDING FIELDS OF TABLE itab
WHERE subclass = 'n207' AND setname = p_pcg AND setclass = '0106'.
IF itab[] IS NOT INITIAL.
CALL FUNCTION 'vrm_set_values'
EXPORTING
id = 'p_pc'
values = itab[].
ENDIF.
d = 'x'.
ENDIF.
ELSE.
SELECT DISTINCT valfrom AS key valfrom AS text FROM setleaf
INTO CORRESPONDING FIELDS OF TABLE itab
WHERE subclass = 'n207' AND setname = p_pcg AND setclass = '0106'.
IF itab[] IS NOT INITIAL.
CALL FUNCTION 'vrm_set_values'
EXPORTING
id = 'p_pc'
values = itab[].
ENDIF.
CLEAR itab[].
ENDIF.
ENDIF.
ENDFORM. "setlist
" setpcg
*&———————————————————————*
*& Form SETDIS
*&———————————————————————*
* set the disable of the profit center
*———————————————————————-*
* –>P_P_RPV text
*———————————————————————-*
form setdis using p.
LOOP AT SCREEN.
IF p = '2070'.
IF screen-group1 = 'pc'.
screen-input = '0'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM. "setlist
" setdis
*&———————————————————————*
*& Form GET_DATA
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form get_data1 .
PERFORM getrv."获取报表项目对应的科目范围
endform.
" get_data
*&———————————————————————*
*& Form GETRV
*&———————————————————————*
* get the report item and the account range
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form getrv .
CLEAR gt_fagl_011zc[].
SELECT versn
ergsl
vonkt
biskt
FROM fagl_011zc INTO CORRESPONDING FIELDS OF TABLE gt_fagl_011zc
WHERE versn = p_rpv.
IF gt_fagl_011zc[] IS NOT INITIAL.
SELECT DISTINCT ergsl
txt45
INTO CORRESPONDING FIELDS OF TABLE gt_fagl_011qt
FROM fagl_011qt FOR ALL ENTRIES IN gt_fagl_011zc
WHERE versn = p_rpv AND ergsl = gt_fagl_011zc-ergsl.
IF gt_fagl_011qt[] IS NOT INITIAL.
SORT gt_fagl_011qt BY ergsl.
LOOP AT gt_fagl_011zc.
READ TABLE gt_fagl_011qt WITH KEY ergsl = gt_fagl_011zc-ergsl BINARY SEARCH.
IF sy-subrc = 0.
gt_fagl_011zc-txt45 = gt_fagl_011qt-txt45.
ENDIF.
MODIFY gt_fagl_011zc.
ENDLOOP.
ENDIF.
IF p_curr = 'krw'.
PERFORM getbs.
ENDIF.
ly = p_y - 1."取去年
call function 'conversion_exit_alpha_input'
exporting
input = p_m
importing
output = p_m.
IF p_rp = 'bs'.
CLEAR gt_alv_bs0[].
PERFORM setbsitem.
SORT gt_alv_bs0 BY lct1 ASCENDING.
DATA:lv_pro(10) TYPE p DECIMALS 2 VALUE '3',
lv_i(10) TYPE p DECIMALS 2 VALUE '3'.
"为核算固定资产等项目设置的临时变量
DATA:a1601_1 TYPE hslvt12,
a1601_2 TYPE hslvt12,
a1602_1 TYPE hslvt12,
a1602_2 TYPE hslvt12,
a1603_1 TYPE hslvt12,
a1603_2 TYPE hslvt12,
a4001_1 TYPE hslvt12,
a4001_2 TYPE hslvt12,
a3103_1 TYPE hslvt12,
a3103_2 TYPE hslvt12,
a4104_1 TYPE hslvt12,
a4104_2 TYPE hslvt12,
a4102_1 TYPE hslvt12,
a4102_2 TYPE hslvt12,
a13yamt1 TYPE hslvt12,
a13ysamt1 TYPE hslvt12,
a14yamt2 TYPE hslvt12,
a14ysamt2 TYPE hslvt12,
a23yamt2 TYPE hslvt12,
a23ysamt2 TYPE hslvt12,
a24yamt2 TYPE hslvt12,
a24ysamt2 TYPE hslvt12,
a31yamt2 TYPE hslvt12,
a31ysamt2 TYPE hslvt12,
a32yamt1 TYPE hslvt12,
a32ysamt1 TYPE hslvt12,
a33yamt1 TYPE hslvt12,
a33ysamt1 TYPE hslvt12,
a33yamt2 TYPE hslvt12,
a33ysamt2 TYPE hslvt12,
a30yamt2 TYPE hslvt12,
a30ysamt2 TYPE hslvt12,
a26yamt2 TYPE hslvt12,
a26ysamt2 TYPE hslvt12,
a27yamt2 TYPE hslvt12,
a27ysamt2 TYPE hslvt12,
a29yamt2 TYPE hslvt12,
a29ysamt2 TYPE hslvt12.
"构造科目查询范围的查询条件
LOOP AT gt_alv_bs0.
IF gt_alv_bs0-item1 = '货币资金'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1000' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2001' ly.
ELSEIF gt_alv_bs0-item1 = '交易性金融资产'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1101' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2010' ly.
ELSEIF gt_alv_bs0-item1 = '应收票据'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1121' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2201' ly.
ELSEIF gt_alv_bs0-item1 = '应收账款'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1122' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2202' ly.
ELSEIF gt_alv_bs0-item1 = '预付款项'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1123' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2203' ly.
ELSEIF gt_alv_bs0-item1 = '应收利息'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1132' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2211' ly.
ELSEIF gt_alv_bs0-item1 = '应收股利'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1131' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2221' ly.
ELSEIF gt_alv_bs0-item1 = '其他应收款'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1221' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2231' ly.
ELSEIF gt_alv_bs0-item1 = '存货'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1400' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2232' ly.
ELSEIF gt_alv_bs0-item1 = '一年内到期的非流动资产'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1507' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2241' ly.
ELSEIF gt_alv_bs0-item1 = '其他流动资产'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1499' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2240' ly.
ELSEIF gt_alv_bs0-item1 = '流动资产合计'.
PERFORM getbsamt USING gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2222' ly.
ELSEIF gt_alv_bs0-item1 = '可供出售金融资产'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1503' ly.
ELSEIF gt_alv_bs0-item1 = '持有至到期投资'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1501' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2501' ly.
ELSEIF gt_alv_bs0-item1 = '长期应收款'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1504' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2502' ly.
ELSEIF gt_alv_bs0-item1 = '长期股权投资'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1511' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2701' ly.
ELSEIF gt_alv_bs0-item1 = '投资性房地产'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1521' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2711' ly.
ELSEIF gt_alv_bs0-item1 = '固定资产'.
CLEAR:a1601_1,a1601_2,a1602_1,a1602_2,a1603_1,a1603_2.
PERFORM getbsamt USING:a1601_1 a1601_2 '1601' ly,
a1602_1 a1602_2 '1602' ly,
a1603_1 a1603_2 '1603' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2801' ly.
gt_alv_bs0-yamt1 = a1601_1 + a1602_1 + a1603_1.
gt_alv_bs0-ysamt1 = a1601_2 + a1602_2 + a1603_2.
ELSEIF gt_alv_bs0-item1 = '在建工程'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1604' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2901' ly.
ELSEIF gt_alv_bs0-item1 = '工程物资'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1605' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '2000' ly.
ELSEIF gt_alv_bs0-item1 = '固定资产清理'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1606' ly.
ELSEIF gt_alv_bs0-item1 = '无形资产'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1701' ly,
a4001_1 a4001_2 '4001' ly,
a3103_1 a3103_2 '3103' ly.
gt_alv_bs0-yamt2 = a4001_1 + a3103_1.
gt_alv_bs0-ysamt2 = a4001_2 + a3103_2.
ELSEIF gt_alv_bs0-item1 = '开发支出'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1710' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '4002' ly.
ELSEIF gt_alv_bs0-item1 = '商誉'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1711' ly.
ELSEIF gt_alv_bs0-item1 = '长期待摊费用'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1801' ly,
gt_alv_bs0-yamt2 gt_alv_bs0-ysamt2 '4101' ly.
ELSEIF gt_alv_bs0-item1 = '递延所得税资产'.
"计算本年利润
DATA:a TYPE hslvt12,"截止到今年当月的利润
b TYPE hslvt12.
"留存收益中的年初利润
perform getbsamt using:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1811' ly.
PERFORM getisdb.
READ TABLE gt_alv_is0 INDEX 18.
a = gt_alv_is0-yamt.
PERFORM getprofitamt USING b ly.
gt_alv_bs0-yamt2 = a + b.
gt_alv_bs0-ysamt2 = b.
CLEAR gt_alv_is0[].
ELSEIF gt_alv_bs0-item1 = '其他非流动资产'.
PERFORM getbsamt USING:gt_alv_bs0-yamt1 gt_alv_bs0-ysamt1 '1901' ly.
ENDIF.
MODIFY gt_alv_bs0.
PERFORM porcess_show USING lv_pro.
lv_pro = lv_pro + lv_i .
ENDLOOP.
"负债类科目贷方转正，借方转负
LOOP AT gt_alv_bs0 WHERE lct1 BETWEEN 1 AND 29.
IF gt_alv_bs0-yamt2 LT 0.
gt_alv_bs0-yamt2 = abs( gt_alv_bs0-yamt2 ).
ELSE.
gt_alv_bs0-yamt2 = ( -1 ) * ( gt_alv_bs0-yamt2 ).
ENDIF.
IF gt_alv_bs0-ysamt2 LT 0.
gt_alv_bs0-ysamt2 = abs( gt_alv_bs0-ysamt2 ).
ELSE.
gt_alv_bs0-ysamt2 = ( -1 ) * ( gt_alv_bs0-ysamt2 ).
ENDIF.
MODIFY gt_alv_bs0.
ENDLOOP.
CLEAR:a13yamt1,
a13ysamt1,
a14yamt2,
a14ysamt2,
a23yamt2,
a23ysamt2,
a24yamt2,
a24ysamt2,
a31yamt2,
a31ysamt2,
a32yamt1,
a32ysamt1,
a33yamt1,
a33ysamt1,
a33yamt2,
a33ysamt2,
a30yamt2,
a30ysamt2,
a26yamt2,
a26ysamt2,
a27yamt2,
a27ysamt2,
a29yamt2,
a29ysamt2.
"对特殊项目进行总计
LOOP AT gt_alv_bs0.
IF gt_alv_bs0-lct1 BETWEEN 2 AND 12.
"流动资产
a13yamt1 = gt_alv_bs0-yamt1 + a13yamt1.
a13ysamt1 = gt_alv_bs0-ysamt1 + a13ysamt1.
ENDIF.
IF gt_alv_bs0-lct1 BETWEEN 15 AND 31.
"非流动资产
a32yamt1 = gt_alv_bs0-yamt1 + a32yamt1.
a32ysamt1 = gt_alv_bs0-ysamt1 + a32ysamt1.
ENDIF.
IF gt_alv_bs0-lct1 BETWEEN 2 AND 13.
"流动负债
a14yamt2 = gt_alv_bs0-yamt2 + a14yamt2.
a14ysamt2 = gt_alv_bs0-ysamt2 + a14ysamt2.
ENDIF.
IF gt_alv_bs0-lct1 BETWEEN 16 AND 22.
"非流动负债
a23yamt2 = gt_alv_bs0-yamt2 + a23yamt2.
a23ysamt2 = gt_alv_bs0-ysamt2 + a23ysamt2.
ENDIF.
IF gt_alv_bs0-lct1 BETWEEN 26 AND 30.
"所有者权益
a31yamt2 = gt_alv_bs0-yamt2 + a31yamt2.
a31ysamt2 = gt_alv_bs0-ysamt2 + a31ysamt2.
ENDIF.
ENDLOOP.
a33yamt1 = a13yamt1 + a32yamt1."资产总计
a33ysamt1 = a13ysamt1 + a32ysamt1.
a24yamt2 = a14yamt2 + a23yamt2."负债总计
a24ysamt2 = a14ysamt2 + a23ysamt2.
a33yamt2 = a24yamt2 + a31yamt2."负债+所有者权益
a33ysamt2 = a24ysamt2 + a31ysamt2.
" a30yamt2 = a33yamt1 - a33yamt2.
"a30ysamt2 = a33ysamt1 - a33ysamt2.
* READ TABLE gt_alv_bs0 WITH KEY lct1 = 26.
* a26yamt2 = gt_alv_bs0-yamt2.
* a26ysamt2 = gt_alv_bs0-ysamt2.
* READ TABLE gt_alv_bs0 WITH KEY lct1 = 27.
* a27yamt2 = gt_alv_bs0-yamt2.
* a27ysamt2 = gt_alv_bs0-ysamt2.
* READ TABLE gt_alv_bs0 WITH KEY lct1 = 29.
* a29yamt2 = gt_alv_bs0-yamt2.
* a29ysamt2 = gt_alv_bs0-ysamt2.
* a30yamt2 = a33yamt1 - a24yamt2 - a26yamt2 - a27yamt2 - a29yamt2."本年利润调平
* a30ysamt2 = a33ysamt1 - a24ysamt2 - a26ysamt2 - a27ysamt2 - a29ysamt2.
* a31yamt2 = a26yamt2 + a27yamt2 + a29yamt2 + a30yamt2.
* a31ysamt2 = a26ysamt2 + a27ysamt2 + a29ysamt2 + a30ysamt2.
LOOP AT gt_alv_bs0.
IF gt_alv_bs0-lct1 = 13.
gt_alv_bs0-yamt1 = a13yamt1.
gt_alv_bs0-ysamt1 = a13ysamt1.
ELSEIF gt_alv_bs0-lct1 = 14.
gt_alv_bs0-yamt2 = a14yamt2.
gt_alv_bs0-ysamt2 = a14ysamt2.
ELSEIF gt_alv_bs0-lct1 = 23.
gt_alv_bs0-yamt2 = a23yamt2.
gt_alv_bs0-ysamt2 = a23ysamt2.
ELSEIF gt_alv_bs0-lct1 = 24.
gt_alv_bs0-yamt2 = a24yamt2.
gt_alv_bs0-ysamt2 = a24ysamt2.
* ELSEIF gt_alv_bs0-lct1 = 30.
* gt_alv_bs0-yamt2 = a30yamt2.
* gt_alv_bs0-ysamt2 = a30ysamt2.
ELSEIF gt_alv_bs0-lct1 = 31.
gt_alv_bs0-yamt2 = a31yamt2.
gt_alv_bs0-ysamt2 = a31ysamt2.
ELSEIF gt_alv_bs0-lct1 = 32.
gt_alv_bs0-yamt1 = a32yamt1.
gt_alv_bs0-ysamt1 = a32ysamt1.
ELSEIF gt_alv_bs0-lct1 = 33.
gt_alv_bs0-yamt1 = a33yamt1.
gt_alv_bs0-ysamt1 = a33ysamt1.
gt_alv_bs0-yamt2 = a33yamt2.
gt_alv_bs0-ysamt2 = a33ysamt2.
ENDIF.
MODIFY gt_alv_bs0.
ENDLOOP.
IF p_curr = 'krw'.
LOOP AT gt_alv_bs0.
gt_alv_bs0-yamt1 = gt_alv_bs0-yamt1 * gv_bs.
gt_alv_bs0-ysamt1 = gt_alv_bs0-ysamt1 * gv_bs.
gt_alv_bs0-yamt2 = gt_alv_bs0-yamt2 * gv_bs.
gt_alv_bs0-ysamt2 = gt_alv_bs0-ysamt2 * gv_bs.
gt_alv_bs0-waers = 'krw'.
MODIFY gt_alv_bs0.
ENDLOOP.
ELSE.
LOOP AT gt_alv_bs0.
gt_alv_bs0-waers = 'cny'.
MODIFY gt_alv_bs0.
ENDLOOP.
ENDIF.
gv_iden = 'bs'.
CALL SCREEN '0100'.
ELSEIF p_rp = 'is'.
PERFORM getisdb.
CALL SCREEN '0200'.
ENDIF.
ENDIF.
ENDFORM. "setlist
" getrv
*&———————————————————————*
*& Form SETISITEM
*&———————————————————————*
* fill the profit table
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form setisitem .
gt_alv_is0-lct = 1.
gt_alv_is0-item = '一、营业收入'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 2.
gt_alv_is0-item = ' 减：营业成本'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 3.
gt_alv_is0-item = ' 营业税金及附加'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 4.
gt_alv_is0-item = ' 销售费用'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 5.
gt_alv_is0-item = ' 管理费用'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 6.
gt_alv_is0-item = ' 财务费用'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 7.
gt_alv_is0-item = ' 资产减值损失'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 8.
gt_alv_is0-item = ' 加：公允价值变动收益（损失以"-"号填列）'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 9.
gt_alv_is0-item = ' 投资收益（损失以"-"号填列）'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 10.
gt_alv_is0-item = ' 其中：对联营企业和合营企业的投资收益'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 11.
gt_alv_is0-item = '二、营业利润（亏损以"-"号填列）'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 12.
gt_alv_is0-item = ' 加：营业外收入'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 13.
gt_alv_is0-item = ' 减：营业外支出'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 14.
gt_alv_is0-item = ' 其中：非流动资产处置损失'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 15.
gt_alv_is0-item = ' 加：以前年度损益调整'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 16.
gt_alv_is0-item = '三、利润总额（亏损总额以"-"号填列）'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 17.
gt_alv_is0-item = ' 减：所得税费用'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 18.
gt_alv_is0-item = '四、净利润（净亏损以"-"号填列）'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 19.
gt_alv_is0-item = '五、每股收益：'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 20.
gt_alv_is0-item = ' (一)基本每股收益'.
APPEND gt_alv_is0.
gt_alv_is0-lct = 21.
gt_alv_is0-item = ' (二)稀释每股收益'.
APPEND gt_alv_is0.
ENDFORM. "setlist
" setisitem
*&———————————————————————*
*& Form getisamt
*&———————————————————————*
* get the is amount by itemid
*———————————————————————-*
form getisamt using p_yamt
p_mamt
value(p_itemid)
value(p_id).
"构造科目查询范围的查询条件
p_yamt = 0.
p_mamt = 0.
PERFORM getaccrange USING p_itemid.
CLEAR gs_hsl.
REFRESH gt_monv.
CHECK gr_act[] IS NOT INITIAL.
CASE p_rpv.
WHEN '2070'.
"不考虑利润中心
if p_id = 4.
"6600取功能范围1200
select sum( hsl ) into p_mamt
from faglflexa
where ryear = p_y
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and pprctr = ''"抵消内部交易
and rfarea = '1200'
and poper = p_m.
SELECT SUM( hsl ) INTO p_yamt
FROM faglflexa
WHERE ( ryear = p_y AND poper BETWEEN '001' AND p_m )
AND rldnr = '0l'
AND racct IN gr_act
AND rbukrs = 'n207'
AND pprctr = ''"抵消内部交易
AND rfarea = '1200'.
ELSEIF p_id = 5.
"6600取功能范围1300
select sum( hsl ) into p_mamt
from faglflexa
where ryear = p_y
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and pprctr = ''"抵消内部交易
and rfarea = '1300'
and poper = p_m.
SELECT SUM( hsl ) INTO p_yamt
FROM faglflexa
WHERE ( ryear = p_y AND poper BETWEEN '001' AND p_m )
AND rldnr = '0l'
AND racct IN gr_act
AND rbukrs = 'n207'
AND pprctr = ''"抵消内部交易
AND rfarea = '1300'.
ELSEIF p_id = 14.
"按照科目进行取数
select sum( hsl ) into p_mamt
from faglflexa
where ryear = p_y
and rldnr = '0l'
and racct between '962101' and '962201'
and rbukrs = 'n207'
and pprctr = ''"抵消内部交易
and poper = p_m.
SELECT SUM( hsl ) INTO p_yamt
FROM faglflexa
WHERE ( ryear = p_y AND poper BETWEEN '001' AND p_m )
AND rldnr = '0l'
AND racct BETWEEN '962101' AND '962201'
AND rbukrs = 'n207'
AND pprctr = ".
"抵消内部交易.
ELSE.
"正常取
select sum( hsl ) into p_mamt
from faglflexa
where ryear = p_y
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and pprctr = ''"抵消内部交易
and poper = p_m.
SELECT SUM( hsl ) INTO p_yamt
FROM faglflexa
WHERE ( ryear = p_y AND poper BETWEEN '001' AND p_m )
AND rldnr = '0l'
AND racct IN gr_act
AND rbukrs = 'n207'
AND pprctr = ".
"抵消内部交易
endif.
WHEN '2071' OR '2072' OR '2073'.
"自选利润中心组，利润中心可输可不输
if p_pc <> ' '.
IF p_id = 4.
"6600取功能范围1200
select sum( hsl ) into p_mamt
from faglflexa
where ryear = p_y
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and prctr = p_pc"抵消内部交易
and rfarea = '1200'
and poper = p_m.
SELECT SUM( hsl ) INTO p_yamt
FROM faglflexa
WHERE ( ryear = p_y AND poper BETWEEN '001' AND p_m )
AND rldnr = '0l'
AND racct IN gr_act
AND rbukrs = 'n207'
AND prctr = p_pc"抵消内部交易
AND rfarea = '1200'.
ELSEIF p_id = 5.
"6600取功能范围1300
select sum( hsl ) into p_mamt
from faglflexa
where ryear = p_y
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and prctr = p_pc"抵消内部交易
and rfarea = '1300'
and poper = p_m.
SELECT SUM( hsl ) INTO p_yamt
FROM faglflexa
WHERE ( ryear = p_y AND poper BETWEEN '001' AND p_m )
AND rldnr = '0l'
AND racct IN gr_act
AND rbukrs = 'n207'
AND prctr = p_pc"抵消内部交易
AND rfarea = '1300'.
ELSEIF p_id = 14.
"按照科目进行取数
select sum( hsl ) into p_mamt
from faglflexa
where ryear = p_y
and rldnr = '0l'
and racct between '962101' and '962201'
and rbukrs = 'n207'
and prctr = p_pc"抵消内部交易
and poper = p_m.
SELECT SUM( hsl ) INTO p_yamt
FROM faglflexa
WHERE ( ryear = p_y AND poper BETWEEN '001' AND p_m )
AND rldnr = '0l'
AND racct BETWEEN '962101' AND '962201'
AND rbukrs = 'n207'
AND prctr = p_pc.
"抵消内部交易.
ELSE.
"正常取
select sum( hsl ) into p_mamt
from faglflexa
where ryear = p_y
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and prctr = p_pc"抵消内部交易
and poper = p_m.
SELECT SUM( hsl ) INTO p_yamt
FROM faglflexa
WHERE ( ryear = p_y AND poper BETWEEN '001' AND p_m )
AND rldnr = '0l'
AND racct IN gr_act
AND rbukrs = 'n207'
AND prctr = p_pc.
"抵消内部交易
endif.
ELSEIF p_pcg <> '' AND p_pc IS INITIAL.
"利润中心为空，选取所有的利润中心
if p_id = 4.
"6600取功能范围1200
select sum( hsl ) into p_mamt
from faglflexa
where ryear = p_y
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and prctr in ( select valfrom from setleaf where setname = p_pcg )
and rfarea = '1200'
and poper = p_m.
SELECT SUM( hsl ) INTO p_yamt
FROM faglflexa
WHERE ( ryear = p_y AND poper BETWEEN '001' AND p_m )
AND rldnr = '0l'
AND racct IN gr_act
AND rbukrs = 'n207'
AND prctr IN ( SELECT valfrom FROM setleaf WHERE setname = p_pcg )
AND rfarea = '1200'.
ELSEIF p_id = 5.
"6600取功能范围1300
select sum( hsl ) into p_mamt
from faglflexa
where ryear = p_y
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and prctr in ( select valfrom from setleaf where setname = p_pcg )
and rfarea = '1300'
and poper = p_m.
SELECT SUM( hsl ) INTO p_yamt
FROM faglflexa
WHERE ( ryear = p_y AND poper BETWEEN '001' AND p_m )
AND rldnr = '0l'
AND racct IN gr_act
AND rbukrs = 'n207'
AND prctr IN ( SELECT valfrom FROM setleaf WHERE setname = p_pcg )
AND rfarea = '1300'.
ELSEIF p_id = 14.
"按照科目进行取数
select sum( hsl ) into p_mamt
from faglflexa
where ryear = p_y
and rldnr = '0l'
and racct between '962101' and '962201'
and rbukrs = 'n207'
and prctr in ( select valfrom from setleaf where setname = p_pcg )
and poper = p_m.
SELECT SUM( hsl ) INTO p_yamt
FROM faglflexa
WHERE ( ryear = p_y AND poper BETWEEN '001' AND p_m )
AND rldnr = '0l'
AND racct BETWEEN '962101' AND '962201'
AND rbukrs = 'n207'
AND prctr IN ( SELECT valfrom FROM setleaf WHERE setname = p_pcg ).
ELSE.
"正常取
select sum( hsl ) into p_mamt
from faglflexa
where ryear = p_y
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and prctr in ( select valfrom from setleaf where setname = p_pcg )
and poper = p_m.
SELECT SUM( hsl ) INTO p_yamt
FROM faglflexa
WHERE ( ryear = p_y AND poper BETWEEN '001' AND p_m )
AND rldnr = '0l'
AND racct IN gr_act
AND rbukrs = 'n207'
AND prctr IN ( SELECT valfrom FROM setleaf WHERE setname = p_pcg ).
ENDIF.
ENDIF.
ENDCASE.
"获取结果数值，p_mamt是本期，p_yamt是累计
IF p_id <> 6.
p_yamt = abs( p_yamt ).
p_mamt = abs( p_mamt ).
ENDIF.
ENDFORM. "setlist
"getisamt
*&———————————————————————*
*& Form fillgt_monv
*&———————————————————————*
* FILL THE MONTH VALUE
*———————————————————————-*
form fillgt_monv.
CLEAR gt_monv[].
gt_monv-month = '01'.
gt_monv-value = gs_hsl-hsl01.
APPEND gt_monv.
gt_monv-month = '02'.
gt_monv-value = gs_hsl-hsl02.
APPEND gt_monv.
gt_monv-month = '03'.
gt_monv-value = gs_hsl-hsl03.
APPEND gt_monv.
gt_monv-month = '04'.
gt_monv-value = gs_hsl-hsl04.
APPEND gt_monv.
gt_monv-month = '05'.
gt_monv-value = gs_hsl-hsl05.
APPEND gt_monv.
gt_monv-month = '06'.
gt_monv-value = gs_hsl-hsl06.
APPEND gt_monv.
gt_monv-month = '07'.
gt_monv-value = gs_hsl-hsl07.
APPEND gt_monv.
gt_monv-month = '08'.
gt_monv-value = gs_hsl-hsl08.
APPEND gt_monv.
gt_monv-month = '09'.
gt_monv-value = gs_hsl-hsl09.
APPEND gt_monv.
gt_monv-month = '10'.
gt_monv-value = gs_hsl-hsl10.
APPEND gt_monv.
gt_monv-month = '11'.
gt_monv-value = gs_hsl-hsl11.
APPEND gt_monv.
gt_monv-month = '12'.
gt_monv-value = gs_hsl-hsl12.
APPEND gt_monv.
ENDFORM. "setlist
"fillgt_monv
*&———————————————————————*
*& Form FILLGT_MONV1
*&———————————————————————*
* text
*———————————————————————-*
form fillgt_monv1.
CLEAR gt_monv[].
gt_monv-month = '01'.
gt_monv-value = gs_hsl1-hsl01.
APPEND gt_monv.
gt_monv-month = '02'.
gt_monv-value = gs_hsl1-hsl02.
APPEND gt_monv.
gt_monv-month = '03'.
gt_monv-value = gs_hsl1-hsl03.
APPEND gt_monv.
gt_monv-month = '04'.
gt_monv-value = gs_hsl1-hsl04.
APPEND gt_monv.
gt_monv-month = '05'.
gt_monv-value = gs_hsl1-hsl05.
APPEND gt_monv.
gt_monv-month = '06'.
gt_monv-value = gs_hsl1-hsl06.
APPEND gt_monv.
gt_monv-month = '07'.
gt_monv-value = gs_hsl1-hsl07.
APPEND gt_monv.
gt_monv-month = '08'.
gt_monv-value = gs_hsl1-hsl08.
APPEND gt_monv.
gt_monv-month = '09'.
gt_monv-value = gs_hsl1-hsl09.
APPEND gt_monv.
gt_monv-month = '10'.
gt_monv-value = gs_hsl1-hsl10.
APPEND gt_monv.
gt_monv-month = '11'.
gt_monv-value = gs_hsl1-hsl11.
APPEND gt_monv.
gt_monv-month = '12'.
gt_monv-value = gs_hsl1-hsl12.
APPEND gt_monv.
ENDFORM. "setlist
"fillgt_monv
*&———————————————————————*
*& Form fm_user_command
*&———————————————————————*
* text
*———————————————————————-*
* –>P_UCOMM text
*———————————————————————-*
form fm_user_command using p_ucomm.
CASE p_ucomm .
WHEN 'getexc' .
* –>2012.01.16 CCYU START
PERFORM get_excel.
* <–2012.01.16 CCYU END.
* WHEN 'Mod'.
** CALL METHOD gs_alv->set_frontend_fieldcatalog
** CALL METHOD gs_alv->refresh_table_display .
* WHEN 'SAVE'.
* WHEN 'New'.
* WHEN 'Delete'.
* WHEN 'IMPO'.
ENDCASE .
ENDFORM. "setlist
" fm_user_command
*&———————————————————————*
*& Form modify_toolbar
*&———————————————————————*
* text
*———————————————————————-*
* –>P_OBJECT text
* –>P_INTERACTIVE text
*———————————————————————-*
form modify_toolbar using p_object type ref to
cl_alv_event_toolbar_set p_interactive .
* –>2012.01.16 CCYU START
DATA: ls_toolbar TYPE stb_button .
CLEAR ls_toolbar.
MOVE 3 TO ls_toolbar-butn_type .
APPEND ls_toolbar TO p_object->mt_toolbar .
CLEAR ls_toolbar.
MOVE 'getexc' TO ls_toolbar-function ."function code
move icon_xxl to ls_toolbar-icon .
"icon
move '导出excel' to ls_toolbar-quickinfo .
"the tip
move '导出excel' to ls_toolbar-text.
MOVE '' TO ls_toolbar-disabled ."if disabled
append ls_toolbar to p_object->mt_toolbar .
* <–2012.01.16 CCYU END.
ENDFORM. "setlist
" modify_toolbar
*&———————————————————————*
*& Form fill_field_category
*&———————————————————————*
* text
*———————————————————————-*
* –>P_SECTION text
* –>P_FNAME text
* –>P_VALUE text
*———————————————————————-*
form fill_field_category using p_section
p_fname
p_value.
DATA: l_col(40) .
FIELD-SYMBOLS <l_fs> .
IF p_section = 's' .
CLEAR gs_fieldcat .
ENDIF .
CONCATENATE 'gs_fieldcat-' p_fname INTO l_col .
ASSIGN (l_col) TO <l_fs> .
MOVE p_value TO <l_fs> .
IF p_section = 'e' .
APPEND gs_fieldcat TO gt_fieldcat .
ENDIF .
ENDFORM. "setlist
" fill_field_category
*&———————————————————————*
*& Form DISPLAYIS
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form displayis .
PERFORM setlayout.
PERFORM buildfieldcat_is.
PERFORM excluding_tb_function.
ENDFORM. "setlist
" displayis
*&———————————————————————*
*& Form setlayout
*&———————————————————————*
* text
*———————————————————————-*
form setlayout .
CLEAR gs_layout.
gs_layout-cwidth_opt = 'x' .
gs_layout-zebra = 'x' .
gs_layout-sel_mode = 'a'.
ENDFORM. "setlist
" set layout
*&———————————————————————*
*& Form BUILDFIELDCAT_IS
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form buildfieldcat_is .
CLEAR gt_fieldcat[].
PERFORM fill_field_category USING :
's' 'tabname' 'gt_alv_is0' ,
" 'scrtext_m' '项目' ,
" 'outputlen' '20' ,
'e' 'fieldname' 'item' ,
's' 'tabname' 'gt_alv_is0' ,
" 'scrtext_m' '行次' ,
" 'outputlen' '20' ,
" 'key' 'x',
'e' 'fieldname' 'lct' ,
's' 'tabname' 'gt_alv_is0' ,
" 'scrtext_m' '本期金额' ,
" 'outputlen' '20' ,
" 'hotspot' 'x',
'e' 'fieldname' 'mamt' ,
's' 'tabname' 'gt_alv_is0' ,
" 'scrtext_m' '累计余额' ,
" 'outputlen' '20' ,
'e' 'fieldname' 'yamt' .
ENDFORM. "setlist
" buildfieldcat_is
*&———————————————————————*
*& Form fm_add_topofpage
*&———————————————————————*
* text
*———————————————————————-*
* –>P_E_DYNDOC_ID text
*———————————————————————-*
form fm_add_topofpage using p_e_dyndoc_id type ref to cl_dd_document.
DATA l_text(255).
IF gv_iden = 'is'.
CALL METHOD gs_dyndoc_id->add_text
EXPORTING
text = '利润表（非金融类）income statement(non-financial enterprise)'
sap_fontsize = cl_dd_document=>large
sap_emphasis = cl_dd_document=>strong.
CALL METHOD gs_dyndoc_id->new_line .
CONCATENATE p_y '年' ' ' p_m '月' ' 会企02表单位：' p_curr INTO l_text.
CALL METHOD gs_dyndoc_id->new_line .
CALL METHOD gs_dyndoc_id->add_text
EXPORTING
text = l_text.
CALL METHOD gs_dyndoc_id->new_line .
CALL METHOD gs_dyndoc_id->new_line .
CALL METHOD gs_dyndoc_id->add_text
EXPORTING
text = '爱思开实业（上海）商贸有限公司'.
PERFORM fm_control_html .
ELSEIF gv_iden = 'bs'.
CALL METHOD gs_dyndoc_id->add_text
EXPORTING
text = '资产负债表（非金融类）balance sheet（non-financialenterprise）'
sap_fontsize = cl_dd_document=>large
sap_emphasis = cl_dd_document=>strong.
CALL METHOD gs_dyndoc_id->new_line .
CONCATENATE p_y '年' ' ' p_m '月' ' 会企02表单位：' p_curr INTO l_text.
CALL METHOD gs_dyndoc_id->new_line .
CALL METHOD gs_dyndoc_id->add_text
EXPORTING
text = l_text.
CALL METHOD gs_dyndoc_id->new_line .
CALL METHOD gs_dyndoc_id->new_line .
CALL METHOD gs_dyndoc_id->add_text
EXPORTING
text = '爱思开实业（上海）商贸有限公司'.
PERFORM fm_control_html .
ENDIF.
ENDFORM. "setlist
" fm_add_topofpage
*&———————————————————————*
*& Form fm_control_html
*&———————————————————————*
* text
*———————————————————————-*
form fm_control_html .
* Define local variables
DATA: lv_length TYPE i, " LENGTH
lv_background_id TYPE sdydo_key VALUE space.
" background id
* Creating HTML Control
if gs_html_cntrl is initial.
CREATE OBJECT gs_html_cntrl
EXPORTING
parent = gs_parent_html.
ENDIF.
* Call function 'REUSE_ALV_GRID_COMMENTARY_SET' to set
CALL FUNCTION 'reuse_alv_grid_commentary_set'
EXPORTING
document = gs_dyndoc_id
bottom = 'e' "SPACE
IMPORTING
length = lv_length.
* Get TOP->HTML_TABLE Ready
CALL METHOD gs_dyndoc_id->merge_document.
* Set wallpaper
CALL METHOD gs_dyndoc_id->set_document_background
EXPORTING
picture_id = lv_background_id.
* Connect Top of page document to HTML Control
gs_dyndoc_id->html_control = gs_html_cntrl.
* Display Top of page document
CALL METHOD gs_dyndoc_id->display_document
EXPORTING
reuse_control = 'x'
parent = gs_parent_html
EXCEPTIONS
html_display_error = 1.
ENDFORM. "setlist
"fm_control_html
*&———————————————————————*
*& Form excluding_tb_function
*&———————————————————————*
* text
*———————————————————————-*
form excluding_tb_function .
CLEAR: g_toolbar .
REFRESH: g_toolbar .
PERFORM append_alv_exclude_functions TABLES g_toolbar USING :
cl_gui_alv_grid=>mc_fc_loc_undo ,
cl_gui_alv_grid=>mc_fc_auf ,
cl_gui_alv_grid=>mc_fc_average , "mean value
cl_gui_alv_grid=>mc_fc_back_classic ,
cl_gui_alv_grid=>mc_fc_call_abc ,
cl_gui_alv_grid=>mc_fc_check ,
cl_gui_alv_grid=>mc_fc_call_chain ,
cl_gui_alv_grid=>mc_fc_call_crbatch ,
cl_gui_alv_grid=>mc_fc_call_crweb ,
cl_gui_alv_grid=>mc_fc_call_lineitems ,
cl_gui_alv_grid=>mc_fc_call_master_data ,
cl_gui_alv_grid=>mc_fc_call_more ,
cl_gui_alv_grid=>mc_fc_call_report ,
cl_gui_alv_grid=>mc_fc_call_xint ,
* CL_GUI_ALV_GRID=>MC_FC_CALL_XXL ,"导出EXCEL
cl_gui_alv_grid=>mc_fc_col_invisible ,
cl_gui_alv_grid=>mc_fc_col_optimize ,
cl_gui_alv_grid=>mc_fc_count ,
cl_gui_alv_grid=>mc_fc_current_variant ,
cl_gui_alv_grid=>mc_fc_data_save ,
cl_gui_alv_grid=>mc_fc_delete_filter ,
cl_gui_alv_grid=>mc_fc_deselect_all ,
cl_gui_alv_grid=>mc_fc_detail ,
cl_gui_alv_grid=>mc_fc_expcrdata ,
cl_gui_alv_grid=>mc_fc_expcrdesig ,
cl_gui_alv_grid=>mc_fc_expcrtempl ,
cl_gui_alv_grid=>mc_fc_expmdb ,
cl_gui_alv_grid=>mc_fc_extend ,
cl_gui_alv_grid=>mc_fc_f4 ,
" cl_gui_alv_grid=>mc_fc_filter ,
" cl_gui_alv_grid=>mc_fc_find ,
" cl_gui_alv_grid=>mc_fc_fix_columns ,
cl_gui_alv_grid=>mc_fc_graph ,
cl_gui_alv_grid=>mc_fc_help ,
cl_gui_alv_grid=>mc_fc_info ,
cl_gui_alv_grid=>mc_fc_load_variant ,
cl_gui_alv_grid=>mc_fc_html ,
cl_gui_alv_grid=>mc_fc_loc_move_row ,
cl_gui_alv_grid=>mc_fc_loc_append_row ,
cl_gui_alv_grid=>mc_fc_loc_paste ,
cl_gui_alv_grid=>mc_fc_loc_paste_new_row ,
cl_gui_alv_grid=>mc_fc_maintain_variant ,
cl_gui_alv_grid=>mc_fc_maximum ,
cl_gui_alv_grid=>mc_fc_minimum ,
cl_gui_alv_grid=>mc_fc_pc_file ,
cl_gui_alv_grid=>mc_fc_print ,
cl_gui_alv_grid=>mc_fc_print_back ,
cl_gui_alv_grid=>mc_fc_print_prev ,
cl_gui_alv_grid=>mc_fc_refresh ,
cl_gui_alv_grid=>mc_fc_reprep ,
cl_gui_alv_grid=>mc_fc_url_copy_to_clipboard ,
cl_gui_alv_grid=>mc_fc_send ,
cl_gui_alv_grid=>mc_fc_separator ,
" cl_gui_alv_grid=>mc_fc_sort ,
" cl_gui_alv_grid=>mc_fc_sort_asc ,
" cl_gui_alv_grid=>mc_fc_sort_dsc ,
cl_gui_alv_grid=>mc_fc_subtot ,
cl_gui_alv_grid=>mc_fc_sum ,
cl_gui_alv_grid=>mc_fc_to_office ,
cl_gui_alv_grid=>mc_fc_to_rep_tree ,
cl_gui_alv_grid=>mc_fc_unfix_columns ,
cl_gui_alv_grid=>mc_fc_views ,
cl_gui_alv_grid=>mc_fc_view_crystal ,
cl_gui_alv_grid=>mc_fc_view_excel ,
cl_gui_alv_grid=>mc_fc_view_grid ,
cl_gui_alv_grid=>mc_fc_word_processor .
" cl_gui_alv_grid=>mc_mb_export .
ENDFORM. "setlist
" excluding_tb_function
*&———————————————————————*
*& Form EXCLUDING_TB_FUNCTION1
*&———————————————————————*
* text
*———————————————————————-*
form excluding_tb_function1 .
CLEAR: g_toolbar .
REFRESH: g_toolbar .
PERFORM append_alv_exclude_functions TABLES g_toolbar1 USING :
cl_gui_alv_grid=>mc_fc_loc_undo ,
cl_gui_alv_grid=>mc_fc_auf ,
cl_gui_alv_grid=>mc_fc_average , "mean value
cl_gui_alv_grid=>mc_fc_back_classic ,
cl_gui_alv_grid=>mc_fc_call_abc ,
cl_gui_alv_grid=>mc_fc_check ,
cl_gui_alv_grid=>mc_fc_call_chain ,
cl_gui_alv_grid=>mc_fc_call_crbatch ,
cl_gui_alv_grid=>mc_fc_call_crweb ,
cl_gui_alv_grid=>mc_fc_call_lineitems ,
cl_gui_alv_grid=>mc_fc_call_master_data ,
cl_gui_alv_grid=>mc_fc_call_more ,
cl_gui_alv_grid=>mc_fc_call_report ,
cl_gui_alv_grid=>mc_fc_call_xint ,
" cl_gui_alv_grid=>mc_fc_call_xxl ,"导出excel
cl_gui_alv_grid=>mc_fc_col_invisible ,
cl_gui_alv_grid=>mc_fc_col_optimize ,
cl_gui_alv_grid=>mc_fc_count ,
cl_gui_alv_grid=>mc_fc_current_variant ,
cl_gui_alv_grid=>mc_fc_data_save ,
cl_gui_alv_grid=>mc_fc_delete_filter ,
cl_gui_alv_grid=>mc_fc_deselect_all ,
cl_gui_alv_grid=>mc_fc_detail ,
cl_gui_alv_grid=>mc_fc_expcrdata ,
cl_gui_alv_grid=>mc_fc_expcrdesig ,
cl_gui_alv_grid=>mc_fc_expcrtempl ,
cl_gui_alv_grid=>mc_fc_expmdb ,
cl_gui_alv_grid=>mc_fc_extend ,
cl_gui_alv_grid=>mc_fc_f4 ,
" cl_gui_alv_grid=>mc_fc_filter ,
" cl_gui_alv_grid=>mc_fc_find ,
" cl_gui_alv_grid=>mc_fc_fix_columns ,
cl_gui_alv_grid=>mc_fc_graph ,
cl_gui_alv_grid=>mc_fc_help ,
cl_gui_alv_grid=>mc_fc_info ,
cl_gui_alv_grid=>mc_fc_load_variant ,
cl_gui_alv_grid=>mc_fc_html ,
cl_gui_alv_grid=>mc_fc_loc_move_row ,
cl_gui_alv_grid=>mc_fc_loc_append_row ,
cl_gui_alv_grid=>mc_fc_loc_paste ,
cl_gui_alv_grid=>mc_fc_loc_paste_new_row ,
cl_gui_alv_grid=>mc_fc_maintain_variant ,
cl_gui_alv_grid=>mc_fc_maximum ,
cl_gui_alv_grid=>mc_fc_minimum ,
cl_gui_alv_grid=>mc_fc_pc_file ,
cl_gui_alv_grid=>mc_fc_print ,
cl_gui_alv_grid=>mc_fc_print_back ,
cl_gui_alv_grid=>mc_fc_print_prev ,
cl_gui_alv_grid=>mc_fc_refresh ,
cl_gui_alv_grid=>mc_fc_reprep ,
cl_gui_alv_grid=>mc_fc_url_copy_to_clipboard ,
cl_gui_alv_grid=>mc_fc_send ,
cl_gui_alv_grid=>mc_fc_separator ,
" cl_gui_alv_grid=>mc_fc_sort ,
" cl_gui_alv_grid=>mc_fc_sort_asc ,
" cl_gui_alv_grid=>mc_fc_sort_dsc ,
cl_gui_alv_grid=>mc_fc_subtot ,
cl_gui_alv_grid=>mc_fc_sum ,
cl_gui_alv_grid=>mc_fc_to_office ,
cl_gui_alv_grid=>mc_fc_to_rep_tree ,
cl_gui_alv_grid=>mc_fc_unfix_columns ,
cl_gui_alv_grid=>mc_fc_views ,
cl_gui_alv_grid=>mc_fc_view_crystal ,
cl_gui_alv_grid=>mc_fc_view_excel ,
cl_gui_alv_grid=>mc_fc_view_grid ,
cl_gui_alv_grid=>mc_fc_word_processor .
" cl_gui_alv_grid=>mc_mb_export .
ENDFORM. "setlist
" excluding_tb_function
*&———————————————————————*
*& Form append_alv_exclude_functions
*&———————————————————————*
* text
*———————————————————————-*
* –>PT_EXCLUDE text
* –>P_VALUE text
*———————————————————————-*
form append_alv_exclude_functions tables pt_exclude type ui_functions
using p_value type ui_func.
APPEND p_value TO pt_exclude.
ENDFORM. "setlist
" append_alv_exclude_functions
*&———————————————————————*
*& Form GETBS
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form getbs .
SELECT ukurs
gdatu
INTO CORRESPONDING FIELDS OF TABLE gt_bs
FROM tcurr
WHERE fcurr = 'cny'
AND tcurr = 'krw'
AND kurst = 'm'
AND gdatu >= sy-datum
ORDER BY gdatu ASCENDING.
IF gt_bs[] IS NOT INITIAL.
READ TABLE gt_bs INDEX 1.
gv_bs = gt_bs-ukurs.
gv_bs = abs( gv_bs ).
ENDIF.
ENDFORM. "setlist
" getbs
*&———————————————————————*
*& Form PPSMARTForms_IS
*&———————————————————————*
* preview the is report
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form ppsmartforms_is .
DATA:lv_dat TYPE zcte.
CONCATENATE p_y '年 ' p_m '月' INTO lv_dat.
DATA lv_fm_name TYPE rs38l_fnam.
DATA: ctrl_param TYPE ssfctrlop,"控制参数
out_option TYPE ssfcompop.
"控制选项
ctrl_param-preview = 'x'.
out_option-tddest = 'lp01'.
ctrl_param-no_Dialog = 'x'.
IF gv_iden = 'is'.
CALL FUNCTION 'ssf_function_module_name'
EXPORTING
formname = 'z_n207_is1'
IMPORTING
fm_name = lv_fm_name.
IF sy-subrc <> 0.
EXIT.
ENDIF.
CALL FUNCTION lv_fm_name
EXPORTING
control_parameters = ctrl_param
output_options = out_option
user_settings = space
dates = lv_dat
TABLES
itab_is = gt_alv_is0[].
IF sy-subrc <> 0.
ENDIF.
ELSE.
CALL FUNCTION 'ssf_function_module_name'
EXPORTING
formname = 'z_n207_bs'
IMPORTING
fm_name = lv_fm_name.
IF sy-subrc <> 0.
EXIT.
ENDIF.
CALL FUNCTION lv_fm_name
EXPORTING
control_parameters = ctrl_param
output_options = out_option
user_settings = space
date = lv_dat
TABLES
it_tab = gt_alv_bs0[].
IF sy-subrc <> 0.
ENDIF.
ENDIF.
ENDFORM. "setlist
" ppsmartforms_is
*&———————————————————————*
*& Form SETBSITEM
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form setbsitem .
SELECT * FROM zn207_bs_item
INTO CORRESPONDING FIELDS OF TABLE gt_alv_bs0.
ENDFORM. "setlist
" setbsitem
*&———————————————————————*
*& Form GETBSAMT
*&———————————————————————*
* text
*———————————————————————-*
* –>P_YAMT text — 期末余额
* –>P_YSAMT text — 年初余额
* –>VALUE(P_ITEMID) text —
*———————————————————————-*
form getbsamt using p_yamt
p_ysamt
value(p_itemid)
value(ly).
p_yamt = 0.
p_ysamt = 0.
PERFORM getaccrange USING p_itemid."构造资产负债表项目编号下的科目范围
check gr_act[] is not initial.
CASE p_rpv.
WHEN '2070'.
"不考虑利润中心
"本年度截止到查询月的发生额
select sum( hsl ) into p_yamt
from faglflexa
where ryear = p_y
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and poper between '001' and p_m
and pprctr = ''.
"抵消内部交易'
"截止到去年的发生额
select sum( hsl ) into p_ysamt
from faglflexa
where ryear le ly
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and pprctr = ''.
"抵消内部交易'
p_yamt = p_yamt + p_ysamt.
WHEN '2071' OR '2072' OR '2073'.
"自选利润中心组，利润中心可输可不输
if p_pc <> ''.
"有利润中心的情况
"本年度截止到查询月的发生额
select sum( hsl ) into p_yamt
from faglflexa
where ryear = p_y
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and poper between '001' and p_m
and prctr = p_pc.
"抵消内部交易'
"截止到去年的发生额
select sum( hsl ) into p_ysamt
from faglflexa
where ryear le ly
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and prctr = p_pc.
p_yamt = p_yamt + p_ysamt.
ELSEIF p_pc IS INITIAL AND p_pcg IS NOT INITIAL.
"利润中心为空，选取所有的利润中心
"本年度截止到查询月的发生额
select sum( hsl ) into p_yamt
from faglflexa
where ryear = p_y
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and poper between '001' and p_m
and prctr in ( select valfrom from setleaf where setname = p_pcg and subclass = 'n207' and setclass = '0106' ).
"截止到去年的发生额
SELECT SUM( hsl ) INTO p_ysamt
FROM faglflexa
WHERE ryear LE ly
AND rldnr = '0l'
AND racct IN gr_act
AND rbukrs = 'n207'
AND prctr IN ( SELECT valfrom FROM setleaf WHERE setname = p_pcg AND subclass = 'n207' AND setclass = '0106' ).
p_yamt = p_yamt + p_ysamt.
ENDIF.
ENDCASE.
" p_yamt = abs( p_yamt )."取消转正
" p_ysamt = abs( p_ysamt ).
ENDFORM. "setlist
"getisamt
*&———————————————————————*
*& Form getprofitamt
*&———————————————————————*
* 计算年结留存收益科目的未分配利润
*———————————————————————-*
* –>P_YAMT text
* –>P_YSAMT text
* –>VALUE(P_ITEMID) text
* –>VALUE(LY) text
*———————————————————————-*
form getprofitamt using p_yamt
value(ly).
p_yamt = 0.
CASE p_rpv.
WHEN '2070'.
"不考虑利润中心
"本年度截止到查询月的发生额
select sum( hsl ) into p_yamt
from faglflexa
where ryear = ly
and rldnr = '0l'
and racct = '0000465201'
and rbukrs = 'n207'
and pprctr = ''.
"抵消内部交易'
when '2071' or '2072' or '2073'.
"自选利润中心组，利润中心可输可不输
if p_pc <> ''.
"有利润中心的情况
select sum( hsl ) into p_yamt
from faglflexa
where ryear = ly
and rldnr = '0l'
and racct = '0000465201'
and rbukrs = 'n207'
and prctr = p_pc.
ELSEIF p_pc IS INITIAL AND p_pcg IS NOT INITIAL.
"利润中心为空，选取所有的利润中心
"本年度截止到查询月的发生额
select sum( hsl ) into p_yamt
from faglflexa
where ryear = ly
and rldnr = '0l'
and racct = '0000465201'
and rbukrs = 'n207'
and prctr in ( select valfrom from setleaf where setname = p_pcg and subclass = 'n207' and setclass = '0106' ).
ENDIF.
ENDCASE.
p_yamt = ( -1 ) * p_yamt.
ENDFORM. "setlist
"getisamt
*&———————————————————————*
*& Form SETCON
*&———————————————————————*
* set container for alv
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form setcon .
CREATE OBJECT gs_con
EXPORTING
container_name = 'con'.
CREATE OBJECT gs_dyndoc_id
EXPORTING
style = 'alv_grid'.
CREATE OBJECT gs_splitter "分割为1到5行
EXPORTING
parent = gs_con
rows = 2
columns = 1.
CALL METHOD gs_splitter->get_container"获取第一行给gs_parent_html
EXPORTING
row = 1
column = 1
RECEIVING
container = gs_parent_html.
CALL METHOD gs_splitter->get_container
EXPORTING
row = 2
column = 1
RECEIVING
container = gs_parent_grid.
CALL METHOD gs_splitter->set_row_height
EXPORTING
id = 1
height = 20.
IF gv_iden = 'is'.
IF gs_alv_is IS INITIAL.
CREATE OBJECT gs_alv_is
EXPORTING
i_parent = gs_parent_grid.
ENDIF.
ELSEIF gv_iden = 'bs'.
IF gs_alv_bs IS INITIAL.
CREATE OBJECT gs_alv_bs
EXPORTING
i_parent = gs_parent_grid.
ENDIF.
ENDIF.
ENDFORM. "setlist
" setcon
*&———————————————————————*
*& Form SETCON1
*&———————————————————————*
* text
*———————————————————————-*
form setcon1 .
CREATE OBJECT gs_con1
EXPORTING
container_name = 'con1'.
CREATE OBJECT gs_dyndoc_id1
EXPORTING
style = 'alv_grid'.
CREATE OBJECT gs_splitter1 "分割为1到5行
EXPORTING
parent = gs_con1
ROWS = 1
COLUMNS = 1.
* CALL METHOD GS_SPLITTER1->GET_CONTAINER"获取第一行给GS_PARENT_HTML
* EXPORTING
* ROW = 1
* COLUMN = 1
* RECEIVING
* CONTAINER = GS_PARENT_HTML1.
CALL METHOD gs_splitter1->get_container
EXPORTING
row = 1
column = 1
RECEIVING
container = gs_parent_grid1.
ENDFORM. "setlist
" setcon
*&———————————————————————*
*& Form DISPLAYBS
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form displaybs .
PERFORM setlayout .
PERFORM buildfieldcat_bs.
PERFORM excluding_tb_function.
ENDFORM. "setlist
" displaybs
*&———————————————————————*
*& Form BUILDFIELDCAT_BS
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form buildfieldcat_bs .
CLEAR gt_fieldcat[].
PERFORM fill_field_category USING :
's' 'tabname' 'gt_alv_bs0' ,
" 'scrtext_m' '行次' ,
" 'outputlen' '20' ,
" 'key' 'x',
" 'col_pos' '2',
'e' 'fieldname' 'lct1' ,
's' 'tabname' 'gt_alv_bs0' ,
" 'scrtext_m' '资产' ,
" 'outputlen' '20' ,
" 'col_pos' '1',
'e' 'fieldname' 'item1' ,
's' 'tabname' 'gt_alv_bs0' ,
" 'scrtext_m' '期末余额' ,
" 'outputlen' '20' ,
" 'hotspot' 'x',
" 'col_pos' '3',
'e' 'fieldname' 'yamt1' ,
's' 'tabname' 'gt_alv_bs0' ,
" 'scrtext_m' '年初余额' ,
" 'outputlen' '20' ,
" 'col_pos' '4',
'e' 'fieldname' 'ysamt1' ,
's' 'tabname' 'gt_alv_bs0' ,
" 'scrtext_m' '行次' ,
" 'outputlen' '20' ,
" 'key' 'x',
" 'col_pos' '6',
'e' 'fieldname' 'lct2' ,
's' 'tabname' 'gt_alv_bs0' ,
" 'scrtext_m' '负债和所有者权益（或股东权益）' ,
" 'outputlen' '20' ,
" 'col_pos' '5',
'e' 'fieldname' 'item2' ,
's' 'tabname' 'gt_alv_bs0' ,
" 'scrtext_m' '期末余额' ,
" 'col_pos' '7',
" 'hotspot' 'x',
" 'outputlen' '20' ,
'e' 'fieldname' 'yamt2' ,
's' 'tabname' 'gt_alv_bs0' ,
" 'scrtext_m' '年初余额' ,
" 'outputlen' '20' ,
" 'col_pos' '8',
'e' 'fieldname' 'ysamt2' .
ENDFORM. "setlist
" buildfieldcat_bs
*&———————————————————————*
*& Form PRINT
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form print .
DATA:lv_dat TYPE zcte.
CONCATENATE p_y '年 ' p_m '月' INTO lv_dat.
DATA lv_fm_name TYPE rs38l_fnam."定义一个rs38l_fnam类型的变量存储功能模块名
if gv_iden = 'bs'.
CALL FUNCTION 'ssf_function_module_name'
exporting"输入参数，传递smartforms名子
formname = 'z_n207_bs'
IMPORTING:"输出参数，返回smartforms激活时生成的功能模块名
fm_name = lv_fm_name.
IF sy-subrc <> 0.
EXIT.
ENDIF.
CALL FUNCTION lv_fm_name
EXPORTING
date = lv_dat
TABLES
it_tab = gt_alv_bs0[].
ELSE.
CALL FUNCTION 'ssf_function_module_name'
exporting"输入参数，传递smartforms名子
formname = 'z_n207_is1'
IMPORTING:"输出参数，返回smartforms激活时生成的功能模块名
fm_name = lv_fm_name.
IF sy-subrc <> 0.
EXIT.
ENDIF.
CALL FUNCTION lv_fm_name
EXPORTING
dates = lv_dat
TABLES
itab_is = gt_alv_is0[].
ENDIF.
ENDFORM. "setlist
" print
*&———————————————————————*
*& Form DRILLDOWNIS1
*&———————————————————————*
* 获取利润表和资产负债表中本期金额的详细信息
*———————————————————————-*
* –>P_E_ROW_ID text
* –>P_E_COLUMN_ID text
* –>P_ES_ROW_NO text
*———————————————————————-*
form drilldownis1 using p_e_row_id
p_e_column_id type lvc_s_col
p_es_row_no type lvc_s_roid.
IF gv_iden = 'is'.
CLEAR gt_alv_is_dp1[].
CASE p_es_row_no-row_id.
WHEN 1.
PERFORM getisdpdata USING '6001' p_es_row_no-row_id.
APPEND LINES OF gt_alv_is_dp1 TO gt_alv_is_dp2.
PERFORM getisdpdata USING '6100' p_es_row_no-row_id.
APPEND LINES OF gt_alv_is_dp2 TO gt_alv_is_dp1.
SORT gt_alv_is_dp1 BY racct ASCENDING.
CLEAR gt_alv_is_dp2[].
WHEN 2.
PERFORM getisdpdata USING '6400' p_es_row_no-row_id.
APPEND LINES OF gt_alv_is_dp1 TO gt_alv_is_dp2.
PERFORM getisdpdata USING '6500' p_es_row_no-row_id.
APPEND LINES OF gt_alv_is_dp2 TO gt_alv_is_dp1.
CLEAR gt_alv_is_dp2[].
APPEND LINES OF gt_alv_is_dp1 TO gt_alv_is_dp2.
PERFORM getisdpdata USING '6610' p_es_row_no-row_id.
APPEND LINES OF gt_alv_is_dp2 TO gt_alv_is_dp1.
SORT gt_alv_is_dp1 BY racct ASCENDING.
CLEAR gt_alv_is_dp2[].
WHEN 3.
PERFORM getisdpdata USING '6450' p_es_row_no-row_id.
WHEN 4.
PERFORM getisdpdata USING '6600' p_es_row_no-row_id.
WHEN 5.
PERFORM getisdpdata USING '6600' p_es_row_no-row_id.
WHEN 6.
PERFORM getisdpdata USING '6620' p_es_row_no-row_id.
WHEN 7.
PERFORM getisdpdata USING '6630' p_es_row_no-row_id.
WHEN 8.
PERFORM getisdpdata USING '6640' p_es_row_no-row_id.
WHEN 9.
PERFORM getisdpdata USING '6645' p_es_row_no-row_id.
WHEN 12.
PERFORM getisdpdata USING '6301' p_es_row_no-row_id.
WHEN 13.
PERFORM getisdpdata USING '6711' p_es_row_no-row_id.
WHEN 14.
PERFORM getisdpdata USING '0000' p_es_row_no-row_id.
WHEN 15.
PERFORM getisdpdata USING '6901' p_es_row_no-row_id.
WHEN 17.
PERFORM getisdpdata USING '6801' p_es_row_no-row_id.
ENDCASE.
* –>2012.01.16 CCYU START
IF gt_alv_is_dp1[] IS NOT INITIAL.
SELECT saknr txt50
FROM skat
INTO CORRESPONDING FIELDS OF TABLE gt_skat
FOR ALL ENTRIES IN gt_alv_is_dp1
WHERE saknr = gt_alv_is_dp1-racct
AND spras = '1'
AND ktopl = 'skgc'.
ENDIF.
SORT gt_alv_is_dp1 BY racct.
SORT gt_skat BY saknr.
LOOP AT gt_alv_is_dp1.
READ TABLE gt_skat WITH KEY saknr = gt_alv_is_dp1-racct.
IF sy-subrc = 0.
gt_alv_is_dp1-txt50 = gt_skat-txt50.
ENDIF.
MODIFY gt_alv_is_dp1.
ENDLOOP.
* <–2012.01.16 CCYU END.
LOOP AT gt_alv_is_dp1.
CALL FUNCTION 'conversion_exit_alpha_output'
EXPORTING
input = gt_alv_is_dp1-racct
IMPORTING
output = gt_alv_is_dp1-racct.
MODIFY gt_alv_is_dp1.
ENDLOOP.
IF p_es_row_no-row_id = 10 OR
p_es_row_no-row_id = 11 OR
p_es_row_no-row_id = 16 OR
p_es_row_no-row_id = 18 OR
p_es_row_no-row_id = 19 OR
p_es_row_no-row_id = 20 OR
p_es_row_no-row_id = 21.
ELSE.
CALL SCREEN '0300' STARTING AT 10 10 ENDING AT 65 25.
ENDIF.
ELSE.
"资产负债表的下钻报表
clear gt_alv_bs_dp1[].
CLEAR gt_alv_bs_dp2[].
DATA:p_tran(1) VALUE '0'.
CASE p_es_row_no-row_id.
"选中行的行号
when 2.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1000'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2001'.
ENDIF.
p_tran = '1'.
WHEN 3.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1101'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2010'.
ENDIF.
p_tran = '1'.
WHEN 4.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1121'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2201'.
ENDIF.
p_tran = '1'.
WHEN 5.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1122'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2202'.
ENDIF.
p_tran = '1'.
WHEN 6.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1123'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2203'.
ENDIF.
p_tran = '1'.
WHEN 7.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1132'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2211'.
ENDIF.
p_tran = '1'.
WHEN 8.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1131'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2221'.
ENDIF.
p_tran = '1'.
WHEN 9.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1221'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2231'.
ENDIF.
p_tran = '1'.
WHEN 10.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1400'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2232'.
ENDIF.
p_tran = '1'.
WHEN 11.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1507'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2241'.
ENDIF.
p_tran = '1'.
WHEN 12.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1499'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2240'.
ENDIF.
p_tran = '1'.
WHEN 13.
IF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2222'.
p_tran = '1'.
ENDIF.
WHEN 15.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1503'.
p_tran = '1'.
ENDIF.
WHEN 16.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1501'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2501'.
ENDIF.
p_tran = '1'.
WHEN 17.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1504'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2502'.
ENDIF.
p_tran = '1'.
WHEN 18.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1511'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2701'.
ENDIF.
p_tran = '1'.
WHEN 19.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1521'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2711'.
ENDIF.
p_tran = '1'.
WHEN 20.
IF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2801'.
p_tran = '1'.
ENDIF.
WHEN 21.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1604'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2901'.
ENDIF.
p_tran = '1'.
WHEN 22.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1605'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '2000'.
ENDIF.
p_tran = '1'.
WHEN 23.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1606'.
p_tran = '1'.
ENDIF.
WHEN 26.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1701'.
p_tran = '1'.
ENDIF.
WHEN 27.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1710'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '4002'.
ENDIF.
p_tran = '1'.
WHEN 28.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1711'.
p_tran = '1'.
ENDIF.
WHEN 29.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1801'.
ELSEIF p_e_column_id-fieldname = 'yamt2'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '4101'.
ENDIF.
p_tran = '1'.
WHEN 30.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1811'.
p_tran = '1'.
ENDIF.
WHEN 31.
IF p_e_column_id-fieldname = 'yamt1'.
PERFORM getbsdp TABLES gt_alv_bs_dp1 USING '1901'.
p_tran = '1'.
ENDIF.
ENDCASE.
* –>2012.01.16 CCYU START
IF gt_alv_bs_dp1[] IS NOT INITIAL.
CLEAR gt_skat[].
SELECT saknr txt50
FROM skat
INTO CORRESPONDING FIELDS OF TABLE gt_skat
FOR ALL ENTRIES IN gt_alv_bs_dp1
WHERE saknr = gt_alv_bs_dp1-racct
AND spras = '1'
AND ktopl = 'skgc'.
ENDIF.
SORT gt_alv_bs_dp1 BY racct.
SORT gt_skat BY saknr.
LOOP AT gt_alv_bs_dp1.
READ TABLE gt_skat WITH KEY saknr = gt_alv_bs_dp1-racct.
IF sy-subrc = 0.
gt_alv_bs_dp1-txt50 = gt_skat-txt50.
ENDIF.
MODIFY gt_alv_bs_dp1.
ENDLOOP.
* <–2012.01.16 CCYU END.
LOOP AT gt_alv_bs_dp1.
"去除科目编号的前导零
call function 'conversion_exit_alpha_output'
exporting
input = gt_alv_bs_dp1-racct
importing
output = gt_alv_bs_dp1-racct.
MODIFY gt_alv_bs_dp1.
ENDLOOP.
IF p_tran = '1'.
CALL SCREEN '0400' STARTING AT 10 10 ENDING AT 65 25.
ENDIF.
ENDIF.
ENDFORM. "setlist
" drilldownis1
*&———————————————————————*
*& Form GETACCRANGE
*&———————————————————————*
* 获取报表版本下的科目范围
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form getaccrange using p_itemid.
CLEAR gr_act[].
LOOP AT gt_fagl_011zc WHERE ergsl = p_itemid.
gr_act-sign = 'i'.
gr_act-low = gt_fagl_011zc-vonkt.
gr_act-high = gt_fagl_011zc-biskt.
gr_act-option = 'bt'.
CALL FUNCTION 'conversion_exit_alpha_input'
EXPORTING
input = gr_act-low
IMPORTING
output = gr_act-low.
CALL FUNCTION 'conversion_exit_alpha_input'
EXPORTING
input = gr_act-high
IMPORTING
output = gr_act-high.
APPEND gr_act.
ENDLOOP.
ENDFORM. "setlist
" getaccrange
*&———————————————————————*
*& Form GETISAMT
*&———————————————————————*
* 获取利润表下钻的报表数据
*———————————————————————-*
* –>P_YAMT text
* –>P_MAMT text
* –>VALUE(P_ITEMID) text
* –>VALUE(P_ID) text
*———————————————————————-*
form getisdpdata using
value(p_itemid)
value(p_id).
CLEAR gt_alv_is_dp1[].
"构造科目查询范围的查询条件
PERFORM getaccrange USING p_itemid.
CHECK gr_act[] IS NOT INITIAL.
CASE p_rpv.
WHEN '2070'.
"不考虑利润中心
if p_id = 4.
"6600取功能范围1200
select racct as racct
sum( hsl ) as hsl
from faglflexa
into corresponding fields of table gt_alv_is_dp1
where ryear = p_y
and poper = p_m
and rldnr = '0l'
and racct in gr_act
and pprctr = ''"'"抵消内部交易
and rfarea = '1200'
and rbukrs = 'n207'
group by racct
order by racct ascending.
ELSEIF p_id = 5.
"6600取功能范围1300
select racct as racct
sum( hsl ) as hsl
from faglflexa
into corresponding fields of table gt_alv_is_dp1
where ryear = p_y
and poper = p_m
and rldnr = '0l'
and racct in gr_act
and pprctr = ''"'"抵消内部交易
and rbukrs = 'n207'
and rfarea = '1300'
group by racct
order by racct ascending.
ELSEIF p_id = 14.
"按照科目进行取数
select racct as racct
sum( hsl ) as hsl
from faglflexa
into corresponding fields of table gt_alv_is_dp1
where ryear = p_y
and poper = p_m
and rbukrs = 'n207'
and rldnr = '0l'
and racct between '962101' and '962201'
and pprctr ='' "抵消内部交易
group by racct
order by racct ascending.
ELSE.
"正常取
select racct as racct
sum( hsl ) as hsl
from faglflexa
into corresponding fields of table gt_alv_is_dp1
where ryear = p_y
and poper = p_m
and rldnr = '0l'
and rbukrs = 'n207'
and racct in gr_act
and pprctr = ""抵消内部交易
group by racct
order by racct ascending.
ENDIF.
WHEN '2071' OR '2072' OR '2073'.
"自选利润中心组，利润中心可输可不输
if p_pc <> ''.
IF p_id = 4.
"6600取功能范围1200
select racct as racct
sum( hsl ) as hsl
from faglflexa
into corresponding fields of table gt_alv_is_dp1
where ryear = p_y
and poper = p_m
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and prctr = p_pc
and rfarea = '1200'
group by racct
order by racct ascending.
ELSEIF p_id = 5.
"6600取功能范围1300
select racct as racct
sum( hsl ) as hsl
from faglflexa
into corresponding fields of table gt_alv_is_dp1
where ryear = p_y
and poper = p_m
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and prctr = p_pc
and rfarea = '1300'
group by racct
order by racct ascending.
ELSEIF p_id = 14.
"按照科目进行取数
select racct as racct
sum( hsl ) as hsl
from faglflexa
into corresponding fields of table gt_alv_is_dp1
where ryear = p_y
and poper = p_m
and rldnr = '0l'
and racct between '962101' and '962201'
and prctr = p_pc
and rbukrs = 'n207'
group by racct
order by racct ascending.
ELSE.
"正常取
select racct as racct
sum( hsl ) as hsl
from faglflexa
into corresponding fields of table gt_alv_is_dp1
where ryear = p_y
and poper = p_m
and rldnr = '0l'
and racct in gr_act
and rbukrs = 'n207'
and prctr = p_pc
group by racct
order by racct ascending.
ENDIF.
ELSEIF p_pc = ''.
"利润中心为空，选取所有的利润中心
if p_id = 4.
"6600取功能范围1200
select racct as racct
sum( hsl ) as hsl
from faglflexa
into corresponding fields of table gt_alv_is_dp1
where ryear = p_y
and poper = p_m
and rldnr = '0l'
and rbukrs = 'n207'
and racct in gr_act
and prctr in ( select valfrom from setleaf where setname = p_pcg and subclass = 'n207' and setclass = '0106')
and rfarea = '1200'
group by racct
order by racct ascending.
ELSEIF p_id = 5.
"6600取功能范围1300
select racct as racct
sum( hsl ) as hsl
from faglflexa
into corresponding fields of table gt_alv_is_dp1
where ryear = p_y
and poper = p_m
and rldnr = '0l'
and rbukrs = 'n207'
and racct in gr_act
and prctr in ( select valfrom from setleaf where setname = p_pcg and subclass = 'n207' and setclass = '0106')
and rfarea = '1300'
group by racct
order by racct ascending.
ELSEIF p_id = 14.
"按照科目进行取数
select racct as racct
sum( hsl ) as hsl
from faglflexa
into corresponding fields of table gt_alv_is_dp1
where ryear = p_y
and poper = p_m
and rldnr = '0l'
and rbukrs = 'n207'
and racct between '962101' and '962201'
and prctr in ( select valfrom from setleaf where setname = p_pcg and subclass = 'n207' and setclass = '0106')
group by racct
order by racct ascending.
ELSE.
"正常取
select racct as racct
sum( hsl ) as hsl
from faglflexa
into corresponding fields of table gt_alv_is_dp1
where ryear = p_y
and poper = p_m
and rbukrs = 'n207'
and rldnr = '0l'
and racct in gr_act
and prctr in ( select valfrom from setleaf where setname = p_pcg )
group by racct
order by racct ascending.
ENDIF.
ENDIF.
ENDCASE.
ENDFORM. "setlist
"getisamt
*&———————————————————————*
*& Form DISPLAYISDP
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form displayisdp .
PERFORM setlayoutisdp.
PERFORM buildfieldcat_isdp.
PERFORM excluding_tb_function1.
ENDFORM. "setlist
" displayisdp
*&———————————————————————*
*& Form DISPLAYBSDP
*&———————————————————————*
* text
*———————————————————————-*
form displaybsdp .
PERFORM setlayoutisdp.
PERFORM buildfieldcat_bsdp.
PERFORM excluding_tb_function1.
ENDFORM. "setlist
" displayisdp
*&———————————————————————*
*& Form SETLAYOUTISDP
*&———————————————————————*
* SET THE LAYOUT
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form setlayoutisdp .
CLEAR gs_layout.
gs_layout-cwidth_opt = 'x' .
gs_layout-zebra = 'x' .
gs_layout-sel_mode = 'a'.
gs_layout-numc_total = 'x'.
ENDFORM. "setlist
" setlayoutisdp
*&———————————————————————*
*& Form BUILDFIELDCAT_ISDP
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form buildfieldcat_isdp .
CLEAR gt_fieldcat[].
PERFORM fill_field_category USING :
's' 'tabname' 'gt_alv_is_dp1' ,
" 'scrtext_m' '科目' ,
" 'key' 'x',
" 'col_pos' '1',
'e' 'fieldname' 'racct' ,
* –>2012.01.16 CCYU START
's' 'tabname' 'gt_alv_is_dp1' ,
" 'scrtext_m' '科目描述' ,
" 'key' 'x',
" 'outputlen' '20',
" 'col_pos' '2',
'e' 'fieldname' 'txt50' ,
* <–2012.01.16 CCYU END.
's' 'tabname' 'gt_alv_is_dp1' ,
" 'scrtext_m' '金额' ,
" 'col_pos' '3',
" 'do_sum' 'x',
'e' 'fieldname' 'hsl' .
ENDFORM. "setlist
" buildfieldcat_isdp
*&———————————————————————*
*& Form GETBSDP
*&———————————————————————*
* 获取资产负债表的下钻信息
*———————————————————————-*
* –>P_YAMT text
* –>P_YSAMT text
* –>VALUE(P_ITEMID) text
*———————————————————————-*
form getbsdp tables p_gt_alv_bs_dp1 type gt_alv_bs_dp"tables参数是输入输出参数
using value(p_itemid).
"构造科目查询范围的查询条件
CLEAR gt_alv_bs_dp2[].
CLEAR p_gt_alv_bs_dp1[].
PERFORM getaccrange USING p_itemid.
CHECK gr_act[] IS NOT INITIAL.
DATA ly TYPE n LENGTH 4.
ly = p_y - 1.
CASE p_rpv.
WHEN '2070'.
"不考虑利润中心
select racct
hsl
from faglflexa
into corresponding fields of table gt_alv_bs_dp2
where
( ( ryear = p_y and poper between '01' and p_m ) or ( ryear le ly ) )
and rldnr = '0l'
and rbukrs = 'n207'
and racct in gr_act
and pprctr = ''.
"抵消内部交易.
WHEN '2071' OR '2072' OR '2073'.
"自选利润中心组，利润中心可输可不输
if p_pc <> ''.
"有利润中心的情况
select racct hsl
from faglflexa
into corresponding fields of table gt_alv_bs_dp2
where
( ( ryear = p_y and poper between '01' and p_m ) or ( ryear le ly ) )
and rldnr = '0l'
and rbukrs = 'n207'
and racct in gr_act
and prctr = p_pc.
ELSEIF p_pc = ''.
"利润中心为空，选取利润中心组下的利润中心
select racct
hsl
from faglflexa
into corresponding fields of table gt_alv_bs_dp2
where
( ( ryear = p_y and poper between '01' and p_m ) or ( ryear le ly ) )
and rldnr = '0l'
and rbukrs = 'n207'
and racct in gr_act
and prctr in ( select valfrom from setleaf where setname = p_pcg and subclass = 'n207' and setclass = '0106').
ENDIF.
ENDCASE.
LOOP AT gt_alv_bs_dp2.
"利用collect进行合计
move-corresponding gt_alv_bs_dp2 to gs_alv_bs_dp_obj1.
COLLECT gs_alv_bs_dp_obj1 INTO p_gt_alv_bs_dp1.
ENDLOOP.
SORT p_gt_alv_bs_dp1 BY racct ASCENDING.
ENDFORM. "setlist
"getisamt
*&———————————————————————*
*& Form BUILDFIELDCAT_BSDP
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form buildfieldcat_bsdp .
CLEAR gt_fieldcat[].
PERFORM fill_field_category USING :
's' 'tabname' 'gt_alv_bs_dp1' ,
" 'scrtext_m' '科目' ,
" 'key' 'x',
" 'col_pos' '1',
'e' 'fieldname' 'racct' ,
* –>2012.01.16 CCYU START
's' 'tabname' 'gt_alv_bs_dp1' ,
" 'scrtext_m' '科目描述' ,
" 'key' 'x',
" 'outputlen' '20',
" 'col_pos' '2',
'e' 'fieldname' 'txt50' ,
* <–2012.01.16 CCYU END.
's' 'tabname' 'gt_alv_bs_dp1' ,
" 'scrtext_m' '金额' ,
" 'col_pos' '3',
" 'do_sum' 'x',
'e' 'fieldname' 'hsl' .
ENDFORM. "setlist
" buildfieldcat_bsdp
*&———————————————————————*
*& Form porcess_show
*&———————————————————————*
* text
*———————————————————————-*
form porcess_show using value(p_pro).
CALL FUNCTION 'sapgui_progress_indicator'
EXPORTING
percentage = p_pro
text = '正在查询…'.
ENDFORM. "setlist
"porcess_show
*&———————————————————————*
*& Form GET_EXCEL
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form get_excel .
* –>2012.01.17 ccyu START
DATA:gv_fname LIKE rlgrap-filename,
gv_filename TYPE string.
IF gv_iden = 'bs'.
"资产负债表
clear gt_head1[].
gt_head1-t1 = '行次'.
gt_head1-t2 = '资产'.
gt_head1-t3 = '期末余额'.
gt_head1-t4 = '年初余额'.
gt_head1-t5 = '行次'.
gt_head1-t6 = '负债和所有者权益（或股东权益）'.
gt_head1-t7 = '期末余额'.
gt_head1-t8 = '年初余额'.
APPEND gt_head1.
CLEAR:gt_alv_bs01,gt_alv_bs01[].
LOOP AT gt_alv_bs0.
gt_alv_bs01-lct1 = gt_alv_bs0-lct1.
gt_alv_bs01-item1 = gt_alv_bs0-item1.
gt_alv_bs01-yamt1 = gt_alv_bs0-yamt1.
gt_alv_bs01-ysamt1 = gt_alv_bs0-ysamt1.
gt_alv_bs01-lct2 = gt_alv_bs0-lct2.
gt_alv_bs01-item2 = gt_alv_bs0-item2.
gt_alv_bs01-yamt2 = gt_alv_bs0-yamt2.
gt_alv_bs01-ysamt2 = gt_alv_bs0-ysamt2.
APPEND gt_alv_bs01.
ENDLOOP.
CALL FUNCTION 'ws_filename_get'
EXPORTING
mask = '
*.
xls,*.xls.'
mode = 's'
importing
filename = gv_fname
exceptions
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
others = 5.
IF gv_fname IS NOT INITIAL.
gv_filename = gv_fname.
*————————————————————-*
* DOWNLOAD HEADER *
*————————————————————-*
CALL FUNCTION 'gui_download'
EXPORTING
filename = gv_filename
filetype = 'asc'
write_field_separator = 'x'
TABLES
data_tab = gt_head1
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
*————————————————————-*
* DOWNLOAD TABLE *
*————————————————————-*
CALL FUNCTION 'gui_download'
EXPORTING
filename = gv_filename
filetype = 'asc'
append = 'x'
write_field_separator = 'x'
TABLES
data_tab = gt_alv_bs01[]
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
IF sy-subrc = 0.
MESSAGE i003(zn207m).
ENDIF.
ENDIF.
ELSEIF gv_iden = 'is'.
"利润表
call function 'ws_filename_get'
exporting
mask = ',*.
xls,*.xls.'
mode = 's'
importing
filename = gv_fname
exceptions
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
others = 5.
IF gv_fname IS NOT INITIAL.
CLEAR: gt_alv_is01[],gt_alv_is01.
LOOP AT gt_alv_is0.
MOVE-CORRESPONDING gt_alv_is0 TO gt_alv_is01.
APPEND gt_alv_is01.
ENDLOOP.
CLEAR gt_head2[].
gt_head2-t1 = '行次'.
gt_head2-t2 = '项目'.
gt_head2-t3 = '本期余额'.
gt_head2-t4 = '累计余额'.
APPEND gt_head2.
gv_filename = gv_fname.
*————————————————————-*
* DOWNLOAD HEADER *
*————————————————————-*
CALL FUNCTION 'gui_download'
EXPORTING
filename = gv_filename
filetype = 'asc'
write_field_separator = 'x'
TABLES
data_tab = gt_head2[]
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
*————————————————————-*
* DOWNLOAD TABLE *
*————————————————————-*
CALL FUNCTION 'gui_download'
EXPORTING
filename = gv_filename
filetype = 'asc'
append = 'x'
write_field_separator = 'x'
TABLES
data_tab = gt_alv_is01[]
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
IF sy-subrc = 0.
MESSAGE i003(zn207m).
ENDIF.
ENDIF.
ENDIF.
ENDFORM. "setlist
" get_excel
*&———————————————————————*
*& Form SYNCHRODATA
*&———————————————————————*
* 同步BSEG表和FAGLFLEXA表的利润中心和伙伴利润中心的数据
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
form synchrodata .
CALL FUNCTION 'sapgui_progress_indicator'
EXPORTING
*ERCENTAGE = 0
text = '正在同步数据…'.
"取抬头
SELECT gjahr
bukrs
belnr
FROM bkpf INTO CORRESPONDING FIELDS OF TABLE gt_bkpfsyn
WHERE bukrs = 'n207'
AND gjahr = p_y
AND monat = p_m.
IF gt_bkpfsyn[] IS NOT INITIAL.
"取抬头下的行项目
SELECT gjahr
bukrs
belnr
prctr
pprct
buzei
INTO CORRESPONDING FIELDS OF TABLE gt_bsegsyn
FROM bseg FOR ALL ENTRIES IN gt_bkpfsyn
WHERE bukrs = gt_bkpfsyn-bukrs
AND gjahr = gt_bkpfsyn-gjahr
AND belnr = gt_bkpfsyn-belnr.
"SORT gt_bsegsyn BY belnr ASCENDING.
"按月份取行项目
SELECT ryear
rbukrs
docnr
prctr
pprctr
buzei
FROM faglflexa INTO CORRESPONDING FIELDS OF TABLE gt_fagasyn
WHERE ryear = p_y
AND rbukrs = 'n207'
AND poper = p_m
AND rldnr = '0l'.
LOOP AT gt_fagasyn.
" gt_fagasyn-rclnt = sy-mandt.
READ TABLE gt_bsegsyn WITH KEY belnr = gt_fagasyn-docnr
buzei = gt_fagasyn-buzei.
IF sy-subrc = 0.
IF gt_bsegsyn-prctr IS NOT INITIAL.
"不为空才更改
if gt_fagasyn-prctr ne gt_bsegsyn-prctr.
UPDATE faglflexa SET prctr = gt_bsegsyn-prctr
WHERE rbukrs = 'n207'
AND ryear = p_y
AND docnr = gt_fagasyn-docnr
AND buzei = gt_fagasyn-buzei
AND rldnr = '0l'.
IF sy-subrc = 0.
COMMIT WORK.
ENDIF.
ENDIF.
ENDIF.
IF gt_bsegsyn-pprct IS NOT INITIAL.
"不为空才更改
if gt_fagasyn-pprctr ne gt_bsegsyn-pprct.
UPDATE faglflexa SET pprctr = gt_bsegsyn-pprct
WHERE rbukrs = 'n207'
AND ryear = p_y
AND docnr = gt_fagasyn-docnr
AND buzei = gt_fagasyn-buzei
AND rldnr = '0l'.
IF sy-subrc = 0.
COMMIT WORK.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
" modify faglflexa from table gt_fagasyn[]. :不行？
clear: gt_fagasyn[],gt_fagasyn,
gt_bsegsyn[],gt_bsegsyn,
gt_bkpfsyn[],gt_bkpfsyn.
ENDIF.
ENDFORM. "setlist
" synchrodata
*&———————————————————————*
*& Form getisdb
*&———————————————————————*
* text
*———————————————————————-*
form getisdb.
DATA:lv_pro1(10) TYPE p DECIMALS 2 VALUE '5',
lv_i1(10) TYPE p DECIMALS 2 VALUE '5'.
gv_iden = 'is'.
CLEAR gt_alv_is0[].
PERFORM setisitem."设置利润表项目
data:a like faglflext-hslvt,
b like faglflext-hslvt,
c like faglflext-hslvt,
d like faglflext-hslvt,
e like faglflext-hslvt,
f like faglflext-hslvt.
LOOP AT gt_alv_is0.
IF gt_alv_is0-lct = 1.
PERFORM getisamt USING a
b
'6001'
1.
PERFORM getisamt USING c
d
'6100'
1.
gt_alv_is0-yamt = a + c.
gt_alv_is0-mamt = b + d.
ELSEIF gt_alv_is0-lct = 2.
PERFORM getisamt USING a
b
'6400'
2.
PERFORM getisamt USING c
d
'6500'
2.
PERFORM getisamt USING e
f
'6610'
2.
gt_alv_is0-yamt = a + c + e.
gt_alv_is0-mamt = b + d + f.
ELSEIF gt_alv_is0-lct = 3.
PERFORM getisamt USING a
b
'6450'
3.
gt_alv_is0-yamt = a.
gt_alv_is0-mamt = b.
ELSEIF gt_alv_is0-lct = 4.
PERFORM getisamt USING a
b
'6600'
4.
gt_alv_is0-yamt = a.
gt_alv_is0-mamt = b.
ELSEIF gt_alv_is0-lct = 5.
PERFORM getisamt USING a
b
'6600'
5.
gt_alv_is0-yamt = a.
gt_alv_is0-mamt = b.
ELSEIF gt_alv_is0-lct = 6.
PERFORM getisamt USING a
b
'6620'
6.
gt_alv_is0-yamt = a.
gt_alv_is0-mamt = b.
ELSEIF gt_alv_is0-lct = 7.
PERFORM getisamt USING a
b
'6630'
7.
gt_alv_is0-yamt = a.
gt_alv_is0-mamt = b.
ELSEIF gt_alv_is0-lct = 8.
PERFORM getisamt USING a
b
'6640'
8.
gt_alv_is0-yamt = a.
gt_alv_is0-mamt = b.
ELSEIF gt_alv_is0-lct = 9.
PERFORM getisamt USING a
b
'6645'
9.
gt_alv_is0-yamt = a.
gt_alv_is0-mamt = b.
ELSEIF gt_alv_is0-lct = 12.
PERFORM getisamt USING a
b
'6301'
12.
gt_alv_is0-yamt = a.
gt_alv_is0-mamt = b.
ELSEIF gt_alv_is0-lct = 13.
PERFORM getisamt USING a
b
'6711'
13.
gt_alv_is0-yamt = a.
gt_alv_is0-mamt = b.
ELSEIF gt_alv_is0-lct = 14.
"按科目直接取数
perform getisamt using a
b
'0000'
14.
gt_alv_is0-yamt = a.
gt_alv_is0-mamt = b.
ELSEIF gt_alv_is0-lct = 15.
PERFORM getisamt USING a
b
'6901'
15.
gt_alv_is0-yamt = a.
gt_alv_is0-mamt = b.
ELSEIF gt_alv_is0-lct = 17.
PERFORM getisamt USING a
b
'6801'
17.
gt_alv_is0-yamt = a.
gt_alv_is0-mamt = b.
ENDIF.
MODIFY gt_alv_is0.
PERFORM porcess_show USING lv_pro1.
lv_pro1 = lv_pro1 + lv_i1.
ENDLOOP.
DATA:a1 LIKE faglflext-hslvt,
a1_1 LIKE faglflext-hslvt,
a2 LIKE faglflext-hslvt,
a2_1 LIKE faglflext-hslvt,
a3 LIKE faglflext-hslvt,
a3_1 LIKE faglflext-hslvt,
a4 LIKE faglflext-hslvt,
a4_1 LIKE faglflext-hslvt,
a5 LIKE faglflext-hslvt,
a5_1 LIKE faglflext-hslvt,
a6 LIKE faglflext-hslvt,
a6_1 LIKE faglflext-hslvt,
a7 LIKE faglflext-hslvt,
a7_1 LIKE faglflext-hslvt,
a8 LIKE faglflext-hslvt,
a8_1 LIKE faglflext-hslvt,
a9 LIKE faglflext-hslvt,
a9_1 LIKE faglflext-hslvt,
a10 LIKE faglflext-hslvt,
a10_1 LIKE faglflext-hslvt,
a11 LIKE faglflext-hslvt,
a11_1 LIKE faglflext-hslvt,
a12 LIKE faglflext-hslvt,
a12_1 LIKE faglflext-hslvt,
a13 LIKE faglflext-hslvt,
a13_1 LIKE faglflext-hslvt,
a14 LIKE faglflext-hslvt,
a14_1 LIKE faglflext-hslvt,
a15 LIKE faglflext-hslvt,
a15_1 LIKE faglflext-hslvt,
a16 LIKE faglflext-hslvt,
a16_1 LIKE faglflext-hslvt,
a17 LIKE faglflext-hslvt,
a17_1 LIKE faglflext-hslvt,
a18 LIKE faglflext-hslvt,
a18_1 LIKE faglflext-hslvt,
a19 LIKE faglflext-hslvt,
a19_1 LIKE faglflext-hslvt.
READ TABLE gt_alv_is0 WITH KEY lct = 1.
a1 = gt_alv_is0-yamt.
a1_1 = gt_alv_is0-mamt.
READ TABLE gt_alv_is0 WITH KEY lct = 2.
a2 = gt_alv_is0-yamt.
a2_1 = gt_alv_is0-mamt.
READ TABLE gt_alv_is0 WITH KEY lct = 3.
a3 = gt_alv_is0-yamt.
a3_1 = gt_alv_is0-mamt.
READ TABLE gt_alv_is0 WITH KEY lct = 4.
a4 = gt_alv_is0-yamt.
a4_1 = gt_alv_is0-mamt.
READ TABLE gt_alv_is0 WITH KEY lct = 5.
a5 = gt_alv_is0-yamt.
a5_1 = gt_alv_is0-mamt.
READ TABLE gt_alv_is0 WITH KEY lct = 6.
a6 = gt_alv_is0-yamt.
a6_1 = gt_alv_is0-mamt.
READ TABLE gt_alv_is0 WITH KEY lct = 7.
a7 = gt_alv_is0-yamt.
a7_1 = gt_alv_is0-mamt.
READ TABLE gt_alv_is0 WITH KEY lct = 8.
a8 = gt_alv_is0-yamt.
a8_1 = gt_alv_is0-mamt.
READ TABLE gt_alv_is0 WITH KEY lct = 9.
a9 = gt_alv_is0-yamt.
a9_1 = gt_alv_is0-mamt.
READ TABLE gt_alv_is0 WITH KEY lct = 12.
a12 = gt_alv_is0-yamt.
a12_1 = gt_alv_is0-mamt.
READ TABLE gt_alv_is0 WITH KEY lct = 13.
a13 = gt_alv_is0-yamt.
a13_1 = gt_alv_is0-mamt.
READ TABLE gt_alv_is0 WITH KEY lct = 15.
a15 = gt_alv_is0-yamt.
a15_1 = gt_alv_is0-mamt.
READ TABLE gt_alv_is0 WITH KEY lct = 17.
a17 = gt_alv_is0-yamt.
a17_1 = gt_alv_is0-mamt.
READ TABLE gt_alv_is0 WITH KEY lct = 14.
a14 = gt_alv_is0-yamt.
a14_1 = gt_alv_is0-mamt.
a11 = a1 - a2 - a3 - a4 - a5 - a6 - a7 + a8 + a9.
a11_1 = a1_1 - a2_1 - a3_1 - a4_1 - a5_1 - a6_1 - a7_1 + a8_1 + a9_1.
a16 = a11 + a12 - a13 - a14 + a15.
a16_1 = a11_1 + a12_1 - a13_1 - a14_1 + a15_1.
a18 = a16 - a17.
a18_1 = a16_1 - a17_1.
LOOP AT gt_alv_is0.
IF gt_alv_is0-lct = 11.
gt_alv_is0-yamt = a11.
gt_alv_is0-mamt = a11_1.
ELSEIF gt_alv_is0-lct = 16.
gt_alv_is0-yamt = a16.
gt_alv_is0-mamt = a16_1.
ELSEIF gt_alv_is0-lct = 18.
gt_alv_is0-yamt = a18.
gt_alv_is0-mamt = a18_1.
ENDIF.
MODIFY gt_alv_is0.
ENDLOOP.
IF p_curr = 'krw'.
LOOP AT gt_alv_is0.
gt_alv_is0-yamt = gt_alv_is0-yamt * gv_bs.
gt_alv_is0-mamt = gt_alv_is0-mamt * gv_bs.
gt_alv_is0-waers = 'krw'.
MODIFY gt_alv_is0.
ENDLOOP.
ELSE.
LOOP AT gt_alv_is0.
gt_alv_is0-waers = 'cny'.
MODIFY gt_alv_is0.
ENDLOOP.
ENDIF.
ENDFORM. "setlist
"getisdb
*&———————————————————————*
*& Include ZFIR00026_I01
*&———————————————————————*
*&———————————————————————*
*& Module USER_COMMAND_0200 INPUT
*&———————————————————————*
* text
*———————————————————————-*
module user_command_0200 input.
CASE sy-ucomm.
WHEN 'exit' OR 'back' OR 'cancle'.
LEAVE TO SCREEN 0.
WHEN 'pp'.
PERFORM ppsmartforms_is.
WHEN 'pr'.
PERFORM print.
ENDCASE.
ENDMODULE. "setlist
" user_command_0200 input
*&———————————————————————*
*& Module USER_COMMAND_0100 INPUT
*&———————————————————————*
* text
*———————————————————————-*
module user_command_0100 input.
CASE sy-ucomm.
WHEN 'cancle' OR 'exit' OR 'back'.
LEAVE TO SCREEN 0.
WHEN 'pp'.
PERFORM ppsmartforms_is.
WHEN 'pr'.
PERFORM print.
ENDCASE.
ENDMODULE. "setlist
" user_command_0100 input
*&———————————————————————*
*& Module USER_COMMAND_0300 INPUT
*&———————————————————————*
* text
*———————————————————————-*
module user_command_0300 input.
CASE sy-ucomm.
WHEN 'cancle' OR 'exit' OR 'back'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. "setlist
" user_command_0300 input
*&———————————————————————*
*& Module USER_COMMAND_0400 INPUT
*&———————————————————————*
* text
*———————————————————————-*
module user_command_0400 input.
CASE sy-ucomm.
WHEN 'cancle' OR 'exit' OR 'back'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. "setlist
" user_command_0400 input
*&———————————————————————*
*& Include ZFIR00026_O01
*&———————————————————————*
*&———————————————————————*
*& Module INITIAL OUTPUT
*&———————————————————————*
* text
*———————————————————————-*
module initial output.
DATA: lv_object TYPE REF TO lcl_app_compt.
CREATE OBJECT lv_object.
IF gs_alv_is IS INITIAL.
PERFORM setcon.
PERFORM displayis.
SET HANDLER lv_object->handle_toolbar FOR gs_alv_is .
*–>2012.01.18 CCYU START
SET HANDLER lv_object->handle_user_command FOR gs_alv_is .
*<–2012.01.18 CCYU END.
SET HANDLER lv_object->handle_topofpage FOR gs_alv_is .
SET HANDLER lv_object->handle_hotspot_click FOR gs_alv_is .
CALL METHOD gs_alv_is->set_table_for_first_display
EXPORTING
is_layout = gs_layout
it_toolbar_excluding = g_toolbar
CHANGING
it_outtab = gt_alv_is0[]
it_fieldcatalog = gt_fieldcat.
CALL METHOD gs_alv_is->list_processing_events
EXPORTING
i_event_name = 'top_of_page'
i_dyndoc_id = gs_dyndoc_id.
ENDIF.
ENDMODULE. "setlist
" initial output
*&———————————————————————*
*& Module SETPF OUTPUT
*&———————————————————————*
* text
*———————————————————————-*
module setpf output.
SET PF-STATUS '0200'.
SET TITLEBAR '0200'.
ENDMODULE. "setlist
" setpf output
*&———————————————————————*
*& Module STATUS_0100 OUTPUT
*&———————————————————————*
* text
*———————————————————————-*
module status_0100 output.
SET PF-STATUS '0100'.
SET TITLEBAR '0100'.
ENDMODULE. "setlist
" status_0100 output
*&———————————————————————*
*& Module INITIAL_0100 OUTPUT
*&———————————————————————*
* text
*———————————————————————-*
module initial_0100 output.
DATA: lv_object1 TYPE REF TO lcl_app_compt.
CREATE OBJECT lv_object1.
IF gs_alv_bs IS INITIAL.
PERFORM setcon.
PERFORM displaybs.
SET HANDLER lv_object1->handle_toolbar FOR gs_alv_bs.
*–>2012.01.18 CCYU START
SET HANDLER lv_object1->handle_user_command FOR gs_alv_bs .
*<–2012.01.18 CCYU END.
SET HANDLER lv_object1->handle_topofpage FOR gs_alv_bs .
SET HANDLER lv_object1->handle_hotspot_click FOR gs_alv_bs ."给gs_alv_bs注册事件
call method gs_alv_bs->set_table_for_first_display
exporting
is_layout = gs_layout
it_toolbar_excluding = g_toolbar
changing
it_outtab = gt_alv_bs0[]
it_fieldcatalog = gt_fieldcat.
CALL METHOD gs_alv_bs->list_processing_events
EXPORTING
i_event_name = 'top_of_page'
i_dyndoc_id = gs_dyndoc_id.
ENDIF.
ENDMODULE. "setlist
" initial_0100 output
*&———————————————————————*
*& Module STATUS_0300 OUTPUT
*&———————————————————————*
* text
*———————————————————————-*
module status_0300 output.
SET PF-STATUS '0300'.
SET TITLEBAR '0300'.
ENDMODULE. "setlist
" status_0300 output
*&———————————————————————*
*& Module INITIAL_0300 OUTPUT
*&———————————————————————*
* text
*———————————————————————-*
module initial_0300 output.
DATA: lv_object2 TYPE REF TO lcl_app_compt.
CREATE OBJECT lv_object2.
IF gs_alv_is_dp1 IS INITIAL.
PERFORM setcon1.
CREATE OBJECT gs_alv_is_dp1
EXPORTING
i_parent = gs_parent_grid1.
PERFORM displayisdp.
*–>2012.01.18 CCYU START
SET HANDLER lv_object2->handle_user_command FOR gs_alv_is_dp1 .
*<–2012.01.18 CCYU END.
"SET HANDLER LV_OBJECT2->HANDLE_TOOLBAR FOR GS_ALV_IS_DP1.
" set handler lv_object2->handle_topofpage for gs_alv_is_dp1 .
CALL METHOD gs_alv_is_dp1->set_table_for_first_display
EXPORTING
is_layout = gs_layout
it_toolbar_excluding = g_toolbar1
CHANGING
it_outtab = gt_alv_is_dp1[]
it_fieldcatalog = gt_fieldcat.
ELSE.
"CALL METHOD GS_ALV_IS_DP1->REFRESH_TABLE_DISPLAY.
"根据GT_ALV_IS_DP1[]中的数据重新刷新ALV
CALL METHOD gs_alv_is_dp1->set_table_for_first_display
EXPORTING
is_layout = gs_layout
it_toolbar_excluding = g_toolbar1
CHANGING
it_outtab = gt_alv_is_dp1[]
it_fieldcatalog = gt_fieldcat.
ENDIF.
ENDMODULE. "setlist
" initial_0300 output
*&———————————————————————*
*& Module STATUS_0400 OUTPUT
*&———————————————————————*
* text
*———————————————————————-*
module status_0400 output.
SET PF-STATUS '0300'.
SET TITLEBAR '0300'.
ENDMODULE. "setlist
" status_0400 output
*&———————————————————————*
*& Module INITIAL_0400 OUTPUT
*&———————————————————————*
* text
*———————————————————————-*
module initial_0400 output.
DATA: lv_object3 TYPE REF TO lcl_app_compt.
CREATE OBJECT lv_object3.
IF gs_alv_bs_dp1 IS INITIAL.
PERFORM setcon1.
CREATE OBJECT gs_alv_bs_dp1
EXPORTING
i_parent = gs_parent_grid1.
PERFORM displaybsdp.
*–>2012.01.18 CCYU START
SET HANDLER lv_object3->handle_user_command FOR gs_alv_bs_dp1 .
*<–2012.01.18 CCYU END.
"SET HANDLER LV_OBJECT2->HANDLE_TOOLBAR FOR GS_ALV_IS_DP1.
" set handler lv_object2->handle_topofpage for gs_alv_is_dp1 .
CALL METHOD gs_alv_bs_dp1->set_table_for_first_display
EXPORTING
is_layout = gs_layout
it_toolbar_excluding = g_toolbar1
CHANGING
it_outtab = gt_alv_bs_dp1[]
it_fieldcatalog = gt_fieldcat.
ELSE.
CALL METHOD gs_alv_bs_dp1->set_table_for_first_display
EXPORTING
is_layout = gs_layout
it_toolbar_excluding = g_toolbar1
CHANGING
it_outtab = gt_alv_bs_dp1[]
it_fieldcatalog = gt_fieldcat.
ENDIF.
ENDMODULE. "setlist
" initial_0400 output

复制代码

厉害了我的哥。

谢谢分享！

怎么没有了。

查看写学习学习

怎么什么都没有的

abap实现本地化的资产负债表和损益表

相关帖子

Ta最近发表

快速回帖