批量修改角色权限字段值

DATA: lt_roles         TYPE          if_pfcg_role=>tt_pfcg_role    , ls_role          TYPE          if_pfcg_role=>ty_pfcg_role    , lt_node_root     TYPE          if_pfcg_role=>node_tt_root    , lr_node_root     TYPE REF TO   if_pfcg_role=>node_st_root    , lt_messages      TYPE          if_spcg_msg_buffer=>tt_messages    , ls_auth          TYPE          if_pfcg_role=>node_st_auth_auths    , lt_auth_auths    TYPE          if_pfcg_role=>node_tt_auth_auths    , ls_auth_values   TYPE          if_pfcg_role=>node_st_auth_values    , lt_auth_values   TYPE          if_pfcg_role=>node_tt_auth_values    , ls_timestamp     TYPE          if_pfcg_role=>ty_timestamp    , lv_rejected      TYPE          abap_bool    , lo_msg_buffer    TYPE REF TO   if_spcg_msg_buffer    , lt_org_in        TYPE          if_pfcg_role=>node_tt_org_values    , ls_org           TYPE          if_pfcg_role=>node_st_org_values    , lv_subrc         TYPE          sy-subrc    .DATA lt_return TYPE STANDARD TABLE OF  bapiret2 WITH HEADER LINE.TRY.    "PFCG 角色名称    ls_role-role = 'Z_BR_ADMINISTRATOR'.    APPEND ls_role TO lt_roles.
    "获取角色对象    CALL METHOD cl_pfcg_role_factory=>retrieve_for_update      EXPORTING        it_pfcg_role  = lt_roles      IMPORTING        et_node_root  = lt_node_root        eo_msg_buffer = lo_msg_buffer.
    CALL METHOD lo_msg_buffer->get_messages      RECEIVING        et_messages = lt_messages.
    IF lt_node_root IS INITIAL.      RETURN.    ENDIF.
    LOOP AT lt_node_root REFERENCE INTO lr_node_root.
      "获取角色下所有权限对象      CALL METHOD lr_node_root->role_ref->if_pfcg_role_authorization~get_auths        IMPORTING          et_auth_auths = lt_auth_auths          eo_msg_buffer = lo_msg_buffer.
      "获取单个权限对象      READ TABLE lt_auth_auths INTO ls_auth                               WITH KEY object   = 'BEH_SUBSCR'.      IF sy-subrc EQ 0.        CLEAR: ls_auth_values.        ls_auth_values-field       = 'ACTVT'.        ls_auth_values-low         = '06'.        ls_auth_values-change_mode = 'I'.         " <--- INSERT        APPEND ls_auth_values TO lt_auth_values.
        "更改权限字段值        CALL METHOD lr_node_root->role_ref->if_pfcg_role_authorization~set_values_for_auth          EXPORTING            is_auth        = ls_auth            it_auth_values = lt_auth_values          IMPORTING            eo_msg_buffer  = lo_msg_buffer.
        CALL METHOD lo_msg_buffer->get_messages          EXPORTING            iv_role     = lr_node_root->role          RECEIVING            et_messages = lt_messages.        IF lt_messages IS NOT INITIAL.          lv_rejected = abap_true.        ENDIF.

*        " 更改组织权限字段值*        CLEAR: ls_org.*        ls_org-varbl       = '$PLVAR'.*        ls_org-low         = '01'.*        ls_org-change_mode = 'I'.*        APPEND ls_org TO lt_org_in.**        CALL METHOD lr_node_root->role_ref->if_pfcg_role_authorization~set_org_values*          EXPORTING*            it_org_values = lt_org_in*          IMPORTING*            eo_msg_buffer = lo_msg_buffer.**        CALL METHOD lo_msg_buffer->get_messages*          EXPORTING*            iv_role     = lr_node_root->role*          RECEIVING*            et_messages = lt_messages.*        IF lt_messages IS NOT INITIAL.*            lv_rejected = abap_true.*        ENDIF.      ENDIF.    ENDLOOP.
    CHECK lv_rejected = abap_false.
    " -- Check    CALL METHOD cl_pfcg_role_factory=>do_check      IMPORTING        ev_rejected   = lv_rejected        eo_msg_buffer = lo_msg_buffer.
    CALL METHOD lo_msg_buffer->get_messages      RECEIVING        et_messages = lt_messages.
    " -- Save    IF lv_rejected EQ abap_false.      CALL METHOD cl_pfcg_role_factory=>do_save        EXPORTING          iv_update_task = abap_false        IMPORTING          ev_rejected    = lv_rejected          eo_msg_buffer  = lo_msg_buffer          es_timestamp   = ls_timestamp.
      CALL METHOD lo_msg_buffer->get_messages        RECEIVING          et_messages = lt_messages.
      IF  lv_rejected EQ abap_false.        COMMIT WORK.        "生成角色参数文件        CALL FUNCTION 'PRGN_GEN_PROFILES_FOR_ROLES'          TABLES            it_roles  = lt_roles            et_return = lt_return.
      ELSE.        ROLLBACK WORK.      ENDIF.    ENDIF.
  CATCH cx_pfcg_role.
ENDTRY.