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 = ''."计划版本 "创建组织单元
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 =
INVALID_OTYPE =
INVALID_DATE =
ERROR_DURING_INSERT =
ERROR_EXT_NUMBER =
UNDEFINED = .
IF SY-SUBRC = .
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'. LS_HRI1001-PLVAR = ''.
LS_HRI1001-OTYPE = 'O'.
LS_HRI1001-OBJID = LS_OBJ-OBJID.
LS_HRI1001-INFTY = 'A002'.
LS_HRI1001-RSIGN = 'A'.
LS_HRI1001-RELAT = ''.
LS_HRI1001-ISTAT = ''.
LS_HRI1001-BEGDA = SY-DATUM.
LS_HRI1001-ENDDA = ''.
LS_HRI1001-SCLAS = 'O'.
LS_HRI1001-SOBID = ''.
CONCATENATE 'O' '' 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 =
RELATION_NOT_ALLOWED =
OBJECT_NOT_FOUND =
WRONG_DATE_FORMAT =
TIME_NOT_VALID =
ERROR_DURING_INSERT =
UNDEFINED = .
IF SY-SUBRC = .
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.