SAMPLE CODE :Slis_ev_top_of_list

[Former Member]

PLZ gimme sample code for this and other alv events

[Former Member]

PLZ gimme sample code for this and other alv events

[Former Member]

hi

good

check this code

• Declarations for BLOCK ALV DISPLAY

----

---

*--type pools

TYPE-POOLS:slis.

DATA:x_layout TYPE slis_layout_alv,

t_field TYPE slis_t_fieldcat_alv,

*--field catalog

x_fldcat LIKE LINE OF t_field,

*--to hold all the events

t_events TYPE slis_t_event,

x_events TYPE slis_alv_event,

t_sort TYPE slis_t_sortinfo_alv,

x_sort LIKE LINE OF t_sort ,

*--Print Layout

x_print_layout TYPE slis_print_alv.

*----Macro to add field catalog.

*field "text "length "tech "COL_POS "DATATYPE "DDIC_OUTPUTLEN

DEFINE add_catalog.

clear x_fldcat.

x_fldcat-fieldname = &1.

x_fldcat-seltext_m = &2.

x_fldcat-outputlen = &3.

x_fldcat-tech = &4.

x_fldcat-col_pos = &5.

x_fldcat-no_zero = 'X'.

x_fldcat-ddictxt = 'M'.

x_fldcat-datatype = &6.

x_fldcat-ddic_outputlen = &7.

if &6 = 'N'.

x_fldcat-lzero = 'X'.

endif.

*--build field catalog

append x_fldcat to t_field.

END-OF-DEFINITION.

*----- data declerations.

data: v_repid like sy-repid.

data: begin of itab occurs 0,

matnr like mara-matnr,

ernam like mara-ernam,

meins like mara-meins,

end of itab.

data: begin of jtab occurs 0,

matnr like makt-matnr,

maktx like makt-maktx,

end of jtab.

select matnr ernam meins

up to 20 rows

from mara

into table itab.

select matnr maktx

up to 20 rows

from makt

into table jtab.

v_repid = sy-repid.

*DISPLAY alv

• Initialize Block

call function 'REUSE_ALV_BLOCK_LIST_INIT'

exporting

i_callback_program = v_repid.

*Block 1:

*INITIALIZE

refresh t_field. clear t_field.

refresh t_events.

*field "text "length "tech "COL_POS "DATATYPE "DDIC_OUTPUTLEN

add_catalog:

'MATNR' 'Material' '18' '' '1' 'C' '18',

'ERNAM' 'Created By' '12' '' '2' 'C' '12',

'MEINS' 'Unit' '5' '' '3' 'C' '3'.

*--build table for events.

x_events-form = 'TOP_OF_LIST1'.

x_events-name = slis_ev_top_of_list.

append x_events to t_events.

call function 'REUSE_ALV_BLOCK_LIST_APPEND'

exporting

is_layout = x_layout

it_fieldcat = t_field

i_tabname = 'ITAB'

it_events = t_events

it_sort = t_sort

tables

t_outtab = itab

exceptions

program_error = 1

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

*--BLOCK 2(SUMMARY REPORT)

*INITIALIZE

refresh t_field. clear t_field.

refresh t_events.

*field "text "length "tech "COL_POS "DATATYPE "DDIC_OUTPUTLEN

add_catalog:

'MATNR' 'Material' '20' '' '1' 'C' '18',

'MAKTX' 'Description' '40' '' '2' 'C' '40'.

*--build table for events.

x_events-form = 'TOP_OF_LIST2'.

x_events-name = slis_ev_top_of_list.

append x_events to t_events.

• Append table block.

call function 'REUSE_ALV_BLOCK_LIST_APPEND'

exporting

is_layout = x_layout

it_fieldcat = t_field

i_tabname = 'JTAB'

it_events = t_events

tables

t_outtab = jtab

exceptions

program_error = 1

maximum_of_appends_reached = 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 FM TO DISPLAY THE BLOCK REPORT.

call function 'REUSE_ALV_BLOCK_LIST_DISPLAY'

