BAPI_ACC_DOCUMENT_POST 一键冲销，代码

以下是一个简单的 ABAP 程序，用于使用 BAPI_ACC_DOCUMENT_POST 函数模块一键冲销会计凭证：

REPORT z_test_bapi_acc_doc_post.

DATA: wa_header TYPE bapiache09,
      wa_item TYPE bapiacgl09.

* 凭证头信息
wa_header.username = sy-uname.
wa_header.companycode = '1000'.
wa_header.documentdate = sy-datum.
wa_header.header_text = 'BAPI_ACC_DOCUMENT_POST 冲销凭证'.

* 凭证行项目信息
wa_item.bussiness_transaction = 'AB'.
wa_item.gl_account = '100000'.
wa_item.amount_currency = '-10'.
wa_item.currency = 'USD'.
wa_item.quantity = '1'.
wa_item.unit = 'EA'.
wa_item.short_text = '冲销凭证'.

* 冲销已创建的凭证
wa_item.reference_key_1 = '0000000001'.
wa_item.reference_key_2 = '2021000001'.
wa_item.reference_key_3 = '0001'.

* 调用 BAPI_ACC_DOCUMENT_POST 函数模块
CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
  EXPORTING
    documentheader = wa_header
  TABLES
    accountgl = wa_item
  EXCEPTIONS
    OTHERS = 1.

以上代码中，我们首先定义了一个凭证头信息和一个凭证行项目信息。然后，我们指定了要冲销的会计凭证号码以及冲销金额。最后，我们调用 BAPI_ACC_DOCUMENT_POST 函数模块，向 SAP 系统提交冲销凭证的数据。需要注意的是，以上代码仅供参考，实际使用时需要根据具体业务需求进行修改。