现金流量表

在SAP中用承诺项目出现金流量表（报表开发源代码）

可能使用到的外部数据或 SAP数据表数据的格式、字段等：fkrs 财务治理范围主记录表

fops 承诺项目主记录表

fmmp 现金预算治理行项目表

lfa1 供应商主记录表

kna1 客户主记录表

bsis 总帐未清项表

t001 公司代码主记录表

usr21 用户主记录表

adrp 用户地址表

bkpf 财务凭证抬头表

bseg 财务凭证行项目表

glt0 总帐科目期间余额表

直接法通过分析凭证的承诺项目来取数，SAP为该项功能定义了一个逻辑数据库C1F. 本程序

开始部分的逻辑数据库取数部分是SAP的标准程序，其功能是将

与现金流量相关的数据装入内部表

G_T_FMMP, 这部分程序禁止修改。

直接法：

1、装入金流量表定义参数（FORM fill_item_direct）

该子程序将的现金流量表项和其对应的承诺项目装入内部表INT_CASHFLOW.

2、装入与现金流量相关的数据

这部分是逻辑数据库装入，属于SAP标准程序，数据关系比较复杂，建议不要做任何改动。

3、计算现金流量

计算的差不多思路是对表G_T_FMMP进行循环，查找其中每条记录的承诺项目属于INT_CASHFLOW的

表项后，把其金额累计到相应表项。

REPORT zcmrp001 NO STANDARD PAGE 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, 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,

fname 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_fpos.

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 int_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 TYPE 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, "净利润