根据用户ID获取对应描述

转载自：http://blog.csdn.net/qinyuezhan/article/details/42100719

有时候我们知道SAP当前用户登录的ID，也就是SY-UNAME，可以取得用户中文名称，如下：

***取得用户中文名称
DATA: g_sheet_jsr TYPE string.  "用户中文名称
  DATA: L_DEPARTMENT  TYPE AD_DPRTMNT,
        L_ADDRNUMBER  TYPE AD_ADDRNUM,
        L_PERSNUMBER  TYPE AD_PERSNUM,
        L_UNAME       TYPE SY-UNAME,
        L_NAME_FIRST  TYPE AD_NAMEFIR,
        L_NAME_LAST   TYPE AD_NAMELAS.
***取得用户中文名称
  SELECT SINGLE persnumber addrnumber INTO
        (l_persnumber, l_addrnumber)
      FROM usr21
      WHERE bname = SY-UNAME.
  IF sy-subrc = 0.
    SELECT SINGLE name_first name_last INTO (l_name_first,l_name_last)
    FROM adrp
    WHERE persnumber = l_persnumber.
    IF sy-subrc = 0.
      CONCATENATE l_name_last  l_name_first INTO g_sheet_jsr.
      CONDENSE g_sheet_jsr NO-GAPS.  "去掉空格字符
    ENDIF.
  ENDIF.


write: g_sheet_jsr.

还有一种更加简便的方法就是调用PABI
DATA: G_FULL_NAME    TYPE AD_NAMTEXT,  "用户中文名称
      G_NAME_FIRST   TYPE AD_NAMEFIR,
      G_NAME_LAST    TYPE AD_NAMELAS.

      CALL FUNCTION 'FDM_CUST_USER_NAME_READ_SINGLE'
        EXPORTING
          I_USER_ID   = SY-UNAME
        IMPORTING
          E_FIRSTNAME = G_NAME_FIRST
          E_LASTNAME  = G_NAME_LAST
*         E_FULLNAME  =
        .
      IF SY-SUBRC = 0.
        CONCATENATE G_NAME_LAST  G_NAME_FIRST INTO G_FULL_NAME .
        CONDENSE G_FULL_NAME  NO-GAPS.  "去掉空格字符
      ENDIF.

 

 

write: G_FULL_NAME .

 

 

 

 

HANA中封装成通用格式

TYPES:BEGIN OF ty_usr21,
            bname     TYPE usr21-bname,
            name_text TYPE adrp-name_text,
          END OF ty_usr21.

TYPES: tt_usr21      TYPE STANDARD TABLE OF ty_usr21 WITH EMPTY KEY

***方法定义

    "用户名
    METHODS get_desc_userid
      IMPORTING
                VALUE(clnt)   TYPE sy-mandt
      RETURNING VALUE(tt_out) TYPE tt_usr21.

***方法实施

   METHOD get_desc_userid BY DATABASE FUNCTION FOR HDB
                         LANGUAGE SQLSCRIPT
                         OPTIONS READ-ONLY
                         USING usr21 adrp.
    RETURN
        SELECT
         a.bname,
         b.name_text
         from usr21 as a
         inner join adrp as b on a.mandt = b.client
                              and a.persnumber = b.persnumber
         where a.mandt = :clnt
         AND   b.client = :clnt;
  ENDMETHOD.