Top_of_page_html

FORM c USING end TYPE REF TO cl_dd_document.

* Local internal table
  DATA:
    c_texto   TYPE slis_entry,
    c_texto255 TYPE char255.

* For Report Name display
  CONCATENATE text-005 sy-repid            " Programa:
  INTO c_texto255 SEPARATED BY space.
  CALL METHOD end->add_text EXPORTING text = c_texto255.
  CALL METHOD end->new_line.

* For Report title display
  CONCATENATE text-006 sy-title            " Titulo:
  INTO c_texto255 SEPARATED BY space.
  CALL METHOD end->add_text EXPORTING text = c_texto255.
  CALL METHOD end->new_line.

* For User Name display
  CONCATENATE text-007 sy-uname            " Usuario:
  INTO c_texto255 SEPARATED BY space.
  CALL METHOD end->add_text EXPORTING text = c_texto255.
  CALL METHOD end->new_line.

......

  CLEAR c_texto.
  LOOP AT r_copia_bukrs.
    c_texto = text-t01.
    PERFORM f_sel_info_alv  USING    r_copia_bukrs-sign
                                     r_copia_bukrs-option
                                     r_copia_bukrs-low
                                     r_copia_bukrs-high
                            CHANGING c_texto.
    c_texto255 = c_texto.
    CALL METHOD end->add_text EXPORTING text = c_texto255.
    CALL METHOD end->new_line.
  ENDLOOP.

......

 IF rb_detal EQ 'X'.
    CONCATENATE text-t12 text-t13 INTO c_texto255
                SEPARATED BY space.
  ELSE.
  ENDIF.
  ENDIF.
  CALL METHOD end->add_text EXPORTING text = c_texto255.
  CALL METHOD end->new_line.
ENDFORM.                               " f_top_of_page_html
---------------------
FORM f_sel_info_alv USING    c_sign    TYPE tvarv_sign
                             c_option  TYPE tvarv_opti
                             c_low     TYPE ANY
                             c_high    TYPE ANY
                    CHANGING c_c_texto TYPE slis_entry.

  DATA: c_text_aux(10)  TYPE c,
        c_text_aux2(10) TYPE c.

  IF c_sign = 'E'.
    CONCATENATE c_c_texto text-tno  INTO c_c_texto
                SEPARATED BY SPACE.
  ENDIF.
  c_text_aux = c_low.
  c_text_aux2 = c_high.
  CASE c_option.
    WHEN 'EQ'.
      CONCATENATE c_c_texto text-teq c_text_aux INTO c_c_texto
                  SEPARATED BY SPACE.
    WHEN 'NE'.
      CONCATENATE c_c_texto text-tne c_text_aux INTO c_c_texto
--------------
 IF rb_detal EQ 'X'.
    CONCATENATE text-t12 text-t13 INTO c_texto255
                SEPARATED BY space.
  ELSE.
  ENDIF.
  ENDIF.
  CALL METHOD end->add_text EXPORTING text = c_texto255.
  CALL METHOD end->new_line.
ENDFORM.                               " f_top_of_page_html