FMBB预算下达增强

./FMBB预算下达控制直接创建实施代码：DATA:l_diff_yearsTYPEfmmaact-perc_time_hor,l_s_linesTYPEfmku_s_badi_line,l_s_fmciTYPEfmci,l_active_process_entryTYPExflag,l_active_process_returnTYPExflag,l_active_process_supplTYPExflag,l_active_process_transTYPExflag,l_active_process_carryoverTYPExflag,l_s_addressTYPEfmku_s_dimpart,l_t_addressTYPEfmku_t_dimpart,l_t_fmbdtTYPEfmbd_t_t,l_s_fmbdtTYPEfmbdt,l_perc_time_horTYPEfmmaact-perc_time_hor,l_budget_optionTYPEfmmaact-ma_bud_option.DATA:l_s_msgTYPEbubas_s_msg.DATA:l_ndTYPEgjahr.***ReadthebudcatandfmareaLOOPATi_t_linesINTOl_s_linesFROM1TO1.ENDLOOP.l_nd=l_s_lines-FISCYEAR.***Readmulti-annualcustomizingCALLFUNCTION'FMMA_CHECK_ACTIVATION'EXPORTINGi_fm_area=i_s_header-fm_area

i_budcat=l_s_lines-budcat

IMPORTINGe_perc_time_hor=l_perc_time_hor

e_budget_option=l_budget_option

EXCEPTIONSnot_active=1OTHERS=2.IFsy-subrc<>0.l_perc_time_hor=0.ENDIF.*Dothecheckonlyifperctimehorgt0IFl_perc_time_horGT0.***ActivethebudgetprocessesdependingonthecustomizingoptionIFl_budget_optionEQ'O'.l_active_process_entry='X'.l_active_process_return=''.l_active_process_suppl=''.l_active_process_trans=''.l_active_process_carryover=''.ENDIF.IFl_budget_optionEQ'C'.l_active_process_entry='X'.l_active_process_return='X'.l_active_process_suppl='X'.l_active_process_trans='X'.l_active_process_carryover='X'.ENDIF.***Takeinconsiderationonlythelinescontainingthe***yearofcasheffectivityLOOPATi_t_linesINTOl_s_lines

WHEREceffyearISNOTINITIAL.***DothecheckonlyifceffyaerisgreaterthanfiscyearIFl_s_lines-ceffyearGTl_nd.CLEARl_s_fmci.CALLFUNCTION'FM_COM_ITEM_READ_SINGLE_DATA'EXPORTINGi_fikrs=i_s_header-fm_area

i_varnt='000'i_gjahr=l_nd

i_fipex=l_s_lines-address-cmmtitem

*I_FLG_TEXT=''*I_FLG_HIERARCHY=''IMPORTINGe_f_fmci=l_s_fmci

*E_F_FMCIT=*E_F_FMHICI=EXCEPTIONSmaster_data_not_found=1hierarchy_data_not_found=2input_error=3OTHERS=4.IFsy-subrc<>0.CLEARl_s_fmci.ENDIF.IFl_s_fmci-ncbudISNOTINITIAL.***Notmulti-annualaddress:multi-annualentriesarenotallowedl_s_msg-msgty='E'.l_s_msg-msgid='FMMA'.l_s_msg-msgno=009.l_s_msg-msgv1=l_s_lines-address-cmmtitem.*l_f_msg-CONTEXT-AREA=con_msg_others.CALLMETHODi_ref_msg->cumulate_message

EXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ELSE.CASEl_s_lines-process.WHEN'ENTR'.IFl_active_process_entryEQ'X'.l_diff_years=l_s_lines-ceffyear-l_nd.***Ifthel_diff_yearislessthanpercentagetime***horizonthanraisetheerror***postingonthisyearofcasheffectivityisnotallowedIFNOTl_diff_yearsGTl_perc_time_hor.l_s_msg-msgty='E'.l_s_msg-msgid='FMMA'.l_s_msg-msgno=008.l_s_msg-msgv1=l_s_lines-ceffyear.*l_f_msg-CONTEXT-AREA=con_msg_others.CALLMETHODi_ref_msg->cumulate_message

EXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ENDIF.ENDIF.WHEN'SUPL'.IFl_active_process_supplEQ'X'.l_diff_years=l_s_lines-ceffyear-l_nd.***Ifthel_diff_yearislessthanPTHthanraisetheerror***postingonthisyearofcasheffectivityisnotallowedIFNOTl_diff_yearsGTl_perc_time_hor.l_s_msg-msgty='E'.l_s_msg-msgid='FMMA'.l_s_msg-msgno=008.l_s_msg-msgv1=l_s_lines-ceffyear.*l_f_msg-CONTEXT-AREA=con_msg_others.CALLMETHODi_ref_msg->cumulate_message

EXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ENDIF.ENDIF.WHEN'RETN'.IFl_active_process_returnEQ'X'.l_diff_years=l_s_lines-ceffyear-l_nd.***Ifthel_diff_yearislessthanPTHthanraisetheerror***postingonthisyearofcasheffectivityisnotallowedIFNOTl_diff_yearsGTl_perc_time_hor.l_s_msg-msgty='E'.l_s_msg-msgid='FMMA'.l_s_msg-msgno=008.l_s_msg-msgv1=l_s_lines-ceffyear.*l_f_msg-CONTEXT-AREA=con_msg_others.CALLMETHODi_ref_msg->cumulate_message

EXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ENDIF.ENDIF.WHEN'SEND'.IFl_active_process_transEQ'X'.l_diff_years=l_s_lines-ceffyear-l_nd.***Ifthel_diff_yearislessthanPTHthanraisetheerror***postingonthisyearofcasheffectivityisnotallowedIFNOTl_diff_yearsGTl_perc_time_hor.l_s_msg-msgty='E'.l_s_msg-msgid='FMMA'.l_s_msg-msgno=008.l_s_msg-msgv1=l_s_lines-ceffyear.*l_f_msg-CONTEXT-AREA=con_msg_others.CALLMETHODi_ref_msg->cumulate_message

EXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ENDIF.ENDIF.WHEN'RECV'.IFl_active_process_transEQ'X'.l_diff_years=l_s_lines-ceffyear-l_nd.***Ifthel_diff_yearislessthanPTHthanraisetheerror***postingonthisyearofcasheffectivityisnotallowedIFNOTl_diff_yearsGTl_perc_time_hor.l_s_msg-msgty='E'.l_s_msg-msgid='FMMA'.l_s_msg-msgno=008.l_s_msg-msgv1=l_s_lines-ceffyear.*l_f_msg-CONTEXT-AREA=con_msg_others.CALLMETHODi_ref_msg->cumulate_message

EXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ENDIF.ENDIF.WHEN'COSD'.IFl_active_process_carryoverEQ'X'.l_diff_years=l_s_lines-ceffyear-l_nd.***Ifthel_diff_yearislessthanPTHthanraisetheerror***carryoverfromthisyearofcasheffectivityisnotallowedIFNOTl_diff_yearsGTl_perc_time_hor.l_s_msg-msgty='E'.l_s_msg-msgid='FMMA'.l_s_msg-msgno=010.l_s_msg-msgv1=l_s_lines-ceffyear.*l_f_msg-CONTEXT-AREA=con_msg_others.CALLMETHODi_ref_msg->cumulate_message

EXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ENDIF.ENDIF.WHEN'CORV'.IFl_active_process_transEQ'X'.l_diff_years=l_s_lines-ceffyear-l_nd.***Ifthel_diff_yearislessthanPTHthanraisetheerror***carryovertothisyearofcasheffectivityisnotallowedIFNOTl_diff_yearsGTl_perc_time_hor.l_s_msg-msgty='E'.l_s_msg-msgid='FMMA'.l_s_msg-msgno=010.l_s_msg-msgv1=l_s_lines-ceffyear.*l_f_msg-CONTEXT-AREA=con_msg_others.CALLMETHODi_ref_msg->cumulate_message

EXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ENDIF.ENDIF.ENDCASE.ENDIF.ENDIF.ENDLOOP.ENDIF.IFi_t_lines[]ISNOTINITIAL.DATA:ls_znrTYPEzyspzb-znr.DATA:lv_dateTYPEd.SELECTSINGLEznrFROMzyspzbINTOls_znrWHEREzflag='F3'ANDbukrs='9999'.IFls_znr+0<1>CO'0123456789'.CONCATENATEl_nd+0<4>ls_znrINTOlv_date.CHECKl_nd>lv_date.ENDIF.CLEAR:ls_znr.DATA:BEGINOFls_yszb2,bukrsTYPEzyszb-bukrs,gjahrTYPEzyszb-gjahr,fipexTYPEzyszb-fipex,zbbTYPEzyszb-zbb,fictrTYPEzyszb-fictr,zjeTYPEzyszb-zje,zfipexTYPEzyszb-fipex,zbezeiTYPEzyscncjb-zbezei,ENDOFls_yszb2.DATA:lt_yszb2LIKETABLEOFls_yszb2.DATA:lt_zfipexTYPETABLEOFzyscncjb.DATA:ls_zfipexLIKELINEOFlt_zfipex.DATA:lt_zfipex1TYPETABLEOFzyscncjb.DATA:ls_zfipex1LIKELINEOFlt_zfipex1.DATA:lt_yszbTYPETABLEOFzyszb.DATA:lt_yszb_tempTYPETABLEOFzyszb.DATA:ls_yszbLIKELINEOFlt_yszb.DATA:lt_yszb1TYPETABLEOFzyszb.DATA:ls_yszb1LIKELINEOFlt_yszb.DATA:ls_yszb_tempLIKELINEOFlt_yszb.DATA:ls_wlpTYPEtvalxx9.DATA:lv_mes1TYPEstring.DATA:lv_mes2TYPEstring.*data:BEGINOFlt_FMBL,*FISCYEARTYPEFMBL-FISCYEAR,*FUNDSCTRTYPEFMBL-FUNDSCTR,*CMMTITEMTYPEFMBL-CMMTITEM,*ENDOFlt_FMBL.DATA:lt_fmblTYPETABLEOFfmbl.DATA:lt_fmbl_tempTYPETABLEOFfmbl.DATA:ls_fmblLIKELINEOFlt_fmbl.DATA:ls_fmbl_tempLIKELINEOFlt_fmbl.DATA:lv_bukrsTYPEbukrs.DATA:lv_char5<5>TYPEc.CLEAR:l_s_lines,lv_char5,lv_bukrs.LOOPATi_t_linesINTOl_s_lines."获取公司代码IFlv_char5ISINITIAL.lv_char5=l_s_lines-address-fundsctr+0<5>.ELSE.IFlv_char5<>l_s_lines-address-fundsctr+0<5>.*CLEAR:lv_mes1,lv_mes2,l_s_msg.l_s_msg-msgno='000'.l_s_msg-msgty='E'.l_s_msg-msgid='OK'.l_s_msg-msgv1='请输入相同公司代码的基金中心！'.*l_s_msg-msgV2='超出预算,请检查'.CALLMETHODi_ref_msg->cumulate_message

EXPORTINGi_s_msg=l_s_msg.ENDIF.ENDIF.ENDLOOP.CONCATENATE'57'lv_char5+3<2>intolv_bukrs.*lv_bukrs=lv_char5+1<4>.**********************************************************************addbyabap0320171108***Fmbb下完预算后,校验,当年累计预算+当前预算>=0.否则提示报错,不允许下达负预算。CLEAR:lt_yszb,lt_yszb[].LOOPATi_t_linesINTOl_s_lines."获取屏幕输入的预算金额ls_yszb-fictr=l_s_lines-address-fundsctr.ls_yszb-fipex=l_s_lines-address-cmmtitem.DO12TIMESVARYINGls_wlpFROMl_s_lines-tval01NEXTl_s_lines-tval02.ls_yszb-zje=ls_yszb-zje-ls_wlp.CLEAR:ls_wlp.ENDDO.COLLECTls_yszbINTOlt_yszb.CLEAR:l_s_lines,ls_yszb.ENDLOOP.CLEAR:lt_fmbl[].SELECT*"已消耗预算00110501FROMfmbl

