Prueba aņadiende esto:
PERFORM asocia_eventos.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
IT_EVENTS = t_eventos
FORM ASOCIA_EVENTOS .
DATA wa LIKE LINE OF t_eventos.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
IMPORTING
ET_EVENTS = t_eventos
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TABLE t_eventos INTO wa
with key name = 'TOP_OF_PAGE'.
wa-form = 'TOP_OF_PAGE_F'.
modify t_eventos FROM wa index sy-tabix.
* (asocia al evento TOP_OF_PAGE la subrutina TOP_OF_PAGE_F)
ENDFORM. " ASOCIA_EVENTOS
FORM TOP_OF_PAGE_F.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = cabecera.
ENDFORM.
Espero que te sirva...
|