SAP CRM 客户关系管理-创建业务角色配置

新建业务角色

创建对象类型（新复制一个类）

配置新的页面

加入代码

METHOD do_config_determination.

    CALL METHOD super->do_config_determination

      EXPORTING

        iv_first_time = iv_first_time.

    DATA: lv_link_parameter       TYPE char100,

          lv_object_type          TYPE bsp_dlc_object_type,

          lv_object_sub_type      TYPE bsp_dlc_object_sub_type,

          lv_propagate_2_children TYPE abap_bool,

          lt_objectsub            TYPE TABLE OF zles_objectsub,

          ls_objectsub            TYPE zles_objectsub.

    DATA lv_business_role   TYPE crmt_ui_profile.

    CALL FUNCTION 'ZFM_LES_GET_BUSINESS_ROLE'

      IMPORTING

        ev_business_role = lv_business_role.

    IF lv_business_role = 'ZLEAS_CDDBX'.

      SELECT SINGLE * INTO ls_objectsub  FROM zles_objectsub  （对象类型子类型动态配置表）

        WHERE object_type = 'ZLES_UI_ZLES67'

          AND sub_type    = 'CDDBX'.

      IF sy-subrc = 0 .

        lv_object_type     = ls_objectsub-object_type .

        lv_object_sub_type = ls_objectsub-sub_type .

      ENDIF.

    ELSE.

      lv_object_type     = 'DEFAULT'.

      lv_object_sub_type = 'DEFAULT'.

    ENDIF.

    lv_propagate_2_children = abap_true.

    CALL METHOD me->set_config_keys

      EXPORTING

        iv_object_type          = lv_object_type

        iv_object_sub_type      = lv_object_sub_type

        iv_propagate_2_children = lv_propagate_2_children.

  ENDMETHOD.