定时器简单例子.doc

ABAP：利用SAP定时器自动刷新ALV?? 2009-10-27 17:30:56|??分类： ABAP |??标签： |字号大中小?订阅 转自:/u2/86821/showart.php?id=2055218 ? 曾于无意之中发现，SAP系统中有个名为CL_GUI_TIMER的类，测试下来发现还是挺好用的，比网上那些自动刷新的例子直观多了。这里我们就做个演示实例。 先做好准备工作：建立程序z04_gui_timer及其屏幕0100，屏幕上画个CUSTOM CONTAINER作为ALV的容器。顺便可以画个退出按钮用于退出界面，这样就省得SET PF-STATUS了。 ? 下面就是我们的程序代码了，其实还是挺简单的： REPORT??ZABAP_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??OUTPUTMODULE?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?INPUTMODULE?user_command_0100?INPUT.??CASE?ok_code.????WHEN?EXIT.??????LEAVE?PROGRAM.????WHEN?OTHERS.??ENDCASE.ENDMODULE.??????????????????user_command_0100??INPUT******?CLASS?lcl_event_handler?DEFINITIONCLASS?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?IMPLEMENTATIONCLASS?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_timerENDCLASS.????????????????????lcl_event_handler?IMPLEMENTATION******?Form??init_0100FORM?init_0100.??SELECT?*?INTO?TABLE?gt_spfli????FROM?spfli?UP?TO?30?ROWS.??CREATE?OBJECT?go_container????EXPORTING??????container_name?=?CC_A