topic Re: top-of-page in oo ALV in Application Development and Automation Discussions

top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 05:06:03 GMT

I am trying to display top of page using ALV class but I could not get it, its not displaying anything.

any one's help is greatly appreciated.

Thanks

Giri

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 05:09:42 GMT

In OOPS world u have to use Event handler for class "cl_gui_alv_grid" and event name is "print_top_of_page".

see link

http://help.sap.com/saphelp_bw30b/helpdata/en/ee/c8e06bd52611d2b468006094192fe3/content.htm

sample code

BCALV_GRID_01 in se38

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 05:10:24 GMT

Hi giri,

U can give ur display text inside ur Top-of-page event.

Top-of-page.

write:/ 'hai'.

This displays ur text in the top of the page.

Hope tihs helps u,

Regards,

Nagarajan.

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 05:10:52 GMT

hi IN OO you should use COmentry write fm.

it should work.....

IN top of page event use that FM.

regards

vijay

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 05:11:14 GMT

hi,

Only when the first write statement is encountered the TOP OF PAGE is triggered.

If you donot have any write statements the the top of page will never be triggered.

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 05:12:17 GMT

HI,

I fonud this code somewhee in forum, which shows use f top of page.

plz reward point if it helps you.

you also can visit this links

Report ZDEMO_ALVGRID *

*& *

&----

*& *

*& Example of a simple ALV Grid Report *

*& ................................... *

*& *

*& The basic requirement for this demo is to display a number of *

*& fields from the EKKO table. *

&----

REPORT zdemo_alvgrid .

TABLES: ekko.

type-pools: slis. "ALV Declarations

*Data Declaration

*----

TYPES: BEGIN OF t_ekko,

ebeln TYPE ekpo-ebeln,

ebelp TYPE ekpo-ebelp,

statu TYPE ekpo-statu,

aedat TYPE ekpo-aedat,

matnr TYPE ekpo-matnr,

menge TYPE ekpo-menge,

meins TYPE ekpo-meins,

netpr TYPE ekpo-netpr,

peinh TYPE ekpo-peinh,

END OF t_ekko.

DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,

wa_ekko TYPE t_ekko.

*ALV data declarations

data: fieldcatalog type slis_t_fieldcat_alv with header line,

gd_tab_group type slis_t_sp_group_alv,

gd_layout type slis_layout_alv,

gd_repid like sy-repid,

gt_events type slis_t_event,

gd_prntparams type slis_print_alv.

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

*Start-of-selection.

START-OF-SELECTION.

perform data_retrieval.

perform build_fieldcatalog.

perform build_layout.

perform build_events.

perform build_print_params.

perform display_alv_report.

&----

*& Form BUILD_FIELDCATALOG

&----

Build Fieldcatalog for ALV Report

----

form build_fieldcatalog.

There are a number of ways to create a fieldcat.
For the purpose of this example i will build the fieldcatalog manualy
by populating the internal table fields individually and then
appending the rows. This method can be the most time consuming but can
also allow you more control of the final product.

Beware though, you need to ensure that all fields required are
populated. When using some of functionality available via ALV, such as
total. You may need to provide more information than if you were
simply displaying the result
I.e. Field type may be required in-order for
the 'TOTAL' function to work.

fieldcatalog-fieldname = 'EBELN'.

fieldcatalog-seltext_m = 'Purchase Order'.

fieldcatalog-col_pos = 0.

fieldcatalog-outputlen = 10.

fieldcatalog-emphasize = 'X'.

fieldcatalog-key = 'X'.

fieldcatalog-do_sum = 'X'.
fieldcatalog-no_zero = 'X'.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'EBELP'.

fieldcatalog-seltext_m = 'PO Item'.

fieldcatalog-col_pos = 1.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'STATU'.

fieldcatalog-seltext_m = 'Status'.

fieldcatalog-col_pos = 2.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'AEDAT'.

fieldcatalog-seltext_m = 'Item change date'.

fieldcatalog-col_pos = 3.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'MATNR'.

fieldcatalog-seltext_m = 'Material Number'.

fieldcatalog-col_pos = 4.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'MENGE'.

