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

SANY化小组#QS8QHH-HHGX8Q8-GNHHJ8-HHMHGN#在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."<-insertENDDO."<-insertENDIF."<-insertENDIF.*"/LesenDebitoren-TexteausStammdaten-TabelleIFNOTr_kunnrISINITIAL.LOOPATr_kunnrWHERElow='*'.DELETEr_kunnr.ENDLOOP.DESCRIBETABLEr_kunnrLINESl_cnt_lines."<-insertIFl_cnt_lines<=50."<-insert*"/Kunden-Kurztexteaufeinmaleinlesen"<-insertSELECTkunnrsortlFROMkna1INTOCORRESPONDINGFIELDSOFTABLEg_t_kna1WHEREkunnrINr_kunnr.ELSE."<-insert*"/Kunden-KurztexteinBloeckeneinlesen"<-insertDO."<-insert*"/Bloeckezuje50Kundenbilden"<-insertREFRESHlr_kunnr."<-insertLOOPATr_kunnrFROMl_cnt_fromTOl_cnt_to."<-insertlr_kunnr=r_kunnr."<-insertAPPENDlr_kunnr."<-insertENDLOOP."<-insertIFsy-subrcNE0."<-insertEXIT."<-insertENDIF."<-insertl_cnt_from=l_cnt_to+1."<-insertl_cnt_to=l_cnt_from+50."<-insert*"/Kunden-Kurztextelesen"<-insertSELECTkunnrsortlFROMkna1"<-insertAPPENDINGCORRESPONDINGFIELDS"<-insertOFTABLEg_t_kna1"<-insertWHEREkunnrINlr_kunnr."<-insertENDDO."<-insertENDIF."<-insertENDIF.SELECTbukrsbutxtFROMt001INTOCORRESPONDINGFIELDSOFTABLEg_t_t001.DATA:l_sav_wrttp_text(30),l_sav_fwaerLIKEfmmp-fwaer,l_sav_butxtLIKEt001-butxt,l_sav_hide_row_type(4).num_of_bukrs=0.max_budat=0.min_budat=''.LOOPATg_t_fmmp.IFmin_budat>g_t_fmmp-budat.min_budat=g_t_fmmp-budat.ENDIF.IFmax_budat=r_fipos-lowANDg_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.MODIFYTABLEint_cashflow.CLEARint_cashflow.CLEARr_fipos.REFRESHr_fipos.ENDLOOP.ATENDOFbukrs.PERFORMcal_indirectUSINGg_t_fmmp-bukrs.PERFORMoutput_infoUSING'COM'.num_of_bukrs=num_of_bukrs+1.ENDAT.ATENDOFfikrs.IFnum_of_bukrsNE1.CLEARl_sav_butxt.PERFORMoutput_infoUSING'FI'.ENDIF.WRITE:/text-103.ENDAT.ENDLOOP.TOP-OF-PAGE.IFNOT(s_budat-lowISINITIAL).min_budat=s_budat-low.ENDIF.IFNOT(s_budat-highISINITIAL).max_budat=s_budat-high.ENDIF.SKIP2.WRITE:/100'现金流量表'.WRITE:/.WRITE:/210'会年企03表'.*IFmin_budat(6)=max_budat(6).*WRITE:/104min_budat(4),'年',min_budat+4(2),'月',*202'报表编号:会商03表'.*ELSE.*WRITE:/097'日期:',*103min_budat,113'-',115max_budat,*202'报表编号:会商03表'.*ENDIF.*WRITE:/012'编制单位:',l_sav_butxt,100max_budat(4),'年',max_budat+4(2),'月',max_budat+6(2),'日',212'单位:元'.WRITE:/011sy-uline.WRITE:/011sy-vline,040'项目',085sy-vline,087'行次',093sy-vline,095'金额',116sy-vline,148'补充资料',190sy-vline,192'行次',198sy-vline,'金额',220sy-vline.WRITE:/011sy-uline.************************************************************************ATLINE-SELECTION.CHECKl_sav_hide_row_type='EPOS'.CALLFUNCTION'FM_DOCUMENT_DISPLAY'EXPORTINGi_wrttp=g_t_fmmp-wrttpi_belnr=g_t_fmmp-zbelnri_blpos=g_t_fmmp-zbuzeii_bukrs=g_t_fmmp-vo_bukrsi_gjahr=g_t_fmmp-vo_gjahr.************************************************************************ATUSER-COMMAND.CASEsy-ucomm.WHEN'SELE'.SETPF-STATUS'SELE'.CALLFUNCTION'FM_SELECTION_CRITERIA_PRINT'EXPORTINGi_report_name='RFFMIEP5'EXCEPTIONSOTHERS=1.ENDCASE.*&---------------------------------------------------------------------**&FormREAD_FIKRS_TEXT*&---------------------------------------------------------------------*FORMread_fikrs_textUSINGu_fikrsCHANGINGc_fitxt.g_t_fkrs=space.g_t_fkrs-fikrs=u_fikrs.READTABLEg_t_fkrs.IFsy-subrc=0.c_fitxt=g_t_fkrs-fitxt.ENDIF.ENDFORM."READ_FIKRS_TEXT*&---------------------------------------------------------------------**&FormREAD_FIPOS_TEXT*&---------------------------------------------------------------------*FORMread_fipos_textUSINGu_fiposCHANGINGc_pname.g_t_fpos=space.g_t_fpos-fipos=u_fipos.READTABLEg_t_fpos.IFsy-subrc=0.c_pname=g_t_fpos-pname.ENDIF.ENDFORM."READ_FIPOS_TEXT*&---------------------------------------------------------------------**&FormREAD_BUKRS_TEXT*&---------------------------------------------------------------------*FORMread_bukrs_textUSINGu_bukrsCHANGINGc_butxt.g_t_t001=space.g_t_t001-bukrs=u_bukrs.READTABLEg_t_t001.IFsy-subrc=0.c_butxt=g_t_t001-butxt.ENDIF.ENDFORM."READ_FIPOS_TEXT*&---------------------------------------------------------------------**&FormGET_KUNNR_LIFNR_TEXT*&---------------------------------------------------------------------*FORMget_kunnr_lifnr_textUSINGvalue(u_kunnr)value(u_lifnr)CHANGINGc_text.CLEARc_text.IFNOTu_kunnrISINITIAL.IFu_kunnr='*'.c_text='*'.ELSE.*"/LesenDebitor-TextausinternerTabelleg_t_kna1=space.g_t_kna1-kunnr=u_kunnr.READTABLEg_t_kna1.IFsy-subrc=0.c_text=g_t_kna1-sortl.ENDIF.ENDIF.ENDIF.IFNOTu_lifnrISINITIAL.IFu_lifnr='*'.c_text='*'.ELSE.*"/LesenKreditor-TextausinternerTabelleg_t_lfa1=space.g_t_lfa1-lifnr=u_lifnr.READTABLEg_t_lfa1.IFsy-subrc=0.c_text=g_t_lfa1-sortl.ENDIF.ENDIF.ENDIF.ENDFORM."GET_KUNNR_LIFNR_TEXT***********************************************************FORMinput_rangeUSINGvalue(rfipos).DATA:offTYPEi,offsetTYPEi,doingTYPEi.DATA:item(20),str(10).off=0.offset=0.doing=1.WHILEdoing<>0.SHIFTrfiposBYoffsetPLACES.SEARCHrfiposFOR','.IFsy-subrc=0.offset=sy-fdpos.MOVErfipos(offset)TOitem.offset=offset+1.ELSE.MOVErfiposTOitem.doing=0.ENDIF.SEARCHitemFOR'-'.IFsy-subrc=0.off=sy-fdpos.MOVEitem(off)TOstr.off=off+1.r_fipos-sign='I'.r_fipos-option='BT'.r_fipos-low=str.SHIFTitemBYoffPLACES.MOVEitemTOstr.r_fipos-high=str.ELSE.MOVEitemTOstr.r_fipos-sign='I'.r_fipos-option='EQ'.r_fipos-low=str.ENDIF.APPENDr_fipos.ENDWHILE.ENDFORM.*******FORMoutput_infoUSINGfi_value.DATAzcashflowLIKEfmmp-fkbtr.DATA:iLIKEsy-tabix,jLIKEsy-tabix,kLIKEsy-tabix,lLIKEsy-tabix.i=0.j=0.k=32.LOOPATint_cashflowFROM1TO32.IFfi_value='COM'.zcashflow=int_cashflow-com_fkbtr.ELSEIFfi_value='FI'.zcashflow=int_cashflow-fi_fkbtr.ENDIF.i=i+1.j=j+1.k=k+1.WRITE:/011sy-vline,014int_cashflow-desc,085sy-vline,088(2)i,093sy-vline.IFzcashflow<>0.WRITE:099zcashflowCURRENCYg_t_fmmp-fwaer.ENDIF.IFi<3.l=i+32.READTABLEint_cashflowINDEXl.IFfi_value='COM'.zcashflow=int_cashflow-com_fkbtr.ELSEIFfi_value='FI'.zcashflow=int_cashflow-fi_fkbtr.ENDIF.WRITE:116sy-vline,118(60)int_cashflow-desc,190sy-vline,193(2)k,198sy-vline.IFzcashflow<>0.WRITE:204zcashflowCURRENCYg_t_fmmp-fwaer.ENDIF.ELSE.l=i-2.READTABLEitb0INDEXl.IFsy-subrc<>0.CLEARitb0.ENDIF.WRITE:116sy-vline,118(60)itb0-txt,190sy-vline,193(2)k,198sy-vline.IFitb0-num<>0.WRITE:204itb0-numCURRENCYg_t_fmmp-fwaer.ENDIF.ENDIF.WRITE:220sy-vline.WRITE:/011sy-uline.IFj>=25.j=0.PERFORMout_footer.NEW-PAGE.ENDIF.ENDLOOP.PERFORMout_footer.ENDFORM.*---------------------------------------------------------------------**FORMout_footer**---------------------------------------------------------------------**........**---------------------------------------------------------------------*FORMout_footer.DATA:usrname(80)TYPEc.SELECTSINGLE*FROMusr21WHEREbname=sy-uname.SELECTSINGLE*FROMadrpWHEREpersnumber=usr21-persnumberANDdate_from<=sy-datumANDdate_to>=sy-datum.CONCATENATEadrp-name_lastadrp-name_firstINTOusrname.CONDENSEusrnameNO-GAPS.WRITE:/012'制表人员:',(12)usrname,110'打印日期:',sy-datum,202'打印时间:',sy-uzeit.ENDFORM.******************************************************************************************计算科目段在指定日期的起始余额**********************************************************************************************************参数：mdate1开始日期(含此天)**********mdate2结束日期(不含此天)**********mstrin科目编号的匹配模式字符串**********结果：znum**********算法：某日余额　=年初余额　＋　一月余额　＋　．．．＋**********上月余额　＋　本月到mdate2余额**************************************************************************************FORMcal_dates_amountUSINGmdate1mdate2mstringCHANGINGznum.DATA:BEGINOFiglt0OCCURS0.INCLUDESTRUCTUREglt0.DATA:ENDOFiglt0.DATA:BEGINOFitmpOCCURS0,numLIKEbseg-dmbtr,ENDOFitmp.DATA:iLIKEsy-tabix.SELECT*FROMglt0INTOTABLEiglt0WHEREbukrs=z_bukrsANDryear=mdate1(4)ANDracctLIKEmstring.LOOPATiglt0.REFRESHitmp.itmp-num=iglt0-hslvt.APPENDitmp.itmp-num=iglt0-hsl01.APPENDitmp.itmp-num=iglt0-hsl02.APPENDitmp.itmp-num=iglt0-hsl03.APPENDitmp.itmp-num=iglt0-hsl04.APPENDitmp.itmp-num=iglt0-hsl05.APPENDitmp.itmp-num=iglt0-hsl06.APPENDitmp.itmp-num=iglt0-hsl07.APPENDitmp.itmp-num=iglt0-hsl08.APPENDitmp.itmp-num=iglt0-hsl09.APPENDitmp.itmp-num=iglt0-hsl10.APPENDitmp.itmp-num=iglt0-hsl11.APPENDitmp.LOOPATitmpFROM1TOmdate1+4(2).znum=znum+itmp-num.ENDLOOP.ENDLOOP.SELECT*FROMbkpfWHEREbukrs=z_bukrsANDbudat>=mdate1ANDbudat0."固定资产增加ifmllib-cnum>0."融资租赁固定资产ifmasset-dnum0."固定资产减少ifmlib-dnum>0."固定资产偿还债务(经营性)ifmasset-cnum>mlib-dnum.z_asset_debit=z_asset_debit+mlib-dnum.z_debit_short=z_debit_short+mlib-dnum.masset-cnum=masset-cnum-mlib-dnum.mlib-dnum=0.else.z_asset_debit=z_asset_debit+masset-cnum.z_debit_short=z_debit_short+masset-cnum.mlib-dnum=mlib-dnum-masset-cnum.masset-cnum=0.endif.endif.ifmllib-dnum>0."固定资产偿还债务(长期)ifmasset-cnum>mllib-dnum.z_asset_debit=z_asset_debit+mllib-dnum.masset-cnum=masset-cnum-mllib-dnum.mllib-dnum=0.else.z_asset_debit=z_asset_debit+masset-cnum.mllib-dnum=mllib-dnum-masset-cnum.masset-cnum=0.endif.endif.ifminvest-dnum>0."以固定资产投资ifmasset-cnum>minvest-dnum.z_asset_invest=z_asset_invest+minvest-dnum.masset-cnum=masset-cnum-minvest-dnum.minvest-dnum=0.else.z_asset_invest=z_asset_invest+masset-cnum.minvest-dnum=minvest-dnum-masset-cnum.masset-cnum=0.endif.endif.endif.ifminvest-dnum>0."投资增加ifmasset-cnum>0."以固定资产投资ifmasset-cnum>minvest-dnum.z_asset_invest=z_asset_invest+minvest-dnum.masset-cnum=masset-cnum-minvest-dnum.minvest=0.else.z_asset_invest=z_asset_invest+masset-cnum.minvest-dnum=minvest-dnum-masset-cnum.masset-cnum=0.endif.endif.endif.ifminvest-cnum>0."投资减少ifmlib-dnum>0."以投资偿还债务（经营性）ifmlib-dnum>minvest-cnum.z_invest_debit=z_invest_debit+minvest-cnum.z_debit_short=z_debit_short+minvest-cnum.mlib-dnum=mlib-dnum-minvest-cnum.minvest-cnum=0.else.z_invest_debit=z_invest_debit+mlib-dnum.z_debit_short=z_debit_short+mlib-dnum.minvest-cnum=minvest-cnum-mlib-dnum.mlib-dnum=0.endif.endif.ifmllib-dnum>0."以投资偿还债务（长期）　ifmllib-dnum>minvest-cnum.z_invest_debit=z_invest_debit+minvest-cnum.mllib-dnum=mllib-dnum-minvest-cnum.minvest-cnum=0.else.z_invest_debit=z_invest_debit+mllib-dnum.minvest-cnum=minvest-cnum-mllib-dnum.mllib-dnum=0.endif.endif.endif.ifmstock-cnum>0."存货减少ifmlib-dnum>0."以存货偿还债务（经营性）ifmlib-dnum>mstock-cnum.z_stock_debit=z_stock_debit+mstock-cnum.z_debit_short=z_debit_short+mstock-cnum.mlib-dnum=mlib-dnum-mstock-cnum.mstock-cnum=0.else.z_stock_debit=z_stock_debit+mlib-dnum.z_debit_short=z_debit_short+mlib-dnum.mstock-cnum=mstock-cnum-mlib-dnum.mlib-dnum=0.endif.endif.ifmllib-dnum>0."以存货偿还债务（长期）ifmllib-dnum>mstock-cnum.z_stock_debit=z_stock_debit+mstock-cnum.mllib-dnum=mllib-dnum-mstock-cnum.mstock-cnum=0.else.z_stock_debit=z_stock_debit+mllib-dnum.mstock-cnum=mstock-cnum-mllib-dnum.mllib-dnum=0.endif.endif.endif.ifmequit-cnum>0."资本增加ifmlib-dnum>0.ifmlib-dnum>mequit-cnum.z_debit_equit=z_debit_equit+mequit-cnum.z_debit_short=z_debit_short+mequit-cnum.mlib-dnum=mlib-dnum-mequit-cnum.mequit-cnum=0.else.z_debit_equit=z_debit_equit+mlib-dnum.z_debit_short=z_debit_short+mlib-dnum.mequit-cnum=mequit-cnum-mlib-dnum.mlib-dnum=0.endif.endif.ifmllib-dnum>0.ifmllib-dnum>mequit-cnum.z_debit_equit=z_debit_equit+mequit-cnum.mllib-dnum=mllib-dnum-mequit-cnum.mequit-cnum=0.else.z_debit_equit=z_debit_equit+mllib-dnum.mequit-cnum=mequit-cnum-mllib-dnum.mlib-dnum=0.endif.endif.endif.END-OF-DEFINITION.*---------------------------------------------------------------------**FORMcal_indirect**---------------------------------------------------------------------**........**---------------------------------------------------------------------**-->pbukrs**---------------------------------------------------------------------*FORMcal_indirectUSINGpbukrsLIKEfmmp-bukrs.DATA:BEGINOFtab1OCCURS0,gjahrLIKEbkpf-gjahr,belnrLIKEbkpf-belnr,ENDOFtab1,BEGINOFtab2OCCURS0,gjahrLIKEbseg-gjahr,belnrLIKEbseg-belnr,hkontLIKEbseg-hkont,shkzgLIKEbseg-shkzg,dmbtrLIKEbseg-dmbtr,ENDOFtab2,BEGINOFtab3OCCURS0,gjahrLIKEbseg-gjahr,belnrLIKEbseg-belnr,hkontLIKEbseg-hkont,shkzgLIKEbseg-shkzg,dmbtrLIKEbseg-dmbtr,ENDOFtab3.IFNOT(s_budat-lowISINITIAL).z_min_budat=s_budat-low.ELSE.z_min_budat=min_budat.ENDIF.IFNOT(s_budat-highISINITIAL).z_max_budat=s_budat-high.ELSE.z_max_budat=max_budat.ENDIF.z_bukrs=pbukrs.SELECTgjahrbelnrFROMbkpfINTOCORRESPONDINGFIELDSOFTABLEtab1WHEREbukrs=z_bukrsANDbudat>=z_min_budatANDbudat<=z_max_budat.LOOPATtab1.SELECThkontshkzgdmbtrFROMbsegINTOCORRESPONDINGFIELDSOFtab2WHEREgjahr=tab1-gjahrANDbelnr=tab1-belnr.tab2-gjahr=tab1-gjahr.tab2-belnr=tab1-belnr.APPENDtab2.ENDSELECT.ENDLOOP.REFRESHtab1.LOOPATtab2."挑出与补充资料相关的凭证号IFtab2-hkont(4)='1501'OR"固定资产原值科目tab2-hkont(4)='1701'OR"固定资产清理tab2-hkont(4)='1101'OR"短期投资tab2-hkont(4)='1401'OR"长期股权投资tab2-hkont(4)='1402'OR"长期债权投资tab2-hkont(4)='1221'OR"包装物tab2-hkont(4)='1231'OR"低值易耗品tab2-hkont(4)='1243'OR"库存商品tab2-hkont(4)='3105'OR"上级拨入tab2-hkont(4)='3111'."资本公积tab1-gjahr=tab2-gjahr.tab1-belnr=tab2-belnr.APPENDtab1.ENDIF.*IFtab2-shkzg='H'.tab2-dmbtr=0-tab2-dmbtr.ENDIF.IFtab2-hkont(1)='5'."净利润ADDtab2-dmbtrTOz_profit.ENDIF.IFtab2-hkont='00'."管理费用-坏帐损失ADDtab2-dmbtrTOz_bad_debit.ENDIF.IFtab2-hkont='00'OR"短期投资减值准备tab2-hkont='00'OR"存货跌价准备tab2-hkont='00'OR"长期投资减值准备tab2-hkont='00'OR"固定资产减值准备tab2-hkont='00'OR"在建工程减值准备tab2-hkont='00'."无形资产减值准备z_ba