ABAP：利用SAP定時器自動刷新ALV

曾于無意之中發現，SAP系統中有個名為CL_GUI_TIMER的類，測試下來發現還是挺好用的，比網上那些自動刷新的例子直觀多了。這里我們就做個演示實例。

先做好準備工作：建立程序z04_gui_timer及其屏幕0100，屏幕上畫個CUSTOMCONTAINER作為ALV的容器。順便可以畫個退出按鈕用于退出界面，這樣就省得SET PF-STATUS了。

下面就是我們的程序代碼了，其實還是挺簡單的：

REPORT? z04_gui_timer.

CLASS lcl_event_handler DEFINITION DEFERRED.

DATA: ok_code LIKE sy-ucomm,
????? go_timer TYPE REF TOcl_gui_timer,
????? go_evt_hndl TYPE REF TOlcl_event_handler.

DATA: gt_spfli TYPE TABLE OF spfli,
????? go_grid TYPE REF TOcl_gui_alv_grid,
????? go_container TYPE REF TOcl_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 OFcl_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 METHODgo_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 METHODgo_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 FORgo_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 METHODgo_timer->run重新激活，如此循環；

(3) 定時器并不會自動觸發PAI事件，如有必要則可以在handle_timer中CALL METHODcl_gui_cfw=>set_new_ok_code來觸發；

(4) 雖然我們的例子是基于screen的，但是基于List也是完全可行的。

總結

以上是生活随笔為你收集整理的ABAP：利用SAP定时器自动刷新ALV的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。