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

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

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

3、,bsis,t001, usr21, adrp, bkpf, bseg, glt0.DA TA: BEGIN OF g_t_fmmp OCCURS 300,fikrsLIKE fmmp-fikrs,bukrsLIKE fmmp-bukrs,fiposLIKE fmmp-fipos,wrttpLIKE fmmp-wrttp,gjahrLIKE fmmp-gjahr,perioLIKE fmmp-perio,zhldtLIKE fmmp-zhldt,budatLIKE fmmp-budat,gsberLIKE fmmp-gsber,vo_saknr LIKE fmmp-vo_saknr,lifnr

4、LIKE fmmp-lifnr,kunnrLIKE fmmp-kunnr,fwaerLIKE fmmp-fwaer,fkbtrLIKE fmsu-btr001,zbelnrLIKE cooi-refbn,zbuzeiLIKE cooi-rfpos,vo_bukrs LIKE fmmp-vo_bukrs,vo_gjahr LIKE fmmp-vo_gjahr,fitxtLIKE fkrs-fitxt,fnameLIKE ffnd-fname,cnameLIKE fctr-cname,pnameLIKE fpos-pname,wtextLIKE fmmp-wtext,END OF g_t_fmmp

5、.DA TA: BEGIN OF g_t_fkrs OCCURS 20,fikrs LIKE fkrs-fikrs,fitxt LIKE fkrs-fitxt,END OF g_t_fkrs.DA TA: BEGIN OF g_t_fpos OCCURS 200,fipos LIKE fpos-fipos,pname LIKE fpos-pname,END OF g_t_fpos.DA TA: BEGIN OF g_t_lfa1 OCCURS 200,lifnr LIKE lfa1-lifnr,sortl LIKE lfa1-sortl,END OF g_t_lfa1.DA TA: BEGIN

6、 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.DA TA: BEGIN OF int_cashflow OCCURS 100,desc(66)TYPE c,r_fipos(66)TYPE c,com_fkbtrLIKE fmmp-fkbtr,fi_fkbtrLIKE fmmp-fkbtr,fi_fwaerLIKE fmmp

7、-fwaer,END OF int_cashflow.DA TA: BEGIN OF g_t_t001 OCCURS 300,bukrs LIKE t001-bukrs,butxt LIKE t001-butxt,END OF g_t_t001.DA TA:posTYPE i V ALUE 0,num_of_bukrs TYPE i V ALUE 0.DA TAcashflow_detail.DA TA : min_budatLIKE fmmp-budat,max_budatLIKE fmmp-budat,z_min_budatLIKE sy-datum,z_max_budatLIKE sy-

8、datum,z_bukrsLIKE fmmp-bukrs,z_profitLIKE bseg-dmbtr," 净利润z_bad_debitLIKE bseg-dmbtr,"坏帐准备及计提的资产减值准备z_asset_depLIKE bseg-dmbtr,"固定资产折旧z_intang_depLIKE bseg-dmbtr," 无形资产摊销z_longpaid_dep LIKE bseg-dmbtr," 长期待摊费用摊销z_paid_decLIKE bseg-dmbtr," 待摊费用减少z_accrul_incLIKE bseg-dmb

9、tr," 预提费用增加z_asset_proLIKE bseg-dmbtr," 固定资产，长期资产处置损失z_asset_scrLIKE bseg-dmbtr," 固定资产报废损失z_fi_expenLIKE bseg-dmbtr,"财务费用z_invest_lossLIKE bseg-dmbtr,"投资损失z_defer_taxLIKE bseg-dmbtr," 递延税款贷项z_stockLIKE bseg-dmbtr," 存货减少z_arLIKE bseg-dmbtr," 经营性应收减少z_apLIKE bse

10、g-dmbtr,"经营性应付增加z_otherLIKE bseg-dmbtr," 其他z_productionLIKE bseg-dmbtr,"经营活动产生的现金净额z_lossLIKE bseg-dmbtr," 总公司下拨弥补亏损z_asset_debitLIKE bseg-dmbtr,"以固定资产偿还债务z_invest_debit LIKE bseg-dmbtr," 以投资偿还债务z_asset_invest LIKE bseg-dmbtr," 以固定资产投资z_stock_debitLIKE bseg-dmbtr,&

