业务目的:开发一个接口,传入生产订单号,审批状态和文本备注,调用BAPI修改采购订单的审批策略,审批状态为’1’审批通过,审批状态’2’审批不通过。
接口传入:
接口传出:
直接上接口代码,复制即可使用:
FUNCTION Z_MM_MODIFY_APPROVAL_STATUS.
*"----------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" VALUE(I_HEAD) TYPE ZMMSMAS
*" EXPORTING
*" VALUE(E_MSG_TYP) TYPE ZMSG_TYPE
*" VALUE(E_RET_MSG) TYPE ZRET_MSG
*" VALUE(E_PROCESS_NUMBER) TYPE ZOA_PROCESS_NUMBER
*"----------------------------------------------------------------------
TYPES:BEGIN OF TY_EKKO,
EBELN TYPE EKKO-EBELN, "采购订单编号
FRGGR TYPE EKKO-FRGGR, "审批组
FRGSX TYPE EKKO-FRGSX, "审批策略
FRGZU TYPE EKKO-FRGZU, "版本状态
BSART TYPE EKKO-BSART, "采购凭证类型
EKORG TYPE EKKO-EKORG. "采购组织
TYPES END OF TY_EKKO.
DATA:LT_TLINE TYPE TABLE OF TLINE,
LS_TLINE TYPE TLINE.
DATA:FNAME TYPE THEAD-TDNAME.
DATA:LT_EKKO TYPE TABLE OF TY_EKKO.
DATA: L_LEVEL TYPE N, "当前订单已审批通过级别数