chinesefreesexvideos高潮,欧美极品少妇性运交,久久久国产一区二区三区,99久久婷婷国产综合精品,成人国产一区二区三区

一、業(yè)務需求

企業(yè)需要記錄員工的工作履歷信息，SAP HCM系統(tǒng)使用 IT0023記錄員工的工作履歷信息。員工的工作履歷分為兩類，一類是員工入職前在其他企業(yè)的工作經(jīng)歷信息，一般可以在上線前批量導入到IT0023，一類是員工在本企業(yè)的工作經(jīng)歷，上線前的工作經(jīng)歷也可以批導導入到IT0023，系統(tǒng)上線后員工在企業(yè)的工作經(jīng)歷信息存放在IT0001中。    

為了建立一個唯一的員工履歷數(shù)據(jù)庫，可以在員工發(fā)生人事變動時將前一段經(jīng)歷自動存放在 IT0023中歸檔，方便員工履歷的歸檔、查詢和其他應用

二、動態(tài)事件配置

當員工在企業(yè)內(nèi)發(fā)生人事調(diào)配事件時，自動將員工前一段的工作分配信息記錄到工作經(jīng)歷信息類型（ IT0023）。人事調(diào)配時間包括轉(zhuǎn)正、崗位變動、調(diào)動和離職等。

配置視圖V_T588Z中的根據(jù)IT0000的事件字段的新建額修改觸發(fā)動態(tài)事件，檢查特定的事件類型，使用CALC_RECORD_TEXE讀取事件發(fā)生日期前一日的機構(gòu)和職位信息，使用結(jié)構(gòu)變量RP50D中的增強字段ZTEXT返回與員工上一段的機構(gòu)和職位信息，插入到IT0023中歸檔。

子類型 字段 功能代碼 序號 步驟碼  可變功能部分

MASSN   04  60        *維護0000信息類型，自動創(chuàng)建工作履歷*

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源代碼

動態(tài)事件配置里可以在步驟碼F行中調(diào)用程序池中的子例程FORM計算和返回一些信息類型的字段值，可以使用標準結(jié)構(gòu)RP50D中的字段返回字符、日期和布爾值。如果字段不夠用或者不合用，可以使用增強包括增強該結(jié)構(gòu)定義自己需要的增強字段。

PROGRAM zhr_dynamic_event.
TABLES:rp50g,rp50d,pspar.
TYPE-POOLS:slis.
DATA:g_year TYPE d.
DATA:g_mon TYPE d.
* 自動創(chuàng)建工作履歷
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.