ALV Report

[Former Member]

This is lalitha .

I am not getting the background & listheader .

Please help me .

Here's my report .

type-pools: slis .

tables: kna1,

vbak .

data: begin of t_kna1 occurs 1 ,

kunnr type kna1-kunnr,

name1 type kna1-name1,

ort01 type kna1-ort01,

end of t_kna1 .

select single kunnr

name1

ort01

from kna1 into t_kna1

.

************define t_FCAT***********

DATA: W_FCAT TYPE SLIS_FIELDCAT_ALV .

DATA: T_FCAT TYPE SLIS_T_FIELDCAT_ALV .

**********DEFINE T_COMMENTS*******

DATA: W_COMMENTS TYPE SLIS_LISTHEADER .

DATA: T_COMMENTS TYPE SLIS_T_LISTHEADER.

w_comments = 'H' .

w_comments = 'CUSTOMER NO' .

w_comments = T_KNA1-KUNNR .

APPEND W_COMMENTS TO T_COMMENTS .

w_comments-typ = 'S' .

w_comments-key = 'CITY' .

W_COMMENTS-INFO = T_KNA1-ORT01 .

APPEND W_COMMENTS TO T_COMMENTS .

**********DEFINE T_EVENTS*********

DATA: W_EVENTS TYPE SLIS_ALV_EVENT .

DATA: T_EVENTS TYPE SLIS_T_EVENT .

W_EVENTS-NAME = ' slis_ev_top_of_page ' .

W_EVENTS-FORM = 'SUB1' .

APPEND W_EVENTS TO T_EVENTS .

w_fcat-col_pos = 1 .

w_fcat-fieldname = 'VBELN' .

W_FCAT-SELTEXT_M = 'ORDER NO' .

APPEND W_FCAT TO T_FCAT .

w_fcat-col_pos = 2 .

w_fcat-fieldname = 'NETWR' .

W_FCAT-SELTEXT_M = 'NETVALUE' .

APPEND W_FCAT TO T_FCAT .

w_fcat-col_pos = 3 .

w_fcat-fieldname = 'ERDAT' .

W_FCAT-SELTEXT_M = 'ORDER DATE' .

APPEND W_FCAT TO T_FCAT .

w_fcat-col_pos = 4.

w_fcat-fieldname = 'ERNAM' .

W_FCAT-SELTEXT_M = 'ORDER NAME' .

APPEND W_FCAT TO T_FCAT .

***********DEFINE T_VBAK************

DATA: BEGIN OF T_VBAK OCCURS 1 ,

VBELN TYPE VBAK-VBELN,

ERDAT TYPE VBAK-ERDAT,

NETWR TYPE VBAK-NETWR,

END OF T_VBAK .

SELECT VBELN

ERDAT

NETWR

FROM VBAK INTO TABLE T_VBAK .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = 'ZALV-REPORT01'

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

• I_CALLBACK_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_END_OF_LIST = ' '

• I_STRUCTURE_NAME =

I_BACKGROUND_ID = 'TRVPICTURES08'

• I_GRID_TITLE =

• I_GRID_SETTINGS =

• IS_LAYOUT =

IT_FIELDCAT = T_FCAT

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

IT_EVENTS = T_EVENTS

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 0

• I_SCREEN_START_LINE = 0

• I_SCREEN_END_COLUMN = 0

• I_SCREEN_END_LINE = 0

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• I_HTML_HEIGHT_TOP =

• I_HTML_HEIGHT_END =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = T_VBAK[]

• 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 SUB1 .

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_COMMENTS

• I_LOGO =

• I_END_OF_LIST_GRID =

.

ENDFORM .

[Former Member]

This is lalitha .

I am not getting the background & listheader .

Please help me .

Here's my report .

type-pools: slis .

tables: kna1,

vbak .

data: begin of t_kna1 occurs 1 ,

kunnr type kna1-kunnr,

name1 type kna1-name1,

ort01 type kna1-ort01,

end of t_kna1 .

select single kunnr

name1

ort01

from kna1 into t_kna1

.

************define t_FCAT***********

DATA: W_FCAT TYPE SLIS_FIELDCAT_ALV .

DATA: T_FCAT TYPE SLIS_T_FIELDCAT_ALV .

**********DEFINE T_COMMENTS*******

DATA: W_COMMENTS TYPE SLIS_LISTHEADER .

DATA: T_COMMENTS TYPE SLIS_T_LISTHEADER.

