【SAP-ABAP】-权限批导-批量分配角色给具体用户

需求：SAP期初上线的时候，业务顾问经常会遇到批量创建角色和分配角色权限的情况

岗位需求：一般是业务顾问定义权限，BASIS进行后期运维，今天讲两个批导功能，方便期初上线

此程序功能：给具体用户分配多角色

代码如下

*&---------------------------------------------------------------------*
*& Report  Y_YZD_TEST11
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
 
REPORT  Y_YZD_TEST11.
 
TABLES: sscrfields.
 
TYPES: BEGIN OF ty_list,
         uname     TYPE usnam,
         pname     TYPE agr_name,
         msg(1024),
       END OF ty_list.
 
DATA: gt_list TYPE STANDARD TABLE OF ty_list,
      gt_usrs TYPE STANDARD TABLE OF ty_list.
* OLE使用变量
DATA: gv_excel       TYPE ole2_object,
      gv_application TYPE ole2_object,
      gv_wbook       TYPE ole2_object,
      gv_sheet       TYPE ole2_object,
      go_error       TYPE REF TO i_oi_error,
      go_document    TYPE REF TO i_oi_document_proxy,
      go_container   TYPE REF TO cl_gui_custom_container,
      go_control     TYPE REF TO i_oi_container_control,
      go_spreadsheet TYPE REF TO i_oi_spreadsheet.
 
*----------------------------------------------------------------------*
* CONSTANTS
*----------------------------------------------------------------------*
CONSTANTS: cns_left TYPE i VALUE 1,
           cns_top  TYPE i VALUE 2,
           cns_col  TYPE i VALUE 2.
 
*----------------------------------------------------------------------*
* SELECTION-SCREEN
*----------------------------------------------------------------------*
* 选择屏幕
SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE TEXT-t01.
PARAMETERS: p_file  TYPE string OBLIGATORY.
SELECTION-SCREEN FUNCTION KEY 1.
PARAMETERS:p_rec TYPE i OBLIGATORY.
SELECTION-SCREEN END OF BLOCK bk1.
 
*----------------------------------------------------------------------*
* INITIALIZATION
*----------------------------------------------------------------------*
INITIALIZATION.
* 初始化对象
  PERFORM frm_init_prog.
 
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
* 运行前的相关检查
  PERFORM frm_check_ref.
 
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
* 得到文件路径
  PERFORM frm_get_file_path.
 
*&---------------------------------------------------------------------*
* START-OF-SELECTION
*&---------------------------------------------------------------------*
START-OF-SELECTION.
* 处理导入数据
  PERFORM frm_upload_sheets .
 
*&---------------------------------------------------------------------*
*&      Form  FRM_INIT_PROG
*&---------------------------------------------------------------------*
*       text:初始化OLE对象
*----------------------------------------------------------------------*
FORM frm_init_prog .
 
  CALL METHOD c_oi_container_control_creator=>get_container_control
    IMPORTING
      control = go_control
      error   = go_error.
  IF go_error->has_failed = abap_true.
    CALL METHOD go_error->raise_message
      EXPORTING
        type = 'E'.
  ENDIF.
 
  CREATE OBJECT go_container
    EXPORTING
      container_name              = 'CONT'
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5
      OTHERS                      = 6.
  IF sy-subrc <> 0.
    MESSAGE  'Error while creating container' TYPE 'E'.
  ENDIF.
 
  CALL METHOD go_control->init_control
    EXPORTING
      inplace_enabled      = abap_true
      r3_application_name  = 'EXCEL CONTAINER'
      parent               = go_container
    IMPORTING
      error                = go_error
    EXCEPTIONS
      javabeannotsupported = 1
      OTHERS               = 2.
  IF go_error->has_failed = abap_true.
    CALL METHOD go_error->raise_message
      EXPORTING
        type = 'E'.
  ENDIF.
 
  CALL METHOD go_control->get_document_proxy
    EXPORTING
      document_type  = soi_doctype_excel_sheet
    IMPORTING
      document_proxy = go_document
      error          = go_error.
  IF go_error->has_failed = abap_true.
    CALL METHOD go_error->raise_message
      EXPORTING
        type = 'E'.
  ENDIF.
 
