点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

专家您好，

我需要使用abap程序（POST方法）从SAP系统（SAP_BASIS 740 SP-杠杆9）调用外部REST API。

我不知道如何将pdf文件传输到API。 该API的参数为：文件（列表到pdf文件），收件人[名称]和收件人[电子邮件]。

数据：ls_xml TYPE字符串，
ls_respuesta_xml TYPE字符串，
ld_urlurl TYPE字符串，
lo_https_client TYPE REF TO if_http_client，
lo_http_entity TYPE REF TO if_http_entity，
lo_request TYPE REF to if_rest
lo_response类型引用到if_rest_entity，
lv_http_status类型字符串，
lv_status类型字符串，
lv_reason类型字符串，
lv_response类型字符串，
lv_content_length类型字符串，
lv_location类型字符串 ，
lv_content_type TYPE字符串，
lv_body TYPE字符串，
lt_tab_file TYPE CHAR表，
ls_xstring TYPE xstring，
lv_length TYPE i，
lv_string TYPE字符串，
lv_rfc_dest TYPE rfcdest，
lo_http_client TYPE REF到if_http_client，
lo_rest_client TYPE REF到cl_rest_http_client，
lo_request_entity TYPE REF到if_rest_entity，
lt_fields TYPE tihttpnvp，
ls_fields TYPE ihttp。 br>"上载PDF文件

调用方法cl_gui_frontend_services => gui_upload

导出
文件名='Z：\ file.pdf '
文件类型= 'BIN'IMPORTING
文件长度= lv_lengthCHANGING
data_tab = lt_tab_fileEXCEPTIONS
file_open_error = 01
file_read_error = 02
no_batch = 03
gui_refuse_filetransfer = 04
invalid_type = 05
no_authority = 06
未知错误= 07
bad_data_format = 08
header_not_allowed = 09
splitter_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
not_supported_by_gui = 17
error_no_gui =18。

"将PDF转换为XSTRING

CALL FUNCTION'SCMS_BINARY_TO_XSTRING'

导出
input_length = lv_length

IMPORTINGbuffer = ls_xstring

TABLES
binary_tab = lt_tab_file

EXCEPTIONS
失败= 1OTHERS =2。

" HTTPS
lv_rfc_dest ='RFC_DEST'。" api.xxxxxxxx.com/v3
cl_http_client => create_by_destination（

导出
目的地= lv_rfc_dest

IMPORTINGclient = lo_http_client

EXCEPTIONS
arguments_not_found = 1
destination_not_found = 2
destination_no_authority = 3
plugin_not_active = 4
internal_error = 5OTHERS = 6）。

"登录禁用
lo_http_client-> propertytype_logon_popup = lo_http_client-> co_disabled。

"其他客户端

创建对象lo_rest_client

导出
io_http_client = lo_http_client。

lo_request = lo_rest_client-> if_rest_client〜create_request_entity（）。
lo_request-> set_content_type（iv_media_type = if_rest_media_type => gc_appl_json）。

" JSON字符串
lv_body ='{" recipients [0] [name]"：" Test"，" recipients [0] [email]"："" test@gmail.com "}'。

lo_request-> set_string_data（lv_body）。

ld_urlurl ='/yyyyyyyyy.json'。
ls_fields-name = if_http_header_fields_sap => request_uri。
ls_fields-value = ld_urlurl.APPEND ls_fields到lt_fields。

ls_fields-name ='Author
ls_fields-value ='bearer xxxxxxxxxxxxxxxxxxx'。将ls_fields附加到lt_fields。
调用方法lo_rest_client-> if_rest_client〜set_request_headers

导出
it_header_fields = lt_fields。

* POST
lo_rest_client-> if_rest_resource〜post（lo_request）。

*响应
lo_response = lo_rest_client-> if_rest_client〜get_response_entity（）。
lv_http_status = lv_status = lo_response-> get_header_field（'〜status_code'）。
lv_reason =（head_response- '〜status_reason'）。
lv_content_length = lo_response-> get_header_field（'content-length'）。
lv_location = lo_response-> get_header_field（'location'）。
lv_content_type = lo_response-> get_header_field（'content -type'）。
lv_response = lo_response-> get_string_data（）。

lo_rest_client-> if_rest_client〜close（）。

写入：/lv_http_status，lv_reason，lv_response。

感谢和问候，

路卡