ABAP URL sends POST request to use Form-data With key to transfer internal table (Json) data

When SAP calls the external URL, the incoming parameter of some URLs is Form-data with Key, and the incoming data format is JSON.

How to pass parameters through ABAP program at this time?

 ABAP implementation process:

1. Establish an HTTP connection.

URL = '192.168.0.0/test'.

CALL METHOD CL_HTTP_CLIENT=>CREATE_BY_URL
EXPORTING
URL                = URL
*     PROXY_SERVICE      = '443'
IMPORTING
CLIENT             = HTTP_CLIENT
EXCEPTIONS
ARGUMENT_NOT_FOUND = 1
PLUGIN_NOT_ACTIVE  = 2
INTERNAL_ERROR     = 3
OTHERS             = 4.

2. Set the Header parameter of the request

*设置内容格式为Form-data
  CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD
    EXPORTING
      NAME  = 'Content-Type'
      VALUE = 'multipart/form-data'.

  CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD
    EXPORTING
      NAME  = '~request_method'
      VALUE = 'POST'.

3. Add and bind Form-data parameter name

4. Serialize the internal table data into JSON format objects

5. Pass value

*定义Form-data value
  DATA: IT_FORMULARIO TYPE TIHTTPNVP,
        WA_FORMULARIO LIKE LINE OF IT_FORMULARIO,
        PART          TYPE REF TO IF_HTTP_ENTITY.

  PART = HTTP_CLIENT->REQUEST->IF_HTTP_ENTITY~ADD_MULTIPART( ).

*传入Value
  CALL METHOD PART->APPEND_CDATA
    EXPORTING
      DATA = V_RESPONSE.
*设置内容格式和name
  CALL METHOD PART->SET_HEADER_FIELD
    EXPORTING
      NAME  = 'content-disposition'
      VALUE = 'form-data;name="budgetList"'.

The complete code is as follows for reference:

DATA: LEN         TYPE        I , "发送报文长度
LEN_STRING  TYPE        STRING,
URL         TYPE        STRING , "接口地址
HTTP_CLIENT TYPE REF TO IF_HTTP_CLIENT , "http客户端
POST_STRING TYPE        STRING,
RESULT      TYPE        STRING.

DATA: IT_HEADER TYPE TIHTTPNVP.

***系统传参

TYPES: BEGIN OF TY_MATERIAL,  "Para
MATNR      TYPE STRING,
WERKS TYPE STRING,
END OF TY_MATERIAL.
DATA LS_MATERIAL    TYPE   TY_MATERIALT.
DATA LT_MATERIAL    LIKE TABLE OF   LS_MATERIAL.

TYPES: BEGIN OF TY_CODEMSG,  "Para
         CODE TYPE STRING,
         MSG  TYPE STRING,
       END OF TY_CODEMSG.

DATA LS_CODEMSG    TYPE   TY_CODEMSG.
DATA LT_CODEMSG    LIKE TABLE OF   LS_CODEMSG.

START-OF-SELECTION.


" Form-data  参数传值定义

LS_MATERIAL-MATNR= 'TEST001'.
LS_MATERIAL-WERKS = '1000'.


APPEND LS_MATERIAL TO LT_MATERIAL.

URL = '192.168.0.0/TEST'.

CALL METHOD CL_HTTP_CLIENT=>CREATE_BY_URL
EXPORTING
URL                = URL
*     PROXY_SERVICE      = '443'
IMPORTING
CLIENT             = HTTP_CLIENT
EXCEPTIONS
ARGUMENT_NOT_FOUND = 1
PLUGIN_NOT_ACTIVE  = 2
INTERNAL_ERROR     = 3
OTHERS             = 4.

*设置内容格式为Form-data
  CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD
    EXPORTING
      NAME  = 'Content-Type'
      VALUE = 'multipart/form-data'.

  CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD
    EXPORTING
      NAME  = '~request_method'
      VALUE = 'POST'.

*将内表序列化为JSON格式
  CLEAR V_RESPONSE .
  V_RESPONSE = ZUI2_JSON=>SERIALIZE( DATA = LT_MATERIAL
                                  COMPRESS = ABAP_FALSE
                               PRETTY_NAME = /UI2/CL_JSON=>PRETTY_MODE-LOW_CASE
                                 ASSOC_ARRAYS = ABAP_TRUE
                                    ) .


*定义Form-data value
  DATA: IT_FORMULARIO TYPE TIHTTPNVP,
        WA_FORMULARIO LIKE LINE OF IT_FORMULARIO,
        PART          TYPE REF TO IF_HTTP_ENTITY.

  PART = HTTP_CLIENT->REQUEST->IF_HTTP_ENTITY~ADD_MULTIPART( ).

*传入Value
  CALL METHOD PART->APPEND_CDATA
    EXPORTING
      DATA = V_RESPONSE.
*设置内容格式和name
  CALL METHOD PART->SET_HEADER_FIELD
    EXPORTING
      NAME  = 'content-disposition'
      VALUE = 'form-data;name="budgetList"'.

  "发送
  CALL METHOD HTTP_CLIENT->SEND
    EXCEPTIONS
      HTTP_COMMUNICATION_FAILURE = 1
      HTTP_INVALID_STATE         = 2
      HTTP_PROCESSING_FAILED     = 3
      HTTP_INVALID_TIMEOUT       = 4
      OTHERS                     = 5.

  "接收
  CALL METHOD HTTP_CLIENT->RECEIVE
    EXCEPTIONS
      HTTP_COMMUNICATION_FAILURE = 1
      HTTP_INVALID_STATE         = 2
      HTTP_PROCESSING_FAILED     = 3.

  "获取接口返回的数据
  RESULT = HTTP_CLIENT->RESPONSE->GET_CDATA( ).

*反序列化传值到内表或结构
  ZUI2_JSON=>DESERIALIZE( EXPORTING JSON = RESULT
                                 ASSOC_ARRAYS = ABAP_TRUE
                                PRETTY_NAME = /UI2/CL_JSON=>PRETTY_MODE-LOW_CASE
                              CHANGING DATA = LS_CODEMSG
                            )
                            .
*

WRITE: 'code:', LS_CODEMSG-CODE , 'message:' ,LS_CODEMSG-MSG.