一、业务需求

企业需要记录员工的工作履历信息，SAP HCM系统使用 IT0023记录员工的工作履历信息。员工的工作履历分为两类，一类是员工入职前在其他企业的工作经历信息，一般可以在上线前批量导入到IT0023，一类是员工在本企业的工作经历，上线前的工作经历也可以批导导入到IT0023，系统上线后员工在企业的工作经历信息存放在IT0001中。    

为了建立一个唯一的员工履历数据库，可以在员工发生人事变动时将前一段经历自动存放在 IT0023中归档，方便员工履历的归档、查询和其他应用

二、动态事件配置

当员工在企业内发生人事调配事件时，自动将员工前一段的工作分配信息记录到工作经历信息类型（ IT0023）。人事调配时间包括转正、岗位变动、调动和离职等。

配置视图V_T588Z中的根据IT0000的事件字段的新建额修改触发动态事件，检查特定的事件类型，使用CALC_RECORD_TEXE读取事件发生日期前一日的机构和职位信息，使用结构变量RP50D中的增强字段ZTEXT返回与员工上一段的机构和职位信息，插入到IT0023中归档。

子类型 字段 功能代码 序号 步骤码  可变功能部分

MASSN   04  60        *维护0000信息类型，自动创建工作履历*

MASSN   04  63    P    T001P-MOLGA='28'

MASSN   04  65    P   PSPAR-TCLAS='A'

MASSN   04  66    P   P0000-MASSN='ZL'/X

MASSN   04  67    P   P0000-MASSN='ZD'/X

MASSN   04  68    P   P0000-MASSN='ZB'/X

MASSN   04  69    P   P0000-MASSN='ZC'/X

MASSN   04  70    F   CALC_RECORD_TEXT(ZHR_DYNAMIC_EVENT)

MASSN   04  73    I   INS,0023,,,(P0000-BEGDA),(P0000-ENDDA)/D

MASSN   04  76    W   P0023-ARBGB=RP50D-ZTEXT

MASSN   04  78    W   P0023-LAND1='CN'

三、FORM CALC_RECORD_TEXT源代码

动态事件配置里可以在步骤码F行中调用程序池中的子例程FORM计算和返回一些信息类型的字段值，可以使用标准结构RP50D中的字段返回字符、日期和布尔值。如果字段不够用或者不合用，可以使用增强包括增强该结构定义自己需要的增强字段。

PROGRAM zhr_dynamic_event.
TABLES:rp50g,rp50d,pspar.
TYPE-POOLS:slis.
DATA:g_year TYPE d.
DATA:g_mon TYPE d.
* 自动创建工作履历
FORM calc_record_texe.
 DATA:g_text1 TYPE c LENGTH 40.
 DATA:g_text2 TYPE c LENGTH 40.
 DATA l_orgeh TYPE p0001-orgeh.

 DATA:l_plans TYPE p0001-plans.

 DATA l_p0001 TYPE STANDARD TABLE OF p0001 WITH HEADER LINE.

 DATA :l_p1001 TYPE STANDARD TABLE OF  p1001 WITH HEADER LINE.  

 DATA l_date TYPE datum.
 l_date = pspar-begda - 1.
 CALL FUNCTION 'HR_READ_INFOTYPE'
   EXPORTING
     tclas         = 'A'
     pernr         = pspar-pernr
     infty         = '0001'
     begda         = l_date
     endda         = l_date
     bypass_buffer = 'X'
*     LEGACY_MODE   = ' '
*     IMPORTING
*     SUBRC         =
   TABLES
     infty_tab     = l_p0001
*     EXCEPTIONS
*     INFTY_NOT_FOUND       = 1
*     OTHERS        = 2
   .
 IF sy-subrc <> 0.
*   Implement suitable error handling here
   CLEAR l_p0001.
 ELSE.
   READ TABLE l_p0001 INDEX 1 .
   l_plans = l_p0001-plans.
 ENDIF.
 IF pspar-plans IS NOT INITIAL .
   CALL FUNCTION 'RH_READ_OBJECT'
     EXPORTING
       plvar           = '01'
       otype           = 'S'
       objid           = l_plans
*       REALO           = ' '
*       ISTAT           = ' '
       begda           = pspar-begda
       endda           = '99991231'
       langu           = sy-langu
*       OINTERVAL       = 'X'
*       STORE           = 'X'
       check_stru_auth = ''
*       READ_DB         = ' '
     IMPORTING
*       OBEG            =
*       OEND            =
*       OSTAT           =
*       HISTO           =
*       SHORT           =
       stext           = g_text1
*       TISTAT          =
*       TLANGU          =
*       DISPLAY_TEXT    =
*       TABLES
*       EXISTENCE       =
*        EXCEPTIONS
*       NOT_FOUND       = 1
*       OTHERS          = 2
     .
   IF sy-subrc <> 0.
*    Implement suitable error handling here
     CLEAR g_text1.
   ELSE.
   ENDIF.
   CALL FUNCTION 'RH_READ_INFTY_1001'
     EXPORTING
       authority        = 'DISP'
*       WITH_STRU_AUTH   = 'X'
       plvar            = '01'
       otype            = 'S'
       objid            = l_plans
       istat            = '1'
*       EXTEND           = 'X'
       subty            = 'A003'
       begda            = l_date
       endda            = '99991231'
*       CONDITION        = '00000'
*       SORT             = 'X'
*       WITH_EV          = ' '
*       ADATA            = 'X'
*       AUTH_SOBID       = ' '
     TABLES
       i1001            = l_p1001
*       OBJECTS          =
     EXCEPTIONS
       nothing_found    = 1
       wrong_condition  = 2
       wrong_parameters = 3
       OTHERS           = 4.
   IF sy-subrc <> 0.
*     Implement suitable error handling here
     REFRESH  l_p1001.
     CLEAR  l_p1001.
   ELSE.
     READ TABLE l_p1001 INDEX 1.
   l_orgeh = l_p1001-sobid.
     CALL FUNCTION 'RH_READ_OBJECT'
       EXPORTING
         plvar           = '01'
         otype           = 'O'
         objid           = l_orgeh
*         REALO           = ' '
*         ISTAT           = ' '
         begda           = pspar-begda
         endda           = '99991231'
         langu           = sy-langu
*         OINTERVAL       = 'X'
*         STORE           = 'X'
         check_stru_auth = ''
*         READ_DB         = ' '
       IMPORTING
*         OBEG            =
*         OEND            =
*         OSTAT           =
*         HISTO           =
*         SHORT           =
         stext           = g_text2
*         TISTAT          =
*         TLANGU          =
*         DISPLAY_TEXT    =
*       TABLES
*         EXISTENCE       =
*        EXCEPTIONS
*         NOT_FOUND       = 1
*         OTHERS          = 2
       .
     IF sy-subrc <> 0.
*    Implement suitable error handling here
       CLEAR g_text2.
     ELSE.
       CONCATENATE g_text2 g_text1 INTO rp50d-ZTEXT.
     ENDIF.
   ENDIF.
 ELSE.
   CLEAR rp50d-ZTEXT.
 ENDIF.
ENDFORM.