Dentro de la Implementacion de tu mentodo TOP_OF_PAGE
METHOD event_top_of_page.
*" Objetos para la cabecera del ALV OO
DATA: lo_table TYPE REF TO cl_dd_table_element,
lo_coln TYPE REF TO cl_dd_area,
lo_colv TYPE REF TO cl_dd_area,
lo_colp TYPE REF TO cl_dd_area,
lo_frm TYPE REF TO cl_dd_form_area,
li_len TYPE i,
lc_text TYPE c LENGTH 255.
"Agregando Titulo del Informe.
CALL METHOD e_dyndoc_id->add_text( text = 'Comparativo de Datos Planificados'
sap_fontsize = cl_dd_area=>heading
sap_style = cl_dd_document=>heading ).
* "En esta Parte le agrego un fondo a la cabecera del ALV OO
CALL METHOD e_dyndoc_id->set_document_background( picture_id = 'ALV_BACKGROUND' ).
CALL METHOD e_dyndoc_id->new_line.
* "Ahora creo una tabla para mantener los datos ordenados
CALL METHOD e_dyndoc_id->add_table( EXPORTING
no_of_columns = 3
border = '0'
width = '100%'
IMPORTING
table = lo_table ).
"Agregando columnas de descripcion y de valores.
CALL METHOD lo_table->add_column( EXPORTING width = '150'
IMPORTING column = lo_coln ).
CALL METHOD lo_table->add_column( IMPORTING column = lo_colv ).
CALL METHOD lo_table->add_column( IMPORTING column = lo_colp ).
CALL METHOD lo_coln->add_text( text = 'Fecha'
sap_emphasis = cl_dd_area=>strong ).
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = sy-datum
IMPORTING
output = lc_text.
CALL METHOD lo_colv->add_text( text = lc_text ).
* "Y en una de las columnas agrego el logo
CALL METHOD lo_colp->add_picture( picture_id = 'LOGO001'
alternative_text = 'Logo ' ).
"Seteando tama#o del contenedor de la Cabecera.
CALL METHOD go_splitter->set_row_mode
EXPORTING
mode = cl_gui_splitter_container=>mode_absolute.
"Seteando tama#o de la Cabecera.
CALL METHOD go_splitter->set_row_height
EXPORTING
id = 1
height = 100.
CALL METHOD e_dyndoc_id->merge_document.
"Seteando la cabecera hacia el sub-contenedor.
CALL METHOD e_dyndoc_id->display_document
EXPORTING
reuse_control = 'X'
parent = go_parent_top
EXCEPTIONS
html_display_error = 1.
ENDMETHOD. "event_top_of_page
Espero les sirve..
|