topic Re: ALV Interactive in Application Development and Automation Discussions

ALV Interactive

Former Member — Mon, 27 Nov 2006 07:11:33 GMT

Hi,

I know how to make an ALV report.But i am not sure how to make that ALV report interactive.In the case of normal report we can make use of the hide statement.But in the case of ALV report how is it possible.

Useful questions will be rewarded more.

Thanks

Ansari

Re: ALV Interactive

anversha_s — Mon, 27 Nov 2006 07:14:15 GMT

hi,

chk this wonderful link,

http://www.sapdevelopment.co.uk/reporting/alvhome.htm

rgds

Anver

Re: ALV Interactive

Former Member — Mon, 27 Nov 2006 07:18:59 GMT

HI,

Check out this program.

example progm for alv

report zz_alv_report_stub

no standard page heading

line-size 200

line-count 65

message-id zz.

*----

Tables

*----

tables:

ekpo,

trdir.

*----

Global Types

*----

type-pools: slis.

*----

Global Internal Tables

*----

data:

i_fieldcat_alv type slis_t_fieldcat_alv,

i_events type slis_t_event,

i_event_exit type slis_t_event_exit,

i_list_comments type slis_t_listheader,

i_excluding type slis_t_extab.

Display data

data: begin of i_data occurs 0,

name like trdir-name,

clas like trdir-clas,

subc like trdir-subc,

cnam like trdir-cnam,

cdat like trdir-cdat,

myfield(1) type c,

end of i_data.

*----

Global Variables

*----

data:

w_variant like disvariant,

wx_variant like disvariant,

w_variant_save(1) type c,

w_exit(1) type c,

w_repid like sy-repid,

w_user_specific(1) type c,

w_callback_ucomm type slis_formname,

w_print type slis_print_alv,

w_layout type slis_layout_alv,

w_html_top_of_page type slis_formname,

w_fieldcat_alv like line of i_fieldcat_alv,

w_excluding like line of i_excluding,

w_events like line of i_events,

w_event_exit like line of i_event_exit,

w_list_comments like line of i_list_comments.

*----

Global Constants

*----

*constants:

*----

Selection Screen

*----

selection-screen begin of block blk_criteria with frame title text-f01.

select-options:

s_name for trdir-name.

selection-screen end of block blk_criteria.

selection-screen begin of block blk_params with frame title text-f02.

parameters:

p_vari like disvariant-variant.

selection-screen skip 1.

parameters:

p_grid radiobutton group rb01 default 'X',

p_html as checkbox.

selection-screen skip 1.

parameters:

p_list radiobutton group rb01.

selection-screen end of block blk_params.

*----

Initialization

*----

initialization.

perform init_variant.

perform variant_default using p_vari.

clear: s_name[].

s_name-sign = 'I'.

s_name-option = 'CP'.

s_name-low = 'Z*'.

append s_name.

*----

At Selection Screen PBO

*----

at selection-screen output.

*----

At Selection Screen Value Request

*----

at selection-screen on value-request for p_vari.

perform variant_f4 using p_vari.

*----

At Selection Screen

*----

at selection-screen.

perform variant_fill.

*----

Start of Selection

*----

start-of-selection.

perform get_data.

end-of-selection.

perform fieldcat_build.

perform event_build.

perform event_exit_build.

perform exclude_build.

perform print_build.

perform layout_build.

perform display_data.

*----

Top of Page

*----

top-of-page.

*----

Top of Page During Line Sel

*----

top-of-page during line-selection.

*----

At User Command

*----

at user-command.

*----

At Line Selection

*----

at line-selection.

*----

Macros

*----

define skip_1.

write: /001 sy-vline,

at sy-linsz sy-vline.

end-of-definition.

*----

Forms

*----

&----

*& Form variant_f4

&----

form variant_f4 using p_variant.

call function 'LVC_VARIANT_F4'

exporting

is_variant = w_variant

i_save = w_variant_save

importing

e_exit = w_exit

es_variant = wx_variant

exceptions

not_found = 1

program_error = 2

others = 3.

if sy-subrc <> 0.

message i000(zz) with text-g01.

endif.

if w_exit is initial.

w_variant-variant = wx_variant-variant.

p_variant = wx_variant-variant.

endif.

endform.

&----

*& Form init_variant

&----

form init_variant.

clear: w_variant.

w_repid = sy-repid.

w_variant-report = w_repid.

w_variant-username = sy-uname.

w_variant_save = 'A'. "All types

endform.

&----

*& Form variant_default

&----

form variant_default using p_variant.

wx_variant = w_variant.

if not p_variant is initial.

wx_variant-variant = p_variant.

endif.

call function 'LVC_VARIANT_DEFAULT_GET'

exporting

i_save = w_variant_save

changing

cs_variant = wx_variant

exceptions

wrong_input = 1

not_found = 2

program_error = 3

others = 4.

case sy-subrc.

when 0.

p_variant = wx_variant-variant.

when 2.

clear: p_variant.

endcase.

endform.

&----

*& Form variant_fill

&----

form variant_fill.

clear: w_variant.

if p_vari is initial.

w_variant-variant = 'STANDARD'.

w_variant-report = w_repid.

else.

w_variant-variant = p_vari.

w_variant-report = w_repid.

call function 'LVC_VARIANT_EXISTENCE_CHECK'

