Ayuda set_handler

[Chuva]

Hola, soy algo nuevo en abap y tengo una duda.

Tengo un method set_handler en el que mando llamar un method handle_top_of_page y no he podido agregar lineas.. no se si estoy haciendo algo mal, espero me puedan ayudar.. abajo pongo el código...


METHOD handle_top_of_page. "HANDLE_TOP_OF_PAGE

* Declaraciones de variables locales.
DATA: vl_text TYPE sdydo_text_element,
vl_day(2) TYPE c,
vl_mnth TYPE t247-mnr,
vl_year(4) TYPE c,
vl_month_name TYPE t247-ltx.

* Declaraciones de objetos locales.
DATA: ol_table TYPE REF TO cl_dd_table_element,
ol_column1 TYPE REF TO cl_dd_area,
ol_column2 TYPE REF TO cl_dd_area,
ol_row1 TYPE REF TO cl_dd_area,
ol_row2 TYPE REF TO cl_dd_area,
ol_row3 TYPE REF TO cl_dd_area.

* Crear tabla con dos columnas...
CALL METHOD e_dyndoc_id->add_table
EXPORTING
no_of_columns = 2
width = '100%'
border = '0'
IMPORTING
table = ol_table.

* Inicializar ancho de columna 1...
CALL METHOD ol_table->add_column
EXPORTING
width = '80%'
IMPORTING
column = ol_column1.

* Inicializar ancho de columna 2...
CALL METHOD ol_table->add_column
EXPORTING
width = '20%'
IMPORTING
column = ol_column2.

* call method ol_column1->add_row "add row
* EXPORTING
* width = '20%'
* IMPORTING
* row = ol_row1.
* Agregar logo a la columna 1...
CALL METHOD ol_column2->add_picture
EXPORTING
picture_id = 'ENJOYSAP_LOGO'.

vl_day = sy-datum+6(2).
vl_mnth = sy-datum+4(2).
vl_year = sy-datum(devil).

* Se obtiene el nombre del mes
CALL FUNCTION 'ISP_GET_MONTH_NAME'
EXPORTING
language = sy-langu
month_number = vl_mnth
IMPORTING
longtext = vl_month_name
EXCEPTIONS
calendar_id = 1
date_error = 2
not_found = 3
wrong_input = 4
OTHERS = 5.

IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.

*Sociedad
READ TABLE tg_t001
INTO wa_t001
WITH KEY bukrs = so_bukrs-low
BINARY SEARCH.

IF sy-subrc NE 0.

CLEAR wa_t001.

ENDIF.

CONCATENATE text-003
so_bukrs-low
wa_t001-butxt
INTO vl_text
SEPARATED BY space.

* Agregar texto en la columna 2...
CALL METHOD ol_column1->add_text
EXPORTING
text = vl_text
sap_fontsize = cl_dd_area=>large
sap_emphasis = cl_dd_area=>strong.

CLEAR vl_text.

**Agregar espacio antes del texto en la columna 2...
* CALL METHOD ol_column1->add_gap
* EXPORTING
* width = 20.

CONCATENATE text-001
vl_day
text-002
vl_month_name
text-002
vl_year
INTO vl_text
SEPARATED BY space.

* Agregar texto en la columna 1...
CALL METHOD ol_column1->add_text
EXPORTING
text = vl_text
sap_fontsize = cl_dd_area=>large
sap_emphasis = cl_dd_area=>strong.

CLEAR vl_text.
* Se obtiene el texto para la descripción del banco
READ TABLE tg_t012t
INTO wa_t012t
WITH KEY hbkid = so_hbkid
BINARY SEARCH.

* IF sy-subrc = 0.

CONCATENATE text-004
so_hbkid
wa_t012t-text1
INTO vl_text
SEPARATED BY space.

* Agregar texto en la columna 1...
CALL METHOD ol_column1->add_text
EXPORTING
text = vl_text
sap_fontsize = cl_dd_area=>large
sap_emphasis = cl_dd_area=>strong.

* ENDIF.

CLEAR vl_text.
*
CONCATENATE text-005
so_hktid
INTO vl_text
SEPARATED BY space.

* Agregar texto en la columna 1...
CALL METHOD ol_column1->add_text
EXPORTING
text = vl_text
sap_fontsize = cl_dd_area=>large
sap_emphasis = cl_dd_area=>strong.

CLEAR vl_text.

*
CONCATENATE text-006
so_hktid
INTO vl_text
SEPARATED BY space.

* Agregar texto en la columna 1...
CALL METHOD ol_column1->add_text
EXPORTING
text = vl_text
sap_fontsize = cl_dd_area=>large
sap_emphasis = cl_dd_area=>strong.

ENDMETHOD.