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

在SAP中用承诺项目出现金流量表（报表开发源代码）可能使用到的外部数据或SAP数据表数据的格式、字段等：fkrs财务管理范围主记录表fops承诺项目主记录表fmmp现金预算管理行项目表lfa1供应商主记录表kna1客户主记录表bsis总帐未清项表t001公司代码主记录表usr21用户主记录表adrp用户地址表bkpf财务凭证抬头表bseg财务凭证行项目表glt0总帐科目期间余额表直接法通过分析凭证的承诺项目来取数，SAP为该项功能定义了一个逻辑数据库C1F.本程序开始部分的逻辑数据库取数部分是SAP的标准程序，其功能是将与现金流量相关的数据装入内部表G_T_FMMP,这部分程序禁止修改。直接法：1、装入金流量表定义参数（FORMfill_item_direct）该子程序将的现金流量表项和其对应的承诺项目装入内部表INT_CASHFLOW.2、装入与现金流量相关的数据这部分是逻辑数据库装入，属于SAP标准程序，数据关系比较复杂，建议不要做任何改动。3、计算现金流量计算的基本思路是对表G_T_FMMP进行循环，查找其中每条记录的承诺项目属于INT_CASHFLOW的表项后，把其金额累计到相应表项。REPORTzcmrp001NOSTANDARDPAGEHEADINGLINE-SIZE220.TABLES:fkrs,fpos,fmmp,lfa1,kna1,bsis,t001,usr21,adrp,bkpf,bseg,glt0.DATA:BEGINOFg_t_fmmpOCCURS300,fikrsLIKEfmmp-fikrs,bukrsLIKEfmmp-bukrs,fiposLIKEfmmp-fipos,wrttpLIKEfmmp-wrttp,gjahrLIKEfmmp-gjahr,perioLIKEfmmp-perio,zhldtLIKEfmmp-zhldt,budatLIKEfmmp-budat,gsberLIKEfmmp-gsber,vo_saknrLIKEfmmp-vo_saknr,lifnrLIKEfmmp-lifnr,kunnrLIKEfmmp-kunnr,fwaerLIKEfmmp-fwaer,fkbtrLIKEfmsu-btr001,zbelnrLIKEcooi-refbn,zbuzeiLIKEcooi-rfpos,vo_bukrsLIKEfmmp-vo_bukrs,vo_gjahrLIKEfmmp-vo_gjahr,fitxtLIKEfkrs-fitxt,fnameLIKEffnd-fname,cnameLIKEfctr-cname,pnameLIKEfpos-pname,wtextLIKEfmmp-wtext,ENDOFg_t_fmmp.DATA:BEGINOFg_t_fkrsOCCURS20,fikrsLIKEfkrs-fikrs,fitxtLIKEfkrs-fitxt,ENDOFg_t_fkrs.DATA:BEGINOFg_t_fposOCCURS200,fiposLIKEfpos-fipos,pnameLIKEfpos-pname,ENDOFg_t_fpos.DATA:BEGINOFg_t_lfa1OCCURS200,lifnrLIKElfa1-lifnr,sortlLIKElfa1-sortl,ENDOFg_t_lfa1.DATA:BEGINOFg_t_kna1OCCURS200,kunnrLIKEkna1-kunnr,sortlLIKEkna1-sortl,ENDOFg_t_kna1.RANGES:r_kunnrFORkna1-kunnr,r_lifnrFORlfa1-lifnr,r_fiposFORfmmp-fipos.DATA:BEGINOFint_cashflowOCCURS100,desc(66)TYPEc,r_fipos(66)TYPEc,com_fkbtrLIKEfmmp-fkbtr,fi_fkbtrLIKEfmmp-fkbtr,fi_fwaerLIKEfmmp-fwaer,ENDOFint_cashflow.DATA:BEGINOFg_t_t001OCCURS300,bukrsLIKEt001-bukrs,butxtLIKEt001-butxt,ENDOFg_t_t001.DATA:posTYPEiVALUE0,num_of_bukrsTYPEiVALUE0.DATAcashflow_detail.DATA:min_budatLIKEfmmp-budat,max_budatLIKEfmmp-budat,z_min_budatLIKEsy-datum,z_max_budatLIKEsy-datum,z_bukrsLIKEfmmp-bukrs,z_profitLIKEbseg-dmbtr,净利润z_bad_debitLIKEbseg-dmbtr,坏帐准备及计提的资产减值准备z_asset_depLIKEbseg-dmbtr,固定资产折旧z_intang_depLIKEbseg-dmbtr,无形资产摊销z_longpaid_depLIKEbseg-dmbtr,长期待摊费用摊销z_paid_decLIKEbseg-dmbtr,待摊费用减少z_accrul_incLIKEbseg-dmbtr,预提费用增加z_asset_proLIKEbseg-dmbtr,固定资产，长期资产处置损失z_asset_scrLIKEbseg-dmbtr,固定资产报废损失z_fi_expenLIKEbseg-dmbtr,财务费用z_invest_lossLIKEbseg-dmbtr,投资损失z_defer_taxLIKEbseg-dmbtr,递延税款贷项z_stockLIKEbseg-dmbtr,存货减少z_arLIKEbseg-dmbtr,经营性应收减少z_apLIKEbseg-dmbtr,经营性应付增加z_otherLIKEbseg-dmbtr,其他z_productionLIKEbseg-dmbtr,经营活动产生的现金净额z_lossLIKEbseg-dmbtr,总公司下拨弥补亏损z_asset_debitLIKEbseg-dmbtr,以固定资产偿还债务z_invest_debitLIKEbseg-dmbtr,以投资偿还债务z_asset_investLIKEbseg-dmbtr,以固定资产投资z_stock_debitLIKEbseg-dmbtr,以存货偿还债务z_asset_rentedLIKEbseg-dmbtr,融资租赁固定资产z_donationLIKEbseg-dmbtr,接受捐赠非现金资产z_debit_shortLIKEbseg-dmbtr,偿还的经营性债务z_debit_equitLIKEbseg-dmbtr,债务转为资本z_bond_dueLIKEbseg-dmbtr,一年内到期的可转换公司债券z_money_initLIKEbseg-dmbtr,货币资金期初余额z_money_endLIKEbseg-dmbtr,货币资金期末余额z_cashs_initLIKEbseg-dmbtr,现金等价物期初余额z_cashs_endLIKEbseg-dmbtr,现金等价物期末余额z_all_moneyLIKEbseg-dmbtr.货币资金及现金等价物净变动DATA:BEGINOFitb0OCCURS0,txt(70)TYPEc,numLIKEbseg-dmbtr,ENDOFitb0,mtxt(70)TYPEc.**INITIALIZATION.PERFORMfill_item_direct.*START-OF-SELECTION.GETfkrs.g_t_fkrs-fikrs=fkrs-fikrs.g_t_fkrs-fitxt=fkrs-fitxt.APPENDg_t_fkrs.GETfpos.g_t_fpos-fipos=fpos-fipos.g_t_fpos-pname=fpos-pname.COLLECTg_t_fpos.GETfmmp.MOVE-CORRESPONDINGfmmpTOg_t_fmmp.CASEfmmp-wrttp.WHEN'50'OR'51'.purchaseorderg_t_fmmp-zbelnr=fmmp-ebeln.g_t_fmmp-zbuzei=fmmp-ebelp.WHEN'64'.paymenttransferg_t_fmmp-zbelnr=fmmp-kblnr.g_t_fmmp-zbuzei=fmmp-kblpos.WHEN'65'.fundscommitmentsg_t_fmmp-zbelnr=fmmp-kblnr.g_t_fmmp-zbuzei=fmmp-kblpos.WHENOTHERS.Fidocumentsg_t_fmmp-zbelnr=fmmp-vo_belnr.g_t_fmmp-zbuzei=fmmp-vo_buzei.ENDCASE.APPENDg_t_fmmp.IFNOTfmmp-kunnrISINITIAL.r_kunnr-sign='I'.r_kunnr-option='EQ'.r_kunnr-low=fmmp-kunnr.COLLECTr_kunnr.ENDIF.IFNOTfmmp-lifnrISINITIAL.r_lifnr-sign='I'.r_lifnr-option='EQ'.r_lifnr-low=fmmp-lifnr.COLLECTr_lifnr.ENDIF.END-OF-SELECTION.SORTg_t_fmmpBYfikrsbukrsfiposwrttpgjahrperiozhldtzbelnrzbuzeibukrsvo_saknr.RANGES:lr_lifnrFORlfa1-lifnr,lr_kunnrFORkna1-kunnr.DATA:l_cnt_fromLIKEsy-tabixVALUE1,l_cnt_toLIKEsy-tabixVALUE50,l_cnt_linesLIKEsy-tabix.*/LesenKreditoren-TexteausStammdaten-TabelleIFNOTr_lifnrISINITIAL.LOOPATr_lifnrWHERElow='*'.DELETEr_lifnr.ENDLOOP.DESCRIBETABLEr_lifnrLINESl_cnt_lines.-insertIFl_cnt_lines=50.-insert*/Lieferanten-Kurztexteaufeinmaleinlesen-insertSELECTlifnrsortlFROMlfa1INTOCORRESPONDINGFIELDSOFTABLEg_t_lfa1WHERElifnrINr_lifnr.ELSE.-insert*/Lieferanten-KurztexteinBloeckeneinlesen-insertDO.-insert*/Bloeckezuje50Leferantenbilden-insertREFRESHlr_lifnr.-insertLOOPATr_lifnrFROMl_cnt_fromTOl_cnt_to.-insertlr_lifnr=r_lifnr.-insertAPPENDlr_lifnr.-insertENDLOOP.-insertIFsy-subrcNE0.-insertEXIT.-insertENDIF.-insertl_cnt_from=l_cnt_to+1.-insertl_cnt_to=l_cnt_from+50.-insert*/Lieferanten-Kurztextelesen-insertSELECTlifnrsortlFROMlfa1-insertAPPENDINGCORRESPONDINGFIELDS-insertOFTABLEg_t_lfa1-insertWHERElifnrINlr_lifnr.-i