<style></style>

*--首次显示的ALV
FORM DIS_MM.

  ADD_ALV_EVENTS '2' 'CALL_SO'.   "添加双击事件,调用CALL_SO
  DISPLAY_ALV IMM_TAB 'Material'.
ENDFORM.


*双击事件响应的内容
FORM CALL_SO USING I_ROW
                   I_COLUMN.

  READ TABLE IMM_TAB INTO IMM INDEX I_ROW.
  IF SY-SUBRC = 0 AND I_COLUMN = 'MATNR'.
  CLEAR ISO_TAB.
  SELECT P~MATNR P~VBELN D~BSTKD K~AUART K~VKORG P~POSNR P~WAERK D~ZTERM
    INTO CORRESPONDING FIELDS OF TABLE ISO_TAB
    FROM VBAP AS P
    INNER JOIN VBKD AS D ON P~VBELN = D~VBELN
    INNER JOIN VBAK AS K ON P~VBELN = K~VBELN
    WHERE MATNR = IMM-MATNR.
    SET_POPUP_SIZE 20 120 7 27.
    DISPLAY_ALV ISO_TAB 'Sales Order'.

  ENDIF.
ENDFORM.