Application Development and Automation 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: 
Read only

interactive report

Former Member
0 Likes
393

Dear experts,

i want to navigate from 3rd detail list to the 4th detail list.but in the third detail list i have checkboxes infront of every records.and if i mark that checkbox and double click on the record whose checkbox got marked then only i can move to the 4th detail list displaying the detail information regarding that record only.if any coding is available then kindly suggest.

thank u to u all

pritee

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
367

TABLES:

SPFLI,

SFLIGHT.

DATA:

T_SPFLI LIKE STANDARD TABLE OF SPFLI,

T_SFLIGHT LIKE STANDARD TABLE OF SFLIGHT,

BOX TYPE C,

W_LINES type i.

START-OF-SELECTION.

SELECT CARRID CONNID AIRPFROM AIRPTO DEPTIME ARRTIME FROM SPFLI INTO CORRESPONDING FIELDS OF TABLE T_SPFLI.

END-OF-SELECTION.

LOOP AT T_SPFLI INTO SPFLI.

WRITE:/ BOX AS CHECKBOX,

SPFLI-CARRID,

SPFLI-CONNID,

SPFLI-AIRPFROM,

SPFLI-AIRPTO,

SPFLI-DEPTIME,

SPFLI-ARRTIME.

HIDE SPFLI-CARRID.

HIDE SPFLI-CONNID.

ENDLOOP.

SET PF-STATUS 'TEST'.

AT USER-COMMAND.

CASE sy-ucomm.

WHEN 'DISPLAY'.

DESCRIBE TABLE t_spfli LINES w_lines .

W_LINES = W_LINES + 2.

DO W_LINES TIMES.

READ LINE sy-index FIELD VALUE box.

IF BOX = 'X'.

WRITE:

/ 'CARRID:', spfli-carrid,

'CONNID:',spfli-connid.

ULINE.

SELECT FLDATE SEATSMAX SEATSOCC FROM SFLIGHT INTO CORRESPONDING FIELDS OF TABLE T_SFLIGHT

WHERE CARRID = SPFLI-CARRID AND CONNID = SPFLI-CONNID.

LOOP AT T_SFLIGHT INTO sflight.

WRITE:

/ SFLIGHT-FLDATE,

SFLIGHT-SEATSMAX,

SFLIGHT-SEATSOCC.

MODIFY CURRENT LINE FIELD FORMAT BOX INPUT OFF.

BOX = SPACE.

MODIFY CURRENT LINE FIELD VALUE BOX.

ENDLOOP.

ULINE.

ENDIF.

ENDDO.

WHEN 'SELECTALL'.

DO W_LINES TIMES.

READ LINE sy-index FIELD VALUE box.

BOX = 'X'.

MODIFY CURRENT LINE FIELD VALUE BOX.

ENDDO.

WHEN 'DESELECT'.

DO W_LINES TIMES.

READ LINE sy-index FIELD VALUE box.

IF BOX = 'X'.

BOX = SPACE.

MODIFY CURRENT LINE FIELD VALUE BOX.

ENDIF.

ENDDO.

endcase.

I think it will helps u much better.

2 REPLIES 2
Read only

Former Member
0 Likes
368

TABLES:

SPFLI,

SFLIGHT.

DATA:

T_SPFLI LIKE STANDARD TABLE OF SPFLI,

T_SFLIGHT LIKE STANDARD TABLE OF SFLIGHT,

BOX TYPE C,

W_LINES type i.

START-OF-SELECTION.

SELECT CARRID CONNID AIRPFROM AIRPTO DEPTIME ARRTIME FROM SPFLI INTO CORRESPONDING FIELDS OF TABLE T_SPFLI.

END-OF-SELECTION.

LOOP AT T_SPFLI INTO SPFLI.

WRITE:/ BOX AS CHECKBOX,

SPFLI-CARRID,

SPFLI-CONNID,

SPFLI-AIRPFROM,

SPFLI-AIRPTO,

SPFLI-DEPTIME,

SPFLI-ARRTIME.

HIDE SPFLI-CARRID.

HIDE SPFLI-CONNID.

ENDLOOP.

SET PF-STATUS 'TEST'.

AT USER-COMMAND.

CASE sy-ucomm.

WHEN 'DISPLAY'.

DESCRIBE TABLE t_spfli LINES w_lines .

W_LINES = W_LINES + 2.

DO W_LINES TIMES.

READ LINE sy-index FIELD VALUE box.

IF BOX = 'X'.

WRITE:

/ 'CARRID:', spfli-carrid,

'CONNID:',spfli-connid.

ULINE.

SELECT FLDATE SEATSMAX SEATSOCC FROM SFLIGHT INTO CORRESPONDING FIELDS OF TABLE T_SFLIGHT

WHERE CARRID = SPFLI-CARRID AND CONNID = SPFLI-CONNID.

LOOP AT T_SFLIGHT INTO sflight.

WRITE:

/ SFLIGHT-FLDATE,

SFLIGHT-SEATSMAX,

SFLIGHT-SEATSOCC.

MODIFY CURRENT LINE FIELD FORMAT BOX INPUT OFF.

BOX = SPACE.

MODIFY CURRENT LINE FIELD VALUE BOX.

ENDLOOP.

ULINE.

ENDIF.

ENDDO.

WHEN 'SELECTALL'.

DO W_LINES TIMES.

READ LINE sy-index FIELD VALUE box.

BOX = 'X'.

MODIFY CURRENT LINE FIELD VALUE BOX.

ENDDO.

WHEN 'DESELECT'.

DO W_LINES TIMES.

READ LINE sy-index FIELD VALUE box.

IF BOX = 'X'.

BOX = SPACE.

MODIFY CURRENT LINE FIELD VALUE BOX.

ENDIF.

ENDDO.

endcase.

I think it will helps u much better.

Read only

0 Likes
367

THANK U VERY MUCH LAVANYA.

MY PROBLEM GOT SOLVED.

THANKS AGAIN

PRITEE