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 + 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.

一個完整小程序的源代碼為：自動刷新屏幕小程序