关于BAPI_ACC_DOCUMENT_POST解读

BAPI_ACC_DOCUMENT_POST是SAP ERP提供生成会计凭证的标准BAPI，这个BAPI可以用到多种场景生成会计凭证，实际项目中一般情况下更多的是生成应收和应付的会计凭证，分别对应客户和供应商，本例使用该BAPI生成资产价值，对应前台事务为F-90.

使用F-90，前台做凭证一般是一行是供应商(应付)，一行是资产(总帐)，因此使用BAPI_ACC_DOCUMENT_POST创建资产价值的时候应该按照这样填充值，需要注意以下参数赋值，对于资产行，由于资产主数据上有科目定位码这个字段，对应是在事务代码AO90中配置了科目，对于资产价值需要使用购置和生产成本这个科目，所以在BAPI中也要使用这个科目；科目类型要给A(如果不给A，BAPI的返回消息中会提示科目1601050000不能直接记帐)；业务范围本例给的0001，这个取决于资产主数据是否填写，如果填写F-90做凭证的时候可以直接带过来，BAPI中则可以赋值，没填写就可以不使用；次级资产编号标准定义的是CHAR4，在使用BAPI时一定要给足四位，否则会报错(报资产XX不属于公司代码XX)。根据公司代码，帐目表，科目定位码可以在AO90中找到对应的关于资产的科目配置，如下图所示，1601050000在FS00中是资产类型的统驭科目，

另外对于资产来说还需要业务类型字段(对应F-90中的字段是事务类型)，由于BAPI中的ACCOUNTGL中没有该字段，因此需要手动扩充，建立在EXTENSION2中，并结合BADI使用，建立的扩充结构如下，字段名字参照BSEG。

生成的凭证：

参考样例代码，供读者参考，

REPORT zssh_test_create_asset_value.

*通过BAPI创建资产价值 对应事务为F-90

DATA:ls_doc_header TYPE bapiache09,

lt_accountgl TYPE TABLE OF bapiacgl09,

ls_accountgl TYPE bapiacgl09,

lt_accountpayable TYPE TABLE OF bapiacap09,

ls_accountpayable TYPE bapiacap09,

lt_currencyamount TYPE TABLE OF bapiaccr09,

ls_currencyamount TYPE bapiaccr09,

lt_extension2 TYPE TABLE OF bapiparex,

ls_extension2 TYPE bapiparex,

lt_return TYPE TABLE OF bapiret2,

ls_return TYPE bapiret2,

ls_asset_value TYPE zssh_test_asset_value_str.

ls_doc_header-comp_code = 'ZSSH'.

ls_doc_header-fisc_year = 2020.

ls_doc_header-fis_period = 11.

ls_doc_header-doc_type = 'KR'.

ls_doc_header-pstng_date = '20201116'.

ls_doc_header-doc_date = '20201116'. " 凭证中的凭证日期

ls_doc_header-header_txt = 'BAPI_ACC_DOCUMENT_POST创建资产价值'. " 凭证抬头文本

ls_doc_header-username = sy-uname. " 用户名

ls_doc_header-ref_doc_no = 'BAPI_ACC_DOCUMENT_POST'.

*应付科目行

ls_accountpayable-itemno_acc = 1. "会计凭证行项目 1

ls_accountpayable-comp_code = 'ZSSH'. "公司代码

ls_accountpayable-profit_ctr = 'LZSSH00001'. "利润中心

ls_accountpayable-item_text = 'BAPI_ACC_DOCUMENT_POST创建资产价值'. "行项目文本

ls_accountpayable-gl_account = '2202010000'. "总账科目

ls_accountpayable-vendor_no = '0401000015'. "客户代码

ls_accountpayable-pmnttrms = 'ZZ99'.

ls_accountpayable-bline_date = '20201116'. "付款基准日期

APPEND ls_accountpayable TO lt_accountpayable.

ls_currencyamount-itemno_acc = 1. "会计凭证行项目编号

ls_currencyamount-amt_doccur = 120 * '-1'.

ls_currencyamount-curr_type = '00'.

ls_currencyamount-currency = 'RMB' .

APPEND ls_currencyamount TO lt_currencyamount.

*资产科目行

ls_accountgl-itemno_acc = 2. " 会计凭证行项目 2

ls_accountgl-comp_code = 'ZSSH'. " 公司代码

ls_accountgl-item_text = 'BAPI_ACC_DOCUMENT_POST创建资产价值'. " 行项目文本

ls_accountgl-gl_account = '1601050000'. " 总分类帐帐目

ls_accountgl-asset_no = '180207000015'.

ls_accountgl-sub_number = '0000'.

*ls_accountgl-cs_trans_t = '100'."事务类型

*ls_accountgl-acct_key = '100'.

ls_accountgl-acct_type = 'A'. "资产

ls_accountgl-bus_area = '0001'. "业务部门 业务类别

APPEND ls_accountgl TO lt_accountgl.

ls_currencyamount-itemno_acc = 2. "会计凭证行项目编号

ls_currencyamount-amt_doccur = 120.

ls_currencyamount-curr_type = '00'.

ls_currencyamount-currency = 'RMB' .

APPEND ls_currencyamount TO lt_currencyamount.

ls_asset_value-posnr = 2.

ls_asset_value-anbwa = '100'.

ls_extension2-structure = 'ZSSH_TEST_ASSET_VALUE_STR'.

ls_extension2+30(960) = ls_asset_value.

APPEND ls_extension2 TO lt_extension2.

CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'

EXPORTING

documentheader = ls_doc_header

• CUSTOMERCPD =
• CONTRACTHEADER =
• IMPORTING
• OBJ_TYPE =
• OBJ_KEY =
• OBJ_SYS =
  
  TABLES
  
  accountgl = lt_accountgl
• ACCOUNTRECEIVABLE =
  
  accountpayable = lt_accountpayable
• ACCOUNTTAX =
  
  currencyamount = lt_currencyamount
• CRITERIA =
• VALUEFIELD =
• EXTENSION1 =
  
  return = lt_return
• PAYMENTCARD =
• CONTRACTITEM =
  
  extension2 = lt_extension2
• REALESTATE =
• ACCOUNTWT =
  
  .

LOOP AT lt_return INTO ls_return WHERE type CA 'AE'.

WRITE:/ ls_return-id,ls_return-number,ls_return-message.

CLEAR ls_return.

ENDLOOP.

IF sy-subrc NE 0.

LOOP AT lt_return INTO ls_return WHERE type EQ 'S'.

WRITE:/ ls_return-id,ls_return-number,ls_return-message.

CLEAR ls_return.

ENDLOOP.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

wait = 'X'.

ENDIF.

BADI：ACC_DOCUMENT

METHOD if_ex_acc_document~change.

DATA:ls_asset_value TYPE zssh_test_asset_value_str,

ls_extension2 TYPE bapiparex,

ls_accit TYPE accit.

CHECK sy-uname EQ 'SHISH'.

LOOP AT c_extension2 INTO ls_extension2.

ls_asset_value = ls_extension2+30(960).

CLEAR ls_accit.
READ TABLE c_accit INTO ls_accit WITH KEY posnr = ls_asset_value-posnr.
IF sy-subrc EQ 0.
  MOVE-CORRESPONDING ls_asset_value TO ls_accit.
  MODIFY c_accit FROM ls_accit INDEX sy-tabix. "lv_tabix.
ENDIF.

ENDLOOP.

ENDMETHOD.