20170316 REUSE_alv_display_lvc 面向对象函数

**将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