【正文】 WRITE: 099 zcashflow CURRENCY g_t_fmmpfwaer. ENDIF. . LOOP AT int_cashflow FROM 1 TO 32. DATA zcashflow LIKE fmmpfkbtr. ENDIF. . r_fipossign str. SHIFT item BY off PLACES. = = 39。off = off + 1. 39。 MOVE rfipos TO item. MOVE rfipos(offset) TO item. . SHIFT rfipos BY offset PLACES. off = 0. offset = 0. ENDIF. g_t_lfa1 = space. IF u_lifnr = 39。ENDIF. READ TABLE g_t_kna1. *39。. IF NOT u_kunnr IS INITIAL. READ_FIPOS_TEXT *amp。 g_t_t001 = space. Form * *amp。 c_pname = g_t_fpospname. g_t_fposfipos = u_fipos. READ_FIPOS_TEXT *amp。 ENDIF. ENDFORM. READ TABLE g_t_fkrs. * FORM read_fikrs_text USING u_fikrs = 1. OTHERS EXCEPTIONS WHEN 39。 EPOS39。, 行次39。 190 syvline, 39。 行次39。 085 syvline, 項 . 日39。 , max_budat(4), 39。 WRITE: /012 39。202 39。 103 min_budat, 113 39。 WRITE: /097 39。報表編號: 會商03表39。 月39。 WRITE: /210 39。量 WRITE: /100 39。 ENDIF. FI39。 AT END OF fikrs. num_of_bukrs = num_of_bukrs + 1. COM39。PERFORM cal_indirect USING g_t_fmmpbukrs. MODIFY TABLE int_cashflow. + g_t_fmmpfkbtr. int_cashflowfi_fkbtr IF g_t_fmmpfipos = r_fiposlow AND + g_t_fmmpfkbtr. = int_cashflowfi_fkbtr . LOOP AT int_cashflow. ENDLOOP. CLEAR int_cashflow. MODIFY TABLE int_cashflow. CLEAR int_cashflowfi_fkbtr. LOOP AT int_cashflow. IF max_budat g_t_fmmpbudat . min_budat = g_t_fmmpbudat . min_budat = 39。 INTO CORRESPONDING FIELDS OF TABLE g_t_t001. SELECT bukrs butxt FROM t001 ENDDO. WHERE kunnr IN lr_kunnr. insert ENDIF. insert WHERE kunnr IN r_kunnr. insert insert LOOP AT r_kunnr WHERE low = 39。 insert ENDIF. insert DO. WHERE lifnr IN r_lifnr. insert / LieferantenKurztexte auf einmal einlesen DESCRIBE TABLE r_lifnr LINES l_t_lines. DELETE r_lifnr. *39。l_t_lines LIKE sytabix. * / Lesen KreditorenTexte aus StammdatenTabelle LIKE sytabix VALUE 50, lr_kunnr FOR kna1kunnr. zbelnr wrttp ENDIF. ENDOFSELECTION. r_lifnrsign COLLECT r_kunnr. r_kunnrlow r_kunnroption = 39。 = 39。APPEND g_t_fmmp. Fi documents g_t_fmmpzbuzei = fmmpkblpos. g_t_fmmpzbelnr = fmmpkblnr. WHEN 39。 purchase order 5139。 g_t_fpospname = fpospname. g_t_fkrsfikrs = fkrsfikrs. END OF itb0, LIKE bsegdmbtr, z_cashs_init LIKE bsegdmbtr, 一年內到期的可轉換公司債券 z_bond_due z_debit_short z_asset_rented LIKE bsegdmbtr, z_invest_debit LIKE bsegdmbtr, LIKE bsegdmbtr, 其他 z_ap LIKE bsegdmbtr, z_invest_loss LIKE bsegdmbtr, 預提費用增加 LIKE bsegdmbtr, LIKE bsegdmbtr, 固定資產折舊 z_asset_dep LIKE bsegdmbtr, z_min_budat cashflow_detail. DATA : min_budat END OF g_t_t001. DATA: fi_fwaer LIKE fmmpfkbtr, _fkbtr TYPE c, pname LIKE fpospname, fipos LIKE fposfipos, END OF g_t_fkrs. DATA: BEGIN OF g_t_fpos OCCURS 200, wtext LIKE fpospname, ame LIKE ffndfname, fitxt vo_gjahr LIKE fmmpvo_gjahr, vo_bukrs LIKE fmmpvo_bukrs, LIKE cooirfpos, fkbtr LIKE fmmpfwaer, kunnr LIKE fmmplifnr, gsber LIKE fmmpbudat, zhldt LIKE fmmpperio, gjahr LIKE fmmpwrttp, fipos LIKE fmmpbukrs, fikrs t001, usr21, adrp, bkpf, bseg, glt0. DATA: BEGIN OF g_t_fmmp OCCURS 300, NO STANDARD PAGE HEADING LINESIZE 220. TABLES: fkrs, fpos, fmmp, lfa1, kna1 ,bsis, 這部分是邏輯數(shù)據(jù)庫裝入，屬于SAP標準程序，數(shù)據(jù)關系比較復雜，建議不要做任何改動。 公司代碼主記錄表 usr21 客戶主記錄表 bsis 現(xiàn)金預算管理行項目表 lfa1 財務管理范圍主記錄表 fops 用戶地址表 bkpf 財務憑證行項目表 glt0 直接法通過分析憑證的承諾項目來取數(shù)，SAP為該項功能定義了一個邏輯數(shù)據(jù)庫C1F. 本程序 開始部分的邏輯數(shù)據(jù)庫取數(shù)部分是SAP的標準程序，其功能是將與現(xiàn)金流量相關的數(shù)據(jù)裝入內部表 G_T_FMMP, 這部分程序禁止修改。 該子程序將的現(xiàn)金流量表項和其對應的承諾項目裝入內部表INT_CASHFLOW. 裝入與現(xiàn)金流量相關的數(shù)據(jù) REPORT zcmrp001 LIKE cooirefbn, zbuzei END OF g_t_fpos. DATA: BEGIN OF g_t_lfa1 OCCURS 200, lifnr LIKE lfa1lifnr, sortl LIKE lfa1sortl, TYPE c, r_fipos(66) LIKE fmmpbudat, LIKE sydatum, LIKE bsegdmbtr, z_intang_dep 長期待攤費用攤銷 z_asset_pro 固定資產，長期資產處置損失 LIKE bsegdmbtr, 投資損失 存貨減少 LIKE bsegdmbtr, 經營性應付增加 z_production 總公司下?lián)軓浹a虧損 LIKE bsegdmbtr, 以固定資產投資 LIKE bsegdmbtr, LIKE bsegdmbtr, 償還的經營性債務 LIKE bsegdmbtr, z_money_init LIKE bsegdmbtr, 現(xiàn)金等價物期初余額 LIKE bsegdmbtr. num mtxt(70) TYPE c. **INITIALIZATION. PERFORM fill_item_direct. *STARTOFSELECTION. GET fkrs. g_t_fposfipos = fposfipos. CASE fmmpwrttp. OR 39。 g_t_fmmpzbelnr = fmmpebeln. g_t_fmmpzbuzei = fmmpkblpos. . g_t_fmmpzbelnr = fmmpvo_belnr. ENDCASE. r_kunnrsign . . COLLECT r_lifnr. fipos zhldt RANGES: