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.

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