取登录用户的成本中心

FUNCTION Z02HR_USERID_TO_CC.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_USRID) LIKE  P0105-USRID
*"  EXPORTING
*"     REFERENCE(E_KOSTL) TYPE  KOSTL
*"----------------------------------------------------------------------

  DATA L_PERNR LIKE PA0001-PERNR.

  DATA L_ORGEH LIKE PA0001-ORGEH.

  CALL FUNCTION 'RP_GET_PERNR_FROM_USERID'

    EXPORTING

      BEGDA     = SY-DATUM

      ENDDA     = SY-DATUM

      USRID     = I_USRID

      USRTY     = '0001'

    IMPORTING

      USR_PERNR = L_PERNR

    EXCEPTIONS

      RETCD     = 1

      OTHERS    = 2.

  IF SY-SUBRC EQ 0.

    SELECT SINGLE ORGEH

      INTO L_ORGEH FROM PA0001

      WHERE BEGDA LE SY-DATUM

      AND ENDDA GE SY-DATUM.

    IF SY-SUBRC EQ 0.

      CALL FUNCTION '/ISDFPS/AC_GET_COSTCENTER'

        EXPORTING

          PLVAR      = '01'

          OTYPE      = 'O'

          OBJID      = L_ORGEH

          BEGDA      = SY-DATUM

          ENDDA      = SY-DATUM

        IMPORTING

          COSTCENTER = E_KOSTL.

    ENDIF.

  ENDIF.

ENDFUNCTION.