1 定义命令处理Form
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
DATA: VBELN1 LIKE L_SPETAB-VBELN, VBTYP1 LIKE L_SPETAB-VBTYP.
RS_SELFIELD-REFRESH = 'X'. "控制grid产生新屏幕
CASE R_UCOMM.
WHEN 'BEAN' OR '&IC1'. "双击事件
LOOP AT L_SPETAB WHERE SELK = 'X' .
VBELN1 = L_SPETAB-VBELN.
VBTYP1 = L_SPETAB-VBTYP.
CALL FUNCTION 'RV_CALL_CHANGE_TRANSACTION'
EXPORTING
VBELN = VBELN1
VBTYP = VBTYP1.
COL = COL_BEARBEITEN.
FARB-FARB2 = COL.
L_SPETAB-COL = FARB.
LF_LAYOUT-INFO_FIELDNAME = 'L_SPETAB-COL'.
MODIFY L_SPETAB.
CLEAR: VBELN1, VBTYP1.
ENDLOOP.