exporting

i_save = w_variant_save

changing

cs_variant = w_variant

exceptions

others = 01.

if sy-subrc ne 0.

message i000(zz) with text-g02.

endif.

endform.

&----

*& Form fieldcat_build

&----

form fieldcat_build.

call function 'REUSE_ALV_FIELDCATALOG_MERGE'

exporting

i_program_name = w_repid

i_structure_name = 'TRDIR'

i_internal_tabname = 'I_DATA'

i_inclname = w_repid

changing

ct_fieldcat = i_fieldcat_alv.

Modify displayed fields

loop at i_fieldcat_alv into w_fieldcat_alv.

case w_fieldcat_alv-fieldname.

when 'NAME'.

w_fieldcat_alv-hotspot = 'X'.

when 'MYFIELD'.

w_fieldcat_alv-checkbox = 'X'.

w_fieldcat_alv-seltext_s = 'MyChkBox'.

when others.

endcase.

modify i_fieldcat_alv from w_fieldcat_alv.

endloop.

endform.

&----

*& Form display_data

&----

form display_data.

w_callback_ucomm = 'CALLBACK_UCOMM'.

case 'X'.

when p_grid.

if p_html = 'X'.

w_html_top_of_page = 'HTML_TOP_OF_PAGE'.

endif.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_background_id = 'SIWB_WALLPAPER'

i_background_id = 'SIWB_WALLPAPER'

i_callback_program = w_repid

i_callback_html_top_of_page = w_html_top_of_page

i_structure_name = 'TRDIR'

i_default = 'X'

i_save = 'A'

is_variant = w_variant

is_layout = w_layout

i_callback_user_command = w_callback_ucomm

it_fieldcat = i_fieldcat_alv

it_events = i_events

it_event_exit = i_event_exit

it_excluding = i_excluding

is_print = w_print

i_screen_start_column = 1
i_screen_start_line = 1
i_screen_end_column = 70
i_screen_end_line = 30

tables

t_outtab = i_data.

when p_list.

call function 'REUSE_ALV_LIST_DISPLAY'

exporting

i_background_id = 'ALV_BACKGROUND'

i_callback_program = w_repid

i_default = 'X'

i_save = 'A'

is_variant = w_variant

is_layout = w_layout

i_callback_user_command = w_callback_ucomm

it_fieldcat = i_fieldcat_alv

it_events = i_events

it_event_exit = i_event_exit

is_print = w_print

tables

t_outtab = i_data.

endcase.

endform.

----

FORM user_command *

----

form callback_ucomm using r_ucomm like sy-ucomm

rs_selfield type slis_selfield.

message i000(zz) with r_ucomm.

case r_ucomm.

when '&IC1'.

set parameter id 'RID' field rs_selfield-value.

call transaction 'SE38'.

when others.

endcase.

endform.

&----

*& Form get_data

&----

form get_data.

select * up to 15 rows from trdir

into corresponding fields of table i_data

where name in s_name.

endform.

----

FORM ALV_TOP_OF_PAGE *

----

form alv_top_of_page.

clear: i_list_comments[].

w_list_comments-typ = 'H'. "H=Header, S=Selection, A=Action

w_list_comments-key = ''.

w_list_comments-info = 'Info 1'.

append w_list_comments to i_list_comments.

w_list_comments-typ = 'A'. " H = Header, S = Selection, A = Action

w_list_comments-key = ''.

w_list_comments-info = 'Begin of list'.

append w_list_comments to i_list_comments.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

i_logo = 'ENJOYSAP_LOGO'

it_list_commentary = i_list_comments.

endform.

&----

*& Form event_build

&----

form event_build.

call function 'REUSE_ALV_EVENTS_GET'

exporting

i_list_type = 0

importing

et_events = i_events.

read table i_events

with key name = slis_ev_top_of_page

into w_events.

if sy-subrc = 0.

move 'ALV_TOP_OF_PAGE' to w_events-form.

modify i_events from w_events index sy-tabix.

endif.

read table i_events

with key name = slis_ev_end_of_list

into w_events.

if sy-subrc = 0.

move 'ALV_END_OF_LIST' to w_events-form.

modify i_events from w_events index sy-tabix.

endif.

read table i_events

with key name = slis_ev_end_of_page

into w_events.

if sy-subrc = 0.

move 'ALV_END_OF_PAGE' to w_events-form.

modify i_events from w_events index sy-tabix.

endif.

endform.

----

FORM alv_end_of_list *

----

form alv_end_of_list.

clear: i_list_comments[].

w_list_comments-typ = 'A'. "H = Header, S = Selection, A = Action

w_list_comments-key = ''.

w_list_comments-info = 'End of list'.

append w_list_comments to i_list_comments.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = i_list_comments

i_logo = 'ZMYOBJECTKEY'

i_end_of_list_grid = 'X'.

endform.

----

FORM alv_end_of_page *

----

form alv_end_of_page.

endform.

&----

*& Form print_build

&----

form print_build.

w_print-no_print_listinfos = 'X'.

endform.

&----

*& Form layout_build

&----

form layout_build.

w_layout-zebra = 'X'.

w_layout-no_vline = 'X'.

w_layout-colwidth_optimize = 'X'.

w_layout-detail_popup = 'X'.