fieldcatalog-seltext_m = 'PO quantity'.

fieldcatalog-col_pos = 5.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'MEINS'.

fieldcatalog-seltext_m = 'Order Unit'.

fieldcatalog-col_pos = 6.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'NETPR'.

fieldcatalog-seltext_m = 'Net Price'.

fieldcatalog-col_pos = 7.

fieldcatalog-outputlen = 15.

fieldcatalog-datatype = 'CURR'.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

fieldcatalog-fieldname = 'PEINH'.

fieldcatalog-seltext_m = 'Price Unit'.

fieldcatalog-col_pos = 8.

append fieldcatalog to fieldcatalog.

clear fieldcatalog.

endform. " BUILD_FIELDCATALOG

&----

*& Form BUILD_LAYOUT

&----

Build layout for ALV grid report

----

form build_layout.

gd_layout-no_input = 'X'.

gd_layout-colwidth_optimize = 'X'.

gd_layout-totals_text = 'Totals'(201).

gd_layout-totals_only = 'X'.
gd_layout-f2code = 'DISP'. "Sets fcode for when double
"click(press f2)
gd_layout-zebra = 'X'.
gd_layout-group_change_edit = 'X'.
gd_layout-header_text = 'helllllo'.

endform. " BUILD_LAYOUT

&----

*& Form DISPLAY_ALV_REPORT

&----

Display report using ALV grid

----

form display_alv_report.

gd_repid = sy-repid.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = gd_repid

i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM

i_callback_user_command = 'USER_COMMAND'

i_grid_title = outtext

is_layout = gd_layout

it_fieldcat = fieldcatalog[]

it_special_groups = gd_tabgroup

it_events = gt_events

is_print = gd_prntparams

i_save = 'X'

is_variant = z_template

tables

t_outtab = it_ekko

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.

endform. " DISPLAY_ALV_REPORT

&----

*& Form DATA_RETRIEVAL

&----

Retrieve data form EKPO table and populate itab it_ekko

----

form data_retrieval.

select ebeln ebelp statu aedat matnr menge meins netpr peinh

up to 10 rows

from ekpo

into table it_ekko.

endform. " DATA_RETRIEVAL

----

Form TOP-OF-PAGE *

----

ALV Report Header *

----

Form top-of-page.

*ALV Header declarations

data: t_header type slis_t_listheader,

wa_header type slis_listheader,

t_line like wa_header-info,

ld_lines type i,

ld_linesc(10) type c.

Title

wa_header-typ = 'H'.

wa_header-info = 'EKKO Table Report'.

append wa_header to t_header.

clear wa_header.

Date

wa_header-typ = 'S'.

wa_header-key = 'Date: '.

CONCATENATE sy-datum+6(2) '.'

sy-datum+4(2) '.'

sy-datum(4) INTO wa_header-info. "todays date

append wa_header to t_header.

clear: wa_header.

Total No. of Records Selected

describe table it_ekko lines ld_lines.

ld_linesc = ld_lines.

concatenate 'Total No. of Records Selected: ' ld_linesc

into t_line separated by space.

wa_header-typ = 'A'.

wa_header-info = t_line.

append wa_header to t_header.

clear: wa_header, t_line.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = t_header.

i_logo = 'Z_LOGO'.

endform.

----

FORM USER_COMMAND *

----

--> R_UCOMM *
--> RS_SELFIELD *

----

FORM user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

Check function code

CASE r_ucomm.

WHEN '&IC1'.

Check field clicked on within ALVgrid report

IF rs_selfield-fieldname = 'EBELN'.

Read data table, using index of row user clicked on

READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.

Set parameter ID for transaction screen field

SET PARAMETER ID 'BES' FIELD wa_ekko-ebeln.

Sxecute transaction ME23N, and skip initial data entry screen

CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

ENDIF.

ENDCASE.

ENDFORM.

&----

*& Form BUILD_EVENTS

&----

Build events table

----

form build_events.

data: ls_event type slis_alv_event.

call function 'REUSE_ALV_EVENTS_GET'

exporting

i_list_type = 0

importing

et_events = gt_events[].

