Alv Report program

[Former Member]

Hi Experts

I have created one report program and display the report in the ALV using FM Reuse alv grid

Now i want to handle double click on one of the field to navigate to different transaction .

Please help me in this regard .. also i am not creating any container using classes .

Regards

HItesh

[Former Member]

Hi,

Please refer the link below:

http://www.sapdev.co.uk/reporting/alv/alvgrid_enhanced.htm

Thanks,

Sriram Ponna.

[Former Member]

Hi,

in the FM GRID DISPLAY, fill I_CALLBACK_USERCOMMAND with "USER_COMMAND" and create FORM user_command.

case sy-ucomm.

when '&ICL.' --> for double click,

call transaction 'MM03'.

ENDFORM.

Regards

Kannaiah

[Former Member]

Hi,

U need to define User Command for this as follows

code CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

I_CALLBACK_PF_STATUS_SET = 'STATUS'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

IS_LAYOUT = L_LAYOUT

IT_FIELDCAT = IT_FIELDCAT_VBRK

IT_EVENTS =

TABLES

T_OUTTAB = IT_VBRK

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.

CLEAR GRID.

ENDIF.

ENDFORM. "FIRST_SCREEN_DISPLAY

&----

---

*& Form STATUS

&----

---

text

-

---

-->P_EXTAB text

-

---

FORM STATUS USING P_EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'STATUS' EXCLUDING P_EXTAB.

ENDFORM. "STATUS

&----

---

*& Form USER_COMMAND

&----

---

text

-

---

-->R_UCOMM text

-->RS_SELFIELD text

-

---

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

LEAVE TO SCREEN 2.

ENDIF.

ENDCASE.

ENDFORM. "USER_COMMAND[/code]

Regards,

Raj.

[Former Member]

hi check this..

http://www.sap-basis-abap.com/abap/to-call-transaction-in-alv.htm

regards,

venkat.

[Former Member]

Hi,

Have a look on the following code,u can get some idea.

TYPE-POOLS SLIS.

TYPES: BEGIN OF I_EKKO,

EBELN LIKE EKKO-EBELN,

AEDAT LIKE EKKO-AEDAT,

BUKRS LIKE EKKO-BUKRS,

BSART LIKE EKKO-BSART,

LIFNR LIKE EKKO-LIFNR,

END OF I_EKKO.

DATA: IT_EKKO TYPE STANDARD TABLE OF I_EKKO INITIAL SIZE 0,

WA_EKKO TYPE I_EKKO.

TYPES: BEGIN OF I_EKPO,

EBELN LIKE EKPO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

MENGE LIKE EKPO-MENGE,

MEINS LIKE EKPO-MEINS,

NETPR LIKE EKPO-NETPR,

END OF I_EKPO.

DATA: IT_EKPO TYPE STANDARD TABLE OF I_EKPO INITIAL SIZE 0,

WA_EKPO TYPE I_EKPO.

DATA: V_REPID TYPE SY-REPID,

I_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,

WA_FLDCAT TYPE SLIS_FIELDCAT_ALV,

I_FLDCAT1 TYPE SLIS_T_FIELDCAT_ALV,

WA_FLDCAT1 TYPE SLIS_FIELDCAT_ALV.

DATA: I_TITLE_EKKO TYPE LVC_TITLE VALUE 'FIRST ALV REPORT',

I_TITLE_EKPO TYPE LVC_TITLE VALUE 'SECONDARY ALV REPORT'.

INITIALIZATION.

V_REPID = SY-REPID.

PERFORM FLDCATALOG.

START-OF-SELECTION.

PERFORM DATA_RETRIEVAL.

PERFORM DISPLAY_ALV_REPORT.

FORM FLDCATALOG.

WA_FLDCAT-TABNAME = 'IT_EKKO'.

WA_FLDCAT-FIELDNAME = 'EBELN'.

