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

Posted 2020-08-23 小鱼儿游

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.

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