ENDFORM.                    " FRM_INIT_PROG
*&---------------------------------------------------------------------*
*&      Form  FRM_CHECK_REF
*&---------------------------------------------------------------------*
*       text：检查文件是否存在
*----------------------------------------------------------------------*
FORM frm_check_ref .
  DATA lv_ret TYPE abap_bool.
*   将路径全部转换为大写
  TRANSLATE p_file TO UPPER CASE.
  IF p_file IS NOT INITIAL.
*     检查文件是否存在
    CALL METHOD cl_gui_frontend_services=>file_exist
      EXPORTING
        file                 = p_file
      RECEIVING
        result               = lv_ret
      EXCEPTIONS
        cntl_error           = 1
        error_no_gui         = 2
        wrong_parameter      = 3
        not_supported_by_gui = 4
        OTHERS               = 5.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    IF lv_ret NE abap_true.
      MESSAGE TEXT-t02 TYPE 'E'.
    ENDIF.
  ENDIF.
ENDFORM.                    " FRM_CHECK_INPUT
 
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_FILE_PATH
*&---------------------------------------------------------------------*
*       text：取得文件路径
*----------------------------------------------------------------------*
FORM frm_get_file_path .
 
  DATA: lt_filetab TYPE filetable.
  DATA: lv_rc TYPE i.
 
* 取得文件路径
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = '导入文件'
      default_extension       = '*.xls'
      file_filter             = cl_gui_frontend_services=>filetype_excel
    CHANGING
      file_table              = lt_filetab
      rc                      = lv_rc
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
 
  IF lt_filetab IS NOT INITIAL.
    READ TABLE lt_filetab INTO p_file INDEX 1.
  ENDIF.
 
ENDFORM.                    " FRM_GET_FILE_PATH
*&---------------------------------------------------------------------*
*&      Form  FRM_UPLOAD_SHEETS
*&---------------------------------------------------------------------*
*       text:上传Excel内容
*----------------------------------------------------------------------*
FORM frm_upload_sheets .
  DATA: lwa_list        TYPE ty_list,
        lv_flag,
        lv_document_url TYPE c LENGTH 256,
        lv_sheet_name   TYPE soi_field_name,
        lt_data         TYPE soi_generic_table,
        lt_ranges       TYPE soi_range_list,
        lt_range        TYPE soi_dimension_table,
        ls_range        TYPE soi_dimension_item,
        lv_str          TYPE string.
  lv_sheet_name = 'Assets'.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
*     percentage = progress
      text = TEXT-t03.
  " open document
  CONCATENATE 'FILE://' p_file INTO lv_document_url.
  CALL METHOD go_document->open_document
    EXPORTING
      document_title = TEXT-t05
      document_url   = lv_document_url
      open_inplace   = abap_true
    IMPORTING
      error          = go_error.
  IF go_error->has_failed = abap_true.
    CALL METHOD go_error->raise_message
      EXPORTING
        type = 'I'.
    LEAVE LIST-PROCESSING.
  ENDIF.
 
  " get sheet interface
  CALL METHOD go_document->get_spreadsheet_interface
    EXPORTING
      no_flush        = ' '
    IMPORTING
      error           = go_error
      sheet_interface = go_spreadsheet.
  IF go_error->has_failed = abap_true.
    CALL METHOD go_error->raise_message
      EXPORTING
        type = 'I'.
    LEAVE LIST-PROCESSING.
  ENDIF.
  ls_range-row     = cns_top.
  ls_range-column  = cns_left.
  ls_range-rows    = p_rec.
  ls_range-columns = cns_col.
  APPEND ls_range TO lt_range.
  " get sheet content
  CALL METHOD go_spreadsheet->select_sheet
    EXPORTING
      name  = lv_sheet_name "lstr_sheets-sheet_name
    IMPORTING
      error = go_error.
  IF go_error->has_failed = abap_true.
    CALL METHOD go_error->raise_message
      EXPORTING
        type = 'I'.
    LEAVE LIST-PROCESSING.
  ENDIF.
  CALL METHOD go_spreadsheet->set_selection
    EXPORTING
      top     = cns_top
      left    = cns_left
      rows    = p_rec
      columns = cns_col.
  CALL METHOD go_spreadsheet->insert_range
    EXPORTING
      name     = TEXT-t04
      rows     = p_rec
      columns  = cns_col
      no_flush = ''
    IMPORTING
      error    = go_error.
  IF go_error->has_failed = abap_true.
    CALL METHOD go_error->raise_message
      EXPORTING
        type = 'I'.
    LEAVE LIST-PROCESSING.
  ENDIF.
  REFRESH lt_data.
  CALL METHOD go_spreadsheet->get_ranges_data
    EXPORTING
      rangesdef = lt_range
    IMPORTING
      contents  = lt_data
      error     = go_error
    CHANGING
      ranges    = lt_ranges.
  DELETE lt_data WHERE value IS INITIAL OR value = space.
  LOOP AT lt_data ASSIGNING FIELD-SYMBOL().
    " build records by selected combination
    PERFORM frm_build_records_by_comb USING  lwa_list.
    AT END OF row.
      CLEAR lv_flag.
      TRANSLATE lwa_list-uname TO UPPER CASE.
      TRANSLATE lwa_list-pname TO UPPER CASE.
 
