Ver Mensaje Individual
  #1  
Viejo 06/08/09, 08:46:51
javi24 javi24 is offline
Junior Member
 
Fecha de Ingreso: nov 2008
Mensajes: 24
Aņadir botones standars toolbar ALV OO

Buenas,

Tengo 2 alv's orientadas a objetos en la misma dynpro de la siguiente manera (Codigo del primer alv para mostrar como la cosntuyo):

* Creating ALV Grid instance
CREATE OBJECT gr_alvgrid
EXPORTING
i_parent = gr_ccontainer
EXCEPTIONS
error_cntl_create = 1
error_cntl_init = 2
error_cntl_link = 3
error_dp_create = 4
others = 5.

IF sy-subrc <> 0.
* Exception handling
ENDIF.

variante-report = sy-repid.

* Preparing field catalog.
PERFORM reuse_alv_fieldcatalog_merge CHANGING gt_fieldcat .

* Preparing layout structure
PERFORM prepare_layout CHANGING gs_layout .

* PERFORM exclude_tb_functions CHANGING gt_exclude.

CALL METHOD gr_alvgrid->set_table_for_first_display
EXPORTING
is_layout = gs_layout
is_variant = variante
i_save = 'A'
i_default = 'X'
* it_toolbar_excluding = gt_exclude
CHANGING
it_outtab = i_alv4[]
it_fieldcatalog = gt_fieldcat
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4.

IF sy-subrc <> 0.
*--Exception handling
ENDIF.
CALL METHOD gr_alvgrid->set_ready_for_input
EXPORTING
i_ready_for_input = 0.

ELSE .

CALL METHOD gr_alvgrid->refresh_table_display
EXCEPTIONS
finished = 1
OTHERS = 2.


El problema es que la toolbar que me sale no tiene los botones standarares que me hacen falta como (descargar en excel, etc...)
Me gustaria saber como aņadir los botones standares que me hacen falta

He encontrado la funcion para quitarlos, pero no para aņadirlos.
La funcion para quitarlos es la siguiente:

FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions.
DATA: ls_exclude TYPE ui_func.

ls_exclude = gr_alvgrid->mc_fc_loc_paste_new_row.
APPEND ls_exclude TO pt_exclude.

ls_exclude = gr_alvgrid->mc_fc_loc_copy.
APPEND ls_exclude TO pt_exclude.

Alguien me puede ayudar?

Muchas gracias
Responder Con Cita