next_line 할때 내려가지 않습니다.
아래처럼 수정하면 됩니다.
screen
PROCESS AFTER INPUT.
LOOP AT gt_zemp.
MODULE read_tcontrol.
MODULE USER_COMMAND_0100.
ENDLOOP.
-------------------------------
MODULE READ_TCONTROL INPUT.
*gv_lines = sy-loopc. "NEXT_LINE로 할때 gv_limit = gv_fill - gv_lines + 1 계속 1 입니다.
gv_lines = sy-stepl. "이렇게 수정해놓으면 line 번호를 가져올수 있습니다.
MODIFY gt_zemp from zfqj1emp
INDEX ZCONFQJ1EMP-current_line.
ENDMODULE. " READ_TCONTROL INPUT
-------------------------------
MODULE USER_COMMAND_0100 INPUT.
save_ok = ok_code.
clear ok_code.
CASE save_ok.
WHEN 'NEXT_LINE'.
zconfqj1emp-top_line = zconfqj1emp-top_line + 1.
gv_limit = gv_fill - gv_lines + 1.
IF zconfqj1emp-top_line > gv_limit.
zconfqj1emp-top_line = gv_limit.
ENDIF.
WHEN 'PREV_LINE'.
zconfqj1emp-top_line = zconfqj1emp-top_line - 1.
IF zconfqj1emp-top_line < 0.
zconfqj1emp-top_line = 0.
ENDIF.
ENDCASE.
ENDMODULE.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
공지 | EASY ABAP 2.0 전체 오탈자 파일 [2] | sapjoy | 2013.10.12 | 5910 |
» | easy abap 2.0에서 p689 gv_lines = sy-loopc | abaper_qj | 2014.06.14 | 1812 |
4 | 1016p 오타 | 토끼고기 | 2013.11.22 | 2277 |
3 | 145p | sapjoy | 2014.06.20 | 1692 |
2 | Easy ABAP Programming p401 | 모포 | 2014.08.26 | 1821 |
1 | eazy abap 2.0 교재 123쪽 표준편차, 분산 질문 드립니다. | CHUSY | 2022.04.15 | 264 |