DATA: G_USER_COMMAND TYPE SLIS_FORMNAME VALUE 'USER_COMMAND';
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = G_PROGRAM
I_CALLBACK_USER_COMMAND = G_USER_COMMAND
IS_LAYOUT = GS_LAYOUT
I_SAVE = 'A'
I_GRID_TITLE = G_TITULO
IT_FIELDCAT = I_FIELDCAT
IT_SORT = GS_SORT[]
TABLES
T_OUTTAB = T_DETALLADO_COLLECT
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
FORM INIT_LAYOUT.
GS_LAYOUT-ZEBRA = 'X'.
GS_LAYOUT-F2CODE = 'VER_OPBEL'.
GS_LAYOUT-DETAIL_POPUP = 'X'.
ENDFORM.
*---------------------------------------------------------------------*
* FORM USER_COMMAND *
*---------------------------------------------------------------------*
* Comando de Función para el ALV.
*---------------------------------------------------------------------*
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CHECK NOT RS_SELFIELD-TABNAME IS INITIAL.
CASE R_UCOMM.
WHEN 'VER_OPBEL'.
READ TABLE T_DETALLADO INDEX RS_SELFIELD-TABINDEX.
SET PARAMETER ID '80B' FIELD T_DETALLADO-OPBEL.
CALL TRANSACTION 'FPE3' AND SKIP FIRST SCREEN.
ENDCASE.
ENDFORM.