Añadir un boton a un ALV List

Colapsar
X
 
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
  • gerbeltran
    Member
    • jun
    • 55

    #1

    Añadir un boton a un ALV List

    Buenas, alguien me puede decir si es posible añadir un botón adicional a los standar en un ALV List. De ser posible me pueden dar una mano con eso ?

    Saludos y muchas gracias.
  • Dano
    Junior Member
    • abr
    • 13

    #2
    Hola, yo agregue botones adicionales a un ALV pero lo que hice fue sobreescribir todo el menu, en STATUS GUI en la barra de pulsadores coloque los botones del ALV además de los que yo necesitaba.

    Por ejemplo:

    SET PF-STATUS 'STATUS_01'.

    y al llamar el GRID. debes de llamarlo:

    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
    i_interface_check = ' '
    i_bypassing_buffer = 'X'
    i_buffer_active = ' '
    i_callback_program = sy-repid
    i_callback_pf_status_set = 'STATUS_01' " Menú de opciones.
    i_callback_user_command = 'ALV_CALLBACK_COMMANDS'
    i_callback_user_command = 'USER_COMMAND_01'
    I_CALLBACK_TOP_OF_PAGE = ' '
    I_CALLBACK_HTML_TOP_OF_PAGE = ' '
    I_CALLBACK_HTML_END_OF_LIST = ' '
    I_STRUCTURE_NAME = 'TIEKPO1'
    i_background_id = 'ALV_BACKGROUND'
    i_grid_title = v_titulo
    I_GRID_SETTINGS =
    is_layout = g_layout
    it_fieldcat = g_fieldcat[]
    IT_EXCLUDING =
    IT_SPECIAL_GROUPS =
    it_sort = g_sort[]
    IT_FILTER =
    IS_SEL_HIDE =
    i_default = 'X'
    i_save = 'X'
    IS_VARIANT =
    it_events = lt_events
    it_event_exit = lt_event_exit
    IS_PRINT =
    IS_REPREP_ID =
    I_SCREEN_START_COLUMN = 0
    I_SCREEN_START_LINE = 0
    I_SCREEN_END_COLUMN = 0
    I_SCREEN_END_LINE = 0
    I_HTML_HEIGHT_TOP = 0
    I_HTML_HEIGHT_END = 0
    IT_ALV_GRAPHICS =
    IT_HYPERLINK =
    IT_ADD_FIELDCAT =
    IT_EXCEPT_QINFO =
    IR_SALV_FULLSCREEN_ADAPTER =
    IMPORTING
    E_EXIT_CAUSED_BY_CALLER =
    ES_EXIT_CAUSED_BY_USER =
    TABLES
    * t_outtab = tiME37
    t_outtab = <fsTabla>
    EXCEPTIONS
    program_error = 1
    OTHERS = 2.


    El user command debera de llamarse de la misma manera que lo especificas en el ALV

    form user_command_01 using ucomm like sy-ucomm
    selfield type slis_selfield.

    * CLEAR: lclistaitem.
    read table tiEKPO1 index selfield-tabindex.
    * check sy-subrc = 0.

    case ucomm.

    * Doble Click
    WHEN '&IC1'.
    CASE SELFIELD-FIELDNAME.
    .
    .
    .


    saludos

    Comentario

    Trabajando...