ABAP实现屏幕自己刷新和跳转功能

SET TITLEBAR ' 屏幕自动程序'.

IF g_contine_no IS INITIAL.
CREATE OBJECT gr_timer.
CREATE OBJECT gr_app_timer.
SET HANDLER gr_app_timer->handle_get_brgew FOR gr_timer.

"0.5S 刷新一次
gr_timer->interval = '0.5'.
CALL METHOD gr_timer->run.

"计数器，刷新6次获取重量
g_count = g_count + 1.
IF g_count GE 6.
g_contine_no = 'X'.
"停止刷新标识
g_refresh_no = 'X'.
ENDIF.
ENDIF.

IF  sy-ucomm <> 'ENTER'.
CREATE OBJECT gr_timer.
CREATE OBJECT gr_app_timer.
SET HANDLER gr_app_timer->handle_callback FOR gr_timer.
gr_timer->interval = '1'.
CALL METHOD gr_timer->run.
ENDIF.