**将ALV显示数据更新进输出内表中
DATA: LR_GRID TYPE REF TO CL_GUI_ALV_GRID.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
IMPORTING
E_GRID = LR_GRID.
CALL METHOD LR_GRID->CHECK_CHANGED_DATA.
SELFIELD-REFRESH = 'X'.
*&---------------------------------------------------------------------* *& Form USER_STATUS *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->RT_EXTAB text *----------------------------------------------------------------------* FORM STANDARD_PF USING RT_EXTAB TYPE SLIS_T_EXTAB. SET PF-STATUS 'STATUS1'. ENDFORM. "SET_PF_STATUS *&---------------------------------------------------------------------* *& Form user_command *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->UCOMM text * -->SELFIELD text *----------------------------------------------------------------------* FORM USER_COMMAND USING UCOMM LIKE SY-UCOMM SELFIELD TYPE SLIS_SELFIELD. **将ALV显示数据更新进输出内表中 DATA: LR_GRID TYPE REF TO CL_GUI_ALV_GRID. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING E_GRID = LR_GRID. CALL METHOD LR_GRID->CHECK_CHANGED_DATA. SELFIELD-REFRESH = 'X'. CASE UCOMM. WHEN 'ZALL'. LOOP AT RESULT WHERE XZ = ''. RESULT-XZ = 'X'. MODIFY RESULT TRANSPORTING XZ. ENDLOOP. WHEN 'ZSAL'. LOOP AT RESULT WHERE XZ = 'X'. RESULT-XZ = ''. MODIFY RESULT TRANSPORTING XZ. ENDLOOP. WHEN 'PRINT'. PERFORM DATA_PRINT. WHEN '&IC1'. "双击 READ TABLE RESULT INDEX SELFIELD-TABINDEX. SELFIELD-FIELDNAME = 'EBELN'. SET PARAMETER ID 'BES' FIELD RESULT-EBELN. CALL TRANSACTION 'ME23' AND SKIP FIRST SCREEN. CLEAR UCOMM. ENDCASE. SELFIELD-REFRESH = 'X'."刷新ALV显示 ENDFORM. "USER_COMMAND