FMBB预算下达增强.doc

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-annualcustomizingCALLFUNCTIONFMMA_CHECK_ACTIVATIONEXPORTINGi_fm_area=i_s_header-fm_areai_budcat=l_s_lines-budcatIMPORTINGe_perc_time_hor=l_perc_time_hore_budget_option=l_budget_optionEXCEPTIONSnot_active=1OTHERS=2.IFsy-subrc0.l_perc_time_hor=0.ENDIF.*Dothecheckonlyifperctimehorgt0IFl_perc_time_horGT0.*ActivethebudgetprocessesdependingonthecustomizingoptionIFl_budget_optionEQO.l_active_process_entry=X.l_active_process_return=.l_active_process_suppl=.l_active_process_trans=.l_active_process_carryover=.ENDIF.IFl_budget_optionEQC.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_linesWHEREceffyearISNOTINITIAL.*DothecheckonlyifceffyaerisgreaterthanfiscyearIFl_s_lines-ceffyearGTl_nd.CLEARl_s_fmci.CALLFUNCTIONFM_COM_ITEM_READ_SINGLE_DATAEXPORTINGi_fikrs=i_s_header-fm_areai_varnt=000i_gjahr=l_ndi_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-subrc0.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_messageEXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ELSE.CASEl_s_lines-process.WHENENTR.IFl_active_process_entryEQX.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_messageEXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ENDIF.ENDIF.WHENSUPL.IFl_active_process_supplEQX.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_messageEXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ENDIF.ENDIF.WHENRETN.IFl_active_process_returnEQX.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_messageEXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ENDIF.ENDIF.WHENSEND.IFl_active_process_transEQX.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_messageEXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ENDIF.ENDIF.WHENRECV.IFl_active_process_transEQX.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_messageEXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ENDIF.ENDIF.WHENCOSD.IFl_active_process_carryoverEQX.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_messageEXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ENDIF.ENDIF.WHENCORV.IFl_active_process_transEQX.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_messageEXPORTINGi_s_msg=l_s_msg.CLEARl_s_msg.ENDIF.ENDIF.ENDCASE.ENDIF.ENDIF.ENDLOOP.ENDIF.IFi_t_linesISNOTINITIAL.DATA:ls_znrTYPEzyspzb-znr.DATA:lv_dateTYPEd.SELECTSINGLEznrFROMzyspzbINTOls_znrWHEREzflag=F3ANDbukrs=9999.IFls_znr+0(1)CO0123456789.CONCATENATEl_nd+0(4)ls_znrINTOlv_date.CHECKl_ndlv_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_char5l_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_messageEXPORTINGi_s_msg=l_s_msg.ENDIF.ENDIF.ENDLOOP.CONCATENATE57lv_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*已消耗预算00110501FROMfmblINTOTABLElt_fmblFORALLENTRIESINlt_yszbWHEREfm_area=i_s_header-fm_areaANDdocyear=l_nd+0(4)ANDfundsctr=lt_yszb-fictrANDcmmtitem=lt_yszb-fipexANDbudcat=9FANDvaltype=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_tempISNOTINITIAL.LOOPATlt_fmbl_tempINTOls_fmbl.将屏幕输入的预算金额+已消耗预算金额READTABLElt_yszbINTOls_yszbWITHKEYfictr=ls_fmbl-fundsctrfipex=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-zjecumulate_messageEXPORTINGi_s_msg=l_s_msg.ENDIF.*MODIFYTABLElt_yszbFROMls_yszbTRANSPORTINGZJE.CLEAR:ls_yszb.ENDIF.ENDLOOP.ELSE.LOOPATlt_yszbINTOls_yszb.IFls_yszb-zjecumulate_messageEXPORTINGi_s_msg=l_s_msg.ENDIF.ENDLOOP.ENDIF.*addbyabap0320171108SELECTSINGLEznrFROMzyspzbINTOls_znrWHEREzflag=F2ANDbukrs=lv_bukrs.IFls_znrX.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获取上级承诺项目zbezeifipexFROMzyscncjbINTOCORRESPONDINGFIELDSOFTABLElt_zfipexFORALLENTRIESINlt_yszbWHEREgjahr=l_nd+0(4)ANDfipex=lt_yszb-fipex.SORTlt_zfipex.DELETEADJACENTDUPLICATESFROMlt_zfipex.IFlt_zfipexISNOTINITIAL.SELECTzfipex获取同级承诺项目zbezeifipexFROMzyscncjbINTOCORRESPONDINGFIELDSOFTABLElt_zfipex1FORALLENTRIESINlt_zfipexWHEREgjahr=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-FIPEXlS_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*已消耗预算00110501FROMfmblINTOTABLElt_fmblFORALLENTRIESINlt_yszbWHEREfm_area=i_s_header-fm_areaANDdocyear=l_nd+0(4)ANDfundsctr=lt_yszb-fictrANDcmmtitem=lt_yszb-fipex.IFlt_yszb1ISNOTIN