topic Re: List Header In ALV OOPS in Application Development and Automation Discussions

List Header In ALV OOPS

Former Member — Thu, 31 May 2007 09:03:40 GMT

hI all,

Can anyone send me some sample coding related to TOP-OF-PAGE in ALV OOPS .

VIGHNESH.

Re: List Header In ALV OOPS

sreeramkumar_madisetty — Thu, 31 May 2007 09:07:41 GMT

Hi,

You need to Create a program and create normal screen no. 100 under this program. And in screen 100, please create custom control

Look at the below link

<b>http://howforge.com/abap-4-example-code-alv-grid-control-by-applying-object-cl-gui-alv-grid</b>

Regards,

Sree

Re: List Header In ALV OOPS

Former Member — Thu, 31 May 2007 09:09:45 GMT

Hi vignesh,

chk this blog

/people/vijaybabu.dudla/blog/2006/07/21/topofpage-in-alv-using-clguialvgrid

Re: List Header In ALV OOPS

Former Member — Thu, 31 May 2007 09:12:30 GMT

hi refere to dis...

data declaration

TYPE-POOLS: slis.

*Decalration for class lcl_event_handler

CLASS lcl_event_receiver DEFINITION DEFERRED.

*Declaration for ALV

DATA : g_custom_container1 TYPE REF TO cl_gui_custom_container,

grid1 TYPE REF TO cl_gui_alv_grid,

it_cat TYPE lvc_t_fcat,

wa_cat TYPE lvc_s_fcat,

g_repid LIKE sy-repid,

event_receiver TYPE REF TO lcl_event_receiver,

l_conv_lifnr(20) TYPE c, " Converted Vendor Number

gt_sort TYPE table of LVC_S_SORT,

gs_sort TYPE slis_t_sortinfo_alv.

gs_sort like line of gt_sort,

gt_toolbar TYPE ui_functions,

gs_toolbar TYPE ui_func.

DATA:

gt_events TYPE slis_t_event,

gt_list_top_of_page TYPE slis_t_listheader,

g_status_set TYPE slis_formname VALUE 'PF_STATUS_SET',

g_user_command TYPE slis_formname VALUE 'USER_COMMAND',

g_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE',

g_top_of_list TYPE slis_formname VALUE 'TOP_OF_LIST',

g_end_of_list TYPE slis_formname VALUE 'END_OF_LIST'.

DATA: gs_layout TYPE slis_layout_alv.

*Declaration for ALV Header

DATA:

Reference to document

dg_dyndoc_id TYPE REF TO cl_dd_document,

dg_dyndoc_id1 TYPE REF TO cl_dd_document, "a++

Reference to split container

dg_splitter TYPE REF TO cl_gui_splitter_container,

dg_splitter1 TYPE REF TO cl_gui_splitter_container, "a++

Reference to grid container

dg_parent_grid TYPE REF TO cl_gui_container,

Reference to html container

dg_html_cntrl TYPE REF TO cl_gui_html_viewer,

dg_html_cntrl1 TYPE REF TO cl_gui_html_viewer, "a++

Reference to html container

dg_parent_html TYPE REF TO cl_gui_container,

dg_parent_html1 TYPE REF TO cl_gui_container, "a++

dg_parent_html2 TYPE REF TO cl_gui_container. "a++

LOCAL CLASSES: Definition

****************************************************************

*===============================================================

class lcl_event_receiver: local class to
define and handle own functions.

Definition:
~~~~~~~~~~~

CLASS lcl_event_receiver DEFINITION.

PUBLIC SECTION.

METHODS:

For ALV Header Display

top_of_page FOR EVENT top_of_page "event handler

OF cl_gui_alv_grid

IMPORTING e_dyndoc_id.

PRIVATE SECTION.

ENDCLASS. "lcl_event_receiver DEFINITION

lcl_event_receiver (Definition)

*===============================================================

****************************************************************

LOCAL CLASSES: Implementation

****************************************************************

*===============================================================

class lcl_event_receiver (Implementation)

CLASS lcl_event_receiver IMPLEMENTATION.

METHOD top_of_page. "implementation

Top-of-page event

PERFORM event_top_of_page USING dg_dyndoc_id.

ENDMETHOD. "top_of_page

ENDCLASS. "lcl_event_receiver IMPLEMENTATION

IF g_custom_container1 IS INITIAL.

CREATE OBJECT g_custom_container1

EXPORTING container_name = 'ALV_REPORT'.

Create TOP-Document

CREATE OBJECT dg_dyndoc_id

EXPORTING style = 'ALV_GRID'.

Create Splitter for custom_container

CREATE OBJECT dg_splitter

