[BAPI]采購申請PR審批-BAPI_REQUISITION_RELEASE_GEN

1，BAPI簡介

可以使用BAPI_REQUISITION_RELEASE_GEN對采購申請進行整體的審批，也就是說，無論采購申請有多少行項目，使用此BAPI可以統一審批。

BAPI中的采購申請的審批代碼(rel_code)，可以從T16FC-FRGCO中讀取

2，例子代碼

寫一個簡單的例子代碼，實現PR的審批組下逐級審批功能。

Note：eban-frgrl = 'X'標識采購申請沒有審批完成。

 

 

 

REPORT ytest_pr_release.

DATA:
  BEGIN OF ls_grp,
    frggr TYPE t16fc-frggr,  "審批組
    frgco TYPE t16fc-frgco,  "審批代碼
  END OF ls_grp,
  lt_grp    LIKE TABLE OF ls_grp,
  lt_return TYPE STANDARD TABLE OF bapireturn,
  ls_return TYPE bapireturn.


PARAMETERS:p_banfn TYPE eban-banfn.

* 根據PR獲得審批組，從而獲取審批碼
SELECT t16fc~frggr
       t16fc~frgco
  INTO TABLE lt_grp
  FROM eban
 INNER JOIN t16fc ON eban~frggr = t16fc~frggr  "審批組
  WHERE eban~banfn = p_banfn
    AND eban~frgrl = 'X'."FRGRL 字段標示審批是否結束（X未結束，需要審批， ‘’ 審批結束）
* 循環審批碼將PR逐級release
SORT lt_grp BY frggr frgco.
DELETE ADJACENT DUPLICATES FROM lt_grp COMPARING frggr frgco.

LOOP AT lt_grp INTO ls_grp.

  CALL FUNCTION 'BAPI_REQUISITION_RELEASE_GEN'
    EXPORTING
      number   = p_banfn
      rel_code = ls_grp-frgco
    TABLES
      return   = lt_return.
  LOOP AT lt_return INTO ls_return WHERE type = 'A'
                                       OR type = 'E'
                                       OR type = 'X'.
*
*    MESSAGE ls_return-message TYPE 'S' DISPLAY LIKE 'E'.
*    STOP.

  ENDLOOP.

ENDLOOP.

MESSAGE '審批完畢，請通過ME53N查看審批結果' TYPE 'S'.

 

 

3，簡單測試

隨便找一個有2個行項目的未審批完成PR，me53n查看一下各個行項目的審批狀態，

10行，有兩級審批-00，01，其中第一級00已經審批通過，

20行，2級審批全沒有批准，

運行程序后，PR各個行項目的2級審批應該全部批准。

PR憑證可以通過ME54N重置審批狀態。

以上。