HR开发 获取信息类型数据


1、PNP逻辑数据库。

  LOOP获取信息类型数据。

TABLES: PERNR .
INFOTYPES: 0000, 0001 .

START-OF-SELECTION.

GET PERNR .
LOOP AT P0000 WHERE ...
...
ENDLOOP.
LOOP AT P0001 WHERE ...
...
ENDLOOP.

  宏获取信息类型数据。

TABLES: PERNR, T001P.
INFOTYPES: 0000, 0001 .

GET PERNR .
RP_PROVIDE_FROM_FRST P0000 SPACE PN
-BEGDA PN-ENDDA.
IF PNP-SW-FOUND = 1.

ENDIF.

RP_PROVIDE_FROM_FRST P0001 SPACE PN
-BEGDA PN-ENDDA.
RP
-READ-T001P P0001-WERKS P0001-BTRTL SPACE.
WRITE T001P-BTEXT.

 

2、通过函数获取。

INFOTYPES: 0000, 0001 .
DATA RETURN LIKE SY-SUBRC.

CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
* TCLAS = 'A'
PERNR = PERNR
INFTY
= '0000'
* BEGDA = '18000101'
*
ENDDA = '99991231'
*
BYPASS_BUFFER = ' '
*
LEGACY_MODE = ' '
IMPORTING
SUBRC
= RETURN
TABLES
INFTY_TAB
= P0000
EXCEPTIONS
INFTY_NOT_FOUND
= 1
OTHERS
= 2
.
获取雇佣日期

INFOTYPES
: 0000 .DATA GV_HDATE TYPE SY-DATUM.

CALL FUNCTION 'RP_GET_HIRE_DATE'
EXPORTING
PERSNR
= PERNR
CHECK_INFOTYPES
= '0000'
* DATUMSART = '01'
*
STATUS2 = '3'
*
P0016_OPTIONEN = ' '
IMPORTING
HIREDATE
= GV_HDATE
.

 

智能推荐

注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
© 2014-2019 ITdaan.com 粤ICP备14056181号  

赞助商广告