最近比较空,参考做了一个abap ALV实现跳转,详细记录一下。
先要定义一下参数
CONSTANTS:
gc_f_set_status TYPE char30 VALUE 'FRM_SET_STATUS', "CALLBACK ROUTINE FOR PF STATUS
gc_f_user_command TYPE char30 VALUE 'FRM_USER_COMMAND'. "CALLBACK ROUTINE FOR USER COMMAND
增加一个form
FORM frm_user_command USING iv_ucomm LIKE sy-ucomm
is_sel TYPE slis_selfield.
CASE iv_ucomm.
WHEN '&IC1'.
READ TABLE gt_cost INTO gs_cost INDEX is_sel-tabindex.
IF sy-subrc = 0.
SET PARAMETER ID 'ANR' FIELD gs_cost-aufnr.
* SET PARAMETER ID 'BUK' FIELD gs_alv-bukrs.
* SET PARAMETER ID 'GJR' FIELD gs_alv-gjahr.
CALL TRANSACTION 'COR3' AND SKIP FIRST SCREEN.
CLEAR gs_cost.
ENDIF.
ENDCASE.
ENDFORM.
注意这个 PARAMETER ID 'ANR' 的ANR可以通过界面获取
把他分配到里面
i_callback_user_command = gc_f_user_command "鼠标事件操作子程序
完成。
2023-6-8 苏州