Quantcast
Channel: SCN : All Content - ABAP Development
Viewing all articles
Browse latest Browse all 8332

In Block ALV, Top-of-page is not displaying.

$
0
0

Hi Friends, Need some urgent help. I have created on block ALV using class cl_salv_table. There are 10 blocks i have created. For one of the blocks i need to display some content in ALV header. Normal ALV we are calling the TOP-OF-PAGE event. But using this SALV, i have called method -  set_top_of_list. But top of page content is not displaying. But one observation from my side, if i am omitting block alv, then that time it is working fine. But my requirement is Block ALV. My code is given for your reference. Kindly help me out.

 

 

 

  DATA :  gr_grid9     TYPE REF TO cl_gui_container,

              gr_table9    TYPE REF TO cl_salv_table,

              gr_custom    TYPE REF TO cl_gui_custom_container,

              gr_splitter  TYPE REF TO cl_gui_splitter_container,

              gr_content   TYPE REF TO cl_salv_form_element,

              t_deval_inv  TYPE STANDARD TABLE OF ty_deval_inv.

 

CLEAR lv_grid.

   lv_grid = 1.

 

   CREATE OBJECT gr_custom

     EXPORTING

       container_name = 'CONT'.

 

   CREATE OBJECT gr_splitter

     EXPORTING

       parent  = gr_custom

       rows    = lv_count

       columns = 1.


CALL METHOD gr_splitter->get_container

       EXPORTING

         row       = lv_grid

         column    = 1

       RECEIVING

         container = gr_grid9.

 

     lv_grid = lv_grid + 1.


cl_salv_table=>factory(

      EXPORTING

        r_container  = gr_grid9

      IMPORTING

        r_salv_table = gr_table9

      CHANGING

        t_table      = t_deval_inv

            ).

 

     PERFORM sub_build_header CHANGING gr_content.

     gr_table9->set_top_of_list( gr_content ).

 

 

     gr_functions = gr_table9->get_functions( ).

     gr_functions->set_all( abap_true ).

     gr_display = gr_table9->get_display_settings( ).

     gr_display->set_list_header( TEXT-016 ).

     gr_columns = gr_table9->get_columns( ).



CALL METHOD gr_table9->display( ).



FORM SUB_BUILD_HEADER CHANGING p_gr_content TYPE REF TO cl_salv_form_element.

 

   DATA : lr_header TYPE REF TO cl_salv_form_header_info,

          lr_action TYPE REF TO cl_salv_form_action_info,

          lr_grid   TYPE REF TO cl_salv_form_layout_grid,

          lr_grid_1 TYPE REF TO cl_salv_form_layout_grid,

          lr_label  TYPE REF TO cl_salv_form_label,

          lr_text   TYPE REF TO cl_salv_form_text,

          lv_text   TYPE string,

          lv_label  TYPE string,

          lv_ltext  TYPE string.

 

   CREATE OBJECT lr_grid.

 

 

   CLEAR lv_text.

   READ TABLE t_listout_d INTO lv_text INDEX 1.

 

   lr_grid->create_header_information(

     row    = 1

     column = 1

     text    = lv_text

     tooltip = lv_text ).

   lr_grid->add_row( ).

 

   lr_grid_1 = lr_grid->create_grid(

               row    = 3

               column = 2 ).

 

   lr_grid->add_row( ).

 

   CLEAR : lv_text,

           lv_label,

           lv_ltext.

 

   READ TABLE t_listout_d INTO lv_text INDEX 3.

   SPLIT lv_text AT ':' INTO

                        lv_label

                        lv_ltext.

   CONDENSE : lv_label,

              lv_ltext.

 

 

   lr_label = lr_grid_1->create_label(

     row     = 1

     column  = 1

     text    = lv_label

     tooltip = lv_label ).

 

   lr_text = lr_grid_1->create_text(

     row     = 1

     column  = 2

     text    = lv_ltext

     tooltip = lv_ltext ).

 

   lr_label->set_label_for( lr_text ).

 

   CLEAR : lv_text,

           lv_label,

           lv_ltext.

 

   READ TABLE t_listout_d INTO lv_text INDEX 4.

   SPLIT lv_text AT ':' INTO

                        lv_label

                        lv_ltext.

   CONDENSE : lv_label,

              lv_ltext.

 

   lr_label = lr_grid_1->create_label(

     row     = 2

     column  = 1

     text    = lv_label

     tooltip = lv_label ).

 

   lr_text = lr_grid_1->create_text(

     row     = 2

     column  = 2

     text    = lv_ltext

     tooltip = lv_ltext ).

 

   lr_label->set_label_for( lr_text ).

 

   CLEAR : lv_text,

           lv_label,

           lv_ltext.

 

   READ TABLE t_listout_d INTO lv_text INDEX 5.

   SPLIT lv_text AT ':' INTO

                        lv_label

                        lv_ltext.

   CONDENSE : lv_label,

              lv_ltext.

 

   lr_label = lr_grid_1->create_label(

     row     = 3

     column  = 1

     text    = lv_label

     tooltip = lv_label ).

 

   lr_text = lr_grid_1->create_text(

     row     = 3

     column  = 2

     text    = lv_ltext

     tooltip = lv_ltext ).

 

   lr_label->set_label_for( lr_text ).

 

   p_gr_content = lr_grid.

 

 

ENDFORM.                    " SUB_BUILD_HEADER




Viewing all articles
Browse latest Browse all 8332

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>