1.ABAP 功能模块的 JSON 适配器

2.RESTFUL方式

7.与前一篇文章有所不同的是，本次在ABAP类中增加了更新模块，如图，请见代码：

8.在APIFOX新建好服务URL后，可以在根目录设置用户密码，这样后面子节点就可以继承根目录的用户配置

9.新建调用接口[本例是SAP函数：BAPI_ACC_DOCUMENT_POST]

9.1在BODY页签，现在json格式，输入测试的报文

{
"documentheader": {
"obj_type": "",
"obj_key": "",
"obj_sys": "",
"bus_act": "",
"username": "CHENHUI",
"header_txt": "抬头文本",
"comp_code": "1710",
"doc_date": "2023-06-02",
"pstng_date": "2023-06-02",
"trans_date": "0000-00-00",
"fisc_year": 2023,
"fis_period": 6,
"doc_type": "SA",
"ref_doc_no": "参照字段",
"ac_doc_no": "",
"obj_key_r": "",
"reason_rev": "",
"compo_acc": "",
"ref_doc_no_long": "",
"acc_principle": "",
"neg_postng": "",
"obj_key_inv": "",
"bill_category": "",
"vatdate": "0000-00-00",
"invoice_rec_date": "0000-00-00",
"ecs_env": "",
"partial_rev": "",
"doc_status": ""
},
"customercpd": {
"name": "",
"name_2": "",
"name_3": "",
"name_4": "",
"postl_code": "",
"city": "",
"country": "",
"country_iso": "",
"street": "",
"po_box": "",
"pobx_pcd": "",
"pobk_curac": "",
"bank_acct": "",
"bank_no": "",
"bank_ctry": "",
"bank_ctry_iso": "",
"tax_no_1": "",
"tax_no_2": "",
"tax": "",
"equal_tax": "",
"region": "",
"ctrl_key": "",
"instr_key": "",
"dme_ind": "",
"langu_iso": "",
"iban": "",
"swift_code": "",
"tax_no_3": "",
"tax_no_4": "",
"title": "",
"tax_no_5": ""
},
"contractheader": {
"doc_no": "",
"doc_type_ca": "",
"res_key": "",
"fikey": "",
"payment_form_ref": ""
},
"accountgl": [
{
"itemno_acc": 1,
"gl_account": "0012121000",
"item_text": "",
"stat_con": "",
"log_proc": "",
"ac_doc_no": "",
"ref_key_1": "",
"ref_key_2": "",
"ref_key_3": "",
"acct_key": "",
"acct_type": "",
"doc_type": "",
"comp_code": "",
"bus_area": "",
"func_area": "",
"plant": "",
"fis_period": 0,
"fisc_year": 0,
"pstng_date": "0000-00-00",
"value_date": "2023-06-02",
"fm_area": "",
"customer": "",
"cshdis_ind": "",
"vendor_no": "",
"alloc_nmbr": "",
"tax_code": "",
"taxjurcode": "",
"ext_object_id": "",
"bus_scenario": "",
"costobject": "",
"costcenter": "",
"acttype": "",
"profit_ctr": "",
"part_prctr": "",
"network": "",
"wbs_element": "",
"orderid": "",
"order_itno": 0,
"routing_no": 0,
"activity": "",
"cond_type": "",
"cond_count": 0,
"cond_st_no": 0,
"fund": "",
"funds_ctr": "",
"cmmt_item": "",
"co_busproc": "",
"asset_no": "",
"sub_number": "",
"bill_type": "",
"sales_ord": "",
"s_ord_item": 0,
"distr_chan": "",
"division": "",
"salesorg": "",
"sales_grp": "",
"sales_off": "",
"sold_to": "",
"de_cre_ind": "",
"p_el_prctr": "",
"xmfrw": "",
"quantity": 0,
"base_uom": "",
"base_uom_iso": "",
"inv_qty": 0,
"inv_qty_su": 0,
"sales_unit": "",
"sales_unit_iso": "",
"po_pr_qnt": 0,
"po_pr_uom": "",
"po_pr_uom_iso": "",
"entry_qnt": 0,
"entry_uom": "",
"entry_uom_iso": "",
"volume": 0,
"volumeunit": "",
"volumeunit_iso": "",
"gross_wt": 0,
"net_weight": 0,
"unit_of_wt": "",
"unit_of_wt_iso": "",
"item_cat": "",
"material": "",
"matl_type": "",
"mvt_ind": "",
"reval_ind": "",
"orig_group": "",
"orig_mat": "",
"serial_no": 0,
"part_acct": "",
"tr_part_ba": "",
"trade_id": "",
"val_area": "",
"val_type": "",
"asval_date": "0000-00-00",
"po_number": "",
"po_item": 0,
"itm_number": 0,
"cond_category": "",
"func_area_long": "",
"cmmt_item_long": "",
"grant_nbr": "",
"cs_trans_t": "",
"measure": "",
"segment": "",
"partner_segment": "",
"res_doc": "",
"res_item": 0,
"billing_period_start_date": "0000-00-00",
"billing_period_end_date": "0000-00-00",
"ppa_ex_ind": "",
"fastpay": "",
"partner_grant_nbr": "",
"budget_period": "",
"partner_budget_period": "",
"partner_fund": "",
"itemno_tax": 0,
"payment_type": "",
"expense_type": "",
"program_profile": "",
"material_long": "",
"housebankid": "",
"housebankacctid": "",
"person_no": 0,
"acrobj_type": "",
"acrobj_id": "",
"acrsubobj_id": "",
"acritem_type": "",
"valobjtype": "",
"valobj_id": "",
"valsubobj_id": ""
},
{
"itemno_acc": 2,
"gl_account": "0012401100",
"item_text": "",
"stat_con": "",
"log_proc": "",
"ac_doc_no": "",
"ref_key_1": "",
"ref_key_2": "",
"ref_key_3": "",
"acct_key": "",
"acct_type": "",
"doc_type": "",
"comp_code": "",
"bus_area": "",
"func_area": "",
"plant": "",
"fis_period": 0,
"fisc_year": 0,
"pstng_date": "0000-00-00",
"value_date": "2023-06-02",
"fm_area": "",
"customer": "",
"cshdis_ind": "",
"vendor_no": "",
"alloc_nmbr": "",
"tax_code": "",
"taxjurcode": "",
"ext_object_id": "",
"bus_scenario": "",
"costobject": "",
"costcenter": "",
"acttype": "",
"profit_ctr": "",
"part_prctr": "",
"network": "",
"wbs_element": "",
"orderid": "",
"order_itno": 0,
"routing_no": 0,
"activity": "",
"cond_type": "",
"cond_count": 0,
"cond_st_no": 0,
"fund": "",
"funds_ctr": "",
"cmmt_item": "",
"co_busproc": "",
"asset_no": "",
"sub_number": "",
"bill_type": "",
"sales_ord": "",
"s_ord_item": 0,
"distr_chan": "",
"division": "",
"salesorg": "",
"sales_grp": "",
"sales_off": "",
"sold_to": "",
"de_cre_ind": "",
"p_el_prctr": "",
"xmfrw": "",
"quantity": 0,
"base_uom": "",
"base_uom_iso": "",
"inv_qty": 0,
"inv_qty_su": 0,
"sales_unit": "",
"sales_unit_iso": "",
"po_pr_qnt": 0,
"po_pr_uom": "",
"po_pr_uom_iso": "",
"entry_qnt": 0,
"entry_uom": "",
"entry_uom_iso": "",
"volume": 0,
"volumeunit": "",
"volumeunit_iso": "",
"gross_wt": 0,
"net_weight": 0,
"unit_of_wt": "",
"unit_of_wt_iso": "",
"item_cat": "",
"material": "",
"matl_type": "",
"mvt_ind": "",
"reval_ind": "",
"orig_group": "",
"orig_mat": "",
"serial_no": 0,
"part_acct": "",
"tr_part_ba": "",
"trade_id": "",
"val_area": "",
"val_type": "",
"asval_date": "0000-00-00",
"po_number": "",
"po_item": 0,
"itm_number": 0,
"cond_category": "",
"func_area_long": "",
"cmmt_item_long": "",
"grant_nbr": "",
"cs_trans_t": "",
"measure": "",
"segment": "",
"partner_segment": "",
"res_doc": "",
"res_item": 0,
"billing_period_start_date": "0000-00-00",
"billing_period_end_date": "0000-00-00",
"ppa_ex_ind": "",
"fastpay": "",
"partner_grant_nbr": "",
"budget_period": "",
"partner_budget_period": "",
"partner_fund": "",
"itemno_tax": 0,
"payment_type": "",
"expense_type": "",
"program_profile": "",
"material_long": "",
"housebankid": "",
"housebankacctid": "",
"person_no": 0,
"acrobj_type": "",
"acrobj_id": "",
"acrsubobj_id": "",
"acritem_type": "",
"valobjtype": "",
"valobj_id": "",
"valsubobj_id": ""
}
],
"accountreceivable": [],
"accountpayable": [],
"accounttax": [],
"currencyamount": [
{
"itemno_acc": 1,
"curr_type": "00",
"currency": "CNY",
"currency_iso": "",
"amt_doccur": 100.0000,
"exch_rate": 0,
"exch_rate_v": 0,
"amt_base": 0,
"disc_base": 0,
"disc_amt": 0,
"tax_amt": 0,
"amt_doccur_long": 0,
"amt_base_long": 0,
"disc_base_long": 0,
"disc_amt_long": 0,
"tax_amt_long": 0
},
{
"itemno_acc": 2,
"curr_type": "00",
"currency": "CNY",
"currency_iso": "",
"amt_doccur": -100.0000,
"exch_rate": 0,
"exch_rate_v": 0,
"amt_base": 0,
"disc_base": 0,
"disc_amt": 0,
"tax_amt": 0,
"amt_doccur_long": 0,
"amt_base_long": 0,
"disc_base_long": 0,
"disc_amt_long": 0,
"tax_amt_long": 0
}
],
"criteria": [],
"valuefield": [],
"extension1": [],
"return": [],
"paymentcard": [],
"contractitem": [],
"extension2": [
{
"structure": "ZSENBSEG",
"valuepart1": "000000000140 字段一字段二字段三字段四字段五",
"valuepart2": "",
"valuepart3": "",
"valuepart4": ""
},
{
"structure": "ZSENBSEG",
"valuepart1": "000000000250 字段一字段二字段三字段四字段五",
"valuepart2": "",
"valuepart3": "",
"valuepart4": ""
}
],
"realestate": [],
"accountwt": []
}