EXPORTING parent = g_custom_container1

rows = 2

columns = 1.

Assigning the html container as parent container to 1st split

CALL METHOD dg_splitter->get_container

EXPORTING

row = 1

column = 1

RECEIVING

container = dg_parent_html.

Assigning the grid container as parent container to 2nd split

CALL METHOD dg_splitter->get_container

EXPORTING

row = 2

column = 1

RECEIVING

container = dg_parent_grid.

Setting the height of 1st split

CALL METHOD dg_splitter->set_row_height

EXPORTING

id = 1

height = 15.

Creating the grid object.

CREATE OBJECT grid1

EXPORTING i_parent = dg_parent_grid.

Registering the grid events

CALL METHOD grid1->register_edit_event

EXPORTING

i_event_id = cl_gui_alv_grid=>mc_evt_enter.

Creating the event receiver for handling the grid eevnts.

CREATE OBJECT event_receiver.

Setting the events for event receiver object

SET HANDLER event_receiver->handle_user_command FOR grid1.

SET HANDLER event_receiver->handle_toolbar FOR grid1.

SET HANDLER event_receiver->top_of_page FOR grid1.

CALL METHOD cl_gui_control=>set_focus

EXPORTING

control = grid1.

Setting the grid for first display

CALL METHOD grid1->set_table_for_first_display

EXPORTING

it_toolbar_excluding = gt_toolbar

CHANGING

it_outtab = it_result[]

it_fieldcatalog = it_cat[]

IT_SORT = gt_sort[]

EXCEPTIONS

invalid_parameter_combination = 1

program_error = 2

too_many_lines = 3

OTHERS = 4.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

§ 4.Call method 'set_toolbar_interactive' to raise event TOOLBAR.

CALL METHOD grid1->set_toolbar_interactive.

********************** test code********************************
Initializing document

CALL METHOD dg_dyndoc_id->initialize_document.

Processing events

CALL METHOD grid1->list_processing_events

EXPORTING

i_event_name = 'TOP_OF_PAGE'

i_dyndoc_id = dg_dyndoc_id.

test code********************************

ELSE.

CALL METHOD grid1->set_frontend_fieldcatalog

EXPORTING

it_fieldcatalog = it_cat[].

CALL METHOD grid1->refresh_table_display.

ENDIF.

*&----

*& Form EVENT_TOP_OF_PAGE

*&----

text

*----

-->P_DG_DYNDOC_ID text

*----

FORM event_top_of_page USING dg_dyndoc_id TYPE REF TO cl_dd_document.

DATA : dl_text(255) TYPE c. "Text

Create TOP-Document

CREATE OBJECT dg_dyndoc_id1

EXPORTING style = 'ALV_GRID'.

CREATE OBJECT dg_splitter1

EXPORTING parent = dg_parent_html

rows = 1

columns = 2.

CALL METHOD dg_splitter1->get_container

EXPORTING

row = 1

column = 1

RECEIVING

container = dg_parent_html1.

CALL METHOD dg_splitter1->set_border

EXPORTING

border = space.

CALL METHOD dg_splitter1->get_container

EXPORTING

row = 1

column = 2

RECEIVING

container = dg_parent_html2.

Populating header to top-of-page

CALL METHOD dg_dyndoc_id->add_text

EXPORTING

text = 'Primary MTO'

sap_style = cl_dd_area=>heading.

Initializing document

CALL METHOD dg_dyndoc_id1->initialize_document.

Populating header to top-of-page

CALL METHOD dg_dyndoc_id1->add_text

EXPORTING

text = 'Secondary MTO'

sap_style = cl_dd_area=>heading.

DATA : dl_length TYPE i, " Length

dl_background_id TYPE sdydo_key VALUE space. " Background_id

Creating html control

IF dg_html_cntrl IS INITIAL.

CREATE OBJECT dg_html_cntrl

EXPORTING

parent = dg_parent_html1.

ENDIF.

----------------------------------------------------------------
Creating html control

IF dg_html_cntrl1 IS INITIAL.

CREATE OBJECT dg_html_cntrl1

EXPORTING

parent = dg_parent_html2.

ENDIF.

----------------------------------------------------------------
Reuse_alv_grid_commentary_set

CALL FUNCTION 'REUSE_ALV_GRID_COMMENTARY_SET'

EXPORTING

document = dg_dyndoc_id

bottom = space

IMPORTING

length = dl_length.

Get TOP->HTML_TABLE ready

CALL METHOD dg_dyndoc_id->merge_document.

Set wallpaper

CALL METHOD dg_dyndoc_id->set_document_background

EXPORTING

picture_id = dl_background_id.

Connect TOP document to HTML-Control