11、quot;以存货偿还债务z_asset_rented LIKE bseg-dmbtr,"融资租赁固定资产z_donationLIKE bseg-dmbtr,"接受捐赠非现金资产z_debit_shortLIKE bseg-dmbtr,"偿还的经营性债务z_debit_equitLIKE bseg-dmbtr,"债务转为资本z_bond_dueLIKE bseg-dmbtr," 一年内到期的可转换公司债券z_money_initLIKE bseg-dmbtr," 货币资金期初余额z_money_endLIKE bseg-dmbtr,&q

12、uot; 货币资金期末余额z_cashs_initLIKE bseg-dmbtr,"现金等价物期初余额z_cashs_endLIKE bseg-dmbtr," 现金等价物期末余额z_all_moneyLIKE bseg-dmbtr." 货币资金及现金等价物净变动DA TA: BEGIN OF itb0 OCCURS 0,txt(70) TYPE c,numLIKE bseg-dmbtr,END OF itb0,mtxt(70) TYPE c.*INITIALIZATION.PERFORM fill_item_direct.*START-OF-SELECTION.G

13、ET 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 orderg_t_fmmp-zbelnr = fmmp

14、-ebeln.g_t_fmmp-zbuzei = fmmp-ebelp.WHEN '64'." payment transferg_t_fmmp-zbelnr = fmmp-kblnr.g_t_fmmp-zbuzei = fmmp-kblpos.WHEN '65'." funds commitmentsg_t_fmmp-zbelnr = fmmp-kblnr.g_t_fmmp-zbuzei = fmmp-kblpos.WHEN OTHERS.g_t_fmmp-zbelnr = fmmp-vo_belnr.g_t_fmmp-zbuzei = f

15、mmp-vo_buzei.ENDCASE.APPEND g_t_fmmp." Fi documentsIF 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.COL

16、LECT r_lifnr.ENDIF.END-OF-SELECTION.SORT g_t_fmmp BY fikrsbukrsfiposwrttpgjahrperiozhldtzbelnrzbuzei bukrsvo_saknr.RANGES: lr_lifnr FOR lfa1-lifnr,lr_kunnr FOR kna1-kunnr.DA TA: l_cnt_fromLIKE sy-tabix VALUE 1,l_cnt_toLIKE sy-tabix V ALUE 50,l_cnt_lines LIKE sy-tabix.* "/ Lesen Kreditoren-Texte

17、 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."<- insertIF l_cnt_lines <= 50."<- insert*"/ Lieferanten-Kurztexte auf einmal einlesen"<- insertSELECT lifnr sortl

18、 FROM lfa1INTO CORRESPONDING FIELDS OF TABLE g_t_lfa1WHERE lifnr IN r_lifnr.ELSE."<- insert*"/ Lieferanten-Kurztexte in Bloecken einlesen"<- insertDO."<- insert"/ Bloecke zu je 50 Leferanten bilden"<- insertREFRESH lr_lifnr."<- insertLOOP AT r_lifnr

19、FROM l_cnt_from TO l_cnt_to."<- insertlr_lifnr = r_lifnr."<- insertAPPEND lr_lifnr."<- insertENDLOOP."<- insertIF sy-subrc NE 0."<- insertEXIT."<- insertENDIF."<- insertl_cnt_from = l_cnt_to+ 1."<- insertl_cnt_to= l_cnt_from + 50."

20、<- insert*"/ Lieferanten-Kurztexte lesen SELECT lifnr sortl FROM lfa1"<- insert"<- insertAPPENDING CORRESPONDING FIELDS"<- insertENDDO.ENDIF.OF TABLE g_t_lfa1WHERE lifnr IN lr_lifnr."<- insert"<- insert"<- insert"<- insertENDIF.* "

21、/ 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_kunnr LINES l_cnt_lines."<- insertIF l_cnt_lines <= 50."<- insert*"/ Kunden-Kurztexte auf einmal einlesen"<- inser

