Application Development Blog Posts
Learn and share on deeper, cross technology development topics such as integration and connectivity, automation, cloud extensibility, developing at scale, and security.
cancel
Showing results for 
Search instead for 
Did you mean: 
Paulo_Vantini
Participant
2,907

Objective

Create an ALV report and an HTML header for it.

Report

REPORT  ZALV_HEADER_HTML.

TABLES : sflight.
TYPE-POOLS: slis.

DATA : w_repid LIKE sy-repid.

TYPES : BEGIN OF ty_comp.
         INCLUDE STRUCTURE sflight.
TYPES : END OF ty_comp.

DATA: wa_layout  TYPE slis_layout_alv.

DATA: t_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
       wa_fieldcat TYPE slis_fieldcat_alv.

DATA : it_comp TYPE TABLE OF ty_comp.

INITIALIZATION.
   w_repid = sy-repid.

START-OF-SELECTION.

   SELECT * FROM sflight INTO TABLE it_comp.

END-OF-SELECTION.

*  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
*    EXPORTING
*      i_program_name         = w_repid
*      i_internal_tabname     = 'IT_COMP'
*      i_inclname             = w_repid
*    CHANGING
*      ct_fieldcat            = it_fieldcat
*    EXCEPTIONS
*      inconsistent_interface = 1
*      program_error          = 2
*      OTHERS                 = 3.

*    CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
*    EXPORTING
*      i_structure_name = 'SPFLI'
*    CHANGING
*      ct_fieldcat = it_fieldcat[]
*    EXCEPTIONS
*      inconsistent_interface = 1
*      program_error = 2
*      others = 3.


PERFORM zf_monta_tabela_alv.

   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
       i_callback_program          = w_repid
       i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE'
       is_layout                   = wa_layout
       it_fieldcat                 = t_fieldcat[]
     TABLES
       t_outtab                    = it_comp
     EXCEPTIONS
       program_error               = 1
       OTHERS                      = 2.


*&---------------------------------------------------------------------*
*&      Form  html_top_of_page
*&---------------------------------------------------------------------*

FORM html_top_of_page USING document TYPE REF TO cl_dd_document.

   DATA: text TYPE sdydo_text_element.

   CALL METHOD document->add_gap
     EXPORTING
       width = 100.
   text 'Company Code Data'.
   CALL METHOD document->add_text
     EXPORTING
       text      = text
       sap_style = 'HEADING'.

   CALL METHOD document->new_line.
   CALL METHOD document->new_line.
   CALL METHOD document->new_line.

   text = 'User Name : '.
   CALL METHOD document->add_text
     EXPORTING
       text         = text
       sap_emphasis = 'Strong'.

   CALL METHOD document->add_gap
     EXPORTING
       width = 6.

   text = sy-uname.
   CALL METHOD document->add_text
     EXPORTING
       text      = text
       sap_style = 'Key'.

   CALL METHOD document->add_gap
     EXPORTING
       width = 50.


   text = 'Date : '.
   CALL METHOD document->add_text
     EXPORTING
       text         = text
       sap_emphasis = 'Strong'.

   CALL METHOD document->add_gap
     EXPORTING
       width = 6.

   text = sy-datum.
   CALL METHOD document->add_text
     EXPORTING
       text      = text
       sap_style = 'Key'.

   CALL METHOD document->add_gap
     EXPORTING
       width = 50.

   text = 'Time : '.
   CALL METHOD document->add_text
     EXPORTING
       text         = text
       sap_emphasis = 'Strong'.

   CALL METHOD document->add_gap
     EXPORTING
       width = 6.

   text = sy-uzeit.
   CALL METHOD document->add_text
     EXPORTING
       text      = text
       sap_style = 'Key'.

   CALL METHOD document->new_line.
   CALL METHOD document->new_line.

ENDFORM.                    "HTML_TOP_OF_PAGE

form zf_monta_tabela_alv.

   clear t_fieldcat.
   t_fieldcat-fieldname        = 'CARRID'.
   t_fieldcat-tabname          = 'it_comp'.
   t_fieldcat-reptext_ddic     = 'AIRLINE'.
   t_fieldcat-inttype          = 'C'.
   t_fieldcat-outputlen        = 5.
   append t_fieldcat.

   clear t_fieldcat.
   t_fieldcat-fieldname     = 'CONNID'.
   t_fieldcat-tabname       = 'it_comp'.
   t_fieldcat-reptext_ddic  = 'CONNECTION'.
   t_fieldcat-inttype       = 'P'.
   t_fieldcat-outputlen     = 5.
   append t_fieldcat.



endform.

3 Comments
Labels in this area