topic Re: Interactive ALV in Application Development and Automation Discussions

Interactive ALV

Former Member — Mon, 20 Nov 2006 10:18:39 GMT

Hi all,

I am printing a basic ALV list.

when the user clicks on the hotspot FIELD second ALV list should be generate corresponding to that clicked field.So,how to do that.

With thanks,

Chinmay.

Re: Interactive ALV

Former Member — Mon, 20 Nov 2006 10:20:16 GMT

Use AT LINE-SELECTION event.

-Mohan.

*Reward if helpful*

Re: Interactive ALV

amit_khare — Mon, 20 Nov 2006 10:21:01 GMT

Hi,

check this link.

Regards,

Amit

Re: Interactive ALV

Former Member — Mon, 20 Nov 2006 10:31:54 GMT

good

go to se38 and give this program name

BCALV_GRID_02 ,

test this than write the program accordingly.

thanks

mrutyun^

Re: Interactive ALV

Former Member — Mon, 20 Nov 2006 10:34:11 GMT

Hi Chinmay ,

check given program ,

&----

*& Report Z7RNP_ALV_SO *

*& *

&----

*& NAME : RAVINDRA PATIL *

*& REPORT : SALES ORDER INTRACTIVE REPORT *

*& DATE : 17/07/2006 *

&----

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

With Regards ,

Ravindra

Re: Interactive ALV

former_member69765 — Mon, 20 Nov 2006 10:34:20 GMT

Very simple....

Refer this code... here I am doing call transaction... instead u just have to call another ALV.. i.e again call the ALV_LIST_DISPLAY function with another internal table....

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

&----

*& Report Z_ALV_TRAINING_LIST_HOTSPOT

&----

REPORT Z_ALV_TRAINING_LIST_HOTSPOT.

Type Pools Used **********

TYPE-POOLS : SLIS.

Internal Tables Declare ************

DATA : it_document type standard table of bkpf initial size 0 with header line,

IT_FIELD_CAT TYPE SLIS_T_FIELDCAT_ALV,

it_alv_event type SLIS_T_EVENT,

fl_layout type slis_layout_alv.

Select Data ***********

start-of-selection.

select * from bkpf into table it_document.

Make Field Catalog ******

PERFORM MAKE_FIELD_CATALOG.

Make Layout *********

perform sub_fill_layout.

Make Events Table *******

perform sub_Fill_alv_event.

Display ALV *********

PERFORM DISPLAY_ALV_LIST.

----

&----

*& Form make_field_catalog

&----

text

----

--> p1 text
<-- p2 text

----

FORM MAKE_FIELD_CATALOG .

data : wa type slis_fieldcat_alv.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_PROGRAM_NAME =
I_INTERNAL_TABNAME =

I_STRUCTURE_NAME = 'bkpf'

I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

CHANGING

CT_FIELDCAT = it_field_cat

EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 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.

read table it_field_cat into wa index 3.

wa-hotspot = 'X'.

modify it_field_cat index 3 from wa.

ENDFORM. " make_field_catalog

&----

*& Form display_alv_list

&----

text

----

--> p1 text
<-- p2 text

----

FORM DISPLAY_ALV_LIST .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = sy-repid

I_CALLBACK_PF_STATUS_SET = 'SET_MY_PF_STATUS'
I_CALLBACK_USER_COMMAND = ' '

IS_LAYOUT = fl_layout

IT_FIELDCAT = it_field_cat[]

IT_SORT =
I_DEFAULT = 'X'

I_SAVE = 'X'

IS_VARIANT = '/TEST_VV'

IT_EVENTS = it_alv_event

TABLES

T_OUTTAB = it_document.

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_list

&----

*& Form sub_my_pf_event

&----

text

----

--> p1 text
<-- p2 text

----

FORM sub_my_pf_event using p_comm type sy-ucomm p_sEL_FIELD TYPE SLIS_SELFIELD.

read table it_document index p_sel_field-tabindex.

set parameter id 'BLN' field it_document-belnr.

set parameter id 'BUK' field it_document-bukrs.

set parameter id 'GJR' field it_document-gjahr.

case p_comm.

when 'PICK'.

call transaction 'FB03' and skip first screen.

endcase.

ENDFORM. " sub_my_pf_event

&----

*& Form sub_Fill_alv_event

&----

text

----

--> p1 text
<-- p2 text

----

FORM sub_Fill_alv_event .

data : wa type slis_alv_event.

wa-name = 'USER_COMMAND'.

wa-form = 'SUB_MY_PF_EVENT'.

append wa to it_alv_event.

ENDFORM. " sub_Fill_alv_event

&----

*& Form sub_fill_layout

&----

text

----

--> p1 text
<-- p2 text

----

FORM sub_fill_layout .

fl_layout-f2code = 'PICK'.

fl_layout-box_fieldname = 'BELNR'.

ENDFORM. " sub_fill_layout

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

Hope this was helpful....

Please reward points if it was of any help....

Re: Interactive ALV

Former Member — Mon, 20 Nov 2006 10:43:22 GMT

Hi,

check the code n execute it.

&----

report zkeerthi_alv5 .

&----

*& tables declaration

&----

tables: vbrk,vbrp.

&----

*& type-pools declaration

&----

type-pools: slis.

&----

*& data declaration

&----

data: g_repid type sy-repid.

data : it_fieldcat type slis_t_fieldcat_alv, "mara

wa_fieldcat type slis_fieldcat_alv,

wa_layout type slis_layout_alv,

wa_event type slis_alv_event,

t_event type slis_t_event.

data: v_vbeln like vbrk-vbeln,

v_matnr like vbrp-matnr.

data: begin of it_vbrk occurs 0,