INTOTABLElt_fmbl

FORALLENTRIESINlt_yszb

WHEREfm_area=i_s_header-fm_area

ANDdocyear=l_nd+0<4>ANDfundsctr=lt_yszb-fictr

ANDcmmtitem=lt_yszb-fipex

ANDbudcat='9F'ANDvaltype='B1'.CLEAR:lt_fmbl_temp,lt_fmbl_temp[].LOOPATlt_fmblINTOls_fmbl.ls_fmbl_temp-fundsctr=ls_fmbl-fundsctr.ls_fmbl_temp-cmmtitem=ls_fmbl-cmmtitem.ls_fmbl_temp-tval01=ls_fmbl-tval01.ls_fmbl_temp-tval02=ls_fmbl-tval02.ls_fmbl_temp-tval03=ls_fmbl-tval03.ls_fmbl_temp-tval04=ls_fmbl-tval04.ls_fmbl_temp-tval05=ls_fmbl-tval05.ls_fmbl_temp-tval06=ls_fmbl-tval06.ls_fmbl_temp-tval07=ls_fmbl-tval07.ls_fmbl_temp-tval08=ls_fmbl-tval08.ls_fmbl_temp-tval09=ls_fmbl-tval09.ls_fmbl_temp-tval10=ls_fmbl-tval10.ls_fmbl_temp-tval11=ls_fmbl-tval11.ls_fmbl_temp-tval12=ls_fmbl-tval12.ls_fmbl_temp-tval13=ls_fmbl-tval13.ls_fmbl_temp-tval14=ls_fmbl-tval14.ls_fmbl_temp-tval15=ls_fmbl-tval15.ls_fmbl_temp-tval16=ls_fmbl-tval16.COLLECTls_fmbl_tempINTOlt_fmbl_temp.CLEAR:ls_fmbl_temp,ls_fmbl.ENDLOOP.IFlt_fmbl_temp[]ISNOTINITIAL.LOOPATlt_fmbl_tempINTOls_fmbl."将屏幕输入的预算金额+已消耗预算金额READTABLElt_yszbINTOls_yszbWITHKEYfictr=ls_fmbl-fundsctr

fipex=ls_fmbl-cmmtitem.IFsy-subrc=0.DO16TIMESVARYINGls_wlpFROMls_fmbl-tval01NEXTls_fmbl-tval02.ls_yszb-zje=ls_yszb-zje-ls_wlp.CLEAR:ls_wlp.ENDDO.IFls_yszb-zje<0.CLEAR:lv_mes1,lv_mes2,l_s_msg.l_s_msg-msgno='000'.l_s_msg-msgty='E'.l_s_msg-msgid='OK'.CONCATENATE'基金中心：'ls_yszb2-fictr'、承诺项目：'ls_yszb2-fipexINTOlv_mes1.l_s_msg-msgv1=lv_mes1.l_s_msg-msgv2='不允许下达负预算!'.CALLMETHODi_ref_msg->cumulate_message

EXPORTINGi_s_msg=l_s_msg.ENDIF.*MODIFYTABLElt_yszbFROMls_yszbTRANSPORTINGZJE.CLEAR:ls_yszb.ENDIF.ENDLOOP.ELSE.LOOPATlt_yszbINTOls_yszb.IFls_yszb-zje<0.CLEAR:lv_mes1,lv_mes2,l_s_msg.l_s_msg-msgno='000'.l_s_msg-msgty='E'.l_s_msg-msgid='OK'.CONCATENATE'基金中心：'ls_yszb2-fictr'、承诺项目：'ls_yszb2-fipexINTOlv_mes1.*CONCATENATE'基金中心：'ls_yszb2-fictr'、承诺项目：'ls_yszb2-fipexINTOlv_mes1.l_s_msg-msgv1=lv_mes1.l_s_msg-msgv2='不允许下达负预算!'.CALLMETHODi_ref_msg->cumulate_message

