Agregar Botones a ALV OO

TOP
CLASS gcl_alvoo_event_handler DEFINITION.
* toolbar
handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid
IMPORTING e_object,
* user command
handle_user_command FOR EVENT user_command OF cl_gui_alv_grid
IMPORTING e_ucomm.

ENDCLASS.
CLA
CLASS gcl_alvoo_event_handler IMPLEMENTATION.
*toolbar
METHOD handle_toolbar.
PERFORM handle_toolbar_alvoo CHANGING e_object.
ENDMETHOD.
*User command
METHOD handle_user_command.
CASE e_ucomm.
WHEN 'REG'.
PERFORM registrar_aspirante.
WHEN 'ELI'.
PERFORM eliminar_aspirante.
ENDCASE.
CLEAR e_ucomm.
ENDMETHOD.
ENDCLASS.
F02
FORM handle_toolbar_alvoo CHANGING pe_object TYPE REF TO cl_alv_event_toolbar_set.
DATA is_boton TYPE stb_button.
MOVE : 'SOLEMI' TO is_boton-function,
'@B1@' TO is_boton-icon,
'Solicitar emision' TO is_boton-text,
'Solicitar emision' TO is_boton-quickinfo.
APPEND is_boton TO pe_object->mt_toolbar.
CLEAR is_boton.
ENDFORM. " handle_alv_toolbar