【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_controlIMPORTINGcontrol = go_controlerror   = go_error.IF go_error->has_failed = abap_true.CALL METHOD go_error->raise_messageEXPORTINGtype = 'E'.ENDIF.CREATE OBJECT go_containerEXPORTINGcontainer_name              = 'CONT'EXCEPTIONScntl_error                  = 1cntl_system_error           = 2create_error                = 3lifetime_error              = 4lifetime_dynpro_dynpro_link = 5OTHERS                      = 6.IF sy-subrc <> 0.MESSAGE  'Error while creating container' TYPE 'E'.ENDIF.CALL METHOD go_control->init_controlEXPORTINGinplace_enabled      = abap_truer3_application_name  = 'EXCEL CONTAINER'parent               = go_containerIMPORTINGerror                = go_errorEXCEPTIONSjavabeannotsupported = 1OTHERS               = 2.IF go_error->has_failed = abap_true.CALL METHOD go_error->raise_messageEXPORTINGtype = 'E'.ENDIF.CALL METHOD go_control->get_document_proxyEXPORTINGdocument_type  = soi_doctype_excel_sheetIMPORTINGdocument_proxy = go_documenterror          = go_error.IF go_error->has_failed = abap_true.CALL METHOD go_error->raise_messageEXPORTINGtype = '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_existEXPORTINGfile                 = p_fileRECEIVINGresult               = lv_retEXCEPTIONScntl_error           = 1error_no_gui         = 2wrong_parameter      = 3not_supported_by_gui = 4OTHERS               = 5.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH 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_dialogEXPORTINGwindow_title            = '导入文件'default_extension       = '*.xls'file_filter             = cl_gui_frontend_services=>filetype_excelCHANGINGfile_table              = lt_filetabrc                      = lv_rcEXCEPTIONSfile_open_dialog_failed = 1cntl_error              = 2error_no_gui            = 3not_supported_by_gui    = 4OTHERS                  = 5.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH 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 = progresstext = TEXT-t03." open documentCONCATENATE 'FILE://' p_file INTO lv_document_url.CALL METHOD go_document->open_documentEXPORTINGdocument_title = TEXT-t05document_url   = lv_document_urlopen_inplace   = abap_trueIMPORTINGerror          = go_error.IF go_error->has_failed = abap_true.CALL METHOD go_error->raise_messageEXPORTINGtype = 'I'.LEAVE LIST-PROCESSING.ENDIF." get sheet interfaceCALL METHOD go_document->get_spreadsheet_interfaceEXPORTINGno_flush        = ' 'IMPORTINGerror           = go_errorsheet_interface = go_spreadsheet.IF go_error->has_failed = abap_true.CALL METHOD go_error->raise_messageEXPORTINGtype = '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 contentCALL METHOD go_spreadsheet->select_sheetEXPORTINGname  = lv_sheet_name "lstr_sheets-sheet_nameIMPORTINGerror = go_error.IF go_error->has_failed = abap_true.CALL METHOD go_error->raise_messageEXPORTINGtype = 'I'.LEAVE LIST-PROCESSING.ENDIF.CALL METHOD go_spreadsheet->set_selectionEXPORTINGtop     = cns_topleft    = cns_leftrows    = p_reccolumns = cns_col.CALL METHOD go_spreadsheet->insert_rangeEXPORTINGname     = TEXT-t04rows     = p_reccolumns  = cns_colno_flush = ''IMPORTINGerror    = go_error.IF go_error->has_failed = abap_true.CALL METHOD go_error->raise_messageEXPORTINGtype = 'I'.LEAVE LIST-PROCESSING.ENDIF.REFRESH lt_data.CALL METHOD go_spreadsheet->get_ranges_dataEXPORTINGrangesdef = lt_rangeIMPORTINGcontents  = lt_dataerror     = go_errorCHANGINGranges    = lt_ranges.DELETE lt_data WHERE value IS INITIAL OR value = space.LOOP AT lt_data ASSIGNING FIELD-SYMBOL(<lfs_data>)." build records by selected combinationPERFORM frm_build_records_by_comb USING <lfs_data> 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_listSORT gt_list BY uname.LOOP AT gt_usrs INTO lwa_list.READ TABLE gt_list ASSIGNING FIELD-SYMBOL(<lfs_list>)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_TRUEreplacement             = '#'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'TABLESdata_tab                = gt_list
*       FIELDNAMES              =EXCEPTIONSfile_write_error        = 1no_batch                = 2gui_refuse_filetransfer = 3invalid_type            = 4no_authority            = 5unknown_error           = 6header_not_allowed      = 7separator_not_allowed   = 8filesize_not_allowed    = 9header_too_long         = 10dp_error_create         = 11dp_error_send           = 12dp_error_write          = 13unknown_dp_error        = 14access_denied           = 15dp_out_of_memory        = 16disk_full               = 17dp_timeout              = 18file_not_found          = 19dataprovider_exception  = 20control_flush_error     = 21OTHERS                  = 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_itemu_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(<lfs_list>).ls_agr-agr_name = <lfs_list>-pname.ls_agr-from_dat = sy-datum.ls_agr-to_dat   = '99991231'.*   取角色的描述SELECT text UP TO 1 ROWSINTO @ls_agr-agr_textFROM agr_textsWHERE agr_name = @<lfs_list>-pname.ENDSELECT.APPEND ls_agr TO lt_agr.APPEND <lfs_list> TO lt_list.AT END OF uname.lv_name = <lfs_list>-uname.CALL FUNCTION 'ISAI_USER_ROLES_MAINTAIN'EXPORTINGusername      = lv_nameTABLESactgroups_new = lt_agrreturn        = lt_ret.LOOP AT lt_ret INTO DATA(lwa_return).IF lwa_return-type = 'E' ORlwa_return-type = 'A' ORlwa_return-type = 'X'.DATA(lv_flg) = abap_true.EXIT.ENDIF.ENDLOOP.IF lv_flg IS INITIAL.
*       成功CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = abap_true.ELSE.
*       失败CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.CLEAR lv_str.LOOP AT lt_ret INTO lwa_returnWHERE 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 msgWHERE uname NE ''.APPEND LINES OF lt_list TO gt_list.ENDIF.CLEAR:lt_agr,lt_ret,lt_list,lv_name.ENDAT.ENDLOOP.ENDFORM.