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

ABAP开发工程中，有时候需要让跳转出的屏幕自动实现跳转和刷新的功能，该功能的实现需要在屏幕PBO 里面调用相应的事件执行。

关键代码为：

  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 + .
    IF g_count GE .
      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 = ''.
    CALL METHOD gr_timer->run.
  ENDIF.

一个完整小程序的源代码为：自动刷新屏幕小程序