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

项目中，需要对一些采购订单做强制“交货已完成”，如果采购订单已批准，是不能用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.