vbeln like vbrk-vbeln,

waerk like vbrk-waerk,

vkorg like vbrk-vkorg,

fkdat like vbrk-fkdat,

bukrs like vbrk-bukrs,

netwr like vbrk-netwr,

end of it_vbrk.

data: begin of it_vbrp occurs 0,

vbeln like vbrp-vbeln,

posnr like vbrp-posnr,

fkimg like vbrp-fkimg,

vrkme like vbrp-vrkme,

netwr like vbrp-netwr,

matnr like vbrp-matnr,

arktx like vbrp-arktx,

end of it_vbrp.

&----

*& selection screen

&----

selection-screen begin of block b with frame title text-001.

select-options: s_vbeln for vbrk-vbeln,

s_fkdat for vbrk-fkdat,

s_matnr for vbrp-matnr.

selection-screen end of block b.

**INITIALIZATION.

initialization.

g_repid = sy-repid.

s_fkdat-low = sy-datum - 200.

s_fkdat-high = sy-datum.

append s_fkdat.

***AT SELECTION-SCREEN.

at selection-screen.

if not s_vbeln is initial.

select single vbeln from vbrk

into v_vbeln

where vbeln in s_vbeln.

if sy-subrc <> 0.

message e001(zz2).

endif.

if not s_matnr is initial.

select single matnr from mara

into v_matnr

where matnr in s_matnr.

if sy-subrc <> 0.

message e001(zz2).

endif.

***START-OF-SELECTION.

start-of-selection.

perform get_data_vbrk.

&----

*& Form GET_DATA_VBRK

&----

text

----

--> p1 text
<-- p2 text

----

form get_data_vbrk .

select vbeln

waerk

vkorg

fkdat

bukrs

netwr

into table it_vbrk

from vbrk

where vbeln in s_vbeln

and fkdat in s_fkdat.

endform. " GET_DATA_VBRK

&----

*& Form GET_DATA_VBRP

&----

text

----

--> p1 text
<-- p2 text

----

form get_data_vbrp .

select vbeln

posnr

fkimg

vrkme

netwr

matnr

arktx

from vbrp

into table it_vbrp

where vbeln = it_vbrk-vbeln.

endform. " GET_DATA_VBRP

***END-OF-SELECTION.

end-of-selection.

perform event_list.

perform get_field_catalog.

perform list_disp .

form list_disp .

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

i_callback_program = g_repid

I_CALLBACK_PF_STATUS_SET = 'POPUP'

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_GRID_SETTINGS =
IS_LAYOUT = WA_LAYOUT

it_fieldcat = it_fieldcat

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

endform. " LIST_DISP

&----

*& Form GET_FIELD_CATALOG

&----

text

----

--> p1 text
<-- p2 text

----

form get_field_catalog .

call function 'REUSE_ALV_FIELDCATALOG_MERGE'

exporting

i_program_name = g_repid

i_internal_tabname = 'IT_VBRK'

I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'

i_inclname = g_repid

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

changing

ct_fieldcat = it_fieldcat

exceptions

inconsistent_interface = 1

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

endform. " GET_FIELD_CATALOG

&----

*& Form event_list

&----

text

----

--> p1 text
<-- p2 text

----

form event_list .

clear wa_event.

wa_event-name = 'USER_COMMAND'.

wa_event-form = 'USER_COMMAND'.

append wa_event to t_event.

clear wa_event.

endform. " event_list

form user_command using r_ucomm like sy-ucomm

rs_selfield type slis_selfield.

case r_ucomm.

when '&IC1'.

read table it_vbrk index rs_selfield-tabindex.

perform get_data_vbrp.

perform build_fieldcatalog_vbrp .

perform display_alv_vbrp.

endcase.

endform.

&----

*& Form BUILD_FIELDCATALOG_VBRP

&----

text

----

--> p1 text
<-- p2 text

----

form build_fieldcatalog_vbrp .

call function 'REUSE_ALV_FIELDCATALOG_MERGE'

exporting

i_program_name = g_repid

i_internal_tabname = 'IT_VBRP'

I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'

i_inclname = g_repid

I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =

changing

ct_fieldcat = it_fieldcat

exceptions

inconsistent_interface = 1

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

endform. " BUILD_FIELDCATALOG_VBRP

&----

*& Form DISPLAY_ALV_VBRP

&----

text

----

--> p1 text
<-- p2 text

----

form display_alv_vbrp .

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

i_callback_program = g_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_GRID_SETTINGS =
IS_LAYOUT =

it_fieldcat = it_fieldcat

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_vbrp

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_VBRP

Regards,

keerthi

Re: Interactive ALV

Former Member — Mon, 20 Nov 2006 10:43:35 GMT

main logic of secondary list..........

first of all enable the HOTSPOT property for that field in the fieldcatalog to "X'.

Now do the following in user-command

FORM user_command USING u_ucomm TYPE syucomm

us_selfield TYPE slis_selfield. "#EC CALLED

CASE u_ucomm.

WHEN '&IC1'.

*Call the second ALV here

ENDCASE.

ENDFORM.

Re: Interactive ALV

Former Member — Mon, 20 Nov 2006 10:44:16 GMT

Hello,

Use AT LINE-SELECTION event. See the BCALV_GRID_* programs in se38.

Regards,

Shehryar Dahar

Message was edited by:

shehryar dahar

Re: Interactive ALV

Former Member — Mon, 20 Nov 2006 10:49:06 GMT

try THIS

ILAYOUT TYPE SLIS_LAYOUT_ALV.

ILAYOUT-F2CODE = '&ETA&.

PASS THE ILAYOUT TO REUSE_ALV_GRID_DISPLAY.

SHIBA PRASAD DUTTA