测试的报文是由ABAP测试生成而来：

*&---------------------------------------------------------------------*
*& Report Z3426008A
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z3426008a.
DATA:ls_header TYPE bapiache09,
lv_key TYPE bapiache09-obj_key,
lv_msg TYPE string,
ls_struct TYPE zsenbseg,
lv_posnr TYPE i.
DATA:lt_gl TYPE bapiacgl09 OCCURS 0 WITH HEADER LINE,
lt_cr TYPE bapiaccr09 OCCURS 0 WITH HEADER LINE,
lt_ex TYPE bapiparex OCCURS 0 WITH HEADER LINE,
lt_rt TYPE bapiret2 OCCURS 0 WITH HEADER LINE.

*参考会计凭证 100000006 F011 2021
ls_header-header_txt = '抬头文本'.
ls_header-comp_code = '1710'.
ls_header-doc_type = 'SA'.
*ls_header-obj_type = 'BKPF'.
ls_header-username = sy-uname.
ls_header-doc_date = sy-datum.
ls_header-pstng_date = sy-datum.
ls_header-fisc_year = sy-datum+0(4).
ls_header-fis_period = sy-datum+4(2).
ls_header-ref_doc_no = '参照字段'.

lv_posnr = lv_posnr + 1.
lt_gl-itemno_acc = lv_posnr.
lt_gl-gl_account = '0012121000'.
lt_gl-value_date = sy-datum.
APPEND lt_gl.