w_layout-detail_initial_lines = 'X'.

w_layout-detail_titlebar = 'Detail Title Bar'.

endform.

&----

*& Form event_exit_build

&----

form event_exit_build.

clear: i_event_exit[].

Pick

w_event_exit-ucomm = '&ETA'.

w_event_exit-before = ' '.

w_event_exit-after = 'X'.

append w_event_exit to i_event_exit.

endform.

----

FORM HTML_TOP_OF_PAGE *

----

form html_top_of_page using r_top type ref to cl_dd_document.

data:

text type sdydo_text_element,

s_table type ref to cl_dd_table_element,

col_key type ref to cl_dd_area,

col_info type ref to cl_dd_area,

a_logo type ref to cl_dd_area.

Split TOP-Document

call method r_top->vertical_split

exporting split_area = r_top

split_width = '30%'

importing right_area = a_logo.

Fill TOP-Document

call method r_top->add_text

exporting text = 'Example of a Heading'

sap_style = 'HEADING'.

call method r_top->new_line.

call method r_top->add_table

exporting no_of_columns = 2

with_heading = ' '

border = '1'

importing table = s_table.

call method s_table->add_column importing column = col_key.

call method s_table->add_column importing column = col_info.

text = 'A key value marked'.

call method col_key->add_text

exporting text = text

sap_emphasis = 'Strong'.

call method col_info->add_gap exporting width = 6.

text = '600' .

call method col_info->add_text

exporting text = text

sap_style = 'Key'.

call method col_info->add_gap exporting width = 3.

text = 'Block brick units'.

call method col_info->add_text exporting text = text.

call method s_table->new_row.

text = 'Storage Bin'.

call method col_key->add_text

exporting text = text

sap_emphasis = 'Strong'.

call method col_info->add_gap exporting width = 7.

text = 'C-A-004'.

call method col_info->add_text exporting text = text.

call method s_table->new_row.

text = 'Warehouse number' .

call method col_key->add_text

exporting text = text

sap_emphasis = 'Strong'.

call method col_info->add_gap exporting width = 6.

text = '200' .

call method col_info->add_text

exporting text = text

sap_style = 'Success'.

call method col_info->add_gap exporting width = 3.

text = 'marked success'.

call method col_info->add_text exporting text = text.

call method s_table->new_row.

call method r_top->new_line.

text = 'This last line is a comment in italics.'.

call method r_top->add_text

exporting text = text

sap_emphasis = 'EMPHASIS'.

call method r_top->new_line.

call method a_logo->add_picture

exporting picture_id = 'ZZTESTBMP'.

exporting picture_id = 'ENJOYSAP_LOGO'.

endform.

&----

*& Form exclude_build

&----

form exclude_build.

w_excluding = '&GRAPH'. "Graphic

append w_excluding to i_excluding.

endform. " exclude_build

Rgds,

Sunil.K

Re: ALV Interactive

Former Member — Mon, 27 Nov 2006 07:22:43 GMT

Hi muhammed,

1. In alv we cannot use AT LINE Selection

2. For alv, there is a special syntax, so that when we double-click on alv,

our FORM / routine is called and there we display another alv.

3. just copy paste to get a taste of interactive alv.

REPORT abc.

TYPE-POOLS : slis.

*----

Data

DATA : ITAB LIKE T001 OCCURS 0 WITH HEADER LINE.

DATA : alvfc TYPE slis_t_fieldcat_alv.

DATA : STAB LIKE T001 OCCURS 0 WITH HEADER LINE.

*----

Select Data

SELECT * FROM t001 INTO TABLE itab.

*------- Field Catalogue

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-repid

i_internal_tabname = 'ITAB'

i_inclname = sy-repid

CHANGING

ct_fieldcat = alvfc

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

*----

Display

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

it_fieldcat = alvfc

i_callback_program = sy-repid "<-------Important

i_callback_user_command = 'ITAB_USER_COMMAND' "<------ Important

TABLES

t_outtab = itab

EXCEPTIONS

program_error = 1

OTHERS = 2.

*----

CALL BACK FORM

*----

FORM itab_user_command USING whatcomm TYPE sy-ucomm whatrow TYPE

slis_selfield.

*----

IMPORTANT.

READ TABLE ITAB INDEX WHATROW-TABINDEX.

CLEAR STAB.

SELECT * FROM T001

INTO TABLE STAB

WHERE BUKRS = ITAB-BUKRS.

CLEAR ALVFC.

*------- Field Catalogue

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = sy-repid

i_internal_tabname = 'STAB'

i_inclname = sy-repid

CHANGING

ct_fieldcat = alvfc

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

*----

Display

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

it_fieldcat = alvfc

i_callback_program = sy-repid "<-------Important

TABLES

t_outtab = Stab

EXCEPTIONS

program_error = 1

OTHERS = 2.

ENDFORM. "ITAB_user_command

regards,

amit m.

Re: ALV Interactive

Former Member — Mon, 27 Nov 2006 07:22:44 GMT

Hi Ansari,

check this program

REPORT Z7RNP_ALV_SO MESSAGE-ID Z7NEW .

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

TABLE DECLARATION

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

TABLES: VBAK , "Sales Document: Header Data

VBAP , "Sales Document: Item Data

MAKT , "Material Descriptions

