《(word完整版)普通-ALV-加双击事件调事务代码.doc》由会员分享,可在线阅读,更多相关《(word完整版)普通-ALV-加双击事件调事务代码.doc(6页珍藏版)》请在金锄头文库上搜索。
1、(word完整版)普通 ALV 加双击事件调标准事务代码*-*&ReportZFIM008*&-*&*&-*REPORTZFIM008。TABLES:BKPF,MKPF。data:a1(20)typec,b1(4)typec,yearlikebkpfgjahr,mblnrlikemkpfmblnr,mblnr1likemkpfmblnr,DATELIKESY-DATUM,DATE1LIKESYDATUM,itypei.DATA:BEGINOFITABOCCURS0,BUKRSTYPEBKPF-BUKRS,ENDOFITAB。DATA:BEGINOFOUTTABOCCURS0,XH(10)TYP
2、EC,”序号BUKRSLIKEBKPFBUKRS,”公司代码GJAHRLIKEBKPF-GJAHR,”年份MONATLIKEBKPFMONAT,月度BLDATLIKEBKPF-BLDAT,”凭证日期BUDATLIKEBKPFBUDAT,凭证过账日期CPUDTLIKEBKPF-CPUDT,”凭证输入日期BLARTLIKEBKPFBLART,”凭证类型BELNRLIKEBKPF-BELNR,”凭证号码AWKEYLIKEBKPF-AWKEY,”参考码mblnrLIKEMKPF-MBLNR,”物料凭证号码ENDOFOUTTAB。DATA:gt_fieldcatTYPEslis_t_fieldcat_a
3、lvWITHHEADERLINE.DATA:programLIKEsyrepid。DATA:gs_layoutTYPEslis_layout_alv.DATA:titleTYPElvc_title.DATA:gt_sortTYPEslis_t_sortinfo_alvWITHHEADERLINE。data:wa_sorttypeslis_t_sortinfo_alvWITHHEADERLINE.DATA:g_user_commandtypeslis_formnamevalueUSER_COMMAND。definefill_sort.clearwa_sort.wa_sortspos=1。wa_s
4、ortfieldname=&2.wa_sort-comp=&3.wa_sortsubtot=4。appendwa_sorttogt_sort.end-ofdefinition。SELECTIONSCREENBEGINOFBLOCKBLK1WITHFRAMETITLETEXT001。SELECTOPTIONS:S_BUKRSFORBKPFBUKRSOBLIGATORY.PARAMETERS:S_GJAHRLIKEBKPF-GJAHRDEFAULTsydatum+0(4)OBLIGATORY。SELECT-OPTIONS:S_MONATFORBKPFMONATOBLIGATORY.SELECTIO
5、N-SCREENENDOFBLOCKBLK1。ATSELECTION-SCREENONS_BUKRS.*申请单位CLEAR:itab.SELECTbukrsINTOCORRESPONDINGFIELDSOFTABLEitabFROMt001WHEREbukrsINs_bukrsANDspras=1.IFsysubrc0.messageE000(ZFI01)withP_BUKRS。MESSAGE公司代码不存在TYPEE.ENDIF.*权限检查LOOPATitab.AUTHORITYCHECKOBJECTF_BKPF_BUKIDBUKRSFIELDitabbukrsIDACTVTFIELD03。I
6、Fsysubrc0。MESSAGE您没有输入公司代码的权限,请检查。TYPEE。ENDIF.ENDLOOP.START-OFSELECTION。PERFORMGETDATA。PERFORMDISPLAY。&-*&FormGETDATA*&-*text*-*-p1text*-p2text-*FORMGETDATA。CLEAR:OUTTAB,OUTTAB。ifs_monat-high=.s_monat-high=s_monatlow.endif.CLEAR:DATE,DATE1。CONCATENATES_GJAHRS_monat-high01intodate。CALLFUNCTIONFIMA_DA
7、TE_CREATEEXPORTINGI_DATE=DATE*I_FLG_END_OF_MONTH=I_YEARS=0I_MONTHS=0*I_DAYS=0I_CALENDAR_DAYS=0I_SET_LAST_DAY_OF_MONTH=XIMPORTINGE_DATE=DATE.CLEAR:DATE1.CONCATENATES_GJAHRS_MONATLOW01INTODATE1。SELECTBUKRSGJAHRMONATBLDATBUDATCPUDTBLARTBELNRAWKEYFROMBKPFINTOCORRESPONDINGFIELDSOFTABLEOUTTABWHEREBUKRSins
8、_BUKRSAND(BUDATLEDATEANDBUDATGEDATE1)andbelnr1.sortouttabbybukrsgjahrbelnr。clear:i。i=1.LOOPATOUTTAB.CLEAR:A1,b1。SPLITOUTTABAWKeYATOUTTAB-GJAHRINTOA1B1。clear:year,mblnr.year=OUTTABGJAHR.mblnr=a1.CALLFUNCTIONCONVERSION_EXIT_ALPHA_INPUTEXPORTINGINPUT=MBLNRIMPORTINGOUTPUT=MBLNR。clear:mblnr1。selectsingle
9、mblnrfrommkpfintomblnr1wheremblnr=MBLNRandMJAHR=YEAR。ifmblnr1=.deleteouttabwherebelnr=outtabbelnrandbukrs=outtab-bukrsandgjahr=outtab-gjahr。else.CALLFUNCTIONCONVERSION_EXIT_ALPHA_OUTPUTEXPORTINGINPUT=MBLNR1IMPORTINGOUTPUT=MBLNR1。outtabmblnr=MBLNR1。outtab-xh=i。i=i+1.modifyouttab。endif.ENDLOOP。ENDFORM。GETDATA&-*&FormDISPLAY*&-*text-*p1text-p2text-FORMDISPLAY.CLEAR:gt_fieldcat,gt_fieldcat,gs_layout。”清空gt_fiel