1.創(chuàng)建通信用戶
image.png
2.創(chuàng)建通信系統(tǒng)并分配入站出站用戶
通信系統(tǒng)
image.png
3.創(chuàng)建自定義通信場景后發(fā)布
image.png
4.發(fā)布通信安排
image.png
5.代碼調(diào)用
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.
調(diào)用URL由通信安排中的服務URL和代碼中的地址拼接而成
以上