• exporting

• is_print = x_print_layout

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

skip 1.

write: 10 'List 1',

/5 '----

---

'.

skip 1.

format reset.

endform.

form top_of_list2.

skip 1.

write: 10 'List 2',

/5 '----

---

'.

skip 1.

format reset.

endform.

thanks

mrutyun^

[Former Member]

in ur server u can see BCALV_grid_01 to BCALV_grid_11

and some more prgs u can search like BCALV* and f4.

Madhavi

[former_member188829]

Hi,

Check this sample program..

TYPE-POOLS:SLIS.

DATA:IT_FCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA:WA_FCAT TYPE SLIS_FIELDCAT_ALV.

DATA:WA_LAYO TYPE SLIS_LAYOUT_ALV.

TABLES:MARA.

SELECT-OPTIONS:S_MATNR FOR MARA-MATNR DEFAULT '1' TO '1000'.

DATA:BEGIN OF ITAB1 OCCURS 0,

MATNR LIKE MARA-MATNR,

NTGEW LIKE MARA-NTGEW,

END OF ITAB1.

DATA:BEGIN OF ITAB2 OCCURS 0,

MATNR LIKE MARC-MATNR,

WERKS LIKE MARC-WERKS,

END OF ITAB2.

DATA:BEGIN OF ITAB3 OCCURS 0,

MATNR LIKE MARD-MATNR,

LGORT LIKE MARD-LGORT,

END OF ITAB3.

DATA:BEGIN OF IT_FINAL OCCURS 0,

MATNR LIKE MARA-MATNR,

NTGEW LIKE MARA-NTGEW,

WERKS LIKE MARC-WERKS,

LGORT LIKE MARD-LGORT,

END OF IT_FINAL.

START-OF-SELECTION.

SELECT MATNR

NTGEW FROM MARA INTO TABLE ITAB1 WHERE MATNR IN S_MATNR.

IF NOT ITAB1[] IS INITIAL.

SELECT MATNR

WERKS FROM MARC INTO TABLE ITAB2 FOR ALL ENTRIES IN ITAB1

WHERE MATNR EQ ITAB1-MATNR.

ENDIF.

IF NOT ITAB1[] IS INITIAL.

SELECT MATNR

LGORT FROM MARD INTO TABLE ITAB3 FOR ALL ENTRIES IN ITAB1

WHERE MATNR EQ ITAB1-MATNR.

ENDIF.

LOOP AT ITAB1.

READ TABLE ITAB2 WITH KEY MATNR = ITAB1-MATNR.

READ TABLE ITAB3 WITH KEY MATNR = ITAB1-MATNR.

MOVE ITAB1-MATNR TO IT_FINAL-MATNR.

MOVE ITAB1-NTGEW TO IT_FINAL-NTGEW.

MOVE ITAB2-WERKS TO IT_FINAL-WERKS.

MOVE ITAB3-LGORT TO IT_FINAL-LGORT.

APPEND IT_FINAL.

ENDLOOP.

***********For Field Catalogue****************

WA_FCAT-COL_POS = '1'.

WA_FCAT-FIELDNAME = 'MATNR'.

WA_FCAT-SELTEXT_M = 'Material Number'.

APPEND WA_FCAT TO IT_FCAT.

WA_FCAT-COL_POS = '2'.

WA_FCAT-FIELDNAME = 'NTGEW'.

*WA_FCAT-DATATYPE = 'QUAN'.

WA_FCAT-DO_SUM = 'X'.

WA_FCAT-SELTEXT_M = 'Netweight'.

APPEND WA_FCAT TO IT_FCAT.

WA_FCAT-COL_POS = '3'.

WA_FCAT-FIELDNAME = 'WERKS'.

WA_FCAT-SELTEXT_M = 'PLANT NUMBER'.

APPEND WA_FCAT TO IT_FCAT.

WA_FCAT-COL_POS = '4'.

WA_FCAT-FIELDNAME = 'LGORT'.

WA_FCAT-SELTEXT_M = 'STORAGE LOCation'.

