1.创建通信用户
image.png
2.创建通信系统并分配入站出站用户
通信系统
image.png
3.创建自定义通信场景后发布
image.png
4.发布通信安排
image.png
5.代码调用
DATA: lv_available TYPE abap_bool.
cl_ble_http_client=>is_service_available(
EXPORTING
communication_scenario = 'YY1_INT_HTTP'
outbound_service = 'YY1_INT_HTTP_REST'
RECEIVING
available = lv_available ).
IF lv_available NE abap_true.
message = VALUE #( severity = co_severity-error text = '通信安排错误' ).RETURN.
ENDIF.
DATA(lo_client) = cl_ble_http_client=>create(
communication_scenario = 'YY1_INT_HTTP'
outbound_service = 'YY1_INT_HTTP_REST' ).
*********获取token***********************************
DATA lv_u1 TYPE string VALUE '/API_PURCHASEORDER_PROCESS_SRV/A_PurchaseOrder'.
DATA:lv_u2 TYPE string VALUE '?$top=1'.
DATA: lt_headerparam TYPE tihttpnvp,
ls_header TYPE LINE OF tihttpnvp.
ls_header-name = 'Accept'.
ls_header-value = 'application/json'.
APPEND ls_header TO lt_headerparam.
ls_header-name = 'x-csrf-token'.
ls_header-value = 'fetch'.
APPEND ls_header TO lt_headerparam.
lv_u2 = lv_u1 && lv_u2.
DATA(request) = cl_ble_http_request=>create( )->set_method( 'GET' )->set_resource_extension( lv_u2 )->set_header_parameters( parameters = lt_headerparam ).
CLEAR:lt_headerparam,ls_header.
TRY .
DATA(response) = lo_client->send( request ).
DATA(lv_token) = response->get_header_parameter( name = 'x-csrf-token' ).
CATCH cx_ble_http_exception INTO DATA(lx).
message = VALUE #( severity = co_severity-error text = lx->get_text( ) ).
RETURN.
ENDTRY.
调用URL由通信安排中的服务URL和代码中的地址拼接而成
以上