*     检查用户是否存在
      SELECT SINGLE bname INTO @DATA(lv_bname)
        FROM usr01 WHERE bname = @lwa_list-uname.
      IF sy-subrc EQ 0.
 
      ELSE.
        lwa_list-msg = TEXT-t05.
        lv_flag = abap_true.
      ENDIF.
 
*     检查角色是否存在
      SELECT SINGLE agr_name INTO @DATA(lv_agr)
        FROM agr_define WHERE agr_name = @lwa_list-pname.
      IF sy-subrc EQ 0.
 
      ELSE.
        lwa_list-msg = lwa_list-msg && '|' && TEXT-t08.
        lv_flag = abap_true.
      ENDIF.
 
      IF lv_flag IS INITIAL.
        APPEND lwa_list TO gt_usrs.
      ELSE.
        SHIFT lwa_list-msg LEFT DELETING LEADING '|'.
        APPEND lwa_list TO gt_list.
      ENDIF.
 
      CLEAR:lwa_list.
    ENDAT.
  ENDLOOP.
 
* 出错的用户，直接从gt_usrs里面移到gt_list
  SORT gt_list BY uname.
  LOOP AT gt_usrs INTO lwa_list.
    READ TABLE gt_list ASSIGNING FIELD-SYMBOL()
      WITH KEY uname = lwa_list-uname BINARY SEARCH.
    CHECK sy-subrc EQ 0.
    APPEND lwa_list TO gt_list.
    SORT gt_list BY uname.
    DELETE gt_usrs.
  ENDLOOP.
 
  IF gt_usrs IS NOT INITIAL.
*   执行修改
    PERFORM frm_exec_change.
  ENDIF.
 
* 如果出现检查或上载错误，则将错误的下载下来
  SORT gt_list BY uname pname.
  IF gt_list IS NOT INITIAL.
    lwa_list-uname = 'SAP用户'.
    lwa_list-pname = '角色'.
    lwa_list-msg   = '错误消息'.
    INSERT lwa_list INTO gt_list INDEX 1.
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
*       BIN_FILESIZE            =
        filename                = 'C:\code\role_error.xls'
        filetype                = 'DAT'
*       APPEND                  = ' '
        write_field_separator   = 'X'
*       HEADER                  = '00'
*       TRUNC_TRAILING_BLANKS   = ' '
*       WRITE_LF                = 'X'
*       COL_SELECT              = ' '
*       COL_SELECT_MASK         = ' '
*       DAT_MODE                = ' '
*       CONFIRM_OVERWRITE       = ' '
*       NO_AUTH_CHECK           = ' '
        codepage                = '4103'
*       IGNORE_CERR             = ABAP_TRUE
        replacement             = '#'
        write_bom               = 'X'
*       TRUNC_TRAILING_BLANKS_EOL       = 'X'
*       WK1_N_FORMAT            = ' '
*       WK1_N_SIZE              = ' '
*       WK1_T_FORMAT            = ' '
*       WK1_T_SIZE              = ' '
*       WRITE_LF_AFTER_LAST_LINE        = ABAP_TRUE
*       SHOW_TRANSFER_STATUS    = ABAP_TRUE
*       VIRUS_SCAN_PROFILE      = '/SCET/GUI_DOWNLOAD'
      TABLES
        data_tab                = gt_list