APPEND WA_FCAT TO IT_FCAT.

********For Layout**********************

WA_LAYO-ZEBRA = 'X'.

WA_LAYO-EDIT = 'X'.

************Grid Display*****************

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = SY-REPID

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

• I_CALLBACK_HTML_TOP_OF_PAGE = TOP_OF_PAGE

• I_CALLBACK_HTML_END_OF_LIST = ' '

• I_STRUCTURE_NAME =

• I_BACKGROUND_ID = ' '

I_GRID_TITLE = 'DETAILS'

• I_GRID_SETTINGS =

IS_LAYOUT = WA_LAYO

IT_FIELDCAT = IT_FCAT

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

• IT_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 = IT_FINAL

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

&----

---

• text

----

---

FORM TOP_OF_PAGE.

DATA:IT_LISTHEAD TYPE SLIS_T_LISTHEADER.

DATA:WA_LISTHEAD TYPE SLIS_LISTHEADER.

WA_LISTHEAD-TYP = 'H'.

WA_LISTHEAD-INFO = ‘TOP OF PAGE’.

APPEND WA_LISTHEAD TO IT_LISTHEAD.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = IT_LISTHEAD

I_LOGO = 'ENJOYSAP_LOGO'.

ENDFORM. "top_of_page

http://sap-img.com/abap/what-are-the-events-in-alv.htm

[Former Member]

take help of this code.

it will surely serve your purpose.

FORM ZF_EVENTCAT USING P_IT_EVENTCAT TYPE SLIS_T_EVENT.

DATA L_EVENTCAT TYPE SLIS_ALV_EVENT.

CLEAR L_EVENTCAT.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = P_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.

• TOP-OF-PAGE FORM

CLEAR L_EVENTCAT.

READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY NAME =

SLIS_EV_TOP_OF_PAGE.

IF SY-SUBRC = 0.

MOVE 'ZF_TOP_OF_PAGE' TO L_EVENTCAT-FORM.

MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

TRANSPORTING FORM.

ENDIF.

• PF-Status form

CLEAR L_EVENTCAT.

READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY NAME =

SLIS_EV_PF_STATUS_SET.

IF SY-SUBRC = 0.

MOVE 'ZF_PF_STATUS_SET' TO L_EVENTCAT-FORM.

MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

TRANSPORTING FORM.

ENDIF.

• USER_COMMAND FORM

CLEAR L_EVENTCAT.

READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY

NAME = SLIS_EV_USER_COMMAND. "

IF SY-SUBRC = 0.

MOVE 'ZF_USER_COMMAND' TO L_EVENTCAT-FORM.

MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

TRANSPORTING FORM.

ENDIF.

• ITEM DATA EXPAND FORM

CLEAR L_EVENTCAT.

READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY

NAME = SLIS_EV_ITEM_DATA_EXPAND.

IF SY-SUBRC = 0.

MOVE 'ZF_ITEM_DATA_EXPAND' TO L_EVENTCAT-FORM.

MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

TRANSPORTING FORM..

ENDIF.

• REPREP_SEL_MODIFY FORM

CLEAR L_EVENTCAT.

READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY

NAME = SLIS_EV_REPREP_SEL_MODIFY.

IF SY-SUBRC = 0.

MOVE 'ZF_REPREP_SEL_MODIFY' TO L_EVENTCAT-FORM.

MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

TRANSPORTING FORM..

ENDIF.

• CALLER_EXIT FORM

*CLEAR L_EVENTCAT.

*READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY

• NAME = SLIS_EV_CALLER_EXIT_AT_START.

*

*IF SY-SUBRC = 0.

• MOVE 'ZF_CALLER_EXIT' TO L_EVENTCAT-FORM.

• MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

• TRANSPORTING FORM..

*ENDIF.

*

• TOP_OF_COVERPAGE FORM

CLEAR L_EVENTCAT.

READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY

NAME = SLIS_EV_TOP_OF_COVERPAGE.