dg_dyndoc_id->html_control = dg_html_cntrl.

Display TOP document

CALL METHOD dg_dyndoc_id->display_document

EXPORTING

reuse_control = 'X'

parent = dg_parent_html1

EXCEPTIONS

html_display_error = 1.

IF sy-subrc NE 0.

MESSAGE i000(38) WITH 'Error in displaying top-of-page'(036).

ENDIF.

-----------------------------------------------------------------------
Reuse_alv_grid_commentary_set

CALL FUNCTION 'REUSE_ALV_GRID_COMMENTARY_SET'

EXPORTING

document = dg_dyndoc_id1

bottom = space

IMPORTING

length = dl_length.

Get TOP->HTML_TABLE ready

CALL METHOD dg_dyndoc_id1->merge_document.

Set wallpaper

CALL METHOD dg_dyndoc_id1->set_document_background

EXPORTING

picture_id = dl_background_id.

Connect TOP document to HTML-Control

dg_dyndoc_id1->html_control = dg_html_cntrl1.

Display TOP document

CALL METHOD dg_dyndoc_id1->display_document

EXPORTING

reuse_control = 'X'

parent = dg_parent_html2

EXCEPTIONS

html_display_error = 1.

IF sy-subrc NE 0.

MESSAGE i000(38) WITH 'Error in displaying top-of-page'(036).

ENDIF.

-----------------------------------------------------------------------

ENDFORM. " EVENT_TOP_OF_PAGE

Re: List Header In ALV OOPS

Former Member — Thu, 31 May 2007 09:12:58 GMT

Hi,

TYPE-POOLS: SLIS.

DATA:

X_FIELDCAT TYPE SLIS_FIELDCAT_ALV,

IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

L_LAYOUT TYPE SLIS_LAYOUT_ALV,

X_EVENTS TYPE SLIS_ALV_EVENT,

IT_EVENTS TYPE SLIS_T_EVENT.

DATA:

BEGIN OF ITAB OCCURS 0,

VBELN LIKE VBAK-VBELN,

POSNR LIKE VBAP-POSNR,

MALE TYPE I,

FEMALE TYPE I,

END OF ITAB.

SELECT VBELN

POSNR

FROM VBAP

UP TO 20 ROWS

INTO TABLE ITAB.

X_FIELDCAT-FIELDNAME = 'VBELN'.

X_FIELDCAT-SELTEXT_L = 'VBELN'.

X_FIELDCAT-TABNAME = 'ITAB'.

X_FIELDCAT-COL_POS = 1.

APPEND X_FIELDCAT TO IT_FIELDCAT.

CLEAR X_FIELDCAT.

X_FIELDCAT-FIELDNAME = 'POSNR'.

X_FIELDCAT-SELTEXT_L = 'POSNR'.

X_FIELDCAT-TABNAME = 'ITAB'.

X_FIELDCAT-COL_POS = 2.

APPEND X_FIELDCAT TO IT_FIELDCAT.

CLEAR X_FIELDCAT.

X_FIELDCAT-FIELDNAME = 'MALE'.

X_FIELDCAT-SELTEXT_L = 'MALE'.

X_FIELDCAT-TABNAME = 'ITAB'.

X_FIELDCAT-COL_POS = 3.

APPEND X_FIELDCAT TO IT_FIELDCAT.

CLEAR X_FIELDCAT.

X_FIELDCAT-FIELDNAME = 'FEMALE'.

X_FIELDCAT-SELTEXT_L = 'FEMALE'.

X_FIELDCAT-TABNAME = 'ITAB'.

X_FIELDCAT-COL_POS = 4.

APPEND X_FIELDCAT TO IT_FIELDCAT.

CLEAR X_FIELDCAT.

X_EVENTS-NAME = 'TOP_OF_PAGE'. "SLIS_EV_TOP_OF_PAGE

X_EVENTS-FORM = 'TOP_OF_PAGE'.

APPEND X_EVENTS TO IT_EVENTS.

CLEAR X_EVENTS .

L_LAYOUT-NO_COLHEAD = 'X'.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

IS_LAYOUT = L_LAYOUT

IT_FIELDCAT = IT_FIELDCAT

IT_EVENTS = IT_EVENTS

TABLES

T_OUTTAB = ITAB

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

FORM TOP_OF_PAGE.

*-To display the headers for main list

FORMAT COLOR COL_HEADING.

WRITE: / SY-ULINE(45).

WRITE: / SY-VLINE,

(8) ' ' ,

SY-VLINE,

(8) ' ' ,

SY-VLINE,

(19) 'SEX'(015) CENTERED,

SY-VLINE.

WRITE: / SY-VLINE,

