User client windows logon basic data

在新增/刪除/修改資料時，常需要log使用者的基本資料，但使用者的IP Address、Windows帳號及電腦名稱在syst中又找不到。

FUNCTION zbc_get_user_info.
*"----------------------------------------------------------------------
*"*"區域介面：
*"  EXPORTING
*"     REFERENCE(R_IPADD) TYPE EWAWA_IPADDRESS               User IP Address
*"     REFERENCE(R_STAMP) TYPE ZTIMESTAMP Time Stamp         Time Stamp
*"     REFERENCE(R_OSUSER) TYPE /BEV2/ED_GEN_TABLEDATA       OS User Name
*"     REFERENCE(R_DOMAIN) TYPE /BEV2/ED_GEN_TABLEDATA       Domain
*"     REFERENCE(R_DNSDOMAIN) TYPE /BEV2/ED_GEN_TABLEDATA    DNS Domain
*"     REFERENCE(R_COMPUTERNAME) TYPE /BEV2/ED_GEN_TABLEDATA Computer Name
*"----------------------------------------------------------------------
  DATA: l_hostaddr1    TYPE  msxxlist-hostadr,
        l_hostaddr2(8) TYPE c,
        itimes         TYPE i,
        itimes1        TYPE i,
        hx(2),
        result         TYPE i,
        resulttxt(3),
        iptxt(15),
        l_time         TYPE timestampl,
        l_timestamp(9) TYPE c.

  GET TIME STAMP FIELD l_time.
  l_timestamp = FRAC( l_time )."l_time.
  l_timestamp = l_timestamp+2(7).
  REPLACE ALL OCCURRENCES OF '.' IN l_timestamp WITH ''.
  r_stamp = l_timestamp.    "時間戳記

*Get Computer name
  CALL METHOD cl_gui_frontend_services=>get_computer_name
    CHANGING
      computer_name        = r_computername
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

* Get IP Address
  CALL METHOD cl_gui_frontend_services=>get_ip_address
    RECEIVING
      ip_address           = r_ipadd
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 99.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

*Get OS User name
  CALL METHOD cl_gui_frontend_services=>get_user_name
    CHANGING
      user_name            = r_osuser
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

*因為Get Domain及Get DNS Domain需要SAP GUI端另放行權限，

*若沒有需求，可以將該兩段Mark.

**Get Domain
*  CALL METHOD cl_gui_frontend_services=>environment_get_variable
*    EXPORTING
*      variable             = 'USERDOMAIN'
*    CHANGING
*      value                = r_domain
*    EXCEPTIONS
*      cntl_error           = 1
*      error_no_gui         = 2
*      not_supported_by_gui = 3
*      OTHERS               = 4.
*
*  IF sy-subrc <> 0.
*    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*  ENDIF.
*
**Get DNS Domain
*  CALL METHOD cl_gui_frontend_services=>environment_get_variable
*    EXPORTING
*      variable             = 'USERDNSDOMAIN'
*    CHANGING
*      value                = r_dnsdomain
*    EXCEPTIONS
*      cntl_error           = 1
*      error_no_gui         = 2
*      not_supported_by_gui = 3
*      OTHERS               = 4.
*
*  IF sy-subrc <> 0.
*    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
*  ENDIF.


*Flush
  CALL METHOD cl_gui_cfw=>flush
    EXCEPTIONS
      cntl_system_error = 1
      cntl_error        = 2
      OTHERS            = 3.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFUNCTION.