Skip to Content
0
Apr 08, 2010 at 06:01 AM

how to get values of selected rows in basic list...

302 Views

Hi guys,

I want to display secondary list as hierarchical list based on the nor of records selected in basic list . i am selecting lines by clicking on check boxes in basic list , but i am not able to display , i am getting secondary list only one check box selected row , which is last check box in selected check boxes.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = lv_repid

I_CALLBACK_PF_STATUS_SET = 'PFS'

I_CALLBACK_USER_COMMAND = 'USER_COMM'

I_CALLBACK_TOP_OF_PAGE = 'TOP'

IS_LAYOUT = GS_LAYOUT

IT_FIELDCAT = GT_FCAT[]

TABLES

T_OUTTAB = GT_EKKO[]

ENDFORM.

FORM USER_COMM USING L_UCOMM TYPE SY-UCOMM

L_SELFIELD TYPE SLIS_SELFIELD .

DATA : BEGIN OF L_EBELN OCCURS 0 ,

EBELN TYPE EBELN ,

END OF L_EBELN .

CASE L_SELFIELD-FIELDNAME .

WHEN 'CHK_BOX' .

CLEAR GS_EKKO-CHK_BOX .

LOOP AT GT_EKKO INTO GS_EKKO.

GS_EKKO-CHK_BOX = 'X' .

MODIFY GT_EKKO INDEX L_SELFIELD-TABINDEX FROM GS_EKKO TRANSPORTING CHK_BOX .

READ TABLE GT_EKKO INTO GS_EKKO INDEX L_SELFIELD-TABINDEX.

ENDLOOP.

IF GS_EKKO-CHK_BOX = 'X' .

  • L_EBELN = GS_EKKO-EBELN.

MOVE-CORRESPONDING GS_EKKO TO L_EBELN .

APPEND L_EBELN .

ENDIF.

ENDCASE.

CASE L_UCOMM .

WHEN '&IC1'.

READ TABLE GT_EKKO INTO GS_EKKO INDEX L_SELFIELD-TABINDEX.

  • MOVE-CORRESPONDING GS_EKKO .

WHEN 'BACK' .

LEAVE PROGRAM .

WHEN 'DISPLAY' .

*READ TABLE GT_EKKO INTO GS_EKKO with key g.

loop at Gt_EKKO into GS_EKKO where CHK_BOX = 'X' .

SELECT EBELN

EBELP

AEDAT

MATNR

FROM EKPO INTO TABLE GT_EKPO

WHERE EBELN = GS_EKKO-EBELN .

ENDLOOP.

WA_KEYINFO-HEADER01 = 'EBELN' .

WA_KEYINFO-ITEM01 = 'EBELN' .

WA_KEYINFO-ITEM02 = 'EBELP' .

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

I_CALLBACK_PROGRAM = SY-REPID

IS_LAYOUT = GS_LAYOUT

IT_FIELDCAT = GT_FCAT1[]

I_TABNAME_HEADER = 'GT_EKKO'

I_TABNAME_ITEM = 'GT_EKPO'

IS_KEYINFO = WA_KEYINFO

TABLES

T_OUTTAB_HEADER = GT_EKKO

T_OUTTAB_ITEM = GT_EKPO

ENDCASE.

ENDFORM .

I want know how to get values of selected rows in basic list , so that i can pass them to fetch values from item tables .

Regards

Chetan