cl_http_client=>create_by_destination( EXPORTING
        destination = http_dest IMPORTING client = CLIENT ).
        request = CLIENT->request.

*    устанавливаю метод POST
    call method client->request->set_method(
      if_http_request=>CO_REQUEST_METHOD_POST ).

*    устанавливаю версию протокола
    client->request->set_version(
      if_http_request=>co_protocol_version_1_0 ).

*    content type 'multipart/form-data'
    CALL METHOD CLIENT->REQUEST->IF_HTTP_ENTITY~SET_CONTENT_TYPE
      EXPORTING
*           CONTENT_TYPE = 'text/xml'.
           CONTENT_TYPE = 'multipart/form-data'.

CALL METHOD CLIENT->REQUEST->SET_HEADER_FIELD
  EXPORTING
    NAME   = 'Accept'
*    VALUE  = 'text/html,application/xhtml+xml,application/xml;q=0.9,/;q=0.8'.
    VALUE  = 'text/xml'.

CALL METHOD CLIENT->REQUEST->SET_HEADER_FIELD
  EXPORTING
    NAME   = 'Accept-Charset'
    VALUE  = 'ISO-8859-1,utf-8;q=0.7,*;q=0.7'.

CALL METHOD CLIENT->REQUEST->IF_HTTP_ENTITY~SET_FORMFIELD_ENCODING
  EXPORTING
    FORMFIELD_ENCODING = CL_HTTP_REQUEST=>IF_HTTP_ENTITY~CO_ENCODING_RAW .

  data:    part type ref to if_http_entity.
* устанавливаю имя выгружаемого файла
part =  CLIENT->REQUEST->IF_HTTP_ENTITY~ADD_MULTIPART( ).
CALL METHOD part->set_header_field
  EXPORTING
    name  = 'content-disposition'
    value = 'form-data; name="xml_file"; filename="TTNAct.xml";'.
* в переменной str  текст XML файла в бинарном виде длина 671 символ
CALL METHOD part->set_data
  EXPORTING
    data   = str
    offset = 0.
*и делаю отправку
call method client->send
  EXPORTING
    timeout                    = 200
  EXCEPTIONS
    http_communication_failure = 1
    http_invalid_state         = 2
    http_processing_failed     = 3
    others                     = 4.

data: data_table type SSFBIN occurs 0 with header line,
      tablelen type i,
      body type xstring.
call function 'GUI_UPLOAD'
    exporting
      filename                      = 'C:\cURL\client.xml'
     FILETYPE                      = 'BIN'
   IMPORTING
     FILELENGTH                    = tablelen
*     HEADER                        =
    tables
      data_tab                      = data_table[]
*   CHANGING
*     ISSCANPERFORMED               = ' '
   EXCEPTIONS
     FILE_OPEN_ERROR               = 1
     FILE_READ_ERROR               = 2
     NO_BATCH                      = 3
     GUI_REFUSE_FILETRANSFER       = 4
     INVALID_TYPE                  = 5
     NO_AUTHORITY                  = 6
     UNKNOWN_ERROR                 = 7
     BAD_DATA_FORMAT               = 8
     HEADER_NOT_ALLOWED            = 9
     SEPARATOR_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
     OTHERS                        = 17.

call function 'SCMS_BINARY_TO_XSTRING'
  exporting
    input_length       = tablelen
*   FIRST_LINE         = 0
*   LAST_LINE          = 0
IMPORTING
   BUFFER             = body
  tables
    binary_tab         = data_table[]
* EXCEPTIONS
*   FAILED             = 1
*   OTHERS             = 2
          .

CALL METHOD part->set_data
EXPORTING
data = body
offset = 0.

 
*перевожу таблицу с XML кодом в string
call function 'SOTR_SERV_TABLE_TO_STRING'
    importing
      text         = l_text
    tables
      text_tab     = TAB_XML.
*а далее  перевожу string в xstring  с кодировкой UTF-8
app_type = 'text/plain; charset=utf-8'.

  call function 'SCMS_STRING_TO_XSTRING'
    exporting
      text         = l_text
       mimetype = app_type
    importing
      buffer       = l_xstring_data
    exceptions
      failed       = 1
      others       = 2.

CALL METHOD cl_http_client=>create
    EXPORTING
      host               = '---url---'
      service            = '8080'
    IMPORTING
      client             = lo_http_client
    EXCEPTIONS
      argument_not_found = 1
      internal_error     = 2
      plugin_not_active  = 3
      OTHERS             = 4.
  IF sy-subrc <> 0.
    EXIT.
  ENDIF.

  CALL METHOD lo_http_client->request->set_header_field
    EXPORTING
      name  = '~request_uri'
      value = '/opt/out/Ticket/1'.

  CALL METHOD lo_http_client->request->set_header_field
    EXPORTING
      name  = '~request_method'
      value = 'DELETE'.

  CALL METHOD lo_http_client->send
    EXPORTING
      timeout                    = 100
    EXCEPTIONS
      http_communication_failure = 1
      http_invalid_state         = 2
      http_processing_failed     = 3
      http_invalid_timeout       = 4
      OTHERS                     = 5.
  IF sy-subrc <> 0.
    EXIT.
  ENDIF.

  CALL METHOD lo_http_client->receive
    EXCEPTIONS
      http_communication_failure = 1
      http_invalid_state         = 2
      http_processing_failed     = 3
      OTHERS                     = 4.

  IF sy-subrc <> 0.
    EXIT.
  ELSE.

    lo_http_client->response->get_status( IMPORTING code = http_rc ).
    WRITE: 'http status code = ', http_rc.

    w_result = lo_http_client->response->get_cdata( ).
    lo_http_client->close( ).

    REFRESH result_tab .
    SPLIT w_result AT cl_abap_char_utilities=>cr_lf INTO TABLE result_tab .
    LOOP AT result_tab INTO w_result.
      WRITE :/ w_result.
    ENDLOOP.
  ENDIF.