WA_FLDCAT-SELTEXT_M = 'PO NUMBER'.

APPEND WA_FLDCAT TO I_FLDCAT.

CLEAR WA_FLDCAT.

WA_FLDCAT-TABNAME = 'IT_EKKO'.

WA_FLDCAT-FIELDNAME = 'AEDAT'.

WA_FLDCAT-SELTEXT_M = 'DATE'.

APPEND WA_FLDCAT TO I_FLDCAT.

CLEAR WA_FLDCAT.

WA_FLDCAT-TABNAME = 'IT_EKKO'.

WA_FLDCAT-FIELDNAME = 'BUKRS'.

WA_FLDCAT-SELTEXT_M = 'DOCUMENT TYPE'.

APPEND WA_FLDCAT TO I_FLDCAT.

CLEAR WA_FLDCAT.

WA_FLDCAT-TABNAME = 'IT_EKKO'.

WA_FLDCAT-FIELDNAME = 'LIFNR'.

WA_FLDCAT-SELTEXT_M = 'VENDOR CODE'.

APPEND WA_FLDCAT TO I_FLDCAT.

CLEAR WA_FLDCAT.

ENDFORM.

FORM DATA_RETRIEVAL.

SELECT EBELN AEDAT BUKRS BSART LIFNR

FROM EKKO INTO TABLE IT_EKKO.

ENDFORM.

FORM DISPLAY_ALV_REPORT.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = V_REPID

• I_CALLBACK_PF_STATUS_SET = ' '

I_CALLBACK_USER_COMMAND = '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_TITLE_EKKO

• I_GRID_SETTINGS =

• IS_LAYOUT =

IT_FIELDCAT = I_FLDCAT[]

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

I_SAVE = 'A'

• IS_VARIANT =

• IT_EVENTS = I_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

• I_HTML_HEIGHT_TOP = 0

• I_HTML_HEIGHT_END = 0

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• IR_SALV_FULLSCREEN_ADAPTER =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

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.

FORM USER_COMMAND USING R_COMM TYPE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

CASE R_COMM.

WHEN '&IC1'.

IF RS_SELFIELD-FIELDNAME = 'EBELN'.

SET PARAMETER ID 'BES' FIELD WA_EKKO-EBELN. " BES is data element of EBELN

READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.

PERFORM FLDCAT_EKPO.

PERFORM DATA_RETRIEVAL_EKPO.

PERFORM DISPLAY_ALV_REPORT_EKPO.

ENDIF.

ENDCASE.

ENDFORM.

FORM FLDCAT_EKPO.

WA_FLDCAT1-TABNAME = 'IT_EKPO'.

WA_FLDCAT1-FIELDNAME = 'EBELN'.

WA_FLDCAT1-SELTEXT_M = 'PO NUMBER'.

APPEND WA_FLDCAT1 TO I_FLDCAT1.

CLEAR WA_FLDCAT1.

WA_FLDCAT1-TABNAME = 'IT_EKPO'.

WA_FLDCAT1-FIELDNAME = 'EBELP'.

WA_FLDCAT1-SELTEXT_M = 'LINE NO'.

APPEND WA_FLDCAT1 TO I_FLDCAT1.

CLEAR WA_FLDCAT1.

WA_FLDCAT1-TABNAME = 'IT_EKPO'.

WA_FLDCAT1-FIELDNAME = 'MATNR'.

WA_FLDCAT1-SELTEXT_M = 'MATERIAL NUMBER'.

APPEND WA_FLDCAT1 TO I_FLDCAT1.

CLEAR WA_FLDCAT1.

WA_FLDCAT1-TABNAME = 'IT_EKPO'.

WA_FLDCAT1-FIELDNAME = 'MENGE'.

WA_FLDCAT1-SELTEXT_M = 'QUANTITY'.

APPEND WA_FLDCAT1 TO I_FLDCAT1.

CLEAR WA_FLDCAT1.