EXPORTINGi_s_msg=l_s_msg.ENDIF.ENDLOOP.ENDIF.**********************************************************************addbyabap0320171108SELECTSINGLEznrFROMzyspzbINTOls_znrWHEREzflag='F2'ANDbukrs=lv_bukrs.IFls_znr<>'X'.CLEAR:ls_znr.SELECTSINGLEznrFROMzyspzbINTOls_znrWHEREbukrs=lv_bukrs.CLEAR:l_s_lines,ls_fmbl,ls_wlp.IFls_znr='Z'."总部公司代码CLEAR:lt_yszb,lt_yszb[].LOOPATi_t_linesINTOl_s_lines."获取屏幕输入的预算金额ls_yszb-fictr=l_s_lines-address-fundsctr.ls_yszb-fipex=l_s_lines-address-cmmtitem.DO12TIMESVARYINGls_wlpFROMl_s_lines-tval01NEXTl_s_lines-tval02.ls_yszb-zje=ls_yszb-zje-ls_wlp.CLEAR:ls_wlp.ENDDO.COLLECTls_yszbINTOlt_yszb.CLEAR:l_s_lines,ls_yszb.ENDLOOP.SELECTzfipex"获取上级承诺项目zbezei

fipex

FROMzyscncjb

INTOCORRESPONDINGFIELDSOFTABLElt_zfipex

FORALLENTRIESINlt_yszb

WHEREgjahr=l_nd+0<4>ANDfipex=lt_yszb-fipex.SORTlt_zfipex.DELETEADJACENTDUPLICATESFROMlt_zfipex.IFlt_zfipex[]ISNOTINITIAL.SELECTzfipex"获取同级承诺项目zbezei

fipex

FROMzyscncjb

INTOCORRESPONDINGFIELDSOFTABLElt_zfipex1

FORALLENTRIESINlt_zfipex

WHEREgjahr=l_nd+0<4>ANDzfipex=lt_zfipex-zfipex.SORTlt_zfipex1.DELETEADJACENTDUPLICATESFROMlt_zfipex1.ENDIF.LOOPATlt_yszbINTOls_yszb."00110501READTABLElt_zfipexINTOls_zfipexWITHKEYfipex=ls_yszb-fipex."读到上级的承诺项目001105IFsy-subrc=0.LOOPATlt_zfipex1INTOls_zfipex1WHEREzfipex=ls_zfipex-zfipex."把同级的承诺项目00110502/00110503加入到内表lT_yszb1中*IFls_yszb-FIPEX<>lS_ZFIPEX1-FIPEX.ls_yszb1-fipex=ls_zfipex1-fipex.ls_yszb1-fictr=ls_yszb-fictr.IFls_yszb-fictr=ls_yszb1-fictrandls_yszb-fipex=ls_yszb1-fipex.CONTINUE.ENDIF.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[].SELECT*"已消耗预算00110501FROMfmbl

INTOTABLElt_fmbl

FORALLENTRIESINlt_yszb

WHEREfm_area=i_s_header-fm_area

ANDdocyear=l_nd+0<4>ANDfundsctr=lt_yszb-fictr

ANDcmmtitem=lt_yszb-fipex.IFlt_yszb1[]ISNOTINITIAL.SELECT*"已消耗预算00110502/00110503。..FROMfmbl

APPENDINGTABLElt_fmbl

FORALLENTRIESINlt_yszb1

WHEREfm_area=i_s_header-fm_area

ANDdocyear=l_nd+0<4>ANDfundsctr=lt_yszb1-fictr

ANDcmmtitem=lt_yszb1-fipex.ENDIF.LOOPATlt_fmblINTOls_fmbl."将屏幕输入的预算金额+已消耗预算金额READTABLElt_yszbINTOls_yszbWITHKEYFICTR=ls_fmbl-FUNDSCTR

FIPEX=ls_fmbl-CMMTITEM.IFSY-SUBRC=0.DO12TIMESvaryingls_wlpfromls_fmbl-TVAL01nextls_fmbl-TVAL02.ls_yszb-ZJE=ls_yszb-ZJE-ls_wlp.CLEAR:ls_wlp.ENDDO.MODIFYTABLElt_yszbFROMls_yszbTRANSPORTINGZJE.CLEAR:ls_yszb.ENDIF.READTABLElt_yszb1INTOls_yszb1WITHKEYfictr=ls_fmbl-fundsctr

