BAPI创建采购申请

* Program Name :   ZGER_BAPI_3                                    *
* describe:                                                  *
* Created by   :                                             *
* Created on   :                                             *
*                                                            *
*------------------------------------------------------------*
Report ZGER_BAPI_3.

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.
PARAMETERS:p_FRGCO TYPE t16fc-FRGCO.

* 根据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逐级
  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                = P_FRGCO
*   NO_COMMIT_WORK          = ' '
* IMPORTING
*   REL_STATUS_NEW          =
*   REL_INDICATOR_NEW       =
TABLES
  RETURN                  = lt_return
          .
LOOP AT lt_return INTO ls_return WHERE TYPE = 'A'
                                     OR TYPE = 'E'
                                     OR TYPE = 'X'.
"MESSAGE ls_return-MASSAGE TYPE 'S' DISPLAY LIKE 'E'.
ENDLOOP.
  ENDLOOP.
  MESSAGE '审批完成，请通过ME53N查看审批结果' TYPE 'S'.