WA_FLDCAT1-TABNAME = 'IT_EKPO'.

WA_FLDCAT1-FIELDNAME = 'MEINS'.

WA_FLDCAT1-SELTEXT_M = 'BASE UNIT OF MEASURE'.

APPEND WA_FLDCAT1 TO I_FLDCAT1.

CLEAR WA_FLDCAT1.

WA_FLDCAT1-TABNAME = 'IT_EKPO'.

WA_FLDCAT1-FIELDNAME = 'NETPR'.

WA_FLDCAT1-SELTEXT_M = 'PRICE'.

APPEND WA_FLDCAT1 TO I_FLDCAT1.

CLEAR WA_FLDCAT1.

ENDFORM.

FORM DATA_RETRIEVAL_EKPO.

SELECT EBELN EBELP MATNR MENGE MEINS NETPR

INTO TABLE IT_EKPO

FROM EKPO.

ENDFORM.

FORM DISPLAY_ALV_REPORT_EKPO.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = V_REPID

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

• I_GRID_SETTINGS =

• IS_LAYOUT =

IT_FIELDCAT = I_FLDCAT1[]

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

I_SAVE = 'A'

• IS_VARIANT =

• IT_EVENTS = I_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

• I_HTML_HEIGHT_TOP = 0

• I_HTML_HEIGHT_END = 0

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• IR_SALV_FULLSCREEN_ADAPTER =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = IT_EKPO

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

REFRESH: IT_EKPO,I_FLDCAT1.

ENDFORM.

Change the above code to call the transaction,after the SET PARAMETER statement.

Reward,if useful.

Thanks,

Chandu

[Former Member]

Hi,

Refer this program for interactive alv.

REPORT ZSAMPLE.

TYPE-POOLS:SLIS.

TABLES:MARA, MAKT.

DATA: MYDATE(10).

TYPES:BEGIN OF TY_MARA,

MATNR TYPE MATNR,

ERSDA TYPE ERSDA,

ERNAM TYPE ERNAM,

LAEDA TYPE LAEDA,

END OF TY_MARA.

TYPES:BEGIN OF TY_MAKT,

MATNR TYPE MATNR,

MAKTX TYPE MAKTX,

MAKTG TYPE MAKTG,

END OF TY_MAKT.

DATA:IT_MARA TYPE TABLE OF TY_MARA,

WA_MARA TYPE TY_MARA.

DATA:IT_MAKT TYPE TABLE OF TY_MAKT,

WA_MAKT TYPE TY_MAKT.

DATA : IT_FIELDCAT_MARA TYPE SLIS_T_FIELDCAT_ALV,

WA_FIELDCAT_MARA TYPE SLIS_FIELDCAT_ALV.

DATA : IT_FIELDCAT_MAKT TYPE SLIS_T_FIELDCAT_ALV,

WA_FIELDCAT_MAKT TYPE SLIS_FIELDCAT_ALV.

DATA: I_EVENT TYPE SLIS_T_EVENT ,

W_EVENT TYPE SLIS_ALV_EVENT,

I_LISTHEADER TYPE SLIS_T_LISTHEADER,

W_LISTHEADER TYPE SLIS_LISTHEADER,

W_END TYPE SLIS_LISTHEADER,

I_END TYPE SLIS_T_LISTHEADER.

DATA:I_EXCLUDING TYPE SLIS_T_EXTAB,

W_EXCLUDING TYPE SLIS_EXTAB.

CONCATENATE SY-DATUM6(2) '/' SY-DATUM4(2) '/' SY-DATUM+0(4) INTO MYDATE .

CONSTANTS: C_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',

C_END_OF_PAGE TYPE SLIS_FORMNAME VALUE 'END_OF_LIST',

C_USER_COMMAND TYPE SLIS_FORMNAME VALUE 'USER_COMMAND'.

SELECTION-SCREEN:BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS:MATERIAL FOR MARA-MATNR.

