【正文】 or 39。. 經(jīng)營性負債 if tab2shkzg = 39。. 庫存科目 if tab2shkzg = 39。. 短期投資與長期投資 if tab2shkzg = 39。. 固定資產(chǎn)和無形資產(chǎn) if tab2shkzg = 39。, sydatum, 202 39。. zcashflow = int_cashflowfi_fkbtr. ENDIF. i = i + 1. j = j + 1. k = k + 1. WRITE : /011 syvline, 014 int_cashflowdesc, 085 syvline, 088(2) i,093 syvline. IF zcashflow 0. WRITE: 099 zcashflow CURRENCY g_t_fmmpfwaer. ENDIF. IF i 3. l = i + 32. READ TABLE int_cashflow INDEX l. IF fi_value = 39。. r_fiposlow = str. SHIFT item BY off PLACES. MOVE item TO str. r_fiposhigh = str. ELSE. MOVE item TO str. r_fipossign = 39。. ELSE. * / Lesen KreditorText aus interner Tabelle g_t_lfa1 = space. g_t_lfa1lifnr = u_lifnr. READ TABLE g_t_lfa1. IF sysubrc = 0. c_text = g_t_lfa1sortl. ENDIF. ENDIF. ENDIF. ENDFORM. GET_KUNNR_LIFNR_TEXT *********************************************************** FORM input_range USING value(rfipos). DATA: off TYPE i, offset TYPE i, doing TYPE i. DATA: item(20), str(10). off = 0. offset = 0. doing = 1. WHILE doing 0. SHIFT rfipos BY offset PLACES. SEARCH rfipos FOR 39。 * FORM get_kunnr_lifnr_text USING value(u_kunnr) value(u_lifnr) CHANGING c_text. CLEAR c_text. IF NOT u_kunnr IS INITIAL. IF u_kunnr = 39。 * *amp。. CALL FUNCTION 39。, 220 syvline. WRITE: /011 syuline. *********************************************************************** * AT LINESELECTION. CHECK l_sav_hide_row_type = 39。, 093 syvline, 095 39。, max_budat+6(2), 39。 , 115 max_budat, * 202 39。, min_budat+4(2), 39。. num_of_bukrs = num_of_bukrs + 1. ENDAT. AT END OF fikrs. IF num_of_bukrs NE 1. CLEAR l_sav_butxt. PERFORM output_info USING 39。. DELETE r_kunnr. ENDLOOP. DESCRIBE TABLE r_kunnr LINES l_t_lines. insert IF l_t_lines = 50. insert * / KundenKurztexte auf einmal einlesen insert SELECT kunnr sortl FROM kna1 INTO CORRESPONDING FIELDS OF TABLE g_t_kna1 WHERE kunnr IN r_kunnr. ELSE. insert * / KundenKurztexte in Bloecken einlesen insert DO. insert * / Bloecke zu je 50 Kunden bilden insert REFRESH lr_kunnr. insert LOOP AT r_kunnr FROM l_t_from TO l_t_to. insert lr_kunnr = r_kunnr. insert APPEND lr_kunnr. 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 * / KundenKurztexte lesen insert SELECT kunnr sortl FROM kna1 insert APPENDING CORRESPONDING FIELDS insert OF TABLE g_t_kna1 insert WHERE kunnr IN lr_kunnr. insert ENDDO. insert ENDIF. insert ENDIF. SELECT bukrs butxt FROM t001 INTO CORRESPONDING FIELDS OF TABLE g_t_t001. DATA: l_sav_wrttp_text(30), l_sav_fwaer LIKE fmmpfwaer, l_sav_butxt LIKE t001butxt, l_sav_hide_row_type(4). num_of_bukrs = 0. max_budat = 0. min_budat = 39。. r_kunnrlow = fmmpkunnr. COLLECT r_kunnr. ENDIF. IF NOT fmmplifnr IS INITIAL. r_lifnrsign = 39。. purchase order g_t_fmmpzbelnr = fmmpebeln. g_t_fmmpzbuzei = fmmpebelp. WHEN 39。在 SAP 中用承諾項目出現(xiàn)金流量表（報表開發(fā)源代碼） 可能使用到的外部數(shù)據(jù) 或 SAP 數(shù)據(jù)表數(shù)據(jù)的格式、字段等： fkrs 財務管理范圍主記錄表 fops 承諾項目主記錄表 fmmp 現(xiàn)金預算管理行項目表 lfa1 供應商主記錄表 kna1 客戶主記錄表 bsis 總帳未清項表 t001 公司代碼主記錄表 usr21 用戶主記錄表 adrp 用戶地址表 bkpf 財務憑證抬頭表 bseg 財務憑證行項目表 glt0 總帳科目期間余額表 直接法通過分析憑證的承諾項目來取數(shù)， SAP 為該項功能定義了一個邏輯數(shù)據(jù)庫 C1F. 本程序 開始部分的邏輯數(shù)據(jù)庫取數(shù)部分是 SAP 的標準程序，其功能是將與現(xiàn)金流量相關的數(shù)據(jù)裝入內部表 G_T_FMMP, 這部分程序禁止修改。6439。I39。9999123139。FI39。月 39。報表編號 : 會商 03 表 39。日 39。 金 額 39。EPOS39。FM_SELECTION_CRITERIA_PRINT39。 Form READ_FIPOS_TEXT *amp。*39。,39。I39。COM39。打印時間 :39。S39。S39。S39。S39。311139。310539。218139。124339。140239。170139。打印日期 :39。FI39。BT39。*39。 Form GET_KUNNR_LIFNR_TEXT *amp。 * 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。SELE39。 金 額 39。行次 39。月 39。39。年 39。COM39。*39。EQ39。5139。 直接法： 裝入金流量表定義參數(shù)（ FORM fill_item_direct） 該