记录一下用过的几个HR函数，备忘
信息类型获取：适用于单个人员编号查询,并且涉及权限。
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
* TCLAS = 'A'
pernr = ps_zpernr "人员编号
infty = ps_field "信息类型
begda = ps_bdate "开始时间
endda = ps_edate "结束时间
* BYPASS_BUFFER = ' '
* LEGACY_MODE = ' '
IMPORTING
subrc = lv_subrc
TABLES
infty_tab = pt_tab ”查询结果内表
EXCEPTIONS
infty_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
信息类型修改：单个人员编号单个信息类型修改
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE' "锁定人员编号
EXPORTING
number = lt_pa0022-pernr.
单独信息类型修改
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty = '0022'
number = lt_pa0022-pernr "人员编号
record = lt_pa0022 "修改内容，需要参考p****结构，不能参考pa表
operation = lv_actio "操作方式(INS/MOD/DEL)
validityend = ls_pa0022-endda
validitybegin = ls_pa0022-begda
IMPORTING
return = lt_bapireturn. "返回消息
关联性信息类型修改
类似学历信息类型3529依附于教育信息0022，需同步进行修改，人员编号、开始结束日期都是同步的。
CALL FUNCTION 'HR_INFOTYPE_OPERATION'
EXPORTING
infty = '0022'
number = lw_pa0022-pernr
subtype = lw_pa0022-subty
validityend = lw_pa0022-endda
validitybegin = lw_pa0022-begda
record = lw_pa0022
operation = lv_actio
view_identifier = '28'
secondary_record = lw_pa3529
IMPORTING
return = lt_bapireturn1.
CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE' "解锁人员编号
EXPORTING
number = lt_pa0022-pernr.
人员，职位，部门信息获取函数
RH_STRUC_GET 根据 act_otype、act_wegid 参数不同作用不同
eg：
'P' 'P-S-O' ： 人-职位-部门
'P' 'P-S-O-O' ： 人-职位-部门-上层部门（查到最上层部门）
'S' 'PEGET_P' :根据职位查找人员
CALL FUNCTION 'RH_STRUC_GET'
EXPORTING
act_otype = 'P'
act_objid = it_rsbd-pernr
act_wegid = 'P-S-O'
* ACT_INT_FLAG =
* ACT_PLVAR = ' '
act_begda = it_rsbd-begda
act_endda = it_rsbd-endda
* ACT_TDEPTH = 0
act_tflag = 'X'
act_vflag = 'X'
authority_check = 'X'
* TEXT_BUFFER_FILL =
* BUFFER_MODE =
* IMPORTING
* ACT_PLVAR =
TABLES
* RESULT_TAB =
result_objec = lt_objec
* RESULT_STRUC =
EXCEPTIONS
no_plvar_found = 1
no_entry_found = 2
OTHERS = 3.
获取工作日历
CALL FUNCTION 'DAY_ATTRIBUTES_GET'
EXPORTING
factory_calendar = 'CN'
holiday_calendar = 'CN'
date_from = ls_input-bdate
date_to = ls_input-edate
* language = sy-langu
non_iso = ''
IMPORTING
year_of_valid_from = year_of_valid_from
year_of_valid_to = year_of_valid_to
returncode = returncode
TABLES
day_attributes = lt_day_attributes
EXCEPTIONS
factory_calendar_not_found = 1
holiday_calendar_not_found = 2
date_has_invalid_format = 3
date_inconsistency = 4
OTHERS = 5.
获取工作日（也可以查表T552A）
CALL FUNCTION 'HR_GENERATE_WORK_SCHEDULE'
EXPORTING
zeity = '2'
mofid = 'CN'
mosid = '01'
schkz = 'NORM'
begjahr = ls_input-bdate(4)
begmonat = ls_input-bdate+4(2)
endjahr = ls_input-edate(4)
endmonat = ls_input-edate+4(2)
TABLES
int552a = lt_t552a
EXCEPTIONS
error_occured = 1
OTHERS = 2.