[BAPI]采购申请PR审批-BAPI_REQUISITION_RELEASE_GEN

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‘.