【正文】 S39。311139。310539。S39。232139。S39。218139。212139。211139。S39。124339。123139。122139。S39。140239。140139。110139。S39。170139。150139。S39。打印時(shí)間 :39。打印日期 :39。制表人員 :39。FI39。COM39。FI39。COM39。EQ39。I39。BT39。I39。39。,39。*39。*39。*39。*39。 Form GET_KUNNR_LIFNR_TEXT *amp。 * 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。 Form READ_FIPOS_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。 * *amp。RFFMIEP539。FM_SELECTION_CRITERIA_PRINT39。SELE39。SELE39。FM_DOCUMENT_DISPLAY39。EPOS39。 金 額 39。行次 39。補(bǔ)充資料 39。 金 額 39。行次 39。 項(xiàng) 目 39。單位 : 元 39。日 39。月 39。年 39。編制單位 : 39。報(bào)表編號(hào) : 會(huì)商 03 表 39。39。日期 :39。報(bào)表編號(hào) : 會(huì)商 03 表 39。月 39。年 39。會(huì)年企 03 表 39?，F(xiàn) 金 流 量 表 39。FI39。COM39。BT39。EQ39。9999123139。*39。*39。EQ39。I39。EQ39。I39。6539。6439。5139。5039。 計(jì)算現(xiàn)金流量 計(jì)算的基本思路是對(duì)表 G_T_FMMP 進(jìn)行循環(huán)，查找其中每條記錄的承諾項(xiàng)目屬于 INT_CASHFLOW 的 表項(xiàng)后，把其金額累計(jì)到相應(yīng)表項(xiàng)。在 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, 這部分程序禁止修改。 直接法： 裝入金流量表定義參數(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)。 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, z_bukrs LIKE fmmpbukrs, z_profit LIKE bsegdmbtr, 凈利潤(rùn) z_bad_debit LIKE bsegdmbtr, 壞帳準(zhǔn)備及計(jì)提的資產(chǎn)減值準(zhǔn)備 z_asset_dep LIKE bsegdmbtr, 固定資產(chǎn)折舊 z_intang_dep LIKE bsegdmbtr, 無形資產(chǎn)攤銷 z_longpaid_dep LIKE bsegdmbtr, 長(zhǎng)期待攤費(fèi)用攤銷 z_paid_dec LIKE bsegdmbtr, 待攤費(fèi)用減少 z_accrul_inc LIKE bsegdmbtr, 預(yù)提費(fèi)用增加 z_asset_pro LIKE bsegdmbtr, 固定資產(chǎn)，長(zhǎng)期資產(chǎn)處置損失 z_asset_scr LIKE bsegdmbtr, 固定資產(chǎn)報(bào)廢損失 z_fi_expen LIKE bsegdmbtr, 財(cái)務(wù)費(fèi)用 z_invest_loss LIKE bsegdmbtr, 投資損失 z_defer_tax LIKE bsegdmbtr, 遞延稅款貸項(xiàng) z_stock LIKE bsegdmbtr, 存貨減少 z_ar LIKE bsegdmbtr, 經(jīng)營(yíng)性應(yīng)收減少 z_ap LIKE bsegdmbtr, 經(jīng)營(yíng)性應(yīng)付增加 z_other LIKE bsegdmbtr, 其他 z_production LIKE bsegdmbtr, 經(jīng)營(yíng)活動(dòng)產(chǎn)生的現(xiàn)金凈額 z_loss LIKE bsegdmbtr, 總公司下?lián)軓?補(bǔ)虧損 z_asset_debit LIKE bsegdmbtr, 以固定資產(chǎn)償還債務(wù) z_invest_debit LIKE bsegdmbtr, 以投資償還債務(wù) z_asset_invest LIKE bsegdmbtr, 以固定資產(chǎn)投資 z_stock_debit LIKE bsegdmbtr, 以存貨償還債務(wù) z_asset_rented LIKE bsegdmbtr, 融資租賃固定資產(chǎn) z_donation LIKE bsegdmbtr, 接受捐贈(zèng)非現(xiàn)金資產(chǎn) z_debit_short LIKE bsegdmb