read table gt_events with key name = slis_ev_end_of_page

into ls_event.

if sy-subrc = 0.

move 'END_OF_PAGE' to ls_event-form.

append ls_event to gt_events.

endif.

read table gt_events with key name = slis_ev_end_of_list

into ls_event.

if sy-subrc = 0.

move 'END_OF_LIST' to ls_event-form.

append ls_event to gt_events.

endif.

endform. " BUILD_EVENTS

&----

*& Form BUILD_PRINT_PARAMS

&----

Setup print parameters

----

form build_print_params.

gd_prntparams-reserve_lines = '3'. "Lines reserved for footer

gd_prntparams-no_coverpage = 'X'.

endform. " BUILD_PRINT_PARAMS

&----

*& Form END_OF_PAGE

&----

form END_OF_PAGE.

data: listwidth type i,

ld_pagepos(10) type c,

ld_page(10) type c.

write: sy-uline(50).

skip.

write:/40 'Page:', sy-pagno .

endform.

&----

*& Form END_OF_LIST

&----

form END_OF_LIST.

data: listwidth type i,

ld_pagepos(10) type c,

ld_page(10) type c.

skip.

write:/40 'Page:', sy-pagno .

endform.

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 05:18:11 GMT

Hi Giri,

Write Statements will not work, Use

REUSE_ALV_COMMENTARY_WRITE in top of page..

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 05:22:34 GMT

Hi There is an event TOP_OF_PAGE in cl_gui_alv_grid class . You need define and implement in local class and set the handler for the grid , then it trigger ..

But in that no write statements possible. you need to use reuse_alv_comnetry_write for that...

check it once..

vijay

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 05:29:39 GMT

Thanks for your response but I tried something what vijay said.. see the code below but still doesn't show up top of page.

CLASS lcl_event_receiver DEFINITION.

PUBLIC SECTION.

METHODS:

handle_top_of_page

FOR EVENT top_of_page OF cl_gui_alv_grid

IMPORTING e_dyndoc_id,

ENDCLASS.

CLASS lcl_event_receiver IMPLEMENTATION.

METHOD handle_top_of_page.

PERFORM alv_topof_page.

ENDMETHOD.

ENDCLASS.

CREATE OBJECT g_event_receiver.

SET HANDLER g_event_receiver->handle_top_of_page FOR grid.

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 05:36:17 GMT

hi Giri,

What are you doing in that top of page ...

can you tell me..

vijay

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 05:39:05 GMT

Hi Try to PASS these parameters

handle_top_of_page

FOR EVENT top_of_page OF cl_gui_alv_grid

importing

E_DYNDOC_ID

TABLE_INDEX

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 05:40:40 GMT

if you can paa the info to E_DYNDOC_ID parameter

then it will be done..

vijay

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 05:49:48 GMT

Hi I got a solution For you..

If you check the Program BCALV_TEST_GRID_EVENTS

properly there they Implemented all the events..

There they Mentioned the same...

check it for your implementation

check the Program , if you are unable to find the program..

please let me know..

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 05:51:00 GMT

Hi Giri,

Please Reward if my suggestion really helps you...

regards

vijay

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 05:52:55 GMT

Just trying to display this

DATA: t_header TYPE slis_t_listheader,

wa_header TYPE slis_listheader.

Title

wa_header-typ = 'H'.

wa_header-info = 'EE Lien Report'.

APPEND wa_header TO t_header.

CLEAR wa_header.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = t_header.

I_LOGO =
I_END_OF_LIST_GRID =

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 06:00:21 GMT

hi Use the logic which is mentioned in

BCALV_TEST_GRID_EVENTS

it will work...

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 06:32:29 GMT

Hi If your Problem solves

please close the thread, and reward points for helful answers...

vijay

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 07:15:29 GMT

after trying these still does not work.please help me on this

thx

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 08:09:44 GMT

what exactly you need to show..

I also tried it is not triggering that event.

Re: top-of-page in oo ALV

Former Member — Wed, 07 Dec 2005 08:26:10 GMT

All I wanted to dispaly like

partner no:

name:

company:

date:

based on some condition i wanted to show/hide.

Please reply me