【正文】 INTOCORRESPONDINGFIELDSOFTABLElt_zfipexFORALLENTRIESINlt_yszbWHEREgjahr=l_nd+0(4)ANDfipex=lt_yszbfipex.SORTlt_zfipex.DELETEADJACENTDUPLICATESFROMlt_zfipex.IFlt_zfipex[]ISNOTINITIAL.SELECTzfipex獲取同級承諾項目fipexFROMzyscjbINTOCORRESPONDINGFIELDSOFTABLElt_zfipex1FORALLENTRIESINlt_zfipexWHEREgjahr=l_nd+0(4)ANDzfipex=lt_zfipexzfipex.SORTlt_zfipex1.DELETEADJACENTDUPLICATESFROMlt_zfipex1.ENDIF.LOOPATlt_yszbINTOls_yszb.00110501READTABLElt_zfipexINTOls_zfipexWITHKEYfipex=ls_yszbfipex.讀到上級的承諾項目001105IFsysubrc=0.LOOPATlt_zfipex1INTOls_zfipex1WHEREzfipex=ls_zfipexzfipex.把同級的承諾項目00110502/00110503加入到內(nèi)表lT_yszb1中*IFls_yszbFIPEXlS_ZFIPEX1FIPEX.ls_yszb1fipex=ls_zfipex1fipex.ls_yszb1fictr=ls_yszbfictr.APPENDls_yszb1TOlt_yszb1.CLEAR:ls_yszb1,ls_zfipex1.*ENDIF.ENDLOOP.CLEAR:ls_zfipex.ENDIF.CLEAR:ls_yszb.ENDLOOP.SORTlt_yszb1.DELETEADJACENTDUPLICATESFROMlt_yszb1.CLEAR:lt_fmbl[].IFlt_zfipex1[]isNOTINITIAL.SELECT*已消耗預算FROMfmblINTOTABLElt_fmblFORALLENTRIESINlt_zfipex1WHEREfm_area=i_s_headerfm_areaANDdocyear=l_nd+0(4)ANDcmmtitem=lt_zfipex1fipex.ENDIF.LOOPATlt_fmblINTOls_fmbl.IFls_fmblfundsctr+0(5)=lv_char5.*READTABLElt_yszbINTOls_yszbWITHKEYFIPEX=ls_fmblCMMTITEM.*IFSYSUBRC=0.*DO12TIMESvaryingls_wlpfromls_fmblTVAL01nextls_fmblTVAL02.*ls_yszbZJE=ls_yszbZJEls_wlp.*CLEAR:ls_wlp.*ENDDO.*MODIFYTABLElt_yszbFROMls_yszbTRANSPORTINGZJE.*CLEAR:ls_yszb.*ENDIF.READTABLElt_yszb1INTOls_yszb1WITHKEYfipex=ls_fmblcmmtitem.IFsysubrc=0.DO12TIMESVARYINGls_wlpFROMls_fmbltval01NEXTls_fmbltval02.ls_yszb1zje=ls_yszb1zjels_wlp.CLEAR:ls_wlp.ENDDO.MODIFYTABLElt_yszb1FROMls_yszb1TRANSPORTINGzje.CLEAR:ls_yszb1.ENDIF.ENDIF.ENDLOOP.LOOPATlt_yszbINTOls_yszb.把二級承諾項目金額向一級承諾項目中匯總READTABLElt_zfipex1INTOls_zfipexWITHKEYfipex=ls_yszbfipex.IFsysubrc=0.ls_yszb2fipex=ls_zfipexzfipex.ls_yszb2fictr=ls_yszbfictr.ls_yszb2zje=ls_yszb2zje+ls_yszbzje.ls_yszb2zbezei=ls_zfipexzbezei.COLLECTls_yszb2INTOlt_yszb2.CLEAR:ls_yszb,ls_zfipex,ls_yszb2.ENDIF.ENDLOOP.LOOPATlt_yszb1INTOls_yszb1.把二級承諾項目金額向一級承諾項目中匯總READTABLElt_zfipex1INTOls_zfipexWITHKEYfipex=ls_yszb1fipex.IFsysubrc=0.ls_yszb2fipex=ls_zfipexzfipex.ls_yszb2fictr=ls_yszb1fictr.ls_yszb2zje=ls_yszb2zje+ls_yszb1zje.ls_yszb2zbezei=ls_zfipexzbezei.COLLECTls_yszb2INTOlt_yszb2.CLEAR:ls_yszb1,ls_zfipex,ls_yszb2.ENDIF.ENDLOOP.SELECTfictrfipexzbbzjeFROMzyszbINTOCORRESPONDINGFIELDSOFTABLElt_yszb_tempFORALLENTRIESINlt_yszb2WHEREbukrs=lv_bukrsANDgjahr=l_nd+0(4)*andFICTR=lt_yszbFICTRANDfipex=lt_yszb2fipex.SORTlt_yszb_tempBYfictrfipexzbbDESCENDING.DELETEADJACENTDUPLICATESFROMlt_yszb_temp.LOOPATlt_yszb2INTOls_yszb2.READTABLElt_yszb_tempINTOls_yszb_tempWITHKEYfipex=ls_yszb2fipex.IFsysubrc=0.CLEAR:ls_yszb.READTABLElt_yszbINTOls_yszbWITHKEYfictr=ls_yszb2fictrfipex=ls_yszb2fipex.IFls_yszb2zjels_yszb_tempzjeANDls_yszbzje=0.CLEAR:lv_mes1,lv_mes2,l_s_msg.l_s_msgmsgno=39。00039。.l_s_msgmsgty=39。E39。.l_s_msgmsgid=39。OK39。.CONCATENATE39。承諾項目：39。ls_yszb2fipexls_yszb2zbezeiINTOlv_mes1.l_s_msgmsgv1=lv_mes1.l_s_msgmsgv2=39。超出年度預算，請檢查39。.CALLMETHODi_ref_msgcumulate_messageEXPORTINGi_s_msg=l_s_msg.ENDIF.CLEAR:ls_yszb_temp.ELSE.CLEAR:lv_mes1,lv_mes2,l_s_msg.l_s_msgmsgno=39。00039。.l_s_msgmsgty=39。E39。.l_s_msgmsgid=39。OK39。.CONCATENATE39?；鹬行模?9。ls_yszb2fictr39。、承諾項目：39。ls_yszb2fipexls_yszb2zbezeiINTOlv_mes1.l_s_msgmsgv1=lv_mes1.l_s_msgmsgv2=39。沒有下達預算，請用ZFIR089進行預算下達！39。.CALLMETHODi_ref_msgcumulate_messageEXPORTINGi_s_msg=l_s_msg.ENDIF.CLEAR:ls_yszb2.ENDLOOP.ENDIF.ENDIF.ENDIF. WORD格式整理