根据员工离职状态自动锁定SAP账号

原因

有的员工已经离职，但是未上报信息中心，SAP账号仍然在使用的情况。

为了保证信息安全，SAP团队将使用程序自动锁定离职员工的账号！

对相关部门提出的要求

信息中心：

每天查询被锁定的用户，确认是否离职，确属离职的备份该账号权限；
同样岗位的新员工来之后根据OA申请拷贝（创建）该锁定账号权限给新员工；
员工的SAP用户名必须用工号，SAP账号的持有者必须是工号对应的人（或责任人）、不得沿袭。
如果有员工报账号被锁定，先确认是不是离职的，如果是离职的，不能解锁！
信息中心每周五删除本周内所有锁定的SAP账号；

用人部门：

及时反馈该账户所拥有的权限是否有后来人继承使用，如需使用相关权限应发OA用新员工的信息申请SAP账号。
员工离职后不得继续使用该员工名下的各种系统账号，如果发现账号未冻结的、应主动上报信息中心处理。

人力资源部：

及时录入员工的离职信息；

3．具体实现方式

通过后台程序循环执行程序扫描离职员工信息，即刻锁定对应的SAP账号！

人力资源部录入离职状态 — 程序扫描离职员工信息并锁定对应的SAP账号 — 信息中心每天清查被锁定的SAP账号，备份账号对应的权限 — 信息中心每周五删除本周内被锁定的SAP账号 — 用人部门发起OA申请，注明新的SAP账号责任人、工号、参考的SAP账号权限 — 信息中心评估 — 分配SAP账号或者退回申请。

代码参考：

REPORT ZSAPTEAM_SU01_PA30_LOCKSAPID.

DATA GT_PA0000 TYPE TABLE OF P0000 WITH HEADER LINE.
DATA GT_RETURN TYPE TABLE OF BAPIRET2.
DATA LV_BAPIBNAME TYPE BAPIBNAME.

*先全部锁定一次！
SELECT * INTO CORRESPONDING FIELDS OF TABLE  GT_PA0000
                                       FROM  PA0000
                                       WHERE ENDDA EQ '99991231'.

LOOP AT GT_PA0000.
  LV_BAPIBNAME = GT_PA0000-PERNR+3(5).

  IF GT_PA0000-STAT2 EQ 3. "状态为3表示在职，在职则解锁SAP账号（人力资源录了离职又改回来的，需要解锁).
    CALL FUNCTION 'BAPI_USER_UNLOCK'
      EXPORTING
        USERNAME = LV_BAPIBNAME
      TABLES
        RETURN   = GT_RETURN.
  ELSE.
    CALL FUNCTION 'BAPI_USER_LOCK'
      EXPORTING
        USERNAME = LV_BAPIBNAME
      TABLES
        RETURN   = GT_RETURN.
  ENDIF.

  CLEAR:GT_PA0000, GT_RETURN, LV_BAPIBNAME.
ENDLOOP.

REFRESH:GT_PA0000.

REPORT ZSAPTEAM_SU01_PA30_LOCKSAPID.

DATA GT_PA0000 TYPE TABLE OF P0000 WITH HEADER LINE.

DATA GT_RETURN TYPE TABLE OF BAPIRET2.

DATA LV_BAPIBNAME TYPE BAPIBNAME.

*先全部锁定一次！

SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_PA0000

FROM PA0000

WHERE ENDDA EQ '99991231'.

LOOP AT GT_PA0000.

LV_BAPIBNAME = GT_PA0000-PERNR+3(5).

IF GT_PA0000-STAT2 EQ 3. "状态为3表示在职，在职则解锁SAP账号（人力资源录了离职又改回来的，需要解锁).

CALL FUNCTION 'BAPI_USER_UNLOCK'

EXPORTING

USERNAME = LV_BAPIBNAME

TABLES

RETURN = GT_RETURN.

ELSE.

CALL FUNCTION 'BAPI_USER_LOCK'

EXPORTING

USERNAME = LV_BAPIBNAME

TABLES

RETURN = GT_RETURN.

ENDIF.

CLEAR:GT_PA0000, GT_RETURN, LV_BAPIBNAME.

ENDLOOP.

REFRESH:GT_PA0000.

如若转载，请注明出处：https://www.gavindong.com/422.html

根据员工离职状态自动锁定SAP账号

相关推荐

SAP SU01里的几种用户类型

Linking SAP User-id to Personnel no

SAP用户批量锁定和解锁工具

SAP根据用户名查姓名

SAP固定资产和人事集成