SELECTION-SCREEN:END OF BLOCK B1.

START-OF-SELECTION.

PERFORM READ_DATA.

PERFORM FIELDCAT.

*PERFORM TOP-OF-PAGE.

*PERFORM END-OF-PAGE.

PERFORM EVENTS_GET USING I_EVENT.

*PERFORM TOP-OF-PAGE.

*PERFORM END-OF-PAGE.

PERFORM DISPLAY.

&----

---

*& Form READ_DATA

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM READ_DATA .

SELECT MATNR ERSDA ERNAM LAEDA FROM MARA INTO CORRESPONDING FIELDS OF TABLE IT_MARA WHERE MATNR IN MATERIAL.

ENDFORM. " READ_DATA

&----

---

*& Form FIELDCAT

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM FIELDCAT .

WA_FIELDCAT_MARA-FIELDNAME = 'MATNR'.

WA_FIELDCAT_MARA-TABNAME = 'IT_MARA'.

WA_FIELDCAT_MARA-emphasize = 'X'.

APPEND WA_FIELDCAT_MARA TO IT_FIELDCAT_MARA.

CLEAR WA_FIELDCAT_MARA.

WA_FIELDCAT_MARA-FIELDNAME = 'ERSDA'.

WA_FIELDCAT_MARA-TABNAME = 'IT_MARA'.

APPEND WA_FIELDCAT_MARA TO IT_FIELDCAT_MARA.

CLEAR WA_FIELDCAT_MARA.

WA_FIELDCAT_MARA-FIELDNAME = 'ERNAM'.

WA_FIELDCAT_MARA-TABNAME = 'IT_MARA'.

APPEND WA_FIELDCAT_MARA TO IT_FIELDCAT_MARA.

CLEAR WA_FIELDCAT_MARA.

WA_FIELDCAT_MARA-FIELDNAME = 'LAEDA'.

WA_FIELDCAT_MARA-TABNAME = 'IT_MARA'.

APPEND WA_FIELDCAT_MARA TO IT_FIELDCAT_MARA.

CLEAR WA_FIELDCAT_MARA.

ENDFORM. " FIELDCAT

&----

---

*& Form DISPLAY

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM DISPLAY .

W_EXCLUDING-FCODE = '&ETA'.

APPEND W_EXCLUDING TO I_EXCLUDING.

W_EXCLUDING-FCODE = '&OUP'.

APPEND W_EXCLUDING TO I_EXCLUDING.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

• I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE'

I_GRID_TITLE = 'MARA DETAILS'

IT_FIELDCAT = IT_FIELDCAT_MARA

IT_EXCLUDING = I_EXCLUDING

IT_EVENTS = I_EVENT

TABLES

T_OUTTAB = IT_MARA[]

.

ENDFORM. " DISPLAY

FORM USER_COMMAND USING USER_COMMAND LIKE SY-UCOMM USR TYPE SLIS_SELFIELD.

refresh it_makt.

SELECT * FROM MAKT INTO CORRESPONDING FIELDS OF TABLE IT_MAKT WHERE MATNR = USR-VALUE.

PERFORM FIELDCAT1.

PERFORM DISPLAY1.

ENDFORM.

&----

---

*& Form FIELDCAT1

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM FIELDCAT1 .

clear it_fieldcat_makt[].

WA_FIELDCAT_MAKT-FIELDNAME = 'MATNR'.

WA_FIELDCAT_MAKT-TABNAME = 'IT_MAKT'.

APPEND WA_FIELDCAT_MAKT TO IT_FIELDCAT_MAKT.

CLEAR WA_FIELDCAT_MAKT.

WA_FIELDCAT_MAKT-FIELDNAME = 'MAKTX'.

WA_FIELDCAT_MAKT-TABNAME = 'IT_MAKT'.

APPEND WA_FIELDCAT_MAKT TO IT_FIELDCAT_MAKT.

