[Rodolfo Montiel Rivera]

Que creen ya lo corregi fue error de Interfaz de Usuario Jajajaja QUIERO LLORAR


chequen:

Variables Globales
DATA: v_procesa(1) TYPE c, "Indicador de proceso
v_campo(30) TYPE c,
v_ind(2) TYPE n,
v_flag(1) TYPE c VALUE 'X',
v_tabix TYPE sy-tabix,
v_cprog LIKE sy-cprog.


****************************
FORM desplegar_alv .

CLEAR: v_procesa.
PERFORM crear_catalogo.
PERFORM arregla_catalogo.
PERFORM otras_variables.
PERFORM events.
PERFORM llamadaalv.

ENDFORM.

******************************
FORM crear_catalogo .
DATA: v_prog LIKE sy-repid.
v_prog = sy-cprog.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = v_prog
i_internal_tabname = 'T_LOG'
* I_STRUCTURE_NAME =
* I_CLIENT_NEVER_DISPLAY = 'X'
i_inclname = v_prog
i_bypassing_buffer = 'X'
* I_BUFFER_ACTIVE =
CHANGING
ct_fieldcat = row_fieldcat[]
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
IF sy-subrc <> 0.

ENDIF.

ENDFORM.

****************************

FORM llamadaalv .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
i_callback_program = v_cprog
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
i_grid_settings = row_grid_settings
is_layout = row_layout
it_fieldcat = row_fieldcat[]
i_save = 'A'
is_variant = row_variant
it_events = str_xevents[]
* IT_EVENT_EXIT =
is_print = row_print
TABLES
t_outtab = t_log.



AHORA LO RARO ES OPR QUE NO TRONO
ENDFORM. " LLAMADAALV