LIPS . "SD document: Delivery: Item data

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

DECLARATION OF TYPE-POOL

*THIS TYPE-POOL CONTAINS THE EVENTS,

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

TYPE-POOLS : SLIS.

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

DECLARATION OF EVENTS

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

DATA: I_EVENT TYPE SLIS_T_EVENT.

DATA: T_EVENT TYPE SLIS_ALV_EVENT.

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

DECLARATION OF LIST HEADER

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

DATA: I_LISTHEADER TYPE SLIS_T_LISTHEADER.

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

DECLARATION OF FIELD CATALOG FOR SCREEN 1

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

DATA: I_FLDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.

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

DECLARATION OF FIELD CATALOG FOR SCREEN 2

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

DATA: I_FLDCAT2 TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.

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

DECLARATION OF FIELD LAYOUT

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

DATA: I_LAYOUT TYPE SLIS_LAYOUT_ALV.

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

SORTING OF OUTPUT

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

DATA: I_SORT TYPE SLIS_T_SORTINFO_ALV.

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

*DATA DECLARATION

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

DATA: V_AUART TYPE TVAK-AUART,

V_VKORG TYPE TVKO-VKORG,

V_KUNNR TYPE KNA1-KUNNR,

V_MATNR TYPE MARA-MATNR ,

V_SPART TYPE TVTA-SPART .

TYPES: BEGIN OF IT_SO ,

VBELN TYPE VBELN_VA , "SALES ORDER NO.

AUART TYPE AUART , "SALES DOC. TYPE

VKORG TYPE VKORG , "SALES ORG.

SPART TYPE SPART , "DIVISION

KUNNR TYPE KUNAG , "SOLD TO PARTY

POSNR TYPE POSNR_VA , "SALES DOC. ITEM

MATNR TYPE MATNR , "MATERIAL NO

MAKTX TYPE MAKTX , "DESCRIPTION

KWMENG TYPE KWMENG , "QUANTITY

VRKME TYPE VRKME , "SALES UNIT

LINE_COLOR(4) TYPE C ,

END OF IT_SO .

TYPES: BEGIN OF IT_DEL ,

VBELN TYPE VBELN_VL , "SALES ORDER NO.

POSNR TYPE POSNR_VL , "SALES DOC. ITEM

MATNR TYPE MATNR , "MATERIAL NO

WERKS TYPE WERKS_D , "PLANT

LGORT TYPE LGORT_D , "STORAGE LOCATION

CHARG TYPE CHARG_D , "BATCH NO.

LFIMG TYPE LFIMG , "ACTUAL DELIVERY QTY.

VRKME TYPE VRKME , "SALES UNIT

END OF IT_DEL .

TYPES: BEGIN OF TYPE_VBFA ,

VBELV TYPE VBELN_VON , "Preceding sales and distribution document

POSNV TYPE POSNR_VON , "Preceding item of an SD document

VBELN TYPE VBELN_NACH, "Subsequent sales and distribution document

POSNN TYPE POSNR_NACH, "Document category of subsequent document

VBTYP_N TYPE VBTYP_N ,

END OF TYPE_VBFA .

DATA: IT_SO1 TYPE STANDARD TABLE OF IT_SO ,

IT_DEL1 TYPE STANDARD TABLE OF IT_DEL ,

IT_VBFA TYPE STANDARD TABLE OF TYPE_VBFA,

IT_DEL_FUL TYPE STANDARD TABLE OF IT_DEL.

DATA: WA_SO TYPE IT_SO ,

WA_DEL TYPE IT_DEL ,

WA_VBFA TYPE TYPE_VBFA,

WA_IT_DEL_FUL TYPE IT_DEL.

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

*SELECTION SCREEN *

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

SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-004 .

SELECT-OPTIONS: S_VBELN FOR VBAK-VBELN ,

S_AUART FOR V_AUART ,

S_VKORG FOR V_VKORG ,

S_SPART FOR V_SPART ,

S_KUNNR FOR V_KUNNR ,

S_MATNR FOR V_MATNR .

SELECTION-SCREEN END OF BLOCK BLK1 .

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

*AT SELECTION SCREEN *

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

AT SELECTION-SCREEN.

SELECT SINGLE VBELN

FROM VBAK INTO VBAK-VBELN

WHERE VBELN IN S_VBELN.

IF SY-SUBRC <> 0.

MESSAGE E202.

ENDIF.

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

*START OF SELECTION *

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

START-OF-SELECTION .

PERFORM DATA_SELECT.

PERFORM T_SORT USING I_SORT .

PERFORM EVENT_CAT USING I_EVENT .

PERFORM FLD_CAT USING I_FLDCAT[] .

PERFORM T_LAYOUT USING I_LAYOUT .

PERFORM FLD_CAT2 USING I_FLDCAT2[] .

PERFORM CALL_ALV.

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

DATA SELECT *

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

&----

*& Form DATA_SELECT

&----

text

----

--> p1 text
<-- p2 text

----

FORM DATA_SELECT .

REFRESH: IT_VBFA, IT_SO1, IT_DEL_FUL ,IT_DEL1 .

BREAK-POINT.

SELECT

A~VBELN

A~AUART

A~VKORG

A~SPART

A~KUNNR

B~POSNR

B~MATNR

C~MAKTX

B~KWMENG

B~VRKME

