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