ME21N,ME22N,ME23N之BADI增强ME_PROCESS_PO_CUST

来源：互联网发布：linux更改用户编辑：程序博客网时间：2024/06/05 15:54

一、需求背景：采购订单创建、修改时，根据所选订单类型不同，给抬头附加数据里的字段赋默认值。如下图所示：

二、实现方式：实现的方式可以有很多种，这里讲一下用BADI增强ME_PROCESS_PO_CUST实现的方式

第一步：执行事务码se19,在BAdI Name处输入：ME_PROCESS_PO_CUST，然后点“Create Impl”按钮

第二步：在Implementation Name输入ZME_PROCESS_PO_CUST,点OK按钮。

第三步：双击“PROCESS_HEADER”

第四步：在METHOD里编写代码，就可以实现需求的功能了

代码如下：

METHOD IF_EX_ME_PROCESS_PO_CUST~PROCESS_HEADER.

  DATA:LT_HEADER TYPE MEPOHEADER,
       LV_BSART TYPE EKKO-BSART.

  IF SY-TCODE = 'ME21N' OR SY-TCODE = 'ME22N' OR SY-TCODE = 'ME23N'.
    IF IM_HEADER IS NOT INITIAL.
      CALL METHOD IM_HEADER->GET_DATA
        RECEIVING
          RE_DATA = LT_HEADER.

      CLEAR LV_BSART.
      SELECT SINGLE
             BSART
             INTO LV_BSART
             FROM EKKO
             WHERE EBELN = LT_HEADER-EBELN.
      IF LV_BSART <> 'ZNPI' and LV_BSART <> 'NNPI' .
          IF LT_HEADER-BSART = 'ZNPI'.
            LT_HEADER-SUBMI = 'ZNPI'.
          ELSEIF LT_HEADER-BSART = 'NNPI'.
            LT_HEADER-SUBMI = 'ZNPI'.
          ELSE.
            LT_HEADER-SUBMI = ''.
          ENDIF.

          CALL METHOD IM_HEADER->SET_DATA
              EXPORTING
                IM_DATA = LT_HEADER.
      ENDIF.

      IF LT_HEADER-SUBMI = 'ZNPI'.
           CALL METHOD IM_HEADER->GET_DATA
            RECEIVING
              RE_DATA = LT_HEADER.

           LT_HEADER-BEDAT = SY-DATUM.

           CALL METHOD IM_HEADER->SET_DATA
              EXPORTING
                IM_DATA = LT_HEADER.
      ENDIF.
    ENDIF.
  ENDIF.

ENDMETHOD.

0 0