在SAP中用承諾項(xiàng)目出現(xiàn)金流量表(共33頁(yè))

1、精選優(yōu)質(zhì)文檔-傾情為你奉上在SAP中用承諾項(xiàng)目出現(xiàn)金流量表（報(bào)表開發(fā)源代碼）可能使用到的外部數(shù)據(jù) 或 SAP數(shù)據(jù)表數(shù)據(jù)的格式、字段等： fkrs    財(cái)務(wù)管理范圍主記錄表 fops    承諾項(xiàng)目主記錄表 fmmp    現(xiàn)金預(yù)算管理行項(xiàng)目表 lfa1    供應(yīng)商主記錄表 kna1    客戶主記錄表 bsis    總帳未清項(xiàng)表 t001    公司代碼主記錄表 usr21   用戶主記錄表 adrp    用戶地址表

2、bkpf    財(cái)務(wù)憑證抬頭表 bseg    財(cái)務(wù)憑證行項(xiàng)目表 glt0    總帳科目期間余額表    直接法通過分析憑證的承諾項(xiàng)目來(lái)取數(shù)，SAP為該項(xiàng)功能定義了一個(gè)邏輯數(shù)據(jù)庫(kù)C1F. 本程序 開始部分的邏輯數(shù)據(jù)庫(kù)取數(shù)部分是SAP的標(biāo)準(zhǔn)程序，其功能是將與現(xiàn)金流量相關(guān)的數(shù)據(jù)裝入內(nèi)部表 G_T_FMMP, 這部分程序禁止修改。     直接法： 1、裝入金流量表定義參數(shù)（FORM fill_item_direct）   該子程序?qū)⒌默F(xiàn)金流量表項(xiàng)和其對(duì)應(yīng)的承諾項(xiàng)目裝入內(nèi)部表INT_CAS

3、HFLOW. 2、裝入與現(xiàn)金流量相關(guān)的數(shù)據(jù)   這部分是邏輯數(shù)據(jù)庫(kù)裝入，屬于SAP標(biāo)準(zhǔn)程序，數(shù)據(jù)關(guān)系比較復(fù)雜，建議不要做任何改動(dòng)。 3、計(jì)算現(xiàn)金流量   計(jì)算的基本思路是對(duì)表G_T_FMMP進(jìn)行循環(huán)，查找其中每條記錄的承諾項(xiàng)目屬于INT_CASHFLOW的 表項(xiàng)后，把其金額累計(jì)到相應(yīng)表項(xiàng)。 REPORT zcmrp001  NO STANDARD PAGE HEADING LINE-SIZE 220. TABLES: fkrs, fpos, fmmp, lfa1, kna1 ,bsis,        t001, usr21

4、, 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    

5、;LIKE fmmp-wrttp,         gjahr    LIKE fmmp-gjahr,         perio    LIKE fmmp-perio,         zhldt    LIKE fmmp-zhldt,         budat    LIKE fmmp-budat,        

6、; gsber    LIKE fmmp-gsber,         vo_saknr LIKE fmmp-vo_saknr,         lifnr    LIKE fmmp-lifnr,         kunnr    LIKE fmmp-kunnr,         fwaer    LIKE fmmp-fwaer,    

7、     fkbtr    LIKE fmsu-btr001,         zbelnr   LIKE cooi-refbn,         zbuzei   LIKE cooi-rfpos,         vo_bukrs LIKE fmmp-vo_bukrs,         vo_gjahr LIKE fmmp-vo_gjahr,     &#

8、160;   fitxt    LIKE fkrs-fitxt,         fname    LIKE ffnd-fname,         cname    LIKE fctr-cname,         pname    LIKE fpos-pname,         wtext    LIKE fmmp-wte

9、xt,      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

10、,         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,

11、         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_cashflo

12、w OCCURS 100,         desc(66)     TYPE c,         r_fipos(66)  TYPE c,         com_fkbtr    LIKE fmmp-fkbtr,         fi_fkbtr     LIKE fmmp-fkbtr,         fi_fwaer

13、    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          TY

14、PE 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,    

15、;   z_max_budat    LIKE sy-datum,       z_bukrs        LIKE fmmp-bukrs,       z_profit       LIKE bseg-dmbtr,     "凈利潤(rùn)       z_bad_debit    LIKE bseg-dmbtr,     "壞帳準(zhǔn)