IF SY-SUBRC = 0.

MOVE 'ZF_TOP_OF_COVERPAGE' TO L_EVENTCAT-FORM.

MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

TRANSPORTING FORM..

ENDIF.

• END_OF_COVERPAGE FORM

CLEAR L_EVENTCAT.

READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY

NAME = SLIS_EV_END_OF_COVERPAGE.

IF SY-SUBRC = 0.

MOVE 'ZF_END_OF_COVERPAGE' TO L_EVENTCAT-FORM.

MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

TRANSPORTING FORM..

ENDIF.

• FOREIGN_TOP_OF_PAGE FORM

CLEAR L_EVENTCAT.

READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY

NAME = SLIS_EV_FOREIGN_TOP_OF_PAGE.

IF SY-SUBRC = 0.

MOVE 'ZF_FOREIGN_TOP_OF_PAGE' TO L_EVENTCAT-FORM.

MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

TRANSPORTING FORM..

ENDIF.

• FOREIGN_END_OF_PAGE FORM

CLEAR L_EVENTCAT.

READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY

NAME = SLIS_EV_FOREIGN_END_OF_PAGE.

IF SY-SUBRC = 0.

MOVE 'ZF_FOREIGN_END_OF_PAGE' TO L_EVENTCAT-FORM.

MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

TRANSPORTING FORM..

ENDIF.

• LIST_MODIFY FORM

CLEAR L_EVENTCAT.

READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY

NAME = SLIS_EV_LIST_MODIFY.

IF SY-SUBRC = 0.

MOVE 'ZF_LIST_MODIFY' TO L_EVENTCAT-FORM.

MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

TRANSPORTING FORM..

ENDIF.

• TOP_OF_LIST FORM

CLEAR L_EVENTCAT.

READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY

NAME = SLIS_EV_TOP_OF_LIST.

IF SY-SUBRC = 0.

MOVE 'ZF_TOP_OF_LIST' TO L_EVENTCAT-FORM.

MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

TRANSPORTING FORM..

ENDIF.

• END_OF_PAGE FORM

*

*CLEAR L_EVENTCAT.

*READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY

• NAME = SLIS_EV_END_OF_PAGE.

*

*IF SY-SUBRC = 0.

• MOVE 'ZF_END_OF_PAGE' TO L_EVENTCAT-FORM.

• MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

• TRANSPORTING FORM..

*ENDIF.

• END_OF_LIST FORM

CLEAR L_EVENTCAT.

READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY

NAME = SLIS_EV_END_OF_LIST.

IF SY-SUBRC = 0.

MOVE 'ZF_END_OF_LIST' TO L_EVENTCAT-FORM.

MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

TRANSPORTING FORM..

ENDIF.

• AFTER_LINE_OUTPUT FORM

CLEAR L_EVENTCAT.

READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY

NAME = SLIS_EV_AFTER_LINE_OUTPUT.

IF SY-SUBRC = 0.

MOVE 'ZF_AFTER_LINE_OUTPUT' TO L_EVENTCAT-FORM.

MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

TRANSPORTING FORM..

ENDIF.

• BEFORE_LINE_OUTPUT FORM

CLEAR L_EVENTCAT.

READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY

NAME = SLIS_EV_BEFORE_LINE_OUTPUT.

IF SY-SUBRC = 0.

MOVE 'ZF_BEFORE_LINE_OUTPUT' TO L_EVENTCAT-FORM.

MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

TRANSPORTING FORM..

ENDIF.

• SUBTOTAL_TEXT FORM

CLEAR L_EVENTCAT.

READ TABLE P_IT_EVENTCAT INTO L_EVENTCAT WITH KEY

NAME = SLIS_EV_SUBTOTAL_TEXT.

IF SY-SUBRC = 0.

MOVE 'ZF_SUBTOTAL_TEXT' TO L_EVENTCAT-FORM.

MODIFY P_IT_EVENTCAT FROM L_EVENTCAT INDEX SY-TABIX

