通过双击ALV中的字段名判断调用的事物代码和传入的参数
<!--StartFragment -->
FORMfrm_output.
*ALV输出
g_repid=sy-repid.
CALLFUNCTION'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program=g_repid
is_layout=gs_layout
it_fieldcat=gt_fieldcat[]
i_save='X'
is_variant=v_stru_disvar
it_events=git_events[]
it_sort=it_sort[]
is_print=gs_print
*i_callback_pf_status_set='FRM_STATUS'"显示自定义toolbar
i_callback_user_command='USER_COMMAND'
TABLES
t_outtab=i_tab
EXCEPTIONS
program_error=1
OTHERS=2.
IFsy-subrc<>0.
MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgno
WITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.
ENDIF.
ENDFORM."FRM_OUTPUT
------------------------------------------------------------------------
FORMuser_commandUSINGr_ucommTYPEsy-ucomm
rs_selfieldTYPEslis_selfield.
CASEr_ucomm.
WHEN'&IC1'."此处通过设断点调试寻找r_ucomm值,填写到此处
casers_selfield-fieldname.
when'VBELN'.
SETPARAMETERID'VL'FIELDrs_selfield-value."PARAMETERID为需要传入的参数IDF1下找
CALLTRANSACTION'VL02N'ANDSKIPFIRSTSCREEN.
whenothers.
readtableI_TABINDEXrs_selfield-TABINDEX. “通过点击的行号 rs_selfield-TABINDEX 读取
SETPARAMETERID'AUN'FIELDI_TAB-VGBEL. “读取VGBEL值传输到VA03中
CALLTRANSACTION'VA03'ANDSKIPFIRSTSCREEN.
endcase.
ENDCASE.
ENDFORM.