SAP ABAP编程 取得用户中文名称

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

***取得用户中文名称

DATAg_sheet_jsr TYPE string.  "用户中文名称
  DATAL_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_persnumberl_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

DATAG_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 .


  • 0
    点赞
  • 6
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值