TRANSPORTING FORM..

ENDIF.

ENDFORM. " ZF_EVENTCAT

----

---

*FORM TOP-OF-PAGE.

----

---

FORM ZF_TOP_OF_PAGE.

*This FM is responsible for formatting the header information

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = IT_LISTHEADER

I_LOGO = 'ENJOYSAP_LOGO'

• I_END_OF_LIST_GRID =

.

ENDFORM.

----

---

*FORM PF_STATUS_SET.

----

---

FORM ZF_PF_STATUS_SET USING RT_EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'ALV_MAINMENU'.

ENDFORM.

----

---

*FORM USER_COMMAND.

----

---

FORM ZF_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

CASE R_UCOMM.

WHEN '&IC1'. "for hotspot with VBELN.

IF RS_SELFIELD-FIELDNAME = 'VBELN'.

MESSAGE I101 WITH RS_SELFIELD-VALUE .

ENDIF.

ENDCASE.

ENDFORM. " USER_COMMAND

----

---

*TOP OF COVER PAGE

----

---

FORM ZF_TOP_OF_COVERPAGE.

WRITE:/ 'TOP OF COVER PAGE'.

ENDFORM.

----

---

*END OF COVER PAGE

----

---

FORM ZF_END_OF_COVERPAGE.

WRITE:/ 'END OF COVER PAGE'.

ENDFORM.

----

---

*TOP OF LIST

----

---

FORM ZF_TOP_OF_LIST.

WRITE:/ 'TOP OF LIST'.

ENDFORM.

&----

---

*& Form ZF_BUILD_LISTHEADER

&----

---

• text

----

---

• -->P_IT_LISTHEADER text

----

---

FORM ZF_BUILD_LISTHEADER USING P_IT_LISTHEADER TYPE

SLIS_T_LISTHEADER.

DATA: L_LISTHEADER TYPE SLIS_LISTHEADER.

REFRESH P_IT_LISTHEADER.

CLEAR L_LISTHEADER.

L_LISTHEADER-TYP = 'H'. "Header

L_LISTHEADER-KEY = 'FCIL,INDIA'. "Ignored for "Header" Type

L_LISTHEADER-INFO = 'FUJITSU CONSULTING INDIA LIMITED'.

APPEND L_LISTHEADER TO P_IT_LISTHEADER.

CLEAR L_LISTHEADER.

L_LISTHEADER-TYP = 'S'.

L_LISTHEADER-KEY = 'DATE'.

L_LISTHEADER-INFO = SY-DATUM.

APPEND L_LISTHEADER TO P_IT_LISTHEADER.

CLEAR L_LISTHEADER.

L_LISTHEADER-TYP = 'S'.

L_LISTHEADER-KEY = 'TIME'.

L_LISTHEADER-INFO = SY-UZEIT.

APPEND L_LISTHEADER TO P_IT_LISTHEADER.

CLEAR L_LISTHEADER.

L_LISTHEADER-TYP = 'S'.

L_LISTHEADER-KEY = 'COMMENT'."Ignored for "action" Type

L_LISTHEADER-INFO = 'Possibilities are infinite'.

APPEND L_LISTHEADER TO P_IT_LISTHEADER.

ENDFORM. " ZF_BUILD_LISTHEADER

&----

---

*& Form GRID_DISPLAY

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM GRID_DISPLAY .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = 'Z11KUSH_ALV_SO'

• 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 = ' '

• I_GRID_TITLE =

• I_GRID_SETTINGS =

IS_LAYOUT = WA_LAYOUT

IT_FIELDCAT = it_fieldcat

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

IT_SORT = I_SORTINFO

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

IT_EVENTS = it_eventcat

• 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 = it_so

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

&----

---

*& Form LIST_DISPLAY

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM LIST_DISPLAY .

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER =

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = 'Z11KUSH_ALV_SO'

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

• I_STRUCTURE_NAME =

IS_LAYOUT = WA_LAYOUT

