1.HR信息類型文本表:T582S
2.組織信息類型文本表:T777T
3.鎖定員工號:
CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
EXPORTING
number = gs_pernr-pernr
IMPORTING
return = ls_return.
解鎖用的是:
CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
EXPORTING
number = gs_pernr-pernr
IMPORTING
return = ls_return.
4.讀取信息類型:
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
* TCLAS = 'A'
pernr = iv_pernr
infty = p_infty
* BEGDA = '18000101'
* ENDDA = '99991231'
* BYPASS_BUFFER = ' '
* LEGACY_MODE = ' '
* IPORTING
* SUBRC =
TABLES
infty_tab = <lt_p>
EXCEPTIONS
infty_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
5.保存長文本
FORM frm_save_ltext USING is_personaldatakey STRUCTURE bapipakey
is_pskey STRUCTURE pskey.
DATA: lt_text TYPE hrpad_text_tab .
DATA: lv_line TYPE hrpad_text.
DATA: lv_version TYPE gty_text_version.
DATA: ls_pcl1 TYPE pcl1.
CLEAR: lt_text[].
is_pskey-seqnr = is_personaldatakey-recordnr.
ls_pcl1-uname = sy-uname.
ls_pcl1-aedtm = sy-datum.
ls_pcl1-pgmid = 'SAPFP50P'.
CLEAR: lv_line.
lv_line = gv_string.
APPEND lv_line TO lt_text.
EXPORT
text-version FROM lv_version
ptext FROM lt_text
TO DATABASE pcl1(tx) ID is_pskey
FROM ls_pcl1.
COMMIT WORK AND WAIT.
ENDFORM.
6.信息類型操作函數(增刪改等)
HR_INFOTYPE_OPERATION
詳細使用方法可以參考夢總劉夢的這篇博客:
http://blog.sina.com.cn/s/blog_c0978c9b0102wsge.html