fipex=ls_fmbl-cmmtitem.IFsy-subrc=0.DO12TIMESVARYINGls_wlpFROMls_fmbl-tval01NEXTls_fmbl-tval02.ls_yszb1-zje=ls_yszb1-zje-ls_wlp.CLEAR:ls_wlp.ENDDO.MODIFYTABLElt_yszb1FROMls_yszb1TRANSPORTINGzje.CLEAR:ls_yszb1.ENDIF.ENDLOOP.LOOPATlt_yszbINTOls_yszb."把二级承诺项目金额向一级承诺项目中汇总READTABLElt_zfipex1INTOls_zfipexWITHKEYfipex=ls_yszb-fipex.IFsy-subrc=0.ls_yszb2-fipex=ls_zfipex-zfipex.ls_yszb2-fictr=ls_yszb-fictr.ls_yszb2-zje=ls_yszb2-zje+ls_yszb-zje.ls_yszb2-zbezei=ls_zfipex-zbezei.COLLECTls_yszb2INTOlt_yszb2.CLEAR:ls_yszb,ls_zfipex,ls_yszb2.ENDIF.ENDLOOP.LOOPATlt_yszb1INTOls_yszb1."把二级承诺项目金额向一级承诺项目中汇总READTABLElt_zfipex1INTOls_zfipexWITHKEYfipex=ls_yszb1-fipex.IFsy-subrc=0.ls_yszb2-fipex=ls_zfipex-zfipex.ls_yszb2-fictr=ls_yszb1-fictr.ls_yszb2-zje=ls_yszb2-zje+ls_yszb1-zje.ls_yszb2-zbezei=ls_zfipex-zbezei.COLLECTls_yszb2INTOlt_yszb2.CLEAR:ls_yszb1,ls_zfipex,ls_yszb2.ENDIF.ENDLOOP.SELECTfictrfipexzbbzje

FROMzyszb

INTOCORRESPONDINGFIELDSOFTABLElt_yszb_temp

FORALLENTRIESINlt_yszb2

WHEREbukrs=lv_bukrs

ANDgjahr=l_nd+0<4>ANDfictr=lt_yszb2-fictr

ANDfipex=lt_yszb2-fipex.SORTlt_yszb_tempBYfictrfipexzbbDESCENDING.DELETEADJACENTDUPLICATESFROMlt_yszb_temp.LOOPATlt_yszb2INTOls_yszb2.READTABLElt_yszb_tempINTOls_yszb_tempWITHKEYfictr=ls_yszb2-fictr

fipex=ls_yszb2-fipex.IFsy-subrc=0.CLEAR:ls_yszb.READTABLElt_yszbINTOls_yszbWITHKEYfictr=ls_yszb2-fictr

fipex=ls_yszb2-fipex.IFls_yszb2-zje>ls_yszb_temp-zjeANDls_yszb-zje>=0.CLEAR:lv_mes1,lv_mes2,l_s_msg.l_s_msg-msgno='000'.l_s_msg-msgty='E'.l_s_msg-msgID='OK'.*CONCATENATE'基金中心：'ls_yszb2-fictr'、承诺项目：'ls_yszb2-fipexINTOlv_mes1.CONCATENATE'基金中心：'ls_yszb2-fictr'、承诺项目：'ls_yszb2-fipexls_yszb2-zbezeiINTOlv_mes1.l_s_msg-msgv1=lv_mes1.l_s_msg-msgv2='超出年度预算,请检查'.CALLMETHODi_ref_msg->cumulate_message

EXPORTINGi_s_msg=l_s_msg.ENDIF.ELSE.CLEAR:lv_mes1,lv_mes2,l_s_msg.l_s_msg-msgno='000'.l_s_msg-msgty='E'.l_s_msg-msgid='OK'.*CONCATENATE'基金中心：'ls_yszb2-fictr'、承诺项目：'ls_yszb2-fipexINTOlv_mes1.CONCATENATE'基金中心：'ls_yszb2-fictr'、承诺项目：'ls_yszb2-fipexls_yszb2-zbezeiINTOlv_mes1.l_s_msg-msgv1=lv_mes1.l_s_msg-msgv2='没有下达预算,请用ZFIR089进行预算下达！'.CALLMETHODi_ref_msg->cumulate_message

