abap对采购订单强制置为”交货已完成“状态（BAPI_PO_CHANGE、BAPI_PO_RELEASE、BAPI_PO_RESET_RELEASE）

最新推荐文章于 2024-12-24 17:25:04 发布

转载最新推荐文章于 2024-12-24 17:25:04 发布 · 1.8k 阅读

sap 专栏收录该内容

17 篇文章

订阅专栏

本文介绍了一种在SAP系统中对已批准的采购订单进行强制“交货已完成”状态修改的方法。通过先解除批准状态，然后修改状态，最后重新设置批准状态的过程，详细展示了如何使用BAPI函数实现这一操作。

项目中，需要对一些采购订单做强制“交货已完成”，如果采购订单已批准，是不能用BAPI_PO_CHANGE更改状态的，只有先除去“批准”状态，再“交货已完成”，然后再置为批准状态，下面是函数代码，希望对用到的兄弟有帮助。

DATA:PO_NUMBER LIKE EKKO-EBELN.

DATA:T_POITEM LIKE BAPIMEPOITEM OCCURS 0 WITH HEADER LINE.
DATA:T_POITEMX LIKE BAPIMEPOITEMX OCCURS 0 WITH HEADER LINE.
DATA:T_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
DATA: LV_FRGKE LIKE EKKO-FRGKE,
LV_FRGSX LIKE EKKO-FRGSX.

DATA:RETURN TYPE TABLE OF BAPIRETURN WITH HEADER LINE.

REFRESH OUTPUT.
CLEAR OUTPUT.

SORT INPUT BY EBELN.
LOOP AT INPUT.
CLEAR T_POITEM.
REFRESH T_POITEM.
CLEAR T_POITEMX.
REFRESH T_POITEMX.

 MOVE-CORRESPONDING INPUT TO OUTPUT.

 CLEAR LV_FRGKE.
 SELECT SINGLE
        FRGKE
        FRGSX
        INTO (LV_FRGKE,LV_FRGSX)
        FROM EKKO
        WHERE EBELN = INPUT-EBELN.

如果采购订单被批准了，则先取消批准，才能修改
IF LV_FRGKE = 'R'.

   CALL FUNCTION 'BAPI_PO_RESET_RELEASE'
        EXPORTING
          PURCHASEORDER = INPUT-EBELN
          PO_REL_CODE   = LV_FRGSX
          USE_EXCEPTIONS = 'X'
        TABLES
          RETURN = RETURN.
   CLEAR RETURN.
   READ TABLE RETURN WITH KEY TYPE = 'E'.
   IF SY-SUBRC EQ 0.
      OUTPUT-FLAG = 'E'.
      OUTPUT-MESSAGE = RETURN-MESSAGE.
   ENDIF.
ENDIF.

IF OUTPUT-FLAG <> 'E'.
   PO_NUMBER = INPUT-EBELN.

   T_POITEM-PO_ITEM = INPUT-EBELP.
   T_POITEM-NO_MORE_GR = 'X'.
   APPEND T_POITEM.
   CLEAR T_POITEM.

   T_POITEMX-PO_ITEM = INPUT-EBELP.
   T_POITEMX-PO_ITEMX = 'X'.
   T_POITEMX-NO_MORE_GR = 'X'.
   APPEND T_POITEMX.
   CLEAR T_POITEMX.


   CALL FUNCTION 'BAPI_PO_CHANGE'
      EXPORTING
        PURCHASEORDER = PO_NUMBER
      TABLES
        RETURN        = T_RETURN
        POITEM        = T_POITEM
        POITEMX       = T_POITEMX.
     READ TABLE T_RETURN WITH KEY TYPE = 'E'.
     IF SY-SUBRC EQ 0.
       OUTPUT-FLAG = 'E'.
       OUTPUT-MESSAGE = T_RETURN-MESSAGE.
       ROLLBACK WORK.
     ELSE.
       OUTPUT-FLAG = 'S'.
       OUTPUT-MESSAGE = '交货已完成更改成功！'.
       CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
         EXPORTING
           WAIT = 'X'.
     ENDIF.
ENDIF.

如果采购订单被批准了，则先取消批准，修改交货已完成后，在重新设置上批准状态
IF LV_FRGKE = 'R' AND OUTPUT-FLAG <> 'E'.
   CALL FUNCTION 'BAPI_PO_RELEASE'
        EXPORTING
          PURCHASEORDER = INPUT-EBELN
          PO_REL_CODE   = LV_FRGSX
          USE_EXCEPTIONS = 'X'
        TABLES
          RETURN = RETURN.
ENDIF.

APPEND OUTPUT.
CLEAR OUTPUT.

ENDLOOP.