22、tSELECT kunnr sortl FROM kna1INTO CORRESPONDING FIELDS OF TABLE g_t_kna1WHERE kunnr IN r_kunnr.ELSE."<- insert*"/ Kunden-Kurztexte in Bloecken einlesen"<- insertDO."<- insert*"/ Bloecke zu je 50 Kunden bilden"<- insertREFRESH lr_kunnr."<- insertLOOP

23、AT r_kunnr FROM l_cnt_from TO l_cnt_to."<- insertlr_kunnr = r_kunnr."<- insertAPPEND lr_kunnr."<- insertENDLOOP."<- insertIF sy-subrc NE 0."<- insertEXIT.ENDIF.l_cnt_from = l_cnt_to+ 1.l_cnt_to= l_cnt_from + 50."<- insert"<- insert"<- i

24、nsert"<- insert*"/ Kunden-Kurztexte lesen SELECT kunnr sortl FROM kna1"<- insert"<- insertAPPENDING CORRESPONDING FIELDS"<- insertENDDO.ENDIF.OF TABLE g_t_kna1WHERE kunnr IN lr_kunnr."<- insert"<- insert"<- insert"<- insertENDIF.SE

25、LECT bukrs butxt FROM t001INTO CORRESPONDING FIELDS OF TABLE g_t_t001.DA TA: l_sav_wrttp_text(30),l_sav_fwaer LIKE fmmp-fwaer,l_sav_butxt LIKE t001-butxt,l_sav_hide_row_type(4).num_of_bukrs = 0.max_budat = 0.min_budat = '99991231' .LOOP AT g_t_fmmp.IF min_budat > g_t_fmmp-budat .min_budat

26、 = g_t_fmmp-budat .ENDIF.IF max_budat < g_t_fmmp-budat .max_budat = g_t_fmmp-budat .ENDIF.l_sav_fwaer = g_t_fmmp-fwaer.AT NEW fikrs.LOOP AT int_cashflow.CLEAR int_cashflow-fi_fkbtr.MODIFY TABLE int_cashflow.CLEAR int_cashflow.ENDLOOP.ENDAT.AT NEW bukrs.PERFORM read_bukrs_text USING g_t_fmmp-bukrs

27、CHANGING g_t_t001-butxt.l_sav_butxt = g_t_t001-butxt.LOOP AT int_cashflow.CLEAR int_cashflow-com_fkbtr.MODIFY TABLE int_cashflow.CLEAR int_cashflow.ENDLOOP.ENDAT.LOOP AT int_cashflow.PERFORM input_range USING int_cashflow-r_fipos.LOOP AT r_fipos.IF r_fipos-option = 'EQ'.IF r_fipos-low = g_t_

28、_cashflow-fi_fkbtr= int_cashflow-fi_fkbtr+ g_t__cashflow-com_fkbtr = int_cashflow-com_fkbtr+ g_t_fmmp-fkbtr.ENDIF.ENDIF.IF r_fipos-option = 'BT'.IF g_t_fmmp-fipos >= r_fipos-low ANDg_t_fmmp-fipos <= r__cashflow-fi_fkbtr= int_cashflow-fi_fkbtr+

29、g_t__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_indirect USING g_t_fmmp-bukrs.PERFORM output_info USING 'COM'.num_of_bukrs = num_

30、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-OF-PAGE.IF NOT ( s_budat-low IS INITIAL ).min_budat = s_budat-low.ENDIF.IF NOT ( s_budat-high IS INITIAL ).max_budat = s_budat-high.ENDIF.SKIP 2

31、.WRITE: /100 ' 现金流量表'.WRITE: /.WRITE: /210 ' 会年企 03 表 '.* IF min_budat(6) = max_budat(6).* WRITE: /104 min_budat(4), ' 年 ', min_budat+4(2), ' 月 ',*202 '报表编号 : 会商 03 表 '.* ELSE.* WRITE: /097 ' 日期 :',*103 min_budat, 113 '-' , 115 max_budat,*202 &

32、#39;报表编号 : 会商 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,085 sy-vline,095'金额116 sy-vline,040'项087 '行次 ',&

