‎2010 Aug 16 8:54 AM
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
‎2010 Aug 16 10:50 AM
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.
‎2010 Aug 16 10:50 AM
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.
‎2010 Aug 17 8:21 AM
THANK U VERY MUCH LAVANYA.
MY PROBLEM GOT SOLVED.
THANKS AGAIN
PRITEE