16、備及計(jì)提的資產(chǎn)減值準(zhǔn)備       z_asset_dep    LIKE bseg-dmbtr,     "固定資產(chǎn)折舊       z_intang_dep   LIKE bseg-dmbtr,     "無(wú)形資產(chǎn)攤銷       z_longpaid_dep LIKE bseg-dmbtr,     "長(zhǎng)期待攤費(fèi)用攤銷       z_paid_dec

17、     LIKE bseg-dmbtr,     "待攤費(fèi)用減少       z_accrul_inc   LIKE bseg-dmbtr,     "預(yù)提費(fèi)用增加       z_asset_pro    LIKE bseg-dmbtr,     "固定資產(chǎn)，長(zhǎng)期資產(chǎn)處置損失       z_asset_scr    LIKE bseg-dmb

18、tr,     "固定資產(chǎn)報(bào)廢損失       z_fi_expen     LIKE bseg-dmbtr,     "財(cái)務(wù)費(fèi)用       z_invest_loss  LIKE bseg-dmbtr,     "投資損失       z_defer_tax    LIKE bseg-dmbtr,     "遞延稅款貸項(xiàng)  

19、     z_stock        LIKE bseg-dmbtr,     "存貨減少       z_ar           LIKE bseg-dmbtr,     "經(jīng)營(yíng)性應(yīng)收減少       z_ap           LIKE bseg-dmbtr,     "經(jīng)營(yíng)性應(yīng)

20、付增加       z_other        LIKE bseg-dmbtr,     "其它       z_production   LIKE bseg-dmbtr,     "經(jīng)營(yíng)活動(dòng)產(chǎn)生的現(xiàn)金凈額       z_loss         LIKE bseg-dmbtr,     "總公司下?lián)軓浹a(bǔ)虧損  

21、    z_asset_debit  LIKE bseg-dmbtr,     "以固定資產(chǎn)償還債務(wù)       z_invest_debit LIKE bseg-dmbtr,     "以投資償還債務(wù)       z_asset_invest LIKE bseg-dmbtr,     "以固定資產(chǎn)投資       z_stock_debit  LIKE bseg-dmbtr,

22、     "以存貨償還債務(wù)       z_asset_rented LIKE bseg-dmbtr,     "融資租賃固定資產(chǎn)       z_donation     LIKE bseg-dmbtr,     "接受捐贈(zèng)非現(xiàn)金資產(chǎn)       z_debit_short  LIKE bseg-dmbtr,     "償還的經(jīng)營(yíng)性債務(wù)   &#

23、160;   z_debit_equit  LIKE bseg-dmbtr,     "債務(wù)轉(zhuǎn)為資本       z_bond_due     LIKE bseg-dmbtr,     "一年內(nèi)到期的可轉(zhuǎn)換公司債券       z_money_init   LIKE bseg-dmbtr,     "貨幣資金期初余額       z_money_end  

24、 LIKE bseg-dmbtr,     "貨幣資金期末余額       z_cashs_init   LIKE bseg-dmbtr,     "現(xiàn)金等價(jià)物期初余額       z_cashs_end    LIKE bseg-dmbtr,     "現(xiàn)金等價(jià)物期末余額       z_all_money    LIKE bseg-dmbtr. 

25、0;   "貨幣資金及現(xiàn)金等價(jià)物凈變動(dòng) 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-O

26、F-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. 

27、0;  WHEN '50' OR '51'.               " purchase order      g_t_fmmp-zbelnr = fmmp-ebeln.      g_t_fmmp-zbuzei = fmmp-ebelp.    WHEN '64'.               

28、0;       " payment transfer      g_t_fmmp-zbelnr = fmmp-kblnr.      g_t_fmmp-zbuzei = fmmp-kblpos.    WHEN '65'.                       " funds commitments    

29、60;g_t_fmmp-zbelnr = fmmp-kblnr.      g_t_fmmp-zbuzei = fmmp-kblpos.    WHEN OTHERS.                     " Fi documents      g_t_fmmp-zbelnr = fmmp-vo_belnr.      g_t_fmmp-zbuzei = fmmp-vo_b

30、uzei.  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 INITIA

31、L.    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        

32、           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

33、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 = '*'.      D

34、ELETE r_lifnr.    ENDLOOP.    DESCRIBE TABLE r_lifnr LINES l_cnt_lines.               "<- insert    IF l_cnt_lines <= 50.                             

35、0;     "<- insert *     "/ Lieferanten-Kurztexte auf einmal einlesen         "<- insert      SELECT lifnr sortl FROM lfa1              INTO CORRESPONDING FIELDS OF TABLE g_t_lfa1  

