[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'.