《在SAP中用承诺项目出现金流量表(报表开发源代码)ijku.docx》由会员分享，可在线阅读，更多相关《在SAP中用承诺项目出现金流量表(报表开发源代码)ijku.docx（33页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、Evaluation Warning: The document was created with Spire.Doc for .NET.在SAP中中用承诺项项目出现金金流量表（报报表开发源源代码）可能使用到到的外部数数据 或 SAPP数据表数数据的格式式、字段等等： fkrss 财务管理理范围主记记录表 fopss 承诺项目目主记录表表 fmmpp 现金预算算管理行项项目表 lfa11 供应商主主记录表 kna11 客户主记记录表 bsiss 总帐未清清项表 t0011 公司代码码主记录表表 usr221 用户主记记录表 adrpp 用户地址址表 bkpff 财务凭证证抬头表 bsegg 财
2、务凭证证行项目表表 glt00 总帐科目目期间余额额表 直接接法通过分分析凭证的的承诺项目目来取数，SAP为该项功能定义了一个逻辑数据库C1F. 本程序 开始部分的逻辑数据库取数部分是SAP的标准程序，其功能是将与现金流量相关的数据装入内部表 G_T_FMMP, 这部分程序禁止修改。 直接法： 1、装入金流量表定义参数（FORM fill_item_direct） 该子程序将的现金流量表项和其对应的承诺项目装入内部表INT_CASHFLOW. 2、装入与现金流量相关的数据 这部分是逻辑数据库装入，属于SAP标准程序，数据关系比较复杂，建议不要做任何改动。 3、计算现金流量 计算的基本思路是对表
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,
4、 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 coo
5、i-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. DAT
6、A: 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
7、: 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 t0
8、01-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_b
9、ad_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, 固
10、定资产报废损失 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, 总公司
11、下拨弥补亏损 z_asset_debit LIKE bseg-dmbtr, 以固定资产偿还债务 z_invest_debit LIKE bseg-dmbtr, 以投资偿还债务 z_asset_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
12、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(7
13、0) 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
14、 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_f
15、mmp-zbuzei = fmmp-kblpos. 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
16、-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
17、 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 ei
18、nlesen - insert SELECT lifnr sortl FROM lfa1 INTO CORRESPONDING FIELDS OF TABLE g_t_lfa1 WHERE lifnr IN r_lifnr. ELSE. - insert * / Lieferanten-Kurztexte in Bloecken einlesen - insert DO. - insert * / Bloecke zu je 50 Leferanten bilden - insert REFRESH lr_lifnr. - insert LOOP AT r_lifnr FROM l_cnt_f
19、rom TO l_cnt_to. - insert lr_lifnr = r_lifnr. - insert APPEND lr_lifnr. - insert ENDLOOP. - insert IF sy-subrc NE 0. - insert EXIT. - insert ENDIF. - insert l_cnt_from = l_cnt_to + 1. - insert l_cnt_to = l_cnt_from + 50. - insert * / Lieferanten-Kurztexte lesen - insert SELECT lifnr sortl FROM lfa1
20、- insert APPENDING CORRESPONDING FIELDS - insert OF TABLE g_t_lfa1 - insert WHERE lifnr IN lr_lifnr. - insert ENDDO. - insert ENDIF. - insert ENDIF. * / Lesen Debitoren-Texte aus Stammdaten-Tabelle IF NOT r_kunnr IS INITIAL. LOOP AT r_kunnr WHERE low = *. DELETE r_kunnr. ENDLOOP. DESCRIBE TABLE r_ku
21、nnr LINES l_cnt_lines. - insert IF l_cnt_lines = 50. - insert * / Kunden-Kurztexte auf einmal einlesen - insert SELECT kunnr sortl FROM kna1 INTO CORRESPONDING FIELDS OF TABLE g_t_kna1 WHERE kunnr IN r_kunnr. ELSE. - insert * / Kunden-Kurztexte in Bloecken einlesen - insert DO. - insert * / Bloecke
22、zu je 50 Kunden bilden - insert REFRESH lr_kunnr. - insert LOOP AT r_kunnr FROM l_cnt_from TO l_cnt_to. - insert lr_kunnr = r_kunnr. - insert APPEND lr_kunnr. - insert ENDLOOP. - insert IF sy-subrc NE 0. - insert EXIT. - insert ENDIF. - insert l_cnt_from = l_cnt_to + 1. - insert l_cnt_to = l_cnt_fro
23、m + 50. - insert * / Kunden-Kurztexte lesen - insert SELECT kunnr sortl FROM kna1 - insert APPENDING CORRESPONDING FIELDS - insert OF TABLE g_t_kna1 - insert WHERE kunnr IN lr_kunnr. - insert ENDDO. - insert ENDIF. g_t_fmmp-budat . min_budat = g_t_fmmp-budat . ENDIF. IF max_budat = r_fipos-low AND g
24、_t_fmmp-fipos = r_fipos-high. int_cashflow-fi_fkbtr = int_cashflow-fi_fkbtr + g_t_fmmp-fkbtr. int_cashflow-com_fkbtr = int_cashflow-com_fkbtr + g_t_fmmp-fkbtr. ENDIF. ENDIF. ENDLOOP. MODIFY TABLE int_cashflow. CLEAR int_cashflow. CLEAR r_fipos. REFRESH r_fipos. ENDLOOP . AT END OF bukrs. PERFORM cal
25、_indirect USING g_t_fmmp-bukrs. PERFORM output_info USING COM. num_of_bukrs = num_of_bukrs + 1. ENDAT. AT END OF fikrs. IF num_of_bukrs NE 1. CLEAR l_sav_butxt. PERFORM output_info USING FI. ENDIF. WRITE : / text-103. ENDAT. ENDLOOP.TOP-OOF-PAAGE. IF NOT ( s_budaat-loow ISS INIITIALL ). mmin_bbudatt
26、 = ss_buddat-llow. ENDDIF. IF NOT ( s_budaat-hiigh IIS INNITIAAL ). max_budaat = s_buudat-highh. EENDIFF. SSKIP 2. WRITTE: /100 现 金 流 量 表. WWRITEE: /. WRRITE: /2110 会会年企033表. * IF min_budaat(6) = mmax_bbudatt(6). * WRRITE: /1004 miin_buudat(4), 年, mmin_bbudatt+4(22), 月, * 2202 报表编号号: 会商03表. * ELSSE.
27、 * WRITTE: /097 日期:, * 1003 miin_buudat, 1133 - , 1115 mmax_bbudatt, * 2202 报表编号: 会商03表. * ENDIF. * WRITE: /012 编制单位: , l_sav_butxt, 100 max_budat(4), 年, max_budat+4(2), 月, max_budat+6(2), 日, 212 单位: 元. WRITE: /011 sy-uline. WRITE : /011 sy-vline, 040 项 目, 085 sy-vline, 087 行次, 093 sy-vline, 095 金 额
28、 , 116 sy-vline, 148 补充资料, 190 sy-vline, 192 行次, 198 sy-vline, 金 额, 220 sy-vline. WRITE: /011 sy-uline. * * AT LINE-SELECTION. CHECK l_sav_hide_row_type = EPOS. CALL FUNCTION FM_DOCUMENT_DISPLAY EXPORTING i_wrttp = g_t_fmmp-wrttp i_belnr = g_t_fmmp-zbelnr i_blpos = g_t_fmmp-zbuzei i_bukrs = g_t_fmmp-vo_bukrs i_gjahr = g_t_fmmp-vo_gjahr. * * AT USER-COMMAND. CASE sy-ucomm. WHEN SELE. SET PF-STATUS SELE. CALL FUNCTION FM_SELECTION_CRITERIA_PRINT EXPORTING i_report_name = RFFMIEP5 EXCEPTIONS OTHERS = 1. ENDCASE. *&- * *& Form READ_FIKRS_TEXT *&-