10-14-2008 1:19 PM
In basic list i have 2 fields,"BILL NO" and "Budget".If i click 'BILL NO' first interactive list should be displayed. and if i double clik on budget another list be displayed .
PLZ help me with sample code which matches my requirement.
Thanx in advance
10-14-2008 1:49 PM
Hi,
Hope this code may help you.
<code>
TYPES : BEGIN OF TY_ITAB,
KUNNR TYPE KUNNR,
NAME1 TYPE NAME1,
END OF TY_ITAB.
DATA : GT_ITAB TYPE TABLE OF TY_ITAB,
WA_ITAB TYPE TY_ITAB,
FIELDNAME(30).
SELECT KUNNR NAME1
FROM KNA1
INTO TABLE GT_ITAB
UP TO 10 ROWS.
ULINE.
WRITE :'Customer Number',50 'Customer Name'.
ULINE.
LOOP AT GT_ITAB INTO WA_ITAB.
WRITE 😕 WA_ITAB-KUNNR,50 WA_ITAB-NAME1.
ENDLOOP.
AT LINE-SELECTION.
GET CURSOR FIELD FIELDNAME.
CASE SY-LSIND.
WHEN 1.
IF FIELDNAME EQ 'WA_ITAB-KUNNR'.
************************CODE FOR FIRST LIST**********************
WRITE : 'CUSTOMER NUMBER'.
WRITE 😕 'CODE FOR FIRST LIST'.
ELSEIF FIELDNAME EQ 'WA_ITAB-NAME1'.
************************CODE FOR SECOND LIST**********************
WRITE : 'CUSTOMER NAME'.
WRITE 😕 'CODE FOR SECOND LIST'.
ENDIF.
ENDCASE.
<code>
check the code and write your code accordingly.
Regards.
10-14-2008 1:21 PM
Code accordingly in AT LINE-SELECTION event ....
sy-lsind is one more syst variable that may be useful to you..
Raghav
10-14-2008 1:21 PM
Hi...,
As of my knowledge, It is not possible with AT LINE_SELECTION event to navigate from 1 to 3 directly.
Make two push buttons on apllication tool bar and you can go for AT USER COMMND event.
Thanks,
Naveen.I
10-14-2008 1:49 PM
Hi,
Hope this code may help you.
<code>
TYPES : BEGIN OF TY_ITAB,
KUNNR TYPE KUNNR,
NAME1 TYPE NAME1,
END OF TY_ITAB.
DATA : GT_ITAB TYPE TABLE OF TY_ITAB,
WA_ITAB TYPE TY_ITAB,
FIELDNAME(30).
SELECT KUNNR NAME1
FROM KNA1
INTO TABLE GT_ITAB
UP TO 10 ROWS.
ULINE.
WRITE :'Customer Number',50 'Customer Name'.
ULINE.
LOOP AT GT_ITAB INTO WA_ITAB.
WRITE 😕 WA_ITAB-KUNNR,50 WA_ITAB-NAME1.
ENDLOOP.
AT LINE-SELECTION.
GET CURSOR FIELD FIELDNAME.
CASE SY-LSIND.
WHEN 1.
IF FIELDNAME EQ 'WA_ITAB-KUNNR'.
************************CODE FOR FIRST LIST**********************
WRITE : 'CUSTOMER NUMBER'.
WRITE 😕 'CODE FOR FIRST LIST'.
ELSEIF FIELDNAME EQ 'WA_ITAB-NAME1'.
************************CODE FOR SECOND LIST**********************
WRITE : 'CUSTOMER NAME'.
WRITE 😕 'CODE FOR SECOND LIST'.
ENDIF.
ENDCASE.
<code>
check the code and write your code accordingly.
Regards.
10-15-2008 5:39 AM