How to fetch the Current Business Role selected by User in Web UI.

DATA : ls_user_role TYPE string,
           lr_profile_instance TYPE REF TO if_crm_ui_profile.

lr_profile_instance = cl_crm_ui_profile=>get_instance( ).

CALL METHOD lr_profile_instance->get_profile
     RECEIVING
          rv_result = ls_user_role.

The variable ls_user_role contains the Business Role selected by the user.

                                        (or)

DATA:  lr_profile TYPE REF TO if_crm_ui_profile,
           lv_business_role TYPE string.

* Get the Profile for the Current User

  lr_profile = cl_crm_ui_profile=>get_instance( ).
  lv_business_role = lr_profile->get_profile( ).

The variable lv_business_role contains the Business Role selected by the user.

This code is valid for CRM 7.0 onwards.