没有合适的资源?快使用搜索试试~ 我知道了~
在SAP中用承诺项目出现金流量表(报表开发源代码)(_CRM产品经理 需求规格说明书管理系统规格需求说明书模板.doc
0 下载量 126 浏览量
2023-07-31
00:21:31
上传
评论
收藏 122KB DOC 举报
温馨提示
试读
33页
在SAP中用承诺项目出现金流量表(报表开发源代码)(_CRM产品经理 需求规格说明书管理系统规格需求说明书模板.doc
资源推荐
资源详情
资源评论
此资料来自 www.3722.cn 台商讯息网, 大量管理资料下载
在 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,
此资料来自 www.3722.cn 台商讯息网, 大量管理资料下载
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.
此资料来自 www.3722.cn 台商讯息网, 大量管理资料下载
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, "净利润
z_bad_debit LIKE bseg-dmbtr, "坏帐准备及计提的资产减值准备
z_asset_dep LIKE bseg-dmbtr, "固定资产折旧
z_intang_dep LIKE 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 LIKE 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_asset_invest LIKE bseg-dmbtr, "以固定资产投资
此资料来自 www.3722.cn 台商讯息网, 大量管理资料下载
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-dmbtr, "货币资金期初余额
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-fikrs = fkrs-fikrs.
g_t_fkrs-fitxt = fkrs-fitxt.
APPEND g_t_fkrs.
GET fpos.
g_t_fpos-fipos = fpos-fipos.
g_t_fpos-pname = fpos-pname.
COLLECT g_t_fpos.
GET fmmp.
MOVE-CORRESPONDING fmmp TO g_t_fmmp.
CASE fmmp-wrttp.
WHEN '50' OR '51'. " purchase order
g_t_fmmp-zbelnr = fmmp-ebeln.
g_t_fmmp-zbuzei = fmmp-ebelp.
WHEN '64'. " payment transfer
g_t_fmmp-zbelnr = fmmp-kblnr.
g_t_fmmp-zbuzei = fmmp-kblpos.
WHEN '65'. " funds commitments
g_t_fmmp-zbelnr = fmmp-kblnr.
g_t_fmmp-zbuzei = fmmp-kblpos.
此资料来自 www.3722.cn 台商讯息网, 大量管理资料下载
WHEN OTHERS. " Fi documents
g_t_fmmp-zbelnr = fmmp-vo_belnr.
g_t_fmmp-zbuzei = fmmp-vo_buzei.
ENDCASE.
APPEND g_t_fmmp.
IF NOT fmmp-kunnr IS INITIAL.
r_kunnr-sign = 'I'.
r_kunnr-option = 'EQ'.
r_kunnr-low = fmmp-kunnr.
COLLECT r_kunnr.
ENDIF.
IF NOT fmmp-lifnr IS INITIAL.
r_lifnr-sign = 'I'.
r_lifnr-option = 'EQ'.
r_lifnr-low = fmmp-lifnr.
COLLECT r_lifnr.
ENDIF.
END-OF-SELECTION.
SORT g_t_fmmp BY fikrs bukrs fipos wrttp gjahr
perio zhldt zbelnr
zbuzei bukrs vo_saknr.
RANGES: lr_lifnr FOR lfa1-lifnr,
lr_kunnr FOR kna1-kunnr.
DATA: l_cnt_from LIKE sy-tabix VALUE 1,
l_cnt_to LIKE sy-tabix VALUE 50,
l_cnt_lines LIKE sy-tabix.
* "/ Lesen Kreditoren-Texte aus Stammdaten-Tabelle
IF NOT r_lifnr IS INITIAL.
LOOP AT r_lifnr WHERE low = '*'.
DELETE r_lifnr.
ENDLOOP.
DESCRIBE TABLE r_lifnr LINES l_cnt_lines. "<- insert
IF l_cnt_lines <= 50. "<- insert
* "/ Lieferanten-Kurztexte auf einmal einlesen "<- insert
SELECT lifnr sortl FROM lfa1
INTO CORRESPONDING FIELDS OF TABLE g_t_lfa1
WHERE lifnr IN r_lifnr.
ELSE. "<- insert
剩余32页未读,继续阅读
资源评论
2301_77550592
- 粉丝: 17
- 资源: 7165
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功