【正文】 ). * WRITE: /104 min_budat(4), 39。. IF g_t_fmmpfipos = r_fiposlow AND g_t_fmmpfipos = r_fiposhigh. int_cashflowfi_fkbtr = int_cashflowfi_fkbtr + g_t_fmmpfkbtr. int_cashflow_fkbtr = int_cashflow_fkbtr + g_t_fmmpfkbtr. ENDIF. ENDIF. ENDLOOP. MODIFY TABLE int_cashflow. CLEAR int_cashflow. CLEAR r_fipos. REFRESH r_fipos. ENDLOOP . AT END OF bukrs. PERFORM cal_indirect USING g_t_fmmpbukrs. PERFORM output_info USING 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_kunnroption = 39。 OR 39。 計算現(xiàn)金流量 計算的基本思路是對表 G_T_FMMP 進行循環(huán)，查找其中每條記錄的承諾項目屬于 INT_CASHFLOW 的 表項后，把其金額累計到相應表項。6539。EQ39。EQ39。現(xiàn) 金 流 量 表 39。報表編號 : 會商 03 表 39。編制單位 : 39。單位 : 元 39。補充資料 39。FM_DOCUMENT_DISPLAY39。RFFMIEP539。 * *amp。*39。39。EQ39。FI39。S39。110139。122139。211139。232139。S39。S39。212139。123139。140139。150139。制表人員 :39。COM39。I39。*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。 * *amp。SELE39。行次 39。 項 目 39。年 39。日期 :39。會年企 03 表 39。BT39。*39。I39。5039。 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 fkrsfitxt, END OF g_t_fkrs. DATA: BEGIN OF g_t_fpos OCCURS 200, fipos LIKE fposfipos, pname LIKE fpospname, END OF g_t_fpos. DATA: BEGIN OF g_t_lfa1 OCCURS 200, lifnr LIKE lfa1lifnr, sortl LIKE lfa1sortl, END OF g_t_lfa1. DATA: BEGIN OF g_t_kna1 OCCURS 200, kunnr LIKE kna1kunnr, sortl LIKE kna1sortl, 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) TYPE c, r_fipos(66) TYPE c, _fkbtr LIKE fmmpfkbtr, fi_fkbtr LIKE fmmpfkbtr, fi_fwaer LIKE fmmpfwaer, END OF int_cashflow. DATA: BEGIN OF g_t_t001 OCCURS 300, bukrs LIKE t001bukrs, butxt LIKE t001butxt, END OF g_t_t001. DATA: pos TYPE i VALUE 0, num_of_bukrs TYPE i VALUE 0. DATA cashflow_detail. DATA : min_budat LIKE fmmpbudat, max_budat LIKE fmmpbudat, z_min_budat LIKE sydatum, z_max_budat LIKE sydatum,