【正文】 k, 198 syvline. READ TABLE itb0 INDEX l. ENDIF. WRITE: 116 syvline, 118(60) int_cashflowdesc, ELSEIF fi_value = 39。 COM39。READ TABLE int_cashflow INDEX l. ENDIF. i = i + 1. zcashflow = int_cashflowfi_fkbtr. FI39。 IF fi_value = 39。i = 0. APPEND r_fipos. str. r_fiposoption = 39。I39。 ELSE. r_fiposhigh r_fiposlow BT39。. off = syfdpos. IF sysubrc = 0. SEARCH rfipos FOR 39。WHILE doing 0. DATA: off TYPE i, offset TYPE i, doing TYPE i. ENDIF. READ TABLE g_t_lfa1. *39。. IF NOT u_lifnr IS INITIAL. ENDIF. g_t_kna1 = space. IF u_kunnr = 39。 CHANGING c_text. GET_KUNNR_LIFNR_TEXT *amp。 ENDIF. ENDFORM. READ TABLE g_t_t001. * FORM read_bukrs_text USING u_bukrs IF sysubrc = 0. CHANGING c_pname. READ_FIKRS_TEXT *amp。 g_t_fkrs = space. Form * *amp。 RFFMIEP539。 CALL FUNCTION 39。SELE39。. CASE syum. CALL FUNCTION 39。WRITE: /011 syuline. *********************************************************************** * AT LINESELECTION. 金 39。 補(bǔ)充資料39。 116 syvline, 金 095 39。 目39。040 39。/011 syuline. 212 39。 , max_budat+4(2), 39。 , l_sav_butxt, . * , 115 max_budat, * , * ELSE. * 年39。. * . 金 ENDIF. ENDIF. ENDLOOP.TOPOFPAGE. ENDAT. CLEAR r_fipos. ENDIF. ENDIF. int_cashflow_fkbtr = int_cashflow_fkbtr g_t_fmmpfipos = r_fiposhigh. BT39。 IF r_fiposoption = 39。LOOP AT r_fipos. ENDAT. l_sav_butxt = g_t_t001butxt. PERFORM read_bukrs_text USING g_t_fmmpbukrs ENDIF. . num_of_bukrs = 0. insert l_t_to insert l_t_from = l_t_to insert insert IF sysubrc NE 0. insert APPEND lr_kunnr. insert DO. ELSE. INTO CORRESPONDING FIELDS OF TABLE g_t_kna1 IF l_t_lines = 50. . IF NOT r_kunnr IS INITIAL. ENDDO. WHERE lifnr IN lr_lifnr. insert l_t_to insert l_t_from = l_t_to insert insert IF sysubrc NE 0. insert APPEND lr_lifnr. insert ELSE. INTO CORRESPONDING FIELDS OF TABLE g_t_lfa1 insert * ENDLOOP. l_t_to LIKE sytabix VALUE 1, vo_saknr. perio bukrs EQ39。I39。IF NOT fmmplifnr IS INITIAL. = fmmpkunnr. . . g_t_fmmpzbuzei = fmmpvo_buzei. WHEN OTHERS. funds mitments 6539。 . g_t_fmmpzbuzei = fmmpebelp. 5039。MOVECORRESPONDING fmmp TO g_t_fmmp. APPEND g_t_fkrs. GET fpos. txt(70) TYPE c, 現(xiàn)金等價(jià)物期末余額 z_cashs_end 貨幣資金期初余額 LIKE bsegdmbtr, z_debit_equit 融資租賃固定資產(chǎn) z_stock_debit 以投資償還債務(wù) z_asset_debit 經(jīng)營活動(dòng)產(chǎn)生的現(xiàn)金凈額 LIKE bsegdmbtr, z_other z_ar 遞延稅款貸項(xiàng) z_defer_tax 固定資產(chǎn)報(bào)廢損失 z_asset_scr LIKE bsegdmbtr, 待攤費(fèi)用減少 z_paid_dec 無形資產(chǎn)攤銷 LIKE bsegdmbtr, 凈利潤 LIKE fmmpbukrs, z_bukrs LIKE sydatum, max_budat num_of_bukrs TYPE i VALUE 0. DATA TYPE i VALUE 0, LIKE fmmpfwaer, fi_fkbtr LIKE fmmpfkbtr, sortl LIKE kna1sortl, kunnr LIKE kna1kunnr, END OF g_t_lfa1. DATA: BEGIN OF g_t_kna1 OCCURS 200, LIKE fmmpwtext, pname LIKE fctrame, fname LIKE fkrsfitxt, zbelnr LIKE fmsubtr001, fwaer LIKE fmmpkunnr, lifnr vo_saknr LIKE fmmpvo_saknr, LIKE fmmpgsber, budat LIKE fmmpzhldt, perio LIKE fmmpgjahr, wrttp LIKE fmmpfipos, bukrs LIKE fmmpfikrs, 計(jì)算的基本思路是對(duì)表G_T_FMMP進(jìn)行循環(huán)，查找其中每條記錄的承諾項(xiàng)目屬于INT_CASHFLOW的 表項(xiàng)后，把其金額累計(jì)到相應(yīng)表項(xiàng)。 直接法： 裝入金流量表定義參數(shù)（FORM fill_item_direct） 總帳未清項(xiàng)表 t001 供應(yīng)商主記錄表 kna1 承諾項(xiàng)目主記錄表 fmmp 在SAP中用承諾項(xiàng)目出現(xiàn)金流量表（報(bào)表開發(fā)源代碼）可能使用到的外部數(shù)據(jù) 或 SAP數(shù)據(jù)表數(shù)據(jù)的格式、字段等： fkrs 用戶主記錄表 adrp 財(cái)務(wù)憑證抬頭表 bseg 總帳科目期間余額表 計(jì)算現(xiàn)金流量 END OF g_t_fmmp. DATA: BEGIN OF g_t_fkrs OCCURS 20, fikrs LIKE fkrsfikrs, fitxt LIKE fkrsfitxt, END OF g_t_kna1. RANGES: r_kunnr FOR kna1kunnr, r_lifnr FOR lfa1lifnr, r_fipos FOR fmmpfipos. DATA: BEGIN OF int_cashflow OCCURS 100, desc(66) END OF int_cashflow. DATA: BEGIN OF g_t_t001 OCCURS 300, bukrs LIKE t001bukrs, butxt LIKE t001butxt, pos LIKE fmmpbudat, z_max_budat z_profit z_bad_debit 壞帳準(zhǔn)備及計(jì)提的資產(chǎn)減值準(zhǔn)備 z_longpaid_dep LIKE bsegdmbtr, z_accrul_inc LIKE bsegdmbtr, z_fi_expen 財(cái)務(wù)費(fèi)用 LIKE bsegdmbtr, z_stock LIKE bsegdmbtr, 經(jīng)營性應(yīng)收減少 LIKE bsegdmbtr, z_loss LIKE bsegdmbtr, 以固定資產(chǎn)償還債務(wù) z_asset_invest LIKE bsegdmbtr, 以存貨償還債務(wù) z_donation 接受捐贈(zèng)非現(xiàn)金資產(chǎn) LIKE bsegdmbtr, 債務(wù)轉(zhuǎn)為資本 z_money_end 貨幣資金期末余額 LIKE bsegdmbtr, z_all_money 貨幣資金及現(xiàn)金等價(jià)物凈變動(dòng) DATA: BEGIN OF itb0 OCCURS 0, LIKE bsegdmbtr, g_t_fkrsfitxt = fkrsfitxt. COLLECT g_t_fpos. GET fmmp. WHEN 39。. 6439。 payment transfer WHEN 39。 g_t_fmmpzbelnr = fmmpkblnr. IF NOT fmmpkunnr IS INITIAL. I39。E