REPORT ZLYHR01.
"创建组织单元 成功
DATA:LS_OBJ TYPE OBJEC,
LV_STU TYPE GDSTR-SVECT,
LV_TIT TYPE CHAR20,
LV_SUBTYP TYPE SUBTYP,
LS_P1000 TYPE P1000,
LT_P1000 TYPE TABLE OF P1000.
DATA:LT_HRI1001 TYPE TABLE OF HRI1001,
LS_HRI1001 TYPE HRI1001.
LS_OBJ-OTYPE = 'O'."对象类型
LS_OBJ-PLVAR = '01'."计划版本
"创建组织单元
CALL FUNCTION 'RH_OBJECT_CREATE'
EXPORTING
* LANGU = SY-LANGU
PLVAR = LS_OBJ-PLVAR
OTYPE = LS_OBJ-OTYPE
* EXT_NUMBER = '00000000'
SHORT = '测试组织单1元'
STEXT = '测试组织单1元'
* BEGDA = SY-DATUM
* ENDDA = '99991231'
* OSTAT = '1'
* VTASK = 'D'
* GUID =
* KEEP_LUPD = ' '
IMPORTING
OBJID = LS_OBJ-OBJID
EXCEPTIONS
TEXT_REQUIRED = 1
INVALID_OTYPE = 2
INVALID_DATE = 3
ERROR_DURING_INSERT = 4
ERROR_EXT_NUMBER = 5
UNDEFINED = 6.
IF SY-SUBRC = 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
LS_HRI1001-PLVAR = '01'.
LS_HRI1001-OTYPE = 'O'.
LS_HRI1001-OBJID = LS_OBJ-OBJID.
LS_HRI1001-INFTY = 'A002'.
LS_HRI1001-RSIGN = 'A'.
LS_HRI1001-RELAT = '002'.
LS_HRI1001-ISTAT = '1'.
LS_HRI1001-BEGDA = SY-DATUM.
LS_HRI1001-ENDDA = '99991231'.
LS_HRI1001-SCLAS = 'O'.
LS_HRI1001-SOBID = '50000101'.
CONCATENATE 'O' '50000101' INTO LS_HRI1001-VARYF."上级节点
APPEND LS_HRI1001 TO LT_HRI1001.
"创建组织单元与上级组织单元的关系
CALL FUNCTION 'RH_RELATION_WRITE'
* EXPORTING
* VTASK = 'D'
* KEEP_LUPD = ' '
TABLES
RELATION = LT_HRI1001
* ERR_RELATION =
EXCEPTIONS
NO_AUTHORITY = 1
RELATION_NOT_ALLOWED = 2
OBJECT_NOT_FOUND = 3
WRONG_DATE_FORMAT = 4
TIME_NOT_VALID = 5
ERROR_DURING_INSERT = 6
UNDEFINED = 7.
IF SY-SUBRC = 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
WRITE LS_OBJ-OBJID.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
WRITE: 'FAILD RELA' , LS_OBJ-OBJID.
ENDIF.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
