REPORT z16_002.
CONTROLS flights TYPE TABLEVIEW USING SCREEN 100.
DATA: ok_code TYPE sy-ucomm,
save_ok TYPE sy-ucomm.
DATA: itab TYPE TABLE OF demo_conn,
fill TYPE i.
TABLES demo_conn.
DATA: lines TYPE i,
limit TYPE i.
SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE itab.
CALL SCREEN 100.
MODULE status_0100 OUTPUT.
SET PF-STATUS 'SCREEN_100'.
DESCRIBE TABLE itab LINES fill.
flights-lines = fill.
ENDMODULE.
MODULE fill_table_control OUTPUT.
READ TABLE itab INTO demo_conn INDEX flights-current_line.
ENDMODULE.
MODULE cancel INPUT.
LEAVE PROGRAM.
ENDMODULE.
MODULE read_table_control INPUT.
lines = sy-loopc.
MODIFY itab FROM demo_conn INDEX flights-current_line.
ENDMODULE.
MODULE user_command_0100 INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN 'NEXT_LINE'.
flights-top_line = flights-top_line + 1.
limit = fill - lines + 1.
IF flights-top_line > limit.
flights-top_line = limit.
ENDIF.
WHEN 'PREV_LINE'.
flights-top_line = flights-top_line - 1.
IF flights-top_line < 0.
flights-top_line = 0.
ENDIF.
WHEN 'NEXT_PAGE'.
flights-top_line = flights-top_line + lines.
limit = fill - lines + 1.
IF flights-top_line > limit.
flights-top_line = limit.
ENDIF.
WHEN 'PREV_PAGE'.
flights-top_line = flights-top_line - lines.
IF flights-top_line < 0.
flights-top_line = 0.
ENDIF.
WHEN 'LAST_PAGE'.
flights-top_line = fill - lines + 1.
WHEN 'FIRST_PAGE'.
flights-top_line = 0.
ENDCASE.
ENDMODULE.
댓글 0
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 570 | REPORT z15_09. | sapjoy | 2012.08.01 | 967 |
| 569 | REPORT z14_19. | sapjoy | 2012.08.01 | 968 |
| 568 | REPORT z10_09. | sapjoy | 2012.07.30 | 969 |
| 567 | REPORT z05_07. | sapjoy | 2012.07.30 | 970 |
| 566 | REPORT z07_03. | sapjoy | 2012.07.30 | 970 |
| 565 | REPORT z05_29. | sapjoy | 2012.07.30 | 974 |
| 564 | REPORT z12_04. | sapjoy | 2012.07.30 | 976 |
| 563 | REPORT Z12_17. | sapjoy | 2012.07.30 | 981 |
| 562 | REPORT z15_08. | sapjoy | 2012.08.01 | 982 |
| 561 | REPORT z17_10 . | sapjoy | 2012.08.01 | 985 |
| 560 | REPORT z09_02. | sapjoy | 2012.07.30 | 992 |
| 559 | REPORT z12_07. | sapjoy | 2012.07.30 | 994 |
| 558 | REPORT z12_32. | sapjoy | 2012.07.30 | 994 |
| 557 | REPORT z17_08 . | sapjoy | 2012.08.01 | 994 |
| 556 | REPORT z05_06. | sapjoy | 2012.07.30 | 996 |
| 555 | REPORT z05_19. | sapjoy | 2012.07.30 | 996 |
| 554 | REPORT z05_03. | sapjoy | 2012.07.30 | 998 |
| 553 | REPORT Z12_16. | sapjoy | 2012.07.30 | 998 |
| 552 | REPORT z12_25. | sapjoy | 2012.07.30 | 999 |
| 551 | REPORT z14_06. [1] | sapjoy | 2012.08.01 | 1007 |
