• 热点事件

FORM FRM_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
data LV_ID(20).
  CASE R_UCOMM.

    WHEN '&F03'  .
      LEAVE TO SCREEN 0.
    WHEN '&F05'  .
      LEAVE TO SCREEN 0.
    WHEN '&F12'  .
      LEAVE SCREEN.
    WHEN '&IC1'.
      CASE rs_selfield-fieldname.
        WHEN 'ZPROBNUM'."热点字段
*跳转事务代码
SET PARAMETER ID: 'AN1' FIELD rs_selfield-value.
          READ TABLE gt_inventory INTO gs_inventory INDEX rs_selfield-tabindex.
          IF sy-subrc = 0.
            SET PARAMETER ID: 'BUK' FIELD gs_inventory-bukrs.
          ENDIF.
          CALL TRANSACTION 'AS03' AND SKIP FIRST SCREEN .
ENDCASE.
 ENDCASE.
ENDFORM.

• 点击一行

FORM FRM_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
data LV_ID(20).
  CASE R_UCOMM.

    WHEN '&F03'  .
      LEAVE TO SCREEN 0.
    WHEN '&F05'  .
      LEAVE TO SCREEN 0.
    WHEN '&F12'  .
      LEAVE SCREEN.
    WHEN '&IC1'.
 READ TABLE GT_PRO INTO GS_PRO  INDEX rs_selfield-tabindex.

ENDCASE.
 ENDCASE.
ENDFORM.