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.
一个完整小程序的源代码为：自动刷新屏幕小程序
原创文章，作者：Maggie-Hunter，如若转载，请注明出处：https://blog.ytso.com/18406.html