HR HRP1001创建更新信息类型1001数据，RH_INSERT_INFTY_1001_EXT

最新推荐文章于 2023-01-11 09:02:18 发布

Gong JX

最新推荐文章于 2023-01-11 09:02:18 发布

阅读量1.8k

点赞数 2

分类专栏： HR 文章标签：后端 sap abap 经验分享

本文链接：https://blog.csdn.net/qq_40977705/article/details/118541720

版权

HR 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

本文讲述了在使用RH_INSERT_INFTY_1001_EXT函数更新RH_PNNNN_MAINTAIN表以维护组织机构与上级关系时遇到的问题及解决方法，重点在于创建和插入HRP1001表的操作技巧和错误处理。

摘要由CSDN通过智能技术生成

信息类型1001是维护组织机构与上级关系表，使用 RH_PNNNN_MAINTAIN创建更新时总是失败，换RH_INSERT_INFTY_1001_EXT去做，表（hrp1001）

FORM SAVEDATAS_2200 CHANGING PS_OUT TYPE WPLOG .
  DATA: LS_RETURN  TYPE HRRHAD_MSG,
        LT_HRTNNNN TYPE TABLE OF HRTDBTAB,
        LS_HRP1001 LIKE STANDARD TABLE OF HRI1001 WITH HEADER LINE,
        LS_HRINNNN TYPE WPLOG .
  DATA LV_MAG TYPE STRING .
    CLEAR: LS_HRP1001 .
    LS_HRP1001-PLVAR = '01'.
    LS_HRP1001-OTYPE = 'O'.

    LS_HRP1001-OBJID = PS_OUT-OBJID. "组织机构

    LS_HRP1001-INFTY = '1001'.
    LS_HRP1001-RSIGN = 'A'.
    LS_HRP1001-RELAT = '002'.
    LS_HRP1001-ISTAT = '2'.
    LS_HRP1001-SCLAS = 'O'.
    LS_HRP1001-SOBID = GS_CJHZZJG_2200-SOBID."上级
    LS_HRP1001-PRIOX = GS_CJHZZJG_2200-PRIOX .
    LS_HRP1001-BEGDA = GS_CJHZZJG_2200-BEGDA.
    LS_HRP1001-ENDDA = GS_CJHZZJG_2200-ENDDA.
*
    CONCATENATE LS_HRP1001-RSIGN LS_HRP1001-RELAT INTO LS_IPLOG1001-SUBTY.

    CONCATENATE LS_HRP1001-SCLAS LS_HRP1001-SOBID INTO LS_IPLOG1001-VDATA
        SEPARATED BY SPACE.
    MOVE-CORRESPONDING LS_HRP1001 TO LS_IPLOG1001 .
    APPEND LS_HRP1001 .
    CALL FUNCTION 'RH_INSERT_INFTY_1001_EXT'
      EXPORTING
        FCODE                         = 'INSE'
        VTASK                         = 'S'
*       ORDER_FLG                     = 'X'
*       COMMIT_FLG                    = 'X'
*       AUTHY                         = 'X'
*       PPPAR_IMP                     =
*       KEEP_LUPD                     =
*       WORKF_ACTV                    = 'X'
      TABLES
        INNNN                         = LS_HRP1001
*       ILFCODE                       =
     EXCEPTIONS
       NO_AUTHORIZATION              = 1
       ERROR_DURING_INSERT           = 2
       RELATION_NOT_REVERSIBLE       = 3
       CORR_EXIT                     = 4
       BEGDA_GREATER_ENDDA           = 5
       OTHERS                        = 6
              .
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
      INTO LV_MAG.
    MESSAGE E000(ZHRMSG) WITH LV_MAG.
* & & &

  ENDIF.
ENDFORM.