sap 内表数据/json数据互转

  S4系统

json转单行内表数据 

/UI2/CL_JSON=>DESERIALIZE( EXPORTING JSON   = REQUEST
                                 ASSOC_ARRAYS     = ABAP_TRUE
                                 ASSOC_ARRAYS_OPT = ABAP_TRUE
                                 PRETTY_NAME = /UI2/CL_JSON=>PRETTY_MODE-CAMEL_CASE
                                 CHANGING DATA    = LS_REQ ).

     json转多条内表数据 

/UI2/CL_JSON=>DESERIALIZE( EXPORTING JSON   = REQUEST
                                 ASSOC_ARRAYS     = ABAP_TRUE
                                 ASSOC_ARRAYS_OPT = ABAP_TRUE
                                 PRETTY_NAME = /UI2/CL_JSON=>PRETTY_MODE-CAMEL_CASE
                                 CHANGING DATA    = LS_REQ[] ).

内表数据转json

FIELD-SYMBOLS : <FS> TYPE ANY.

 

ASSIGN VENDOR_RETURN[] TO <FS>.

 

    RESPONSE = /UI2/CL_JSON=>SERIALIZE( DATA             = <FS>
                                        ASSOC_ARRAYS     = ABAP_TRUE
                                        ASSOC_ARRAYS_OPT = ABAP_TRUE
                                       ).

 

R3系统

内表转json
CALL METHOD cl_fdt_json=>DATA_TO_JSON "转换后字段会默认大写
EXPORTING
ia_data = LS_REQ
RECEIVING
rv_json = REQUEST.

json转内表
CALL METHOD cl_fdt_json=>json_to_data
EXPORTING
iv_json = RESPONSE
CHANGING
ca_data = LS_REQ.

参数说明：REQUEST / RESPONSE - json数据。

　　　　  LS_REQ - 内表 。