36、60;         WHERE lifnr IN r_lifnr.    ELSE.                                                   "<- insert *     "/ Liefera

37、nten-Kurztexte in Bloecken einlesen        "<- insert      DO.                                                  "<- insert *

38、        "/ Bloecke zu je 50 Leferanten bilden             "<- insert        REFRESH lr_lifnr.                                 "<-

39、 insert        LOOP AT r_lifnr FROM l_cnt_from TO l_cnt_to.      "<- insert          lr_lifnr = r_lifnr.                            "<- insert   

40、0;      APPEND lr_lifnr.                               "<- insert        ENDLOOP.                             &#

41、160;            "<- insert        IF sy-subrc NE 0.                                 "<- insert          EXIT.      

42、;                                    "<- insert        ENDIF.                                   &

43、#160;        "<- insert        l_cnt_from = l_cnt_to   + 1.                      "<- insert        l_cnt_to   = l_cnt_from + 50.         &#

44、160;           "<- insert *        "/ Lieferanten-Kurztexte lesen                    "<- insert        SELECT lifnr sortl FROM lfa1         

45、0;            "<- insert           APPENDING CORRESPONDING FIELDS                 "<- insert                     OF TABLE g_t_lfa1   &

46、#160;                "<- insert               WHERE lifnr IN lr_lifnr.                   "<- insert      ENDDO.           &#

47、160;                                   "<- insert    ENDIF.                                       

48、0;          "<- 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_k

49、unnr LINES l_cnt_lines.               "<- insert    IF l_cnt_lines <= 50.                                   "<- insert *     "/ Kunden-K

50、urztexte auf einmal einlesen              "<- insert      SELECT kunnr sortl FROM kna1              INTO CORRESPONDING FIELDS OF TABLE g_t_kna1             WHERE kunnr IN r_kunn

51、r.    ELSE.                                                   "<- insert *     "/ Kunden-Kurztexte in Bloecken einlesen       &

52、#160;     "<- insert      DO.                                                  "<- insert *        "/ Bloecke

53、 zu je 50 Kunden bilden                 "<- insert        REFRESH lr_kunnr.                                 "<- insert       

54、0;LOOP AT r_kunnr FROM l_cnt_from TO l_cnt_to.      "<- insert          lr_kunnr = r_kunnr.                            "<- insert          APPEND lr_

55、kunnr.                               "<- insert        ENDLOOP.                                      

56、   "<- insert        IF sy-subrc NE 0.                                 "<- insert          EXIT.              

57、60;                          "<- insert        ENDIF.                                            

58、"<- insert        l_cnt_from = l_cnt_to   + 1.                      "<- insert        l_cnt_to   = l_cnt_from + 50.                  

59、  "<- insert *        "/ Kunden-Kurztexte lesen                         "<- insert        SELECT kunnr sortl FROM kna1                

60、      "<- insert           APPENDING CORRESPONDING FIELDS                 "<- insert                     OF TABLE g_t_kna1        

61、60;          "<- insert               WHERE kunnr IN lr_kunnr.                   "<- insert      ENDDO.                 

62、0;                             "<- insert    ENDIF.                                              

63、    "<- insert  ENDIF.  SELECT bukrs butxt FROM t001         INTO CORRESPONDING FIELDS OF TABLE g_t_t001.  DATA: l_sav_wrttp_text(30),        l_sav_fwaer LIKE fmmp-fwaer,        l_sav_butxt LIKE t001-butxt,

64、       l_sav_hide_row_type(4).  num_of_bukrs = 0.  max_budat = 0.  min_budat = '' .  LOOP AT g_t_fmmp.    IF min_budat > g_t_fmmp-budat .      min_budat = g_t_fmmp-budat .    ENDIF.    IF max_budat < g

65、_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_cas

66、hflow.        CLEAR int_cashflow.      ENDLOOP.    ENDAT.    AT NEW bukrs.      PERFORM read_bukrs_text USING g_t_fmmp-bukrs                           CHANGING g_t_t

67、001-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.  

68、60;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_fmmp-fipos.       &

69、#160;    int_cashflow-fi_fkbtr  = int_cashflow-fi_fkbtr                                      + g_t_fmmp-fkbtr.            int_cashflow-com_fkbtr = int_cashflow-

70、com_fkbtr                                      + g_t_fmmp-fkbtr.          ENDIF.        ENDIF.        IF r_fipos-option = 'BT'. 

