BAPI_PO_RESET_RELEASE---取消采购订单审批

REPORT Z_RESET_RELEASE_PO.

SELECTION-SCREEN BEGIN OF BLOCK BLK1

WITH FRAME TITLE TEXT-001.

PARAMETERS:P_EBELN TYPE EBELN,

P_FRGCO TYPE FRGCO.

SELECTION-SCREEN END OF BLOCK BLK1.

CALL FUNCTION 'BAPI_PO_RESET_RELEASE'

EXPORTING

purchaseorder = P_EBELN

po_rel_code = P_FRGCO

USE_EXCEPTIONS = 'X'

* IMPORTING

* REL_STATUS_NEW =

* REL_INDICATOR_NEW =

* TABLES

* RETURN =

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.

WRITE:'取消审批成功！'.

ENDIF.