INTO TABLE IT_SO1 FROM VBAK AS A

JOIN VBAP AS B ON B_{VBELN = A}VBELN

JOIN MAKT AS C ON C_{MATNR = B}MATNR

AND C~SPRAS = SY-LANGU

WHERE A~VBELN IN S_VBELN .

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

COLURING DISPLAY *

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

DATA: LD_COLOR(1) TYPE C .

LOOP AT IT_SO1 INTO WA_SO.

Populate color variable with colour properties
Char 1 = C (This is a color property)
Char 2 = 3 (Color codes: 1 - 7)
Char 3 = Intensified on/off ( 1 or 0 )
Char 4 = Inverse display on/off ( 1 or 0 )
i.e. wa_ekko-line_color = 'C410'

LD_COLOR = LD_COLOR + 1.

Only 7 colours so need to reset color value

IF LD_COLOR = 8.

LD_COLOR = 1.

ENDIF.

CONCATENATE 'C' LD_COLOR '10' INTO WA_SO-LINE_COLOR.

wa_ekko-line_color = 'C410'.

MODIFY IT_SO1 FROM WA_SO.

ENDLOOP .

IF SY-SUBRC = 0.

SELECT VBELV

POSNV

VBELN

POSNN

VBTYP_N

INTO TABLE IT_VBFA

FROM VBFA

FOR ALL ENTRIES IN IT_SO1

WHERE VBELV = IT_SO1-VBELN

AND POSNN = IT_SO1-POSNR

AND VBTYP_N ='J' .

IF SY-SUBRC = 0.

SELECT VBELN

POSNR

MATNR

WERKS

LGORT

CHARG

LFIMG

VRKME

FROM LIPS INTO TABLE IT_DEL_FUL

FOR ALL ENTRIES IN IT_VBFA

WHERE VBELN = IT_VBFA-VBELN

AND POSNR = IT_VBFA-POSNN.

ENDIF.

ENDFORM. " DATA_SELECT

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

EVENT CATALOG ****************************************

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

&----

*& Form EVENT_CAT

&----

text

----

-->P_I_EVENT text

----

FORM EVENT_CAT USING P_I_EVENT TYPE SLIS_T_EVENT .

REFRESH P_I_EVENT .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING
I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = P_I_EVENT

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 P_I_EVENT WITH KEY NAME = SLIS_EV_TOP_OF_PAGE INTO T_EVENT.

IF SY-SUBRC = 0.

MOVE 'TOP_OF_PAGE' TO T_EVENT-FORM.

MODIFY P_I_EVENT FROM T_EVENT INDEX SY-TABIX TRANSPORTING FORM.

ENDIF.

CLEAR T_EVENT .

ENDFORM. " EVENT_CAT

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

*********FORM FOR EVENT TOP_OF_PAGE*********************************

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

FORM TOP_OF_PAGE .

REFRESH I_LISTHEADER.

DATA: T_HEADER TYPE SLIS_LISTHEADER.

DATA: V_TEXT(50).

WRITE SY-DATUM TO V_TEXT.

CLEAR T_HEADER.

T_HEADER-TYP = 'S'.

T_HEADER-KEY = "Date".

T_HEADER-INFO = V_TEXT.

APPEND T_HEADER TO I_LISTHEADER.

CLEAR T_HEADER.

CLEAR V_TEXT.

WRITE: 'SALES ORDER REPORT ' TO V_TEXT .

T_HEADER-TYP = 'S'.

T_HEADER-KEY = 'TITLE'.

T_HEADER-INFO = V_TEXT.

APPEND T_HEADER TO I_LISTHEADER.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = I_LISTHEADER.

I_LOGO = 'ALV_BACKGROUND'.
I_END_OF_LIST_GRID =

ENDFORM. "TOP_OF_PAGE

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

FIRST ALV GRID DISPLAY ***************************************

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

&----

*& Form CALL_ALV

&----

text

----

--> p1 text
<-- p2 text

----

FORM CALL_ALV .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND1'

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_BACKGROUND_ID = 'ALV_BACKGROUND'

IS_LAYOUT = I_LAYOUT

IT_FIELDCAT = I_FLDCAT[]

IT_SORT = I_SORT

IT_EVENTS = I_EVENT

TABLES

T_OUTTAB = IT_SO1

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. " CALL_ALV

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

FIRST FIELDCATALOG *************************************

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

&----

*& Form FLD_CAT

&----

text

----

-->P_I_FLDCAT[] text

----

FORM FLD_CAT USING P_I_FLDCAT TYPE SLIS_T_FIELDCAT_ALV.

CLEAR I_FLDCAT.

I_FLDCAT-FIELDNAME = 'VBELN'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT-TABNAME = 'IT_SO1'."TABLE NAME

I_FLDCAT-SELTEXT_M = 'SALES ORDER NO.'.

I_FLDCAT-COL_POS = 1. " POSITION OF THE COLUMN.

I_FLDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.

I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT-HOTSPOT = 'X'.

I_FLDCAT-JUST(1) = 'C'.

APPEND I_FLDCAT.

CLEAR I_FLDCAT.

I_FLDCAT-FIELDNAME = 'AUART'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT-TABNAME = 'IT_SO1'."TABLE NAME

I_FLDCAT-SELTEXT_M = 'SALES DOC. TYPE'.