*       FIELDNAMES              =
      EXCEPTIONS
        file_write_error        = 1
        no_batch                = 2
        gui_refuse_filetransfer = 3
        invalid_type            = 4
        no_authority            = 5
        unknown_error           = 6
        header_not_allowed      = 7
        separator_not_allowed   = 8
        filesize_not_allowed    = 9
        header_too_long         = 10
        dp_error_create         = 11
        dp_error_send           = 12
        dp_error_write          = 13
        unknown_dp_error        = 14
        access_denied           = 15
        dp_out_of_memory        = 16
        disk_full               = 17
        dp_timeout              = 18
        file_not_found          = 19
        dataprovider_exception  = 20
        control_flush_error     = 21
        OTHERS                  = 22.
 
    WRITE: TEXT-t07.
 
  ELSE.
    MESSAGE TEXT-t06 TYPE 'S'.
  ENDIF.
 
ENDFORM.                    " FRM_UPLOAD_SHEETS
*&---------------------------------------------------------------------*
*&      Form  FRM_BUILD_RECORDS_BY_COMB
*&---------------------------------------------------------------------*
*       text:将列值赋值到上传内表
*----------------------------------------------------------------------*
*      -->U_DATA:上传的EXCEL值
*      -->U_UPLDATA:传入内表的行
*----------------------------------------------------------------------*
FORM frm_build_records_by_comb USING u_data  TYPE soi_generic_item
                                      u_list TYPE ty_list.
  CASE u_data-column.
    WHEN '1'.
      u_list-uname = u_data-value.
    WHEN '2'.
      u_list-pname = u_data-value.
    WHEN OTHERS.
  ENDCASE.
ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  FRM_EXEC_CHANGE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LV_FLAG  text
*      -->P_LWA_LIST  text
*----------------------------------------------------------------------*
FORM frm_exec_change.
  DATA:lt_agr  TYPE TABLE OF bapiagr,
       ls_agr  TYPE bapiagr,
       lt_ret  TYPE TABLE OF bapiret2,
       lv_name TYPE bapibname-bapibname,
       lt_list TYPE TABLE OF ty_list,
       ls_list TYPE ty_list,
       lv_str  TYPE string.
  SORT gt_usrs BY uname.
  LOOP AT gt_usrs ASSIGNING FIELD-SYMBOL().
    ls_agr-agr_name = -pname.
    ls_agr-from_dat = sy-datum.
    ls_agr-to_dat   = '99991231'.
*   取角色的描述
    SELECT text UP TO 1 ROWS
      INTO @ls_agr-agr_text
      FROM agr_texts
      WHERE agr_name = @-pname.
    ENDSELECT.
    APPEND ls_agr TO lt_agr.
    APPEND  TO lt_list.
    AT END OF uname.
      lv_name = -uname.
      CALL FUNCTION 'ISAI_USER_ROLES_MAINTAIN'
        EXPORTING
          username      = lv_name
        TABLES
          actgroups_new = lt_agr
          return        = lt_ret.
      LOOP AT lt_ret INTO DATA(lwa_return).
        IF lwa_return-type = 'E' OR
            lwa_return-type = 'A' OR
            lwa_return-type = 'X'.
          DATA(lv_flg) = abap_true.
          EXIT.
        ENDIF.
      ENDLOOP.
      IF lv_flg IS INITIAL.
*       成功
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            wait = abap_true.
      ELSE.
*       失败
        CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
        CLEAR lv_str.
        LOOP AT lt_ret INTO lwa_return
          WHERE type = 'E' OR type = 'A' OR type = 'X'.
          lv_str = lv_str && '|' && lwa_return-message.
        ENDLOOP.
        SHIFT lv_str LEFT DELETING LEADING '|'.
        CLEAR ls_list.
        ls_list-msg = lv_str.
        MODIFY lt_list FROM ls_list TRANSPORTING msg
           WHERE uname NE ''.
        APPEND LINES OF lt_list TO gt_list.
      ENDIF.
      CLEAR:lt_agr,lt_ret,lt_list,lv_name.
    ENDAT.
  ENDLOOP.
ENDFORM.