lt_cr-itemno_acc = lv_posnr. " 会计凭证行项目编号
lt_cr-curr_type = '00'. " 货币和评估视图
lt_cr-currency = 'CNY'. " 货币码
lt_cr-amt_doccur = '100'.
APPEND lt_cr.

ls_struct-posnr = lv_posnr.
ls_struct-bschl = '40'.
ls_struct-rstgr = ''.
ls_struct-zzfield1 = '字段一'.
ls_struct-zzfield2 = '字段二'.
ls_struct-zzfield3 = '字段三'.
ls_struct-zzfield4 = '字段四'.
ls_struct-zzfield5 = '字段五'.
lt_ex-structure = 'ZSENBSEG'.
lt_ex-valuepart1 = ls_struct.
APPEND lt_ex.

lv_posnr = lv_posnr + 1.
lt_gl-itemno_acc = lv_posnr.
lt_gl-gl_account = '0012401100'.
lt_gl-value_date = sy-datum.
APPEND lt_gl.

lt_cr-itemno_acc = lv_posnr. " 会计凭证行项目编号
lt_cr-curr_type = '00'. " 货币和评估视图
lt_cr-currency = 'CNY'. " 货币码
lt_cr-amt_doccur = '-100'.
APPEND lt_cr.

ls_struct-posnr = lv_posnr.
ls_struct-bschl = '50'.
ls_struct-rstgr = ''.
ls_struct-zzfield1 = '字段一'.
ls_struct-zzfield2 = '字段二'.
ls_struct-zzfield3 = '字段三'.
ls_struct-zzfield4 = '字段四'.
ls_struct-zzfield5 = '字段五'.
lt_ex-structure = 'ZSENBSEG'.
lt_ex-valuepart1 = ls_struct.
APPEND lt_ex.