33、#39;,148 '补充资料目 ',093 sy-vline,',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'EXPORTINGi_wrttp = g_t_fmmp-wrttpi_belnr = g_t_fmmp-zbelnri

34、_blpos = g_t_fmmp-zbuzeii_bukrs = g_t_fmmp-vo_bukrsi_gjahr = g_t_fmmp-vo_gjahr.* *AT USER-COMMAND.CASE sy-ucomm.WHEN 'SELE'.SET PF-STATUS 'SELE'.CALL FUNCTION 'FM_SELECTION_CRITERIA_PRINT'EXPORTINGi_report_name = 'RFFMIEP5'EXCEPTIONSOTHERS= 1.ENDCASE.*&-*&Form

35、READ_FIKRS_TEXT*&-*FORM read_fikrs_text USING u_fikrsCHANGING c_fitxt.g_t_fkrs = space.g_t_fkrs-fikrs = u_fikrs.READ TABLE g_t_fkrs.IF sy-subrc = 0.c_fitxt = g_t_fkrs-fitxt.ENDIF.ENDFORM." READ_FIKRS_TEXT*&-*&FormREAD_FIPOS_TEXT*&-*FORM read_fipos_text USING u_fiposCHANGING c_pn

36、ame.g_t_fpos = space.g_t_fpos-fipos = u_fipos.READ TABLE g_t_fpos.IF sy-subrc = 0.c_pname = g_t_fpos-pname.ENDIF.ENDFORM." READ_FIPOS_TEXT*&-*&FormREAD_BUKRS_TEXT*&-*FORM read_bukrs_text USING u_bukrsCHANGING c_butxt.g_t_t001 = space.g_t_t001-bukrs = u_bukrs.READ TABLE g_t_t001.IF s

37、y-subrc = 0.c_butxt = g_t_t001-butxt.ENDIF.ENDFORM." READ_FIPOS_TEXT*&-*&FormGET_KUNNR_LIFNR_TEXT*&-*FORM get_kunnr_lifnr_text USING value(u_kunnr)value(u_lifnr)CHANGING c_text.CLEAR c_text.IF NOT u_kunnr IS INITIAL.IF u_kunnr = '*'.c_text = '*'.ELSE.* "/ Lesen

38、Debitor-Text aus interner Tabelle g_t_kna1 = space.g_t_kna1-kunnr = u_kunnr. READ TABLE g_t_kna1. IF sy-subrc = 0.c_text = g_t_kna1-sortl.ENDIF.ENDIF.ENDIF.IF NOT u_lifnr IS INITIAL.IF u_lifnr = '*'.c_text = '*'.ELSE.* "/ Lesen Kreditor-Text aus interner Tabelle g_t_lfa1 = space

39、.g_t_lfa1-lifnr = u_lifnr. READ TABLE g_t_lfa1.IF sy-subrc = 0.c_text = g_t_lfa1-sortl.ENDIF.ENDIF.ENDIF.ENDFORM." GET_KUNNR_LIFNR_TEXT*FORM input_range USING value(rfipos).DA TA: off TYPE i, offset TYPE i, doing TYPE i.DA TA: item(20), str(10).off = 0. offset = 0.doing = 1.WHILE doing <>

40、 0.SHIFT rfipos BY offset PLACES.SEARCH rfipos FOR ','.IF sy-subrc = 0.offset = sy-fdpos.MOVE rfipos(offset) TO item.offset = offset + 1.ELSE.MOVE rfipos TO item.doing = 0.ENDIF.SEARCH item FOR '-'.IF sy-subrc = 0.off = sy-fdpos.MOVE item(off) TO str.off = off + 1.r_fipos-sign= '

41、I'.r_fipos-option = 'BT'.r_fipos-low=str.SHIFT item BY off PLACES.MOVE item TO str.r_fipos-high=str.ELSE.MOVE item TO str.r_fipos-sign= 'I'.r_fipos-option = 'EQ'.r_fipos-low=str.ENDIF.APPEND r_fipos.ENDWHILE.ENDFORM.*FORM output_info USING fi_value.DA TA zcashflow LIKE fm

