|
*encontre este que es mas ilustrativo con dos get late.
NODES: spfli, sflight, sbook.
DATA free_seats LIKE sflight-seatsocc.
CONSTANTS line_size LIKE sy-linsz VALUE 83.
SELECTION-SCREEN BEGIN OF BLOCK NAME
WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS so_date for sbook-order_date.
SELECTION-SCREEN END OF BLOCK NAME.
GET spfli FIELDS carrid connid cityfrom airpfrom cityto airpto.
FORMAT COLOR COL_HEADING INTENSIFIED OFF.
WRITE: / sy-vline, spfli-carrid, spfli-connid, spfli-cityfrom,
spfli-airpfrom, spfli-cityto,spfli-airpto,
AT line_size sy-vline.
GET sflight FIELDS fldate price currency planetype seatsmax seatsocc.
free_seats = sflight-seatsmax - sflight-seatsocc.
FORMAT COLOR COL_NORMAL INTENSIFIED ON.
WRITE: / sy-vline, sflight-fldate,
sflight-price CURRENCY sflight-currency, sflight-currency, sflight-planetype,
free_seats, sflight-seatsocc, sflight-seatsmax,
AT line_size sy-vline.
GET sbook FIELDS bookid customid smoker luggweight wunit order_date.
CHECK so_date.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
WRITE : / sy-vline, sbook-bookid, sbook-customid, sbook-smoker,
sbook-luggweight UNIT sbook-wunit, sbook-wunit, sbook-order_date,
AT line_size sy-vline.
GET spfli LATE.
ULINE.
write '##################################'.
new-PAGE.
GET sflight LATE.
write '***********************************'.
ULINE.
|