在sap中用承诺项目出现金流量表报表开发源代码.docx

1、在sap中用承诺项目出现金流量表报表开发源代码在SAP中用承诺项目出现金流量表（报表开发源代码）可能使用到的外部数据 或 SAP数据表数据的格式、字段等： fkrs 财务管理范围主记录表 fops 承诺项目主记录表 fmmp 现金预算管理行项目表 lfa1 供应商主记录表 kna1 客户主记录表 bsis 总帐未清项表 t001 公司代码主记录表 usr21 用户主记录表 adrp 用户地址表 bkpf 财务凭证抬头表 bseg 财务凭证行项目表 glt0 总帐科目期间余额表 直接法通过分析凭证的承诺项目来取数，SAP为该项功能定义了一个逻辑数据库C1F. 本程序 开始部分的逻辑数据库取数部分

2、是SAP的标准程序，其功能是将与现金流量相关的数据装入内部表 G_T_FMMP, 这部分程序禁止修改。 直接法： 1、装入金流量表定义参数（FORM fill_item_direct） 该子程序将的现金流量表项和其对应的承诺项目装入内部表INT_CASHFLOW. 2、装入与现金流量相关的数据 这部分是逻辑数据库装入，属于SAP标准程序，数据关系比较复杂，建议不要做任何改动。 3、计算现金流量 计算的基本思路是对表G_T_FMMP进行循环，查找其中每条记录的承诺项目属于INT_CASHFLOW的 表项后，把其金额累计到相应表项。 REPORT zcmrp001 NO STANDARD PAGE

3、 HEADING LINE-SIZE 220. TABLES: fkrs, fpos, fmmp, lfa1, kna1 ,bsis, t001, usr21, adrp, bkpf, bseg, glt0. DATA: BEGIN OF g_t_fmmp OCCURS 300, fikrs LIKE fmmp-fikrs, bukrs LIKE fmmp-bukrs, fipos LIKE fmmp-fipos, wrttp LIKE fmmp-wrttp, gjahr LIKE fmmp-gjahr, perio LIKE fmmp-perio, zhldt LIKE fmmp-zhldt

4、, budat LIKE fmmp-budat, gsber LIKE fmmp-gsber, vo_saknr LIKE fmmp-vo_saknr, lifnr LIKE fmmp-lifnr, kunnr LIKE fmmp-kunnr, fwaer LIKE fmmp-fwaer, fkbtr LIKE fmsu-btr001, zbelnr LIKE cooi-refbn, zbuzei LIKE cooi-rfpos, vo_bukrs LIKE fmmp-vo_bukrs, vo_gjahr LIKE fmmp-vo_gjahr, fitxt LIKE fkrs-fitxt, f

5、name LIKE ffnd-fname, cname LIKE fctr-cname, pname LIKE fpos-pname, wtext LIKE fmmp-wtext, END OF g_t_fmmp. DATA: BEGIN OF g_t_fkrs OCCURS 20, fikrs LIKE fkrs-fikrs, fitxt LIKE fkrs-fitxt, END OF g_t_fkrs. DATA: BEGIN OF g_t_fpos OCCURS 200, fipos LIKE fpos-fipos, pname LIKE fpos-pname, END OF g_t_f

6、pos. DATA: BEGIN OF g_t_lfa1 OCCURS 200, lifnr LIKE lfa1-lifnr, sortl LIKE lfa1-sortl, END OF g_t_lfa1. DATA: BEGIN OF g_t_kna1 OCCURS 200, kunnr LIKE kna1-kunnr, sortl LIKE kna1-sortl, END OF g_t_kna1. RANGES: r_kunnr FOR kna1-kunnr, r_lifnr FOR lfa1-lifnr, r_fipos FOR fmmp-fipos. DATA: BEGIN OF in

7、t_cashflow OCCURS 100, desc(66) TYPE c, r_fipos(66) TYPE c, com_fkbtr LIKE fmmp-fkbtr, fi_fkbtr LIKE fmmp-fkbtr, fi_fwaer LIKE fmmp-fwaer, END OF int_cashflow. DATA: BEGIN OF g_t_t001 OCCURS 300, bukrs LIKE t001-bukrs, butxt LIKE t001-butxt, END OF g_t_t001. DATA: pos TYPE i VALUE 0, num_of_bukrs TY

8、PE i VALUE 0. DATA cashflow_detail. DATA : min_budat LIKE fmmp-budat, max_budat LIKE fmmp-budat, z_min_budat LIKE sy-datum, z_max_budat LIKE sy-datum, z_bukrs LIKE fmmp-bukrs, z_profit LIKE bseg-dmbtr, 净利润 z_bad_debit LIKE bseg-dmbtr, 坏帐准备及计提的资产减值准备 z_asset_dep LIKE bseg-dmbtr, 固定资产折旧 z_intang_dep L

9、IKE bseg-dmbtr, 无形资产摊销 z_longpaid_dep LIKE bseg-dmbtr, 长期待摊费用摊销 z_paid_dec LIKE bseg-dmbtr, 待摊费用减少 z_accrul_inc LIKE bseg-dmbtr, 预提费用增加 z_asset_pro LIKE bseg-dmbtr, 固定资产，长期资产处置损失 z_asset_scr LIKE bseg-dmbtr, 固定资产报废损失 z_fi_expen LIKE bseg-dmbtr, 财务费用 z_invest_loss LIKE bseg-dmbtr, 投资损失 z_defer_tax LI

10、KE bseg-dmbtr, 递延税款贷项 z_stock LIKE bseg-dmbtr, 存货减少 z_ar LIKE bseg-dmbtr, 经营性应收减少 z_ap LIKE bseg-dmbtr, 经营性应付增加 z_other LIKE bseg-dmbtr, 其他 z_production LIKE bseg-dmbtr, 经营活动产生的现金净额 z_loss LIKE bseg-dmbtr, 总公司下拨弥补亏损 z_asset_debit LIKE bseg-dmbtr, 以固定资产偿还债务 z_invest_debit LIKE bseg-dmbtr, 以投资偿还债务 z_a

11、sset_invest LIKE bseg-dmbtr, 以固定资产投资 z_stock_debit LIKE bseg-dmbtr, 以存货偿还债务 z_asset_rented LIKE bseg-dmbtr, 融资租赁固定资产 z_donation LIKE bseg-dmbtr, 接受捐赠非现金资产 z_debit_short LIKE bseg-dmbtr, 偿还的经营性债务 z_debit_equit LIKE bseg-dmbtr, 债务转为资本 z_bond_due LIKE bseg-dmbtr, 一年内到期的可转换公司债券 z_money_init LIKE bseg-dm

12、btr, 货币资金期初余额 z_money_end LIKE bseg-dmbtr, 货币资金期末余额 z_cashs_init LIKE bseg-dmbtr, 现金等价物期初余额 z_cashs_end LIKE bseg-dmbtr, 现金等价物期末余额 z_all_money LIKE bseg-dmbtr. 货币资金及现金等价物净变动 DATA: BEGIN OF itb0 OCCURS 0, txt(70) TYPE c, num LIKE bseg-dmbtr, END OF itb0, mtxt(70) TYPE c. *INITIALIZATION. PERFORM fill_item_direct. *START-OF-SELECTION. GET fkrs. g_t_fkrs-fikr