CLEAR WA_FIELDCAT_MAKT.

WA_FIELDCAT_MAKT-FIELDNAME = 'MAKTG'.

WA_FIELDCAT_MAKT-TABNAME = 'IT_MAKT'.

APPEND WA_FIELDCAT_MAKT TO IT_FIELDCAT_MAKT.

CLEAR WA_FIELDCAT_MAKT.

ENDFORM. " FIELDCAT1

&----

---

*& Form DISPLAY1

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM DISPLAY1 .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

IT_FIELDCAT = IT_FIELDCAT_MAKT

• TABLES

T_OUTTAB = IT_MAKT

ENDFORM. " DISPLAY1

&----

---

*& Form TOP-OF-PAGE

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM TOP_OF_PAGE .

CLEAR I_LISTHEADER.

W_LISTHEADER-TYP = 'H'.

W_LISTHEADER-INFO = 'MATERIALS DOCUMENT'.

APPEND W_LISTHEADER TO I_LISTHEADER.

CLEAR W_LISTHEADER.

W_LISTHEADER-TYP = 'S'.

W_LISTHEADER-KEY = 'DATE:'.

W_LISTHEADER-INFO = MYDATE.

APPEND W_LISTHEADER TO I_LISTHEADER.

CLEAR W_LISTHEADER.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = I_LISTHEADER

I_LOGO = 'ENJOYSAP_LOGO'

• I_END_OF_LIST_GRID =

I_ALV_FORM = 'X'

.

ENDFORM. " TOP-OF-PAGE

&----

---

*& Form EVENTS_GET

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM EVENTS_GET USING P_I_EVENT TYPE SLIS_T_EVENT..

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 4

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.

*ENDFORM. " EVENTS_GET

READ TABLE P_I_EVENT WITH KEY NAME = SLIS_EV_TOP_OF_PAGE INTO W_EVENT.

IF SY-SUBRC = 0.

MOVE C_TOP_OF_PAGE TO W_EVENT-FORM.

APPEND W_EVENT TO I_EVENT.

ENDIF.

READ TABLE P_I_EVENT WITH KEY NAME = SLIS_EV_END_OF_LIST INTO W_EVENT.

IF SY-SUBRC = 0.

MOVE C_END_OF_PAGE TO W_EVENT-FORM.

APPEND W_EVENT TO I_EVENT.

ENDIF.

READ TABLE P_I_EVENT WITH KEY NAME = SLIS_EV_USER_COMMAND INTO W_EVENT.

IF SY-SUBRC = 0.

MOVE C_USER_COMMAND TO W_EVENT-FORM.

APPEND W_EVENT TO I_EVENT.

ENDIF.

ENDFORM. " events_get

&----

---

*& Form END-OF-PAGE

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM END_OF_LIST .

W_END-TYP = 'S'.

W_END-INFO = 'END-OF-PAGE'.

APPEND W_END TO I_END.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = I_END

• I_LOGO = 'ENJOYSAP_LOGO'

• I_END_OF_LIST_GRID =

I_ALV_FORM = 'X'

.

ENDFORM. " END-OF-PAGE

Please reward points if helpful

[Former Member]

Hi,

Refer to the following code:

FORM f_user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

• Check field clicked on within ALVgrid report

case sy-ucomm.

when '&IC1&.

• To pass the document no in FB03 transaction

READ TABLE int_final INDEX rs_selfield-tabindex.

• Set parameter ID for transaction screen field

SET PARAMETER ID 'BLN' FIELD int_final-belnr.

SET PARAMETER ID 'BUK' FIELD int_final-bukrs.

SET PARAMETER ID 'GJR' FIELD int_final-gjahr.

• Execute transaction FB03, and skip initial data entry screen

CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.

ENDIF.

endcase.

ENDFORM. " f_user_command

Hope this helps.

Reward if helpful.

Regards,

Sipra