w_comments = 'H' .

w_comments = 'CUSTOMER NO' .

w_comments = T_KNA1-KUNNR .

APPEND W_COMMENTS TO T_COMMENTS .

w_comments-typ = 'S' .

w_comments-key = 'CITY' .

W_COMMENTS-INFO = T_KNA1-ORT01 .

APPEND W_COMMENTS TO T_COMMENTS .

**********DEFINE T_EVENTS*********

DATA: W_EVENTS TYPE SLIS_ALV_EVENT .

DATA: T_EVENTS TYPE SLIS_T_EVENT .

W_EVENTS-NAME = ' slis_ev_top_of_page ' .

W_EVENTS-FORM = 'SUB1' .

APPEND W_EVENTS TO T_EVENTS .

w_fcat-col_pos = 1 .

w_fcat-fieldname = 'VBELN' .

W_FCAT-SELTEXT_M = 'ORDER NO' .

APPEND W_FCAT TO T_FCAT .

w_fcat-col_pos = 2 .

w_fcat-fieldname = 'NETWR' .

W_FCAT-SELTEXT_M = 'NETVALUE' .

APPEND W_FCAT TO T_FCAT .

w_fcat-col_pos = 3 .

w_fcat-fieldname = 'ERDAT' .

W_FCAT-SELTEXT_M = 'ORDER DATE' .

APPEND W_FCAT TO T_FCAT .

w_fcat-col_pos = 4.

w_fcat-fieldname = 'ERNAM' .

W_FCAT-SELTEXT_M = 'ORDER NAME' .

APPEND W_FCAT TO T_FCAT .

***********DEFINE T_VBAK************

DATA: BEGIN OF T_VBAK OCCURS 1 ,

VBELN TYPE VBAK-VBELN,

ERDAT TYPE VBAK-ERDAT,

NETWR TYPE VBAK-NETWR,

END OF T_VBAK .

SELECT VBELN

ERDAT

NETWR

FROM VBAK INTO TABLE T_VBAK .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = 'ZALV-REPORT01'

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

• I_CALLBACK_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_END_OF_LIST = ' '

• I_STRUCTURE_NAME =

I_BACKGROUND_ID = 'TRVPICTURES08'

• I_GRID_TITLE =

• I_GRID_SETTINGS =

• IS_LAYOUT =

IT_FIELDCAT = T_FCAT

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

IT_EVENTS = T_EVENTS

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 0

• I_SCREEN_START_LINE = 0

• I_SCREEN_END_COLUMN = 0

• I_SCREEN_END_LINE = 0

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• I_HTML_HEIGHT_TOP =

• I_HTML_HEIGHT_END =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = T_VBAK[]

• 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 SUB1 .

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_COMMENTS

• I_LOGO =

• I_END_OF_LIST_GRID =

.

ENDFORM .

[Former Member]

when using events u need to add some more code as follows..befor alv display call this function..

form p_eventcat .

clear wa_eventcat.

refresh it_eventcat.

call function 'REUSE_ALV_EVENTS_GET'

exporting

i_list_type = 0

importing

et_events = it_eventcat

exceptions

list_type_wrong = 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.

read table it_eventcat with key name = 'TOP_OF_PAGE' into wa_eventcat.

if sy-subrc = 0.

move 'ZHEADER' to wa_eventcat-form.

modify it_eventcat from wa_eventcat index sy-tabix transporting form.

endif.

endform. " P_EVENTCAT

*after dis add a subroutine as shown

form zheader.

data: wa_listheader type slis_listheader.

data: it_listheader type slis_t_listheader.

clear wa_listheader.

wa_listheader-typ = 'H'.

*wa_listheader-key = ''.

wa_listheader-info = 'Report for Quotation List'.

append wa_listheader to it_listheader.

clear wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-key = 'DATE'.

wa_listheader-info = sy-datum.

append wa_listheader to it_listheader.

clear wa_listheader.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = it_listheader

• I_LOGO =

• I_END_OF_LIST_GRID =

.

endform. "ZHEADER

I think this is missing in ur code..add dis part n it ll work for sure

[Former Member]

hi

good

go through this link hope this ll give you some idea to solve your problem.

thanks

mrutyun^

[Former Member]

Hi Lalitha,

I have made some changes in your code.

The changes were highlighted in bold characters.

These changes are for getting the headers to be displayed in the output.

type-pools: slis .

tables: kna1,

vbak .