EXPORTINGi_s_msg=l_s_msg.ENDIF.ENDLOOP.ELSEIFls_znr='F'."分公司代码LOOPATi_t_linesINTOl_s_lines.ls_yszb-FICTR=l_s_lines-ADDRESS-FUNDSCTR.ls_yszb-fipex=l_s_lines-address-cmmtitem.*DO12TIMESVARYINGls_wlpFROMl_s_lines-tval01NEXTl_s_lines-tval02.*ls_yszb-zje=ls_yszb-zje-ls_wlp.*CLEAR:ls_wlp.*ENDDO.CLEARls_yszb-zje.COLLECTls_yszbINTOlt_yszb.CLEAR:l_s_lines,ls_yszb.ENDLOOP.SELECTzfipex"获取上级承诺项目fipex

FROMzyscncjb

INTOCORRESPONDINGFIELDSOFTABLElt_zfipex

FORALLENTRIESINlt_yszb

WHEREgjahr=l_nd+0<4>ANDfipex=lt_yszb-fipex.SORTlt_zfipex.DELETEADJACENTDUPLICATESFROMlt_zfipex.IFlt_zfipex[]ISNOTINITIAL.SELECTzfipex"获取同级承诺项目fipex

FROMzyscncjb

INTOCORRESPONDINGFIELDSOFTABLElt_zfipex1

FORALLENTRIESINlt_zfipex

WHEREgjahr=l_nd+0<4>ANDzfipex=lt_zfipex-zfipex.SORTlt_zfipex1.DELETEADJACENTDUPLICATESFROMlt_zfipex1.ENDIF.LOOPATlt_yszbINTOls_yszb."00110501READTABLElt_zfipexINTOls_zfipexWITHKEYfipex=ls_yszb-fipex."读到上级的承诺项目001105IFsy-subrc=0.LOOPATlt_zfipex1INTOls_zfipex1WHEREzfipex=ls_zfipex-zfipex."把同级的承诺项目00110502/00110503加入到内表lT_yszb1中*IFls_yszb-FIPEX<>lS_ZFIPEX1-FIPEX.ls_yszb1-fipex=ls_zfipex1-fipex.ls_yszb1-fictr=ls_yszb-fictr.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*"已消耗预算FROMfmbl

INTOTABLElt_fmbl

FORALLENTRIESINlt_zfipex1

WHEREfm_area=i_s_header-fm_area

ANDdocyear=l_nd+0<4>ANDcmmtitem=lt_zfipex1-fipex.ENDIF.LOOPATlt_fmblINTOls_fmbl.IFls_fmbl-fundsctr+0<5>=lv_char5.*READTABLElt_yszbINTOls_yszbWITHKEYFIPEX=ls_fmbl-CMMTITEM.*IFSY-SUBRC=0.*DO12TIMESvaryingls_wlpfromls_fmbl-TVAL01nextls_fmbl-TVAL02.*ls_yszb-ZJE=ls_yszb-ZJE-ls_wlp.*CLEAR:ls_wlp.*ENDDO.*MODIFYTABLElt_yszbFROMls_yszbTRANSPORTINGZJE.*CLEAR:ls_yszb.*ENDIF.READTABLElt_yszb1INTOls_yszb1WITHKEYfipex=ls_fmbl-cmmtitem.IFsy-subrc=0.DO12TIMESVARYINGls_wlpFROMls_fmbl-tval01NEXTls_fmbl-tval02.ls_yszb1-zje=ls_yszb1-zje-ls_wlp.CLEAR:ls_wlp.ENDDO.MODIFYTABLElt_yszb1FROMls_yszb1TRANSPORTINGzje.CLEAR:ls_yszb1.ENDIF.ENDIF.ENDLOOP.LOOPATlt_yszbINTOls_yszb.