货铺QQ群号：834508274
进群统一修改群名片，例如BJ_ABAP_森林木。群内禁止发广告及其他一切无关链接，小程序等，进群看公告，谢谢配合
不修改昵称会被不定期踢除，谢谢配合
采购订单审批BAPI ---BAPI_PO_RELEASE
REPORT z_release_po.
DATA gc_frggr LIKE ekko-frggr. "Release Group
DATA gc_frgsx LIKE ekko-frgsx. "Release Strategy
DATA gc_frgke LIKE ekko-frgke. "Release Status.
DATA ret_code LIKE sy-subrc.
DATA msg(255) TYPE c.
DATA: gt_t16fs LIKE t16fs OCCURS 0 WITH HEADER LINE.
DATA: gc_new_status LIKE bapimmpara-rel_status.
DATA: gc_indicator_new LIKE bapimmpara-po_rel_ind.
DATA: gt_log LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA: gc_no_commit LIKE bapimmpara-selection.
DATA: et_log LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA:BEGIN OF it_po_rel_code OCCURS 0,
rel_code TYPE frgco,
END OF it_po_rel_code.
SELECTION-SCREEN BEGIN OF BLOCK block WITH FRAME TITLE title.
PARAMETERS:po_num LIKE ekko-ebeln,"采购订单号
rel_code TYPE frgco."审批代码
SELECTION-SCREEN END OF BLOCK block.
SELECT SINGLE ekko~frgke INTO gc_frgke FROM ekko WHERE ekko~ebeln = po_num.
IF gc_frgke = '1'.
ret_code = -1.
CONCATENATE: po_num '已经通过审核' INTO msg.
* EXIT.
ELSE.
SELECT SINGLE ekko~frggr ekko~frgsx INTO (gc_frggr,gc_frgsx) FROM ekko WHERE ekko~ebeln = po_num.
IF ( gc_frggr IS NOT INITIAL ) AND ( gc_frgsx IS NOT INITIAL ).
REFRESH gt_t16fs.
CLEAR gt_t16fs.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_t16fs FROM t16fs WHERE t16fs~frggr = gc_frggr AND t16fs~frgsx = gc_frgsx.
ELSE.
ret_code = -1.
msg ='未找到对应审批策略，请检查输入'.
EXIT.
ENDIF.
IF rel_code IS NOT INITIAL.
CLEAR gc_new_status.
CLEAR gc_indicator_new.
CALL FUNCTION 'BAPI_PO_RELEASE'
EXPORTING
purchaseorder = po_num
po_rel_code = rel_code
use_exceptions = 'X'
* no_commit =
IMPORTING
rel_status_new = gc_new_status
rel_indicator_new = gc_indicator_new
* ret_code =
TABLES
return = gt_log.
.
IF sy-subrc = 0.
et_log-type = 'S'.
CONCATENATE: '采购订单通过审核码' rel_code '的审核成功！' '返回采购订单审批状态为：' gc_new_status ' 审批标识为：'
gc_indicator_new INTO et_log-message.
APPEND et_log.
IF NOT gt_log[] IS INITIAL.
et_log-type = gt_log-type.
et_log-message = gt_log-message.
APPEND et_log.
ENDIF.
ENDIF.
ELSE.
ret_code = -1.
msg = '未找到对应审批策略，请检查输入'.
EXIT.
ENDIF.
IF et_log[] IS NOT INITIAL.
READ TABLE et_log WITH KEY type = 'E'.
IF sy-subrc = 0.
msg = 'po审核存在错误，请查看错误日志'.
ret_code = -1.
EXIT.
ELSE.
msg = 'PO已审核成功，请查看日志'.
ret_code = 0.
ENDIF.
ENDIF.
ENDIF.
WRITE:msg.
采购订单审批与撤销审批BAPI：
CLEAR:OUT_MSG.
IF IN_FLAG = 'Y'.
CALL FUNCTION 'BAPI_PO_RELEASE'
EXPORTING PURCHASEORDER = IN_EBELN
PO_REL_CODE = IN_FRGCO
EXCEPTIONS AUTHORITY_CHECK_FAIL = 1 DOCUMENT_NOT_FOUND = 2 ENQUEUE_FAIL = 3 PREREQUISITE_FAIL = 4 RELEASE_ALREADY_POSTED = 5 RESPONSIBILITY_FAIL = 6 OTHERS = 7.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
OUT_MSG = 'S'.
ENDIF.
ELSEIF IN_FLAG = 'N'.
CALL FUNCTION 'BAPI_PO_RESET_RELEASE'
EXPORTING PURCHASEORDER = IN_EBELN
PO_REL_CODE = IN_FRGCO
EXCEPTIONS AUTHORITY_CHECK_FAIL = 1 DOCUMENT_NOT_FOUND = 2 ENQUEUE_FAIL = 3 PREREQUISITE_FAIL = 4 RELEASE_ALREADY_POSTED = 5 RESPONSIBILITY_FAIL = 6 NO_RELEASE_ALREADY = 7 NO_NEW_RELEASE_INDICATOR = 8 OTHERS = 9.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
OUT_MSG = 'S'.
ENDIF.
ENDIF.
