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