ABAP 用户角色导入

*&---------------------------------------------------------------------*
*& Report Z_USER_ROLES_IMPORT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z_USER_ROLES_IMPORT.


TYPE-POOLS:truxs.

DATA:BEGIN OF ws_list,
       username TYPE bapibname-bapibname,
       agr_name TYPE bapiagr-agr_name,
       from_dat TYPE bapiagr-from_dat,
       to_dat   TYPE bapiagr-to_dat,
     END OF ws_list,
     it_list LIKE TABLE OF ws_list.

DATA: BEGIN OF wa_user,
        uname TYPE sy-uname,
      END OF wa_user,
      it_user LIKE TABLE OF wa_user WITH KEY uname.

DATA:it_role   LIKE bapiagr OCCURS 0 WITH HEADER LINE,
     it_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.

TYPES: BEGIN OF ty_log,
         username TYPE bapibname-bapibname, " 账号
         message  TYPE char70, " 消息
       END OF ty_log.

DATA: g_name    TYPE bapibname-bapibname,
      gw_namein TYPE bapibname,
      gw_data   TYPE bapilogond,
      gw_pwd    TYPE bapipwd,
      gw_df     TYPE bapidefaul,
      gw_add    TYPE bapiaddr3,
      gt_re     TYPE STANDARD TABLE OF bapiret2,
      gw_re     TYPE bapiret2.
*----------------------------------------------------------------------*
* 数据定义
*----------------------------------------------------------------------*
DATA git_excel TYPE kcde_intern_struc OCCURS 0 WITH HEADER LINE.
DATA: gt_upload LIKE TABLE OF ws_list WITH HEADER LINE,
      gw_upload LIKE ws_list.

DATA: success_rec TYPE i,
      error_rec   TYPE i.


*———————————————————————-*
* Selection Screen
*———————————————————————-*
SELECTION-SCREEN BEGIN OF BLOCK bl02 WITH FRAME TITLE TEXT-002.
PARAMETERS : p_file LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN END OF BLOCK bl02.

*********************************************************************
* AT SELECTION-SCREEN
*********************************************************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  PERFORM frm_open_file.


START-OF-SELECTION.

  WRITE:/ '开始执行....'.

  PERFORM prm_upload.

END-OF-SELECTION.
  WRITE:/ '执行完成...'.

*&---------------------------------------------------------------------*
*&      Form  FRM_OPEN_FILE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_open_file .
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = space
      def_path         = p_file
      mask             = TEXT-001
      mode             = 'O'
    IMPORTING
      filename         = p_file
    EXCEPTIONS
      selection_cancel = 0.

ENDFORM.                    " FRM_OPEN_FILE

*&---------------------------------------------------------------------*
*&      Form  PRM_UPLOAD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM prm_upload .
*从已知文件名读入内表
  CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
    EXPORTING
      filename                = p_file
      i_begin_col             = 1
      i_begin_row             = 2
      i_end_col               = 4
      i_end_row               = 65535
    TABLES
      intern                  = git_excel[]
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
  IF sy-subrc <> 0.
    MESSAGE  '打开文件错误，请检查文件，确保关闭文件!' TYPE 'E'.
    STOP.
  ENDIF.
  REFRESH gt_upload.
  CLEAR gt_upload.

  LOOP AT git_excel .
    CASE git_excel-col.
      WHEN '001'."账号
        MOVE git_excel-value TO ws_list-username.
      WHEN '002'."角色
        MOVE git_excel-value TO ws_list-agr_name.
      WHEN '003'."有效期开始
        MOVE git_excel-value TO ws_list-from_dat.
      WHEN '004'."有效期截止
        MOVE git_excel-value TO ws_list-to_dat.
    ENDCASE.
    AT END OF row.
      APPEND ws_list TO it_list.
      CLEAR  ws_list.
    ENDAT.

  ENDLOOP.

  CHECK it_list IS NOT INITIAL.

  LOOP AT it_list INTO ws_list.
    wa_user-uname = ws_list-username.
    APPEND wa_user TO it_user.
    CLEAR:ws_list,wa_user.
  ENDLOOP.

  SORT it_user BY uname.
  DELETE ADJACENT DUPLICATES FROM it_user.
  SORT it_list BY username.

  LOOP AT it_user INTO wa_user.

    CLEAR:it_role[],it_return[].
    LOOP AT it_list INTO ws_list WHERE username EQ wa_user-uname.
      MOVE-CORRESPONDING ws_list TO it_role.
      APPEND it_role.
      CLEAR ws_list.
    ENDLOOP.

    PERFORM pro_get_user_role USING wa_user-uname.

    CHECK it_role[] IS NOT INITIAL.

    CALL FUNCTION 'BAPI_USER_ACTGROUPS_ASSIGN'
      EXPORTING
        username       = wa_user-uname
      TABLES
        activitygroups = it_role[]
        return         = it_return[].
    LOOP AT it_return WHERE type EQ 'E' OR type EQ 'A'.
      EXIT.
    ENDLOOP.
    IF sy-subrc <> 0.
      WRITE:/ '用户：',wa_user-uname,'->角色分配成功...'.
    ELSE.
      FORMAT COLOR COL_NEGATIVE.
      WRITE:/ '用户：',wa_user-uname,'->角色分配失败...'.
      FORMAT COLOR OFF.
    ENDIF.

    CLEAR wa_user.
  ENDLOOP.


ENDFORM.

FORM pro_get_user_role USING VALUE(g_uname).

  DATA:lt_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
       lt_groups LIKE bapiagr OCCURS 0 WITH HEADER LINE.

  CLEAR:lt_return[],lt_groups[].

  CALL FUNCTION 'BAPI_USER_GET_DETAIL'
    EXPORTING
      username       = g_uname
*     CACHE_RESULTS  = 'X'
*   IMPORTING
*     LOGONDATA      =
*     DEFAULTS       =
*     ADDRESS        =
*     COMPANY        =
*     SNC            =
*     REF_USER       =
*     ALIAS          =
*     UCLASS         =
*     LASTMODIFIED   =
*     ISLOCKED       =
*     IDENTITY       =
*     ADMINDATA      =
*     DESCRIPTION    =
    TABLES
*     PARAMETER      =
*     PROFILES       =
      activitygroups = lt_groups
      return         = lt_return
*     ADDTEL         =
*     ADDFAX         =
*     ADDTTX         =
*     ADDTLX         =
*     ADDSMTP        =
*     ADDRML         =
*     ADDX400        =
*     ADDRFC         =
*     ADDPRT         =
*     ADDSSF         =
*     ADDURI         =
*     ADDPAG         =
*     ADDCOMREM      =
*     PARAMETER1     =
*     GROUPS         =
*     UCLASSSYS      =
*     EXTIDHEAD      =
*     EXTIDPART      =
*     SYSTEMS        =
    .

  CHECK lt_groups[] IS NOT INITIAL.
  LOOP AT lt_groups.
    LOOP AT it_role WHERE agr_name EQ lt_groups-agr_name AND to_dat EQ lt_groups-to_dat.
      EXIT.
    ENDLOOP.
    IF sy-subrc <> 0.
      MOVE-CORRESPONDING lt_groups TO it_role.
      APPEND it_role.
    ENDIF.

    CLEAR:lt_groups,it_role.
  ENDLOOP.


ENDFORM.