SAP登入增强

CMOD->SUSR0001

参考代码

*&---------------------------------------------------------------------*
*&  INCLUDE           ZXUSRU01
*&---------------------------------------------------------------------*
TABLES:ZLOGIN_LOG.

DATA: it_ZLOGIN_LOG  LIKE TABLE OF ZLOGIN_LOG WITH HEADER LINE.

DATA: g_stamp_time  TYPE timestampl,
      g_stamp_str   TYPE con_fin_wq_timestamp,
      IP_ADDRESS    TYPE STRING,
      COMPUTER_NAME TYPE STRING.

  CLEAR it_ZLOGIN_LOG.

  GET TIME STAMP FIELD g_stamp_time.

    CALL FUNCTION 'CON_FIN_WQ_CONVERT_TS'
      EXPORTING
        id_timestampl = g_stamp_time
      IMPORTING
        ed_timestamp  = it_ZLOGIN_LOG-TIMESTAMP.  "主键.


    CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_IP_ADDRESS
    RECEIVING
    IP_ADDRESS = IP_ADDRESS.


    CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_COMPUTER_NAME
    CHANGING
    COMPUTER_NAME = COMPUTER_NAME.

     CALL METHOD cl_gui_cfw=>update_view.

    it_ZLOGIN_LOG-BNAME      = SY-UNAME.
    it_ZLOGIN_LOG-LOGIN_DATE = SY-DATUM.
    it_ZLOGIN_LOG-LOGIN_TIME = SY-UZEIT.
    it_ZLOGIN_LOG-HOST_NAME  = COMPUTER_NAME.
    it_ZLOGIN_LOG-HOST_IP    = IP_ADDRESS.
    it_ZLOGIN_LOG-CLIENT     = SY-MANDT.


    APPEND it_ZLOGIN_LOG.

    MODIFY ZLOGIN_LOG FROM TABLE it_ZLOGIN_LOG.