71、0;        IF g_t_fmmp-fipos >= r_fipos-low AND                    g_t_fmmp-fipos <= r_fipos-high.            int_cashflow-fi_fkbtr  = int_cashflow-fi_fkbtr          

72、;                            + g_t_fmmp-fkbtr.            int_cashflow-com_fkbtr = int_cashflow-com_fkbtr                          

73、60;          + g_t_fmmp-fkbtr.          ENDIF.        ENDIF.      ENDLOOP.      MODIFY TABLE int_cashflow.      CLEAR int_cashflow.      CLEAR r_fipos.     

74、0;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_of_bukrs + 1.    ENDAT.    AT END OF fikrs. &

75、#160;    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 IN

76、ITIAL ).    min_budat = s_budat-low.  ENDIF.  IF NOT ( s_budat-high IS INITIAL ).    max_budat = s_budat-high.  ENDIF.  SKIP 2.  WRITE: /100 '現(xiàn)  金  流  量  表'.  WRITE: /.  WRITE: /210 '會(huì)年企03表'. *  IF min_bu

77、dat(6) = max_budat(6). *    WRITE: /104 min_budat(4), '年', min_budat+4(2), '月', *            202 '報(bào)表編號(hào): 會(huì)商03表'. *  ELSE. *    WRITE: /097 '日期:', *            103 min_budat, 113 '-

78、' , 115 max_budat, *            202 '報(bào)表編號(hào): 會(huì)商03表'. *  ENDIF. *  WRITE: /012 '編制單位: ', l_sav_butxt,          100  max_budat(4), '年', max_budat+4(2), '月',            

79、   max_budat+6(2), '日',          212 '單位: 元'.  WRITE:  /011 sy-uline.  WRITE : /011 sy-vline,      040 '   項(xiàng)    目',           085 sy-vline,      087 '行次'

80、,        093 sy-vline,           095 '      金   額  ',           116 sy-vline,      148 '補(bǔ)充資料',           190 sy-vline,      192 '行

81、次',        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' &

82、#160;     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 &

83、#160;          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'          

84、; EXPORTING                i_report_name = 'RFFMIEP5'           EXCEPTIONS                OTHERS        = 1.  ENDCASE. *&- * *&      Form &

85、#160;READ_FIKRS_TEXT *&- * FORM read_fikrs_text USING u_fikrs                  CHANGING 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.  END

86、IF. ENDFORM.                    " READ_FIKRS_TEXT *&- * *&      Form  READ_FIPOS_TEXT *&- * FORM read_fipos_text USING u_fipos                  CHANGING c_pname.  

87、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 *&- * *&      Form  

88、;READ_BUKRS_TEXT *&- * FORM read_bukrs_text USING u_bukrs                  CHANGING c_butxt.  g_t_t001 = space.  g_t_t001-bukrs = u_bukrs.  READ TABLE g_t_t001.  IF sy-subrc = 0.    c_butxt = g_t_t001-butxt.  ENDIF.

89、ENDFORM.                    " READ_FIPOS_TEXT *&- * *&      Form  GET_KUNNR_LIFNR_TEXT *&- * FORM get_kunnr_lifnr_text USING value(u_kunnr)                    

90、60;          value(u_lifnr)                       CHANGING c_text.  CLEAR c_text.  IF NOT u_kunnr IS INITIAL.    IF u_kunnr = '*'.      c_text = '*'.    ELSE.

91、*        "/ Lesen 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.   &#

92、160;  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.

93、     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.                

94、    " GET_KUNNR_LIFNR_TEXT * FORM input_range USING value(rfipos).  DATA: off TYPE i, offset TYPE i, doing TYPE i.  DATA: item(20), str(10).  off = 0. offset = 0.  doing = 1.  WHILE doing <> 0.    SHIFT rfipos BY offset PLACES.    SEA

95、RCH 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. &#

96、160;  SEARCH item FOR '-'.    IF sy-subrc = 0.      off = sy-fdpos.      MOVE item(off) TO str.      off = off + 1.      r_fipos-sign   = 'I'.      r_fipos-option = 'BT'.  

97、60;  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'.

98、60;    r_fipos-option = 'EQ'.      r_fipos-low    =  str.    ENDIF.    APPEND r_fipos.  ENDWHILE. ENDFORM. * FORM output_info USING fi_value.  DATA zcashflow LIKE fmmp-fkbtr.  DATA: i LIKE sy-tabix,        j LIKE sy-tabix,        k LIKE sy-tabix,   &