获取当前登录人的角色（role）

 data: ui_profile type ref to if_crm_ui_profile,
         ui_profile_name type string.
 ui_profile = cl_crm_ui_profile=>get_instance( ).
 ui_profile_name = ui_profile->get_profile( ).


CASE UI_PROFILE_NAME.
 WHEN 'ZCAS_SL_AREA'.
  SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_item
    FROM ZTA_OPPO_HEAD
    WHERE ZZAFLD000080 = 'X' AND ( STATUS = 'E0001' OR STATUS =  'E0002' OR STATUS = 'E0003').
 WHEN 'ZCAS_SL_DITR'.
   SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_item
    FROM ZTA_OPPO_HEAD
    WHERE ZZAFLD000064 = 'X' AND ( STATUS = 'E0001' OR STATUS =  'E0002' OR STATUS = 'E0003').
 WHEN OTHERS.
  ENDCASE