I_FLDCAT-COL_POS = 2. " POSITION OF THE COLUMN.

I_FLDCAT-OUTPUTLEN = 15. " SET THE OUTPUT LENGTH.

I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT-JUST(1) = 'C'.

APPEND I_FLDCAT.

CLEAR I_FLDCAT.

I_FLDCAT-FIELDNAME = 'VKORG'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT-TABNAME = 'IT_SO1'.

I_FLDCAT-SELTEXT_M = 'SALES ORG.'.

I_FLDCAT-COL_POS = 3. " POSITION OF THE COLUMN.

I_FLDCAT-OUTPUTLEN = 12. " SET THE OUTPUT LENGTH.

I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT-JUST(1) = 'C'.

APPEND I_FLDCAT.

CLEAR I_FLDCAT.

I_FLDCAT-FIELDNAME = 'SPART'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT-TABNAME = 'IT_SO1'.

I_FLDCAT-SELTEXT_M = 'DIVISION'.

I_FLDCAT-COL_POS = 4. " POSITION OF THE COLUMN.

I_FLDCAT-OUTPUTLEN = 10. " SET THE OUTPUT LENGTH.

I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT-JUST(1) = 'C'.

APPEND I_FLDCAT.

CLEAR I_FLDCAT.

I_FLDCAT-FIELDNAME = 'KUNNR'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT-TABNAME = 'IT_SO1'.

I_FLDCAT-SELTEXT_M = 'SOLD TO PARTY'.

I_FLDCAT-COL_POS = 5. " POSITION OF THE COLUMN.

I_FLDCAT-OUTPUTLEN = 15. " SET THE OUTPUT LENGTH.

I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT-JUST(1) = 'C'.

APPEND I_FLDCAT.

CLEAR I_FLDCAT.

I_FLDCAT-FIELDNAME = 'POSNR'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT-TABNAME = 'IT_SO1'.

I_FLDCAT-SELTEXT_M = 'SALES DOC. ITEM'.

I_FLDCAT-COL_POS = 6. " POSITION OF THE COLUMN.

I_FLDCAT-OUTPUTLEN = 17. " SET THE OUTPUT LENGTH.

I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT-JUST(1) = 'C'.

APPEND I_FLDCAT.

CLEAR I_FLDCAT.

I_FLDCAT-FIELDNAME = 'MATNR'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT-TABNAME = 'IT_SO1'.

I_FLDCAT-SELTEXT_M = 'MATERIAL NO.'.

I_FLDCAT-COL_POS = 7. " POSITION OF THE COLUMN.

I_FLDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.

I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT-JUST(1) = 'C'.

APPEND I_FLDCAT.

CLEAR I_FLDCAT.

I_FLDCAT-FIELDNAME = 'MAKTX'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT-TABNAME = 'IT_SO1'.

I_FLDCAT-SELTEXT_M = 'DESCRIPTION'.

I_FLDCAT-COL_POS = 8. " POSITION OF THE COLUMN.

I_FLDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.

I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT-JUST(1) = 'C'.

APPEND I_FLDCAT.

CLEAR I_FLDCAT.

I_FLDCAT-FIELDNAME = 'KWMENG'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT-TABNAME = 'IT_SO1'.

I_FLDCAT-SELTEXT_M = 'QUANTITY'.

I_FLDCAT-COL_POS = 9. " POSITION OF THE COLUMN.

I_FLDCAT-OUTPUTLEN = 15. " SET THE OUTPUT LENGTH.

I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT-DO_SUM = 'X'. " For doing "SUM"

I_FLDCAT-JUST(1) = 'C'.

APPEND I_FLDCAT.

CLEAR I_FLDCAT.

I_FLDCAT-FIELDNAME = 'VRKME'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT-TABNAME = 'IT_SO1'.

I_FLDCAT-SELTEXT_M = 'SALES UNIT'.

I_FLDCAT-COL_POS = 10. " POSITION OF THE COLUMN.

I_FLDCAT-OUTPUTLEN = 10. " SET THE OUTPUT LENGTH.

I_FLDCAT-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT-JUST(1) = 'C'.

APPEND I_FLDCAT.

ENDFORM. " FLD_CAT

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

ALV SORTING ***************************************

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

&----

*& Form SORT

&----

text

----

-->P_I_SORT text

----

FORM T_SORT USING P_I_SORT TYPE SLIS_T_SORTINFO_ALV .

DATA: I_SORT TYPE SLIS_SORTINFO_ALV .

REFRESH P_I_SORT .

CLEAR I_SORT.

I_SORT-SPOS = 1.

I_SORT-TABNAME = 'IT_SO1'.

I_SORT-FIELDNAME = 'VBELN'.

I_SORT-UP = 'X'.

I_SORT-SUBTOT = 'X'.

I_SORT-GROUP = '*'.

APPEND I_SORT TO P_I_SORT.

ENDFORM. " SORT

*FORM SET_PF_STATUS USING rt_extab TYPE slis_t_extab.

SET PF-STATUS 'ZSTANDARD'.

*ENDFORM. "Set_pf_status

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

**********FORM FOR EVENT USER_COMMAND1*******************************

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

FORM USER_COMMAND1 USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

*CASE R_UCOMM .

WHEN '&IC1' .