data: begin of t_kna1 occurs 1 ,

kunnr type kna1-kunnr,

name1 type kna1-name1,

ort01 type kna1-ort01,

end of t_kna1 .

select single kunnr

name1

ort01

from kna1 into t_kna1

.

************define t_FCAT***********

DATA: W_FCAT TYPE SLIS_FIELDCAT_ALV .

DATA: T_FCAT TYPE SLIS_T_FIELDCAT_ALV .

**********DEFINE T_COMMENTS*******

DATA: W_COMMENTS TYPE SLIS_LISTHEADER .

DATA: T_COMMENTS TYPE SLIS_T_LISTHEADER.

w_comments<b>-TYP</b> = 'H' .

w_comments<b>-KEY</b> = 'CUSTOMER NO' .

w_comments<b>-INFO</b> = T_KNA1-KUNNR .

APPEND W_COMMENTS TO T_COMMENTS .

w_comments-typ = 'S' .

w_comments-key = 'CITY' .

W_COMMENTS-INFO = T_KNA1-ORT01 .

APPEND W_COMMENTS TO T_COMMENTS .

**********DEFINE T_EVENTS*********

DATA: W_EVENTS TYPE SLIS_ALV_EVENT .

DATA: T_EVENTS TYPE SLIS_T_EVENT.

<b>DATA: GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME</b> <b>VALUE 'TOP_OF_PAGE'.</b>

W_EVENTS-NAME = ' slis_ev_top_of_page ' .

W_EVENTS-FORM = 'SUB1' .

APPEND W_EVENTS TO T_EVENTS .

w_fcat-col_pos = 1 .

w_fcat-fieldname = 'VBELN' .

W_FCAT-SELTEXT_M = 'ORDER NO' .

APPEND W_FCAT TO T_FCAT .

w_fcat-col_pos = 2 .

w_fcat-fieldname = 'NETWR' .

W_FCAT-SELTEXT_M = 'NETVALUE' .

APPEND W_FCAT TO T_FCAT .

w_fcat-col_pos = 3 .

w_fcat-fieldname = 'ERDAT' .

W_FCAT-SELTEXT_M = 'ORDER DATE' .

APPEND W_FCAT TO T_FCAT .

w_fcat-col_pos = 4.

w_fcat-fieldname = 'ERNAM' .

W_FCAT-SELTEXT_M = 'ORDER NAME' .

APPEND W_FCAT TO T_FCAT .

***********DEFINE T_VBAK************

DATA: BEGIN OF T_VBAK OCCURS 1 ,

VBELN TYPE VBAK-VBELN,

ERDAT TYPE VBAK-ERDAT,

NETWR TYPE VBAK-NETWR,

END OF T_VBAK .

SELECT VBELN

ERDAT

NETWR

FROM VBAK INTO TABLE T_VBAK .

<b>PERFORM EVENTTAB_BUILD USING T_EVENTS[].</b>

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = 'ZTEST_V'

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

• I_CALLBACK_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_END_OF_LIST = ' '

• I_STRUCTURE_NAME =

I_BACKGROUND_ID = 'TRVPICTURES08'

• I_GRID_TITLE =

• I_GRID_SETTINGS =

• IS_LAYOUT =

IT_FIELDCAT = T_FCAT

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

IT_EVENTS = T_EVENTS

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 0

• I_SCREEN_START_LINE = 0

• I_SCREEN_END_COLUMN = 0

• I_SCREEN_END_LINE = 0

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• I_HTML_HEIGHT_TOP =

• I_HTML_HEIGHT_END =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = T_VBAK[]

• 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.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_COMMENTS

• I_LOGO =

• I_END_OF_LIST_GRID =

.

ENDFORM .

&----

---

*& Form EVENTTAB_BUILD

&----

---

• text

----

---

• -->P_T_EVENTS[] text

----

---

<b>form EVENTTAB_BUILD using LT_EVENTS TYPE SLIS_T_EVENT.

DATA: LS_EVENT TYPE SLIS_ALV_EVENT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = LT_EVENTS.

*for top_of_page event

READ TABLE LT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE

INTO LS_EVENT.

IF SY-SUBRC = 0.

MOVE GC_FORMNAME_TOP_OF_PAGE TO LS_EVENT-FORM.

APPEND LS_EVENT TO LT_EVENTS.

ENDIF.

endform. " EVENTTAB_BUILD

</b>

Regards

Varalakshmi.K