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.