titulo en un ALV OO

[vstarke]

Prueba con esto Yo ya lo utilicé.. espero y te ayude...


*&---------------------------------------------------------------------*
*& CLASES *
*&---------------------------------------------------------------------*
class lcl_event_receiver definition deferred.

data: gv_event_receiver type ref to lcl_event_receiver.

*----------------------------------------------------------------------*
* CLASS lcl_event_receiver DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
class lcl_event_receiver definition.

public section.

methods:

handle_top_of_page for event top_of_page of cl_gui_alv_grid
importing e_dyndoc_id.

endclass. "lcl_event_receiver DEFINITION

*----------------------------------------------------------------------*
* CLASS lcl_event_receiver IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
class lcl_event_receiver implementation.

method handle_top_of_page.

perform event_top_of_page using gv_dyndoc_id.

endmethod. "handle_top_of_page

endclass. "lcl_event_receiver IMPLEMENTATION

*gv_container type ref to cl_gui_custom_container
create object gv_container
exporting
container_name = 'CONTROL'.

*gv_dyndoc_id type ref to cl_dd_document
create object gv_dyndoc_id
exporting
style = 'ALV_GRID'.

* Create Splitter for custom_container
*gv_splitter type ref to cl_gui_splitter_container
create object gv_splitter
exporting
parent = gv_container
rows = 2
columns = 1.

*gv_parent_top type ref to cl_gui_container
call method gv_splitter->get_container
exporting
row = 1
column = 1
receiving
container = gv_parent_top.

*gv_parent_grid type ref to cl_gui_container
call method gv_splitter->get_container
exporting
row = 2
column = 1
receiving
container = gv_parent_grid.

* Set height for g_parent_html
call method gv_splitter->set_row_height
exporting
id = 1
height = 20.

* Create grid
*gv_parent_grid type ref to cl_gui_container
create object gv_grid
exporting
i_parent = gv_parent_grid.

create object gv_event_receiver.
set handler gv_event_receiver->handle_double_click for gv_grid.
set handler gv_event_receiver->handle_top_of_page for gv_grid.


call method gv_grid->set_table_for_first_display
changing
it_outtab = gt_outdata[]
it_fieldcatalog = gv_fieldcat.


call method gv_dyndoc_id->initialize_document
exporting
background_color = cl_dd_area=>col_textarea.

call method gv_grid->list_processing_events
exporting
i_event_name = 'TOP_OF_PAGE'
i_dyndoc_id = gv_dyndoc_id.

form event_top_of_page using p_dyndoc type ref to cl_dd_document.

data: v_text(255) type c,
v_date(50) type c.

call method p_dyndoc->add_text
exporting
text = 'AQUÍ VA TU TÍTULO'
sap_style = 'HEADING'
sap_fontsize = 'LARGE'.

call method p_dyndoc->new_line.
call method p_dyndoc->new_line.

v_text = p_kunde.

call method p_dyndoc->add_text
exporting
text = 'Texto más : '.

call method p_dyndoc->add_gap "da espacios no sirve poner texto con espacios vacíos
exporting
width = 17.

call method p_dyndoc->add_text
exporting
text = v_text
sap_fontsize = 'Strong'.

call method p_dyndoc->add_text
exporting
text = v_text
sap_fontsize = 'Strong'.

clear v_text.
call method p_dyndoc->new_line.

perform display.

endform. " event_top_of_page
*&---------------------------------------------------------------------*
*& Form display
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form display .

* Creating html control
*gv_html_cntrl type ref to cl_gui_html_viewer
if gv_html_cntrl is initial.
create object gv_html_cntrl
exporting
parent = gv_parent_top.
endif.

call method gv_dyndoc_id->merge_document.
gv_dyndoc_id->html_control = gv_html_cntrl.

* Display document
call method gv_dyndoc_id->display_document
exporting
reuse_control = 'X'
parent = gv_parent_top
exceptions
html_display_error = 1.

endform. " display