获取用户的业务角色

FUNCTION z_get_business_role.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(IV_USERNAME) TYPE  SY-UNAME DEFAULT SY-UNAME
*"  TABLES
*"      ET_PROFILE TYPE  CRMT_UI_PROFILE_TABLE
*"----------------------------------------------------------------------

  DATA lv_uername TYPE sy-uname.
  DATA lv_crm_ui_profile TYPE crmt_ic_profile.
  DATA lt_profile_table TYPE crmt_ui_profile_table.
  DATA ls_profile_table LIKE LINE OF lt_profile_table.
  DATA lr_profile_determination TYPE REF TO cl_crm_ui_profile_determ.

  lv_uername = iv_username.
  TRANSLATE lv_uername TO UPPER CASE.
  CREATE OBJECT lr_profile_determination.
  IF lr_profile_determination->load_profiles( iv_user = lv_uername ) = 'X'.
    lt_profile_table = lr_profile_determination->get_profiles_nested( ).
  ENDIF.
  et_profile[] = lt_profile_table[].
ENDFUNCTION.