注
如果发票已经过账,还需要vf02把冲销发票过账
demo
DATA:
LS_RETURN LIKE BAPIRETURN1,
LS_SUCCESS LIKE BAPIVBRKSUCCESS,
L_BILL_DOC LIKE BAPIVBRKSUCCESS-BILL_DOC.
DATA:
LT_RETURN LIKE TABLE OF BAPIRETURN1,
LT_SUCCESS LIKE TABLE OF BAPIVBRKSUCCESS.
CLEAR: L_BILL_DOC.
L_BILL_DOC = US_HEAD-ZZVBNF. "发票凭证
*--- 取消发票
CALL FUNCTION 'BAPI_BILLINGDOC_CANCEL1'
EXPORTING
BILLINGDOCUMENT = L_BILL_DOC
TABLES
RETURN = LT_RETURN
SUCCESS = LT_SUCCESS.
READ TABLE LT_RETURN INTO LS_RETURN
WITH KEY TYPE = 'E'.
IF SY-SUBRC <> 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .
ENDIF.