【正文】 CHANGING g_t_t001butxt. l_sav_butxt = g_t_t001butxt. LOOP AT int_cashflow. CLEAR int_cashflow_fkbtr. MODIFY TABLE int_cashflow. CLEAR int_cashflow. ENDLOOP. ENDAT. LOOP AT int_cashflow. PERFORM input_range USING int_cashflowr_fipos. LOOP AT r_fipos. IF r_fiposoption = 39。. DELETE r_lifnr. ENDLOOP. DESCRIBE TABLE r_lifnr LINES l_t_lines. insert IF l_t_lines = 50. insert * / LieferantenKurztexte auf einmal einlesen insert SELECT lifnr sortl FROM lfa1 INTO CORRESPONDING FIELDS OF TABLE g_t_lfa1 WHERE lifnr IN r_lifnr. ELSE. insert * / LieferantenKurztexte in Bloecken einlesen insert DO. insert * / Bloecke zu je 50 Leferanten bilden insert REFRESH lr_lifnr. insert LOOP AT r_lifnr FROM l_t_from TO l_t_to. insert lr_lifnr = r_lifnr. insert APPEND lr_lifnr. insert ENDLOOP. insert IF sysubrc NE 0. insert EXIT. insert ENDIF. insert l_t_from = l_t_to + 1. insert l_t_to = l_t_from + 50. insert * / LieferantenKurztexte lesen insert SELECT lifnr sortl FROM lfa1 insert APPENDING CORRESPONDING FIELDS insert OF TABLE g_t_lfa1 insert WHERE lifnr IN lr_lifnr. insert ENDDO. insert ENDIF. insert ENDIF. * / Lesen DebitorenTexte aus StammdatenTabelle IF NOT r_kunnr IS INITIAL. LOOP AT r_kunnr WHERE low = 39。. r_lifnroption = 39。. r_kunnroption = 39。. payment transfer g_t_fmmpzbelnr = fmmpkblnr. g_t_fmmpzbuzei = fmmpkblpos. WHEN 39。 OR 39。 直接法： 裝入金流量表定義參數(shù)（ FORM fill_item_direct） 該子程序?qū)⒌默F(xiàn)金流量表項(xiàng)和其對(duì)應(yīng)的承諾項(xiàng)目裝入內(nèi)部表INT_CASHFLOW. 裝入與現(xiàn)金流量相關(guān)的數(shù)據(jù) 這部分是邏輯數(shù)據(jù)庫(kù)裝入，屬于 SAP 標(biāo) 準(zhǔn)程序，數(shù)據(jù)關(guān)系比較復(fù)雜，建議不要做任何改動(dòng)。 計(jì)算現(xiàn)金流量 計(jì)算的基本思路是對(duì)表 G_T_FMMP 進(jìn)行循環(huán)，查找其中每條記錄的承諾項(xiàng)目屬于 INT_CASHFLOW 的 表項(xiàng)后，把其金額累計(jì)到相應(yīng)表項(xiàng)。5139。6539。EQ39。EQ39。*39。EQ39。COM39?，F(xiàn) 金 流 量 表 39。年 39。報(bào)表編號(hào) : 會(huì)商 03 表 39。39。編制單位 : 39。月 39。單位 : 元 39。行次 39。補(bǔ)充資料 39。 金 額 39。FM_DOCUMENT_DISPLAY39。SELE39。RFFMIEP539。 * FORM read_fikrs_text USING u_fikrs CHANGING c_fitxt. g_t_fkrs = space. g_t_fkrsfikrs = u_fikrs. READ TABLE g_t_fkrs. IF sysubrc = 0. c_fitxt = g_t_fkrsfitxt. ENDIF. ENDFORM. READ_FIKRS_TEXT *amp。 * *amp。 Form GET_KUNNR_LIFNR_TEXT *amp。*39。*39。39。BT39。EQ39。FI39。FI39。打印日期 :39。S39。170139。110139。140239。122139。124339。211139。218139。232139。310539。S39。311139。S39。S39。212139。S39。123139。S39。140139。S39。150139。打印時(shí)間 :39。制表人員 :39。COM39。COM39。I39。I39。,39。*39。*39。 * FORM read_bukrs_text USING u_bukrs CHANGING c_butxt. g_t_t001 = space. g_t_t001bukrs = u_bukrs. READ TABLE g_t_t001. IF sysubrc = 0. c_butxt = g_t_t001butxt. ENDIF. ENDFORM. READ_FIPOS_TEXT *amp。 Form READ_FIPOS_TEXT *amp。 * *amp。FM_SELECTION_CRITERIA_PRINT39。SELE39。EPOS39。行次 39。 金 額 39。 項(xiàng) 目 39。日 39。年 39。報(bào)表編號(hào) : 會(huì)商 03 表 39。日期 :39。月 39。會(huì)年企 03 表 39。FI39。BT39。9999123139。*39。I39。I39。6439。5039。在 SAP 中用承諾項(xiàng)目出現(xiàn)金流量表（報(bào)表開發(fā)源代碼） 可能使用到的外部數(shù)據(jù) 或 SAP 數(shù)據(jù)表數(shù)據(jù)的格式、字段等： fkrs 財(cái)務(wù)管理范圍主記錄表 fops 承諾項(xiàng)目主記錄表 fmmp 現(xiàn)金預(yù)算管理行項(xiàng)目表 lfa1 供應(yīng)商主記錄表 kna1 客戶主記錄表 bsis 總帳未清項(xiàng)表 t001 公司代碼主記錄表 usr21 用戶主記錄表 adrp 用戶地址表 bkpf 財(cái)務(wù)憑證抬頭表 bseg 財(cái)務(wù)憑證行項(xiàng)目表 glt0 總帳科目期間余額表 直接法通過分析憑證的承諾項(xiàng)目來取數(shù)， SAP 為該項(xiàng)功能定義了一個(gè)邏輯數(shù)據(jù)庫(kù) C1F. 本程序 開始部分的邏輯數(shù)據(jù)庫(kù)取數(shù)部分是 SAP 的標(biāo)準(zhǔn)程序，其功能是將與現(xiàn)金流量相關(guān)的數(shù)據(jù)裝入內(nèi)部表 G_T_FMMP, 這部分程序禁止修改。 REPORT zcmrp001 NO STANDARD PAGE HEADING LINESIZE 220. TABLES: fkrs, fpos, fmmp, lfa1, kna1 ,bsis, t001, usr21, adrp, bkpf, bseg, glt0. DATA: BEGIN OF g_t_fmmp OCCURS 300, fikrs LIKE fmmpfikrs, bukrs LIKE fmmpbukrs, fipos LIKE fmmpfipos, wrttp LIKE fmmpwrttp, gjahr LIKE fmmpgjahr, perio LIKE fmmpperio, zhldt LIKE fmmpzhldt, budat LIKE fmmpbudat, gsber LIKE fmmpgsber, vo_saknr LIKE fmmpvo_saknr, lifnr LIKE fmmplifnr, kunnr LIKE fmmpkunnr, fwaer LIKE fmmpfwaer, fkbtr LIKE fmsubtr001, zbelnr LIKE cooirefbn, zbuzei LIKE cooirfpos, vo_bukrs LIKE fmmpvo_bukrs, vo_gjahr LIKE fmmpvo_gjahr, fitxt LIKE fkrsfitxt, fname LIKE ffndfname, ame LIKE fctrame, pname LIKE fpospname, wtext LIKE fmmpwtext, END OF g_t_fmmp. DATA: BEGIN OF g_t_fkrs OCCURS 20, fikrs LIKE fkrsfikrs, fitxt LIKE fkrs