DATA:BEGIN OF ls_request,
documentheader LIKE bapiache09,
customercpd LIKE bapiacpa09,
contractheader LIKE bapiaccahd,
accountgl LIKE TABLE OF bapiacgl09,
accountreceivable LIKE TABLE OF bapiacar09,
accountpayable LIKE TABLE OF bapiacap09,
accounttax LIKE TABLE OF bapiactx09,
currencyamount LIKE TABLE OF bapiaccr09,
criteria LIKE TABLE OF bapiackec9,
valuefield LIKE TABLE OF bapiackev9,
extension1 LIKE TABLE OF bapiacextc,
return LIKE TABLE OF bapiret2,
paymentcard LIKE TABLE OF bapiacpc09,
contractitem LIKE TABLE OF bapiaccait,
extension2 LIKE TABLE OF bapiparex,
realestate LIKE TABLE OF bapiacre09,
accountwt LIKE TABLE OF bapiacwt09,
END OF ls_request.

DATA:BEGIN OF ls_response,
obj_type LIKE bapiache09-obj_type,
obj_key LIKE bapiache09-obj_key,
obj_sys LIKE bapiache09-obj_sys,
accountgl LIKE TABLE OF bapiacgl09,
accountreceivable LIKE TABLE OF bapiacar09,
accountpayable LIKE TABLE OF bapiacap09,
accounttax LIKE TABLE OF bapiactx09,
currencyamount LIKE TABLE OF bapiaccr09,
criteria LIKE TABLE OF bapiackec9,
valuefield LIKE TABLE OF bapiackev9,
extension1 LIKE TABLE OF bapiacextc,
return LIKE TABLE OF bapiret2,
paymentcard LIKE TABLE OF bapiacpc09,
contractitem LIKE TABLE OF bapiaccait,
extension2 LIKE TABLE OF bapiparex,
realestate LIKE TABLE OF bapiacre09,
accountwt LIKE TABLE OF bapiacwt09,
END OF ls_response.

ls_request-documentheader = ls_header.
ls_request-accountgl[] = lt_gl[].
ls_request-currencyamount[] = lt_cr[].
ls_request-extension2[] = lt_ex[].

DATA:lv_fname TYPE string,
lv_request TYPE string,
lv_response TYPE string.

lv_fname = `BAPI_ACC_DOCUMENT_POST`.
lv_request = /ui2/cl_json=>serialize( data = ls_request compress = abap_false pretty_name = 'L' ).
PERFORM frm_call_function USING lv_fname lv_request CHANGING lv_response.
/ui2/cl_json=>deserialize( EXPORTING json = lv_response pretty_name = 'X' CHANGING data = ls_response ).

FORM frm_call_function USING iv_fname TYPE string
iv_request TYPE string
CHANGING ov_response TYPE string.
DATA:lv_url TYPE string,
lv_hostname TYPE string,
lv_port TYPE string.

CALL FUNCTION 'TH_GET_VIRT_HOST_DATA'
EXPORTING
protocol = 0
virt_idx = 0
IMPORTING
hostname = lv_hostname
port = lv_port.

lv_url = 'http://' && lv_hostname && ':' && lv_port && '/abapapi/' && iv_fname.
CALL METHOD cl_http_client=>create_by_url
EXPORTING
url = lv_url
IMPORTING
client = DATA(lo_http_client)
EXCEPTIONS
argument_not_found = 1
plugin_not_active = 2
internal_error = 3
OTHERS = 4.

lo_http_client->propertytype_logon_popup = lo_http_client->co_disabled.
lo_http_client->authenticate( EXPORTING username = CONV string( 'HTTP_USER' ) password = CONV string( '123qazQAZ' ) ).
"lo_http_client->request->set_content_type( content_type = 'application/json; charset=utf-8' ).
lo_http_client->request->set_method( if_http_request=>co_request_method_post ).
lo_http_client->request->set_header_field( name = if_http_header_fields=>content_type value = 'application/json; charset=utf-8' ).
lo_http_client->request->set_cdata( data = iv_request offset = 0 length = strlen( iv_request ) ).
lo_http_client->send( EXCEPTIONS http_communication_failure = 1 http_invalid_state = 2 ).
lo_http_client->receive( EXCEPTIONS http_communication_failure = 1 http_invalid_state = 2 http_processing_failed = 3 ).
lo_http_client->get_last_error( IMPORTING message = DATA(lv_message) code = DATA(lv_code) ).
ov_response = lo_http_client->response->get_cdata( ).
lo_http_client->close( ).
ENDFORM.

9.2在header页签输入参数：Commit,值为X,目的是提交数据