| DOtra manera de crear encabezados es la siguiente:
Crea un contenedor (custom control) de nombre TITULO, tran grande como
sea necesario.
* Titel und Überschriften
data: header TYPE REF TO cl_gui_custom_container,
titel TYPE REF TO cl_gui_alv_tree_simple,
text_titel TYPE slis_t_listheader,
* Der Titel des Bildschirms wird
erzeugt.
CREATE OBJECT header
EXPORTING
container_name = 'TITULO'.
CREATE OBJECT titel
EXPORTING
i_parent = header.
PERFORM erzeugt_titel_daten USING
text_titel.
CALL METHOD titel->create_report_header
EXPORTING
it_list_commentary = text_titel
i_logo = 'ENJOYSAP_LOGO'
i_background_id = 'ALV_BACKGROUND'
i_set_splitter_height = 'X'.
si te interesa cambiar las anteriores
imagenes, hecha un vistazo a la tabla BDS_CONN05.
*---------------------------------------------------------------------
* Die Texte des Titels werden hier erzeugt
*---------------------------------------------------------------------
FORM erzeugt_titel_daten USING p_text_titel TYPE slis_t_listheader.
DATA: titel(20) TYPE c,
texts TYPE slis_listheader.
CLEAR: texts, p_text_titel.
REFRESH: p_text_titel.
CONCATENATE 'Mat: ' pmatnr INTO
titel.
texts-typ = 'H'.
texts-info = titel.
APPEND texts TO p_text_titel.
texts-typ = 'S'.
texts-key = 'Bez. --> '.
texts-info = makt-maktx.
APPEND texts TO p_text_titel.
texts-typ = 'S'.
texts-key = 'Werk --> '.
texts-info = pwerks.
APPEND texts TO p_text_titel.
ENDFORM.
|