IF rs_selfield-FIELDNAME = 'VBELN' .

ENDIF .

WHEN OTHERS .

ENDCASE .

CLEAR WA_SO.

REFRESH: IT_DEL1 .

IF R_UCOMM = '&IC1' AND RS_SELFIELD-FIELDNAME = 'VBELN' AND

RS_SELFIELD-VALUE IS NOT INITIAL.

READ TABLE IT_SO1 INTO WA_SO INDEX RS_SELFIELD-TABINDEX.

IF SY-SUBRC = 0.

LOOP AT IT_VBFA INTO WA_VBFA WHERE VBELV = WA_SO-VBELN

AND POSNV = WA_SO-POSNR.

READ TABLE IT_DEL_FUL INTO WA_IT_DEL_FUL

WITH KEY VBELN = WA_VBFA-VBELV

POSNR = WA_VBFA-POSNN.

IF SY-SUBRC = 0.

CLEAR WA_DEL.

MOVE WA_IT_DEL_FUL TO WA_DEL.

APPEND WA_DEL TO IT_DEL1.

ENDIF.

ENDLOOP.

ENDIF.

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

SECOND ALV GRID DISPLAY ***********************************

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

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND2'

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'

I_BACKGROUND_ID = 'ALV_BACKGROUND'

IT_FIELDCAT = I_FLDCAT2[]

IT_SORT = I_SORT

TABLES

T_OUTTAB = IT_DEL_FUL

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 . "USER_COMMAND1

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

FORM FOR EVENT USER_COMMAND 2 ******************************

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

FORM USER_COMMAND2 USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

CLEAR WA_SO.

REFRESH: IT_DEL1 .

IF R_UCOMM = '&IC1' AND RS_SELFIELD-FIELDNAME = 'VBELN' AND

RS_SELFIELD-VALUE IS NOT INITIAL.

READ TABLE IT_SO1 INTO WA_SO INDEX RS_SELFIELD-TABINDEX.

IF SY-SUBRC = 0.

LOOP AT it_vbfa INTO wa_vbfa WHERE vbelv = WA_SO-vbeln
AND posnv = WA_SO-posnr.

READ TABLE IT_DEL_FUL INTO WA_IT_DEL_FUL

WITH KEY VBELN = RS_SELFIELD-VALUE

POSNR = WA_VBFA-POSNN.

IF RS_SELFIELD-FIELDNAME = 'VBELN'.

SET PARAMETER ID 'VL' FIELD WA_VBFA-VBELN .

CALL TRANSACTION 'VL03' AND SKIP FIRST SCREEN.

ENDIF .

ENDLOOP.
ENDIF.

ENDIF.

ENDFORM . "USER_COMMAND2

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

SECOND FIELDCATALOG ******************************************

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

&----

*& Form FLD_CAT2

&----

text

----

-->P_I_FLDCAT2[] text

----

FORM FLD_CAT2 USING P_I_FLDCAT2 TYPE SLIS_T_FIELDCAT_ALV .

CLEAR I_FLDCAT2.

I_FLDCAT2-FIELDNAME = 'VBELN'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT2-TABNAME = 'IT_DEL_FUL'."TABLE NAME

I_FLDCAT2-SELTEXT_M = 'DELIVERY NO.'.

I_FLDCAT2-COL_POS = 1. " POSITION OF THE COLUMN.

I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.

I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT2-HOTSPOT = 'X'.

I_FLDCAT2-JUST(1) = 'C'.

APPEND I_FLDCAT2.

CLEAR I_FLDCAT2.

I_FLDCAT2-FIELDNAME = 'POSNR'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT2-SELTEXT_M = 'DELIVERY ITEM'.

I_FLDCAT2-COL_POS = 2. " POSITION OF THE COLUMN.

I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.

I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT2-JUST(1) = 'C'.

APPEND I_FLDCAT2.

CLEAR I_FLDCAT2.

I_FLDCAT2-FIELDNAME = 'MATNR'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT2-SELTEXT_M = 'MATERIAL NO.'.

I_FLDCAT2-COL_POS = 3. " POSITION OF THE COLUMN.

I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.

I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT2-JUST(1) = 'C'.

APPEND I_FLDCAT2.

CLEAR I_FLDCAT2.

I_FLDCAT2-FIELDNAME = 'WERKS'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT2-SELTEXT_M = 'PLANT.'.

I_FLDCAT2-COL_POS = 4. " POSITION OF THE COLUMN.

I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.

I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT2-JUST(1) = 'C'.

APPEND I_FLDCAT2.

CLEAR I_FLDCAT2.

I_FLDCAT2-FIELDNAME = 'LGORT'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT2-SELTEXT_M = 'ST. LOCATION'.

I_FLDCAT2-COL_POS = 5. " POSITION OF THE COLUMN.

I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.

I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT2-JUST(1) = 'C'.

APPEND I_FLDCAT2.

CLEAR I_FLDCAT2.

I_FLDCAT2-FIELDNAME = 'CHARG'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT2-SELTEXT_M = 'BATCH NO.'.

I_FLDCAT2-COL_POS = 6. " POSITION OF THE COLUMN.

I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.

I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT2-JUST(1) = 'C'.

APPEND I_FLDCAT2.

CLEAR I_FLDCAT2.

