SAP 使用cl_gui_timer自动刷新屏幕的用法详解

*&---------------------------------------------------------------------*
*& Report Y_XB_TEST1
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Y_XB_TEST1 NO STANDARD PAGE HEADING.

CLASS lcl_event_handler DEFINITION DEFERRED.

DATA: go_timer    TYPE REF TO cl_gui_timer,

      go_evt_hndl TYPE REF TO lcl_event_handler,

      gv_datum    TYPE sy-datum,
      gv_uzeit    TYPE sy-uzeit.

*&---------------------------------------------------------------------*

*&      START-OF-SELECTION

*&---------------------------------------------------------------------*

START-OF-SELECTION.
  gv_datum = sy-datum.
  gv_uzeit = sy-uzeit.

  PERFORM list_output.

  PERFORM init_timer.

*&---------------------------------------------------------------------*

*&      USER-COMMAND

*&---------------------------------------------------------------------*

AT USER-COMMAND.

  IF sy-ucomm = 'RFSH'.
    sy-lsind = sy-lsind - 1.

    PERFORM list_output.
  ENDIF.

*&---------------------------------------------------------------------*

*&      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.

    CALL METHOD cl_gui_cfw=>set_new_ok_code
      EXPORTING
        new_code = 'RFSH'.

    CALL METHOD go_timer->run "必须重新激活定时器
      EXCEPTIONS
        OTHERS = 9.

  ENDMETHOD.                 "handle_timer

ENDCLASS.                    "lcl_event_handler IMPLEMENTATION

*&---------------------------------------------------------------------*

*&      Form  INIT_TIMER

*&---------------------------------------------------------------------*

FORM init_timer.

  CHECK go_timer IS INITIAL.

  CREATE OBJECT go_timer
    EXCEPTIONS
      OTHERS = 9.

  CREATE OBJECT go_evt_hndl.

  SET HANDLER go_evt_hndl->handle_timer FOR go_timer.


  go_timer->interval = 5.  "设置间隔为10秒

  CALL METHOD go_timer->run "激活定时器
    EXCEPTIONS
      OTHERS = 9.

ENDFORM.                    " INIT_TIMER
*&---------------------------------------------------------------------*
*& Form LIST_OUTPUT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM list_output .
  DATA: datediff TYPE p,
        timediff TYPE p DECIMALS 2.

  datediff = sy-datum - gv_datum.
  timediff = ( sy-uzeit - gv_uzeit ) / 60.

  WRITE: /5 '本次开始时间：' ,AT 30 gv_datum , AT 45 gv_uzeit.
  WRITE: /5 '本次运行时长：' ,AT 30 datediff LEFT-JUSTIFIED,
                              AT 38 '天' ,
                              at 45 timediff LEFT-JUSTIFIED ,
                              AT 51 '分'.

ENDFORM.

DATA GO_TIMER TYPE REF TO CL_GUI_TIMER .
DATA: GV_INDEX TYPE N LENGTH 2 ,
      GV_TMP TYPE N LENGTH 2 ,
      GV_OKCODE TYPE SY-UCOMM .

DATA: HH TYPE C LENGTH 2 , "记录时分秒
      FF TYPE C LENGTH 2 ,
      MM TYPE C LENGTH 2 .

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.
    PERFORM FRM_PROCESS_TIMER.

  ENDMETHOD.                 "handle_timer
ENDCLASS.                    "lcl_event_handler IMPLEMENTATION
DATA GO_EVT_HNDL TYPE REF TO LCL_EVENT_HANDLER .

INITIALIZATION .



START-OF-SELECTION  .

  CALL SCREEN 0100 .
*&---------------------------------------------------------------------*
*& Form FRM_PROCESS_TIMER
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM FRM_PROCESS_TIMER .

  CALL METHOD CL_GUI_CFW=>SET_NEW_OK_CODE "强制触发PAI
    EXPORTING
      NEW_CODE = 'RFSH'.
  CALL METHOD GO_TIMER->RUN "
    EXCEPTIONS
      OTHERS = 9.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form INIT_TIMER
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM INIT_TIMER .
 IF GO_TIMER IS INITIAL.
    CREATE OBJECT GO_TIMER
      EXCEPTIONS
        OTHERS = 9.
    CREATE OBJECT GO_EVT_HNDL.
    SET HANDLER GO_EVT_HNDL->HANDLE_TIMER FOR GO_TIMER.

    GO_TIMER->INTERVAL = 1.  "设置间隔为1秒
    CALL METHOD GO_TIMER->RUN "激活定时器
      EXCEPTIONS
        OTHERS = 9.
  ELSE .
    CALL METHOD GO_TIMER->RUN "重新激活定时器
     EXCEPTIONS
       OTHERS = 9.
 ENDIF .
ENDFORM.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'STATUS_0100'.
* SET TITLEBAR 'xxx'.
  PERFORM INIT_TIMER .
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
 CASE GV_OKCODE.
 	WHEN 'BACK'.
 	  LEAVE TO SCREEN 0 .
  WHEN  'RFSH'.
    GV_INDEX = GV_INDEX + 1 .
    CLEAR GV_TMP.
    GV_TMP = GV_INDEX DIV 3600 . "获取小时
    HH = GV_TMP .
    CLEAR  GV_TMP .
    GV_TMP = GV_INDEX DIV 60 . "获取分钟
    FF = GV_TMP .
    CLEAR GV_TMP .
    GV_TMP  = GV_INDEX MOD 60 . "获取秒
     MM = GV_TMP .
 	WHEN OTHERS.
 ENDCASE.
ENDMODULE.