FUNCTION zfi_hkont_get_monat_glt0_i.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(BUKRS) LIKE GLT0-BUKRS DEFAULT 'S001'
*" VALUE(YEAR) LIKE GLT0-RYEAR DEFAULT SY-DATUM+0(4)
*" VALUE(MONAT) LIKE BKPF-MONAT DEFAULT SY-DATUM+4(2)
*" VALUE(YEAR_BEFORE) TYPE SY-SUBRC DEFAULT 0
*" VALUE(MONAT_BEFORE) TYPE SY-SUBRC DEFAULT 0
*" VALUE(HKONT_RANGE) TYPE ZHKON_HKONT_RANGE_TAB
*" EXPORTING
*" VALUE(RET_CODE) LIKE SY-SUBRC
*" VALUE(RESULT_TAB) TYPE ZHKON_GLT0_I_FIELDS_TAB
*"----------------------------------------------------------------------
DATA:
glt0_tab TYPE zhkon_glt0_fields_tab,
glt0_s_tab TYPE zhkon_glt0_s_fields_tab .
ret_code = 1.
PERFORM progress_indicator USING '正在提取数据,请稍候...'.
PERFORM get_data_glt0
TABLES hkont_range glt0_tab
USING bukrs year year_before monat .
PERFORM progress_indicator USING '正在汇总明细数据,请稍候...'.
PERFORM get_data_glt0_s "处理将明细数据进行汇总
TABLES glt0_tab
glt0_s_tab.
PERFORM progress_indicator USING '正在生成有效结果,请稍候...'.
PERFORM get_data_glt0_i "将明细数据进行汇总成最终结果
TABLES glt0_s_tab
result_tab
USING monat
monat_before.
ret_code = 0.
ENDFUNCTION.
*---------------------------------------------------------------------*
* FORM get_data_glt0 *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> P_RACCT_TAB *
* --> P_GLT0_TAB *
* --> P_BUKRS *
* --> P_YEAR *
* --> P_YEAR_BEFORE *