IT_FIELDCAT = IT_FIELDCAT

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT = I_SORTINFO

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

IT_EVENTS = IT_EVENTCAT

• 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

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = IT_SO

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

&----

---

*& Form zf_sorting

&----

---

• text

----

---

• -->P_I_SORTINFO text

----

---

FORM zf_sorting USING P_I_SORTINFO type slis_t_sortinfo_alv .

data l_sortinfo type slis_sortinfo_alv.

refresh p_i_sortinfo.

clear l_sortinfo.

l_sortinfo-spos = '1'.

l_sortinfo-fieldname = 'VBELN'.

l_sortinfo-tabname = 'IT_SO'.

l_sortinfo-up = 'X'.

• l_sortinfo-group = 'UL'. "UNDERLINE AFTER EVERY GROUP

l_sortinfo-group = '*'. "UNDERLINE AFTER EVERY GROUP

l_sortinfo-subtot = 'X'.

append l_sortinfo to p_i_sortinfo.

ENDFORM. " zf_sorting

&----

---

*& Form zf_layout

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM zf_layout .

clear wa_layout.

wa_layout-zebra = 'X'.

wa_layout-lights_fieldname = 'V_LIGHTS'.

• wa_layout-lights_tabname = 'It_so'.

" 1, 2 or 3 for red, yellow and green respectively.

wa_layout-box_fieldname = 'V_BOX'.

wa_layout-box_tabname = 'IT_SO'.

wa_layout-totals_text = 'Total'.

• wa_layout-subtotals_text = 'SubTotal'.

wa_layout-Colwidth_optimize = 'X'.

wa_layout-flexible_key = 'X'.

• wa_layout-No_colhead = 'X'.

• wa_layout-No_hotspot = 'X'.

• wa_layout-No_vline = 'X'.

wa_layout-No_min_linesize = ' '.

wa_layout-Min_linesize = 85..

wa_layout-Max_linesize = 0..

wa_layout-Window_titlebar = 'Nitin''s Demo Program'.

wa_layout-Lights_rollname = 'NETWR'.

wa_layout-Lights_condense = 'X'.

• wa_layout-No_sumchoice = 'X'.

• wa_layout-No_totalline = 'X'.

• wa_layout-No_subchoice = 'X'.

• wa_layout-No_subtotals = 'X'.

• wa_layout-Numc_sum = 'X'.

• wa_layout-No_unit_splitting = 'X'.

• wa_layout-totals_before_items = 'X'.

• wa_layout-Totals_only = 'X'.

• wa_layout-Box_rollname = 'X'.

• wa_layout-Expand_fieldname = 'X'.

• wa_layout-Hotspot_fieldname = 'X'.

• wa_layout-No_input = 'X'.

• wa_layout-F2code = 'X'.

wa_layout-Confirmation_prompt = 'X'.

• wa_layout-Key_hotspot = 'X'.

• wa_layout-Reprep = 'X'.

• wa_layout-No_keyfix = 'X'.

• wa_layout-Get_selinfos = 'X'.

• wa_layout-group_change_edit = 'X'.

• wa_layout-No_scrolling = 'X'.

• wa_layout-Expand_all = 'X'.

• wa_layout-Detail_popup = 'X'.

wa_layout-Detail_initial_lines = 'X'.

wa_layout-detail_titlebar = 'LIST OF SALES ORDERS'.

• wa_layout-Header_text = 'X'.

• wa_layout-default_item = 'X'.

• wa_layout-Info_fieldname = 'X'.

wa_layout-Coltab_fieldname = 'COLOR'.

• wa_layout-List_append = 'X'.

ENDFORM. " zf_layout

&----

---

*& Form zf_lights

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM zf_lights .

loop at it_so into wa_so.

if wa_so-netwr > 0.

WA_so-V_LIGHTS = '3'.

else.

wa_so-v_lights = '1'.

endif.

modify it_so from wa_so.

endloop.

ENDFORM. " zf_lights

reward points for helpful replies,

kushagra

[Former Member]

resolved

[Former Member]

resolved