Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

Interactive Reporting

Former Member
0 Kudos

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

1 ACCEPTED SOLUTION

Former Member
0 Kudos

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.

4 REPLIES 4

former_member182354
Contributor
0 Kudos

Code accordingly in AT LINE-SELECTION event ....

sy-lsind is one more syst variable that may be useful to you..

Raghav

naveen_inuganti2
Active Contributor
0 Kudos

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

Former Member
0 Kudos

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.

0 Kudos

Thanku Rock ur solution solved my requirement