(8) 'VBELN'(013) ,

SY-VLINE,

(8) 'POSNR'(014) ,

SY-VLINE,

(8) 'MALE'(016) ,

SY-VLINE,

(8) 'FMALE'(017) ,

SY-VLINE.

FORMAT COLOR OFF.

ENDFORM.

Or else..........

REPORT ZBHALV_LIST.

TABLES:MARA.

SELECT-OPTIONS: MATNR FOR MARA-MATNR.

DATA:BEGIN OF ITAB OCCURS 0,

MATNR LIKE MARA-MATNR,

ERSDA LIKE MARA-ERSDA,

MTART LIKE MARA-MTART,

MBRSH LIKE MARA-MBRSH,

END OF ITAB.

SELECT * FROM MARA INTO CORRESPONDING FIELDS OF TABLE ITAB WHERE MATNR

IN MATNR.

TYPE-POOLS SLIS.

DATA:FCAT TYPE slis_t_fieldcat_alv.

DATA:LAYOUT TYPE slis_layout_alv.

DATA:EVE TYPE slis_t_event WITH HEADER LINE.

DATA:HEAD TYPE slis_t_listheader WITH HEADER LINE.

DATA:SORT TYPE slis_t_sortinfo_alv WITH HEADER LINE.

SORT-UP = 'X'.

SORT-SPOS = 1.

SORT-FIELDNAME = 'ERSDA'.

SORT-tabname = 'MARA'.

APPEND SORT.

SORT-SPOS = 2.

SORT-FIELDNAME = 'MTART'.

SORT-tabname = 'MARA'.

APPEND SORT.

EVE-NAME = 'TOP_OF_PAGE'.

EVE-FORM = 'TOPOFPAGE'.

APPEND EVE.

EVE-NAME = 'TOP_OF_LIST'.

EVE-FORM = 'TOPOFLIST'.

APPEND EVE.

EVE-NAME = 'END_OF_LIST'.

EVE-FORM = 'ENDOFLIST'.

APPEND EVE.

LAYOUT-ZEBRA = 'X'.

LAYOUT-no_hline = 'X'.

LAYOUT-NO_VLINE = 'X'.

LAYOUT-window_titlebar = 'MATERIAL DETAILS'.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME = SY-REPID

I_INTERNAL_TABNAME = 'ITAB'

I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'

I_INCLNAME = SY-REPID

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = FCAT

EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

IS_LAYOUT = LAYOUT

IT_FIELDCAT = FCAT

IT_SORT = SORT[]

IT_EVENTS = EVE[]

TABLES

T_OUTTAB = ITAB .

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

FORM TOPOFPAGE.

REFRESH HEAD.

HEAD-TYP = 'H'.

HEAD-INFO = 'MATERIALS'.

APPEND HEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = HEAD[]

I_LOGO =
I_END_OF_LIST_GRID =

ENDFORM.

FORM TOPOFLIST.

REFRESH HEAD.

HEAD-TYP = 'H'.

HEAD-INFO = 'MATERIALS-LISTTOP'.

APPEND HEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = HEAD[]

I_LOGO =
I_END_OF_LIST_GRID =

ENDFORM.

FORM ENDOFLIST.

REFRESH HEAD.

HEAD-TYP = 'H'.

HEAD-INFO = 'MATERIALS-LISTEND'.

APPEND HEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = HEAD[]

I_LOGO =
I_END_OF_LIST_GRID =

ENDFORM.

Regards,

Priyanka.

Re: List Header In ALV OOPS

Former Member — Thu, 31 May 2007 09:16:12 GMT

Hi vignesh

this is ur sample code


REPORT  alv_top_of_page.

TABLES : t001.
TYPE-POOLS: slis.

DATA : w_repid LIKE sy-repid.
TYPES : BEGIN OF ty_comp.
        INCLUDE STRUCTURE t001.
TYPES : END OF ty_comp.

DATA: wa_layout  TYPE slis_layout_alv.

DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
      wa_fieldcat TYPE slis_fieldcat_alv.

DATA : it_comp TYPE TABLE OF ty_comp.

INITIALIZATION.
  w_repid = sy-repid.

START-OF-SELECTION.

  SELECT * FROM t001 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 '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                 = it_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

Rewards if helpfull

Regards

Pavan

Re: List Header In ALV OOPS

Former Member — Thu, 31 May 2007 09:18:57 GMT

good

go through this links,hope help you to solve your problem

This posting has an example of using a splitter container:

This posting has a discussion about using TOP-OF-PAGE:

This posting has an example of using picture control:

This posting has an example of putting a picture on top of an ALV grid:

thanks

mrutyun^