ALV FUNCIONES (TOP_OF_Page_HTML) Impresion pantalla

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = ls_repid
i_structure_name = 'GTD_AUFK_AFPO'
i_callback_pf_status_set = 'SET_STATUS'
i_callback_user_command = 'USER_COMMAND_000'
i_callback_html_top_of_page = 'TOP_OF_PAGE_HTML'
is_layout = gwa_layout
it_fieldcat = gtd_fieldcat[]
TABLES
t_outtab = gtd_aufk_afpo
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno.
ENDIF.
*---------------------------------------------------------------------*
* FORM top_of_page_HTML *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> R_TOP *
*---------------------------------------------------------------------*
FORM top_of_page_html USING r_top TYPE REF TO cl_dd_document.
DATA: s_tab TYPE sdydo_text_table,
c_area TYPE REF TO cl_dd_area,
ls_text TYPE sdydo_text_element.
CALL METHOD r_top->initialize_document.
* titulo y subtitulo
CALL METHOD r_top->add_gap
EXPORTING
width = 60.
ls_text = text-c01.
CALL METHOD r_top->add_text
EXPORTING
text = ls_text
sap_fontsize = cl_dd_document=>large
sap_emphasis = cl_dd_document=>strong.
CALL METHOD r_top->new_line.
IF p_test EQ 'X'.
ls_text = text-c02.
ELSE.
ls_text = text-c03.
ENDIF.
CALL METHOD r_top->add_gap
EXPORTING
width = 90.
CALL METHOD r_top->add_text
EXPORTING
text = ls_text
sap_fontsize = cl_dd_document=>large
sap_emphasis = cl_dd_document=>strong.
CALL METHOD r_top->new_line.
*Fecha
DATA: ls_date(10) TYPE c,
ls_util TYPE string.
WRITE p_budat TO ls_date.
CONCATENATE text-c04 ls_date INTO ls_text SEPARATED BY space.
CALL METHOD r_top->add_text
EXPORTING
text = ls_text
sap_fontsize = cl_dd_document=>medium.
* Usuario
ls_util = sy-uname.
CALL METHOD r_top->add_gap
EXPORTING
width = 160.
CONCATENATE text-c05 ls_util INTO ls_text SEPARATED BY space.
CALL METHOD r_top->add_text
EXPORTING
text = ls_text
sap_fontsize = cl_dd_document=>medium.
CALL METHOD r_top->new_line.
CONCATENATE p_gjahr '/' p_perio INTO ls_util.

CONCATENATE text-c06 ls_util INTO ls_text SEPARATED BY space.
CALL METHOD r_top->add_text
EXPORTING
text = ls_text
sap_fontsize = cl_dd_document=>medium.
DATA: ls_hora(10) TYPE c.
WRITE: sy-datum TO ls_date,
sy-uzeit TO ls_hora.
CONCATENATE ls_date '/' ls_hora INTO ls_util.
CALL METHOD r_top->add_gap
EXPORTING
width = 157.
CONCATENATE text-c07 ls_util INTO ls_text SEPARATED BY space.
CALL METHOD r_top->add_text
EXPORTING
text = ls_text
sap_fontsize = cl_dd_document=>medium.
ENDFORM.