I_FLDCAT2-FIELDNAME = 'LFIMG'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT2-SELTEXT_M = 'ACT. DEL. QTY.'.

I_FLDCAT2-COL_POS = 7. " POSITION OF THE COLUMN.

I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.

I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT2-JUST(1) = 'C'.

APPEND I_FLDCAT2.

CLEAR I_FLDCAT2.

I_FLDCAT2-FIELDNAME = 'VRKME'. "FIELD FOR WHICH CATALOG ID FILLED

I_FLDCAT2-SELTEXT_M = 'SALES UNIT.'.

I_FLDCAT2-COL_POS = 8. " POSITION OF THE COLUMN.

I_FLDCAT2-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.

I_FLDCAT2-EMPHASIZE = 'X'. " COLOR OF THIS COLUMN.

I_FLDCAT2-KEY = 'X'. " SO THAT THIS FIELD IS NOT

"SCROLLABLE AND HIDDABLE.

I_FLDCAT2-JUST(1) = 'C'.

APPEND I_FLDCAT2.

ENDFORM. " FLD_CAT2

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

ALV LAYOUT *******************************************

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

&----

*& Form LAYOUT

&----

text

----

-->P_I_LAYOUT text

----

FORM T_LAYOUT USING P_I_LAYOUT TYPE SLIS_LAYOUT_ALV .

P_I_LAYOUT-ZEBRA = 'X'.

P_I_LAYOUT-TOTALS_TEXT = 'GRAND TOTAL ='.

p_i_layout-CONFIRMATION_PROMPT = 'X'.
p_i_layout-DEF_STATUS = ' '.

P_I_LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.

ENDFORM. " LAYOUT

Re: ALV Interactive

Former Member — Mon, 27 Nov 2006 07:27:36 GMT

Ansari,

you need to take the help of USER_COMMAND event.

with that it is simple to show the interactive report.

**-ALV list Display
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = SY-REPID
   <b>   I_CALLBACK_PF_STATUS_SET = 'PF_STATUS_SET'</b>
    <b>  I_CALLBACK_USER_COMMAND  = 'USER_COMMAND'</b>
      IS_LAYOUT                = X_LAYOUT
      IT_FIELDCAT              = IT_FIELDCAT
      IT_EVENTS                = IT_EVENTS
    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.

you need to pass these two forms

FORM PF_STATUS_SET USING    P_EXTAB TYPE SLIS_T_EXTAB.
  SET PF-STATUS 'STANDARD' EXCLUDING P_EXTAB.
ENDFORM.                    "PF_STATUS_SET


FORM USER_COMMAND USING UCOMM LIKE SY-UCOMM SELFIELD TYPE
                                                         SLIS_SELFIELD.
 case UCOMM.
 when '&IC1'.  "this is for double click.
 "do some thing..
  ENDCASE.
ENDFORM.                    "USER_COMMAND

Check the sample code also..


REPORT  ZTEST_ALV_CHECK     message-id zz           .


TYPE-POOLS: SLIS.
DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
      IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      L_LAYOUT type slis_layout_alv.


DATA: BEGIN OF ITAB OCCURS 0,
      VBELN LIKE VBAK-VBELN,
      POSNR LIKE VBAP-POSNR,
     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 = 2.
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 = 3.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.


CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    I_CALLBACK_PROGRAM       = SY-REPID
    IS_LAYOUT                = L_LAYOUT
<b>    I_CALLBACK_PF_STATUS_SET = 'STATUS'
    I_CALLBACK_USER_COMMAND  = 'USER_COMMAND'</b>
    IT_FIELDCAT              = IT_FIELDCAT
  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  STATUS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_EXTAB    text
*----------------------------------------------------------------------*
FORM STATUS USING P_EXTAB TYPE SLIS_T_EXTAB.
*- Pf status
<b>  SET PF-STATUS 'STATUS'.</b>
ENDFORM.                 " STATUS

*&---------------------------------------------------------------------*
*&      Form  USER_COMMAND
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->R_UCOMM      text
*      -->RS_SELFIELD  text
*----------------------------------------------------------------------*
<b>FORM USER_COMMAND USING R_UCOMM     LIKE SY-UCOMM
                               RS_SELFIELD TYPE SLIS_SELFIELD.

  case r_ucomm.

    when 'BACK' or 'CANC' or 'EXIT'.
      leave to screen 0.
    when '&IC1'.
       if rs_selfield-fieldname = 'VBELN'.
*      message i000 with 'clicked on row' rs_Selfield-tabindex.
      set parameter id 'AUN' field rs_selfield-value.
      call transaction 'VA03' and skip first screen.
      endif.
  endcase.
ENDFORM.                    "USER_COMMAND</b>

you need set the PF-status and the User-command. and enable F2 key that is for double clicking, set the Function code '&IC1' for f2 key.

then it will work.

Regards

Vijay

Re: ALV Interactive

Former Member — Mon, 27 Nov 2006 08:11:54 GMT

Here Let me give some SAP sample programs for ALV interaction. This requirement is served by using the events:

added_function of cl_salv_events
double_click of cl_salv_events_table
link_click of cl_salv_events_table

Sample ALV interaction programs:

SALV_TEST_TABLE_EVENTS

SALV_TEST_TABLE_FORM_EVENTS

Thanks & Regards,

Karthikeyan G