转自http://blog.sina.com.cn/s/blog_701594f40100l8ms.html
ABAP：利用SAP定时器自动刷新ALV
曾于无意之中发现，SAP系统中有个名为CL_GUI_TIMER的类，测试下来发现还是挺好用的，比网上那些自动刷新的例子直观多了。这里我们就做个演示实例。
先做好准备工作：建立程序z04_gui_timer及其屏幕0100，屏幕上画个CUSTOM CONTAINER作为ALV的容器。顺便可以画个退出按钮用于退出界面，这样就省得SET PF-STATUS了。
下面就是我们的程序代码了，其实还是挺简单的：
REPORT z04_gui_timer.
CLASS lcl_event_handler DEFINITION DEFERRED.
DATA: ok_code LIKE sy-ucomm,
go_timer TYPE
REF TO cl_gui_timer,
go_evt_hndl TYPE REF TO
lcl_event_handler.
DATA: gt_spfli TYPE TABLE OF spfli,
go_grid
TYPE REF TO cl_gui_alv_grid,
go_container TYPE
REF TO cl_gui_custom_container.
START-OF-SELECTION.
CALL SCREEN 0100.
****** Module status_9000 OUTPUT
MODULE status_0100
OUTPUT.
DATA: g_init TYPE flag.
CLEAR ok_code.
IF
g_init IS INITIAL.
g_init = 'X'.
PERFORM init_0100.
ENDIF.
ENDMODULE.
" status_0100 OUTPUT
****** Module user_command_0100 INPUT
MODULE user_command_0100
INPUT.
CASE ok_code.
WHEN
'EXIT'.
LEAVE PROGRAM.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
" user_command_0100 INPUT
****** CLASS lcl_event_handler DEFINITION
CLASS lcl_event_handler
DEFINITION.
PUBLIC SECTION.
METHODS:
handle_timer FOR EVENT finished OF
cl_gui_timer.
ENDCLASS.
"lcl_event_handler DEFINITION
****** CLASS lcl_event_handler IMPLEMENTATION
CLASS lcl_event_handler
IMPLEMENTATION.
METHOD handle_timer.
DELETE
gt_spfli INDEX 1.
CALL METHOD
go_grid->refresh_table_display.
* CALL METHOD
go_timer->cancel
*
EXCEPTIONS
* OTHERS =
9.
CALL METHOD go_timer->run
"必须重新激活定时器
EXCEPTIONS
OTHERS = 9.
ENDMETHOD.
"handle_timer
ENDCLASS.
"lcl_event_handler IMPLEMENTATION
****** Form init_0100
FORM init_0100.
SELECT * INTO TABLE
gt_spfli
FROM spfli UP TO 30 ROWS.
CREATE OBJECT
go_container
EXPORTING
container_name = 'CC_ALV'.
CREATE OBJECT go_grid
EXPORTING
i_parent = go_container.
CALL METHOD go_grid->set_table_for_first_display
EXPORTING
i_structure_name =
'SPFLI'
CHANGING
it_outtab = gt_spfli.
CREATE OBJECT go_evt_hndl.
CREATE OBJECT
go_timer
EXCEPTIONS
OTHERS = 9.
SET HANDLER go_evt_hndl->handle_timer FOR
go_timer.
go_timer->interval = 3. "设置间隔为3秒
CALL METHOD
go_timer->run
EXCEPTIONS
OTHERS =
9.
ENDFORM.
" init_0100
说明：
(1) lcl_event_handler是自定义的类，用于处理cl_gui_timer的EVENT ‘finished’；
(2) 定时器的用法与VC、DELPHI有所不同，上次定时事件处理完毕后，必须CALL METHOD
go_timer->run重新激活，如此循环；
(3) 定时器并不会自动触发PAI事件，如有必要则可以在handle_timer中CALL METHOD
cl_gui_cfw=>set_new_ok_code来触发；
(4) 虽然我们的例子是基于screen的，但是基于List也是完全可行的。