42、mp-fkbtr.DA TA: i LIKE sy-tabix,j LIKE sy-tabix,k LIKE sy-tabix,l LIKE sy-tabix.i = 0.j = 0. k = 32.LOOP AT int_cashflow FROM 1 TO 32.IF fi_value = 'COM'.zcashflow = int_cashflow-com_fkbtr.ELSEIF fi_value = 'FI'.zcashflow = int_cashflow-fi_fkbtr.ENDIF.i = i + 1.j = j + 1. k = k + 1.W

43、RITE : /011 sy-vline, 014 int_cashflow-desc,085 sy-vline, 088(2) i,093 sy-vline.IF zcashflow <> 0.WRITE: 099 zcashflow CURRENCY g_t_fmmp-fwaer.ENDIF.IF i < 3.l = i + 32.READ TABLE int_cashflow INDEX l.IF fi_value = 'COM'.zcashflow = int_cashflow-com_fkbtr.ELSEIF fi_value = 'FI&#

44、39;.zcashflow = int_cashflow-fi_fkbtr.ENDIF.WRITE: 116 sy-vline, 118(60) int_cashflow-desc,190 sy-vline, 193(2) k, 198 sy-vline.IF zcashflow <> 0.WRITE: 204 zcashflow CURRENCY g_t_fmmp-fwaer.ENDIF.ELSE.l = i - 2.READ TABLE itb0 INDEX l.IF sy-subrc <> 0. CLEAR itb0. ENDIF.WRITE: 116 sy-vl

45、ine, 118(60) itb0-txt,190 sy-vline, 193(2) k, 198 sy-vline.IF itb0-num <> 0.WRITE: 204 itb0-num CURRENCY g_t_fmmp-fwaer.ENDIF.ENDIF.WRITE: 220 sy-vline.WRITE: /011 sy-uline.IF j >= 25.j= 0.PERFORM out_footer.NEW-PAGE.ENDIF.ENDLOOP.PERFORM out_footer.ENDFORM.*-*FORM out_footer*-*.*-*FORM out

46、_footer.DA TA: usrname(80) TYPE c.SELECT SINGLE * FROM usr21 WHERE bname = sy-uname.SELECT SINGLE * FROM adrpWHERE persnumber = usr21-persnumber ANDdate_from <= sy-datumANDdate_to>= sy-datum.CONCATENATE adrp-name_last adrp-name_first INTO usrname.CONDENSE usrname NO-GAPS.WRITE: /012 ' 制表人员

47、 :', (12) usrname,110 '打印日期 :', sy-datum,202 '打印时间 :', sy-uzeit.ENDFORM.*计算科目段在指定日期的起始余额*参数： mdate1开始日期 (含此天 )*mdate2结束日期 (不含此天 )*mstrin科目编号的匹配模式字符串*结果： znum*算法：某日余额= 年初余额一月余额*上月余额本月到 mdate2 余额*FORM cal_dates_amount USING mdate1 mdate2 mstringCHANGING znum.DA TA: BEGIN OF iglt0 O

48、CCURS 0.INCLUDE STRUCTURE glt0.DA TA: END OF iglt0.DA TA: BEGIN OF itmp OCCURS 0,numLIKEbseg-dmbtr,END OF itmp.DA TA: iLIKE sy-tabix.SELECT * FROM glt0 INTO TABLE iglt0WHERE bukrs= z_bukrsANDryear= mdate1(4)ANDracct LIKE mstring.LOOP AT iglt0.REFRESH itmp.itmp-num = iglt0-hslvt.APPEND itmp.itmp-num

49、= iglt0-hsl01.APPEND itmp.itmp-num = iglt0-hsl02.APPEND itmp.itmp-num = iglt0-hsl03.APPEND itmp.itmp-num = iglt0-hsl04.APPEND itmp.itmp-num = iglt0-hsl05.APPEND itmp.itmp-num = iglt0-hsl06.APPEND itmp.itmp-num = iglt0-hsl07.APPEND itmp.itmp-num = iglt0-hsl08.APPEND itmp.itmp-num = iglt0-hsl09.APPEND itmp.itmp-num