*--首次显示的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.