SAP ABAP ALV实现跳转代码实例

最近比较空，参考做了一个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    苏州