abap数据类型转换_abap内表数据转JSON格式（两种方法）

一：语法：CALLTRANSFORMATIONidDATA:lv_emTYPEstring,

lv_em1TYPEstring.

DATA:lt_but021TYPETABLEOFbut021,

lt_but0211TYPETABLEOFbut021,

ls_but021TYPEbut021.

"数据

lv_em='test'.

ls_but021-partner='partner1'.

ls_but021-adr_kind='kind1'.

ls_but021-addrnumber='addr1'.

APPENDls_but021TOlt_but021.

ls_but021-partner='partner2'.

ls_but021-adr_kind='kind2'.

ls_but021-addrnumber='addr2'.

APPENDls_but021TOlt_but021.

"  abap 转json

DATA(json_writer)=cl_sxml_string_writer=>create(type=if_sxml=>co_xt_json).

CALLTRANSFORMATIONid

SOURCE content=lv_em

itable=lt_but021

RESULT XML json_writer.

DATA(json)=json_writer->get_output().

DATA:lv_jsonTYPEstring.

CALLFUNCTION'ECATT_CONV_XSTRING_TO_STRING'

EXPORTING

im_xstring=json

im_encoding='UTF-8'

IMPORTING

ex_string=lv_json.

"  json 转 abap

CALLTRANSFORMATIONid

SOURCE XML lv_json

RESULT content=lv_em1

itable=lt_but0211.

二：

DATA lv_json TYPE string."定义JSON存放的变量

DATA lr_json_serializer TYPE REF TO cl_trex_json_serializer."解析JSON用到的类(编译成JSON格式)

DATA lr_json_deserializer TYPE REF TO cl_trex_json_deserializer. "解析JSON用到的类(解析JSON格式)

DATA: BEGIN OF wa_wl,

zzfld0000ht  TYPE crmt_item_descr_partner,

zzfld0000hu  TYPE crmt_prshtextx_db,

zzfld0000hv  TYPE zdtel00002x,

zzfld0000hw  TYPE zdtel000135,

zzfld0000hx  TYPE zdtel0001d3,

zzfld0000i0  TYPE char10,

END OF wa_wl.

"根据结构通过这个类可以转换成JSON格式

CREATE OBJECT lr_json_serializer

EXPORTING

data = wa_wl.

lr_json_serializer->serialize( ).

lv_json = lr_json_serializer->get_data( ).

"OA需要用双引号才能识别是JSON格式这里需要转换下

REPLACE 'zzfld0000i0'IN lv_json WITH '"ZCBZ"'.

REPLACE 'zzfld0000ht'IN lv_json WITH '"WLBM"'.

REPLACE 'zzfld0000hu'IN lv_json WITH '"WLMC"'.

REPLACE 'zzfld0000hw'IN lv_json WITH '"WLDJ"'.

REPLACE 'zzfld0000hv'IN lv_json WITH '"WLSL"'.

REPLACE 'zzfld0000hx'IN lv_json WITH '"HJ"'.

IF i_num > 1.

CONCATENATE  str1 ',' INTO str1.

ENDIF.

CONCATENATE  str1 lv_json INTO str1.

IF str1 IS NOT INITIAL.

CONCATENATE '[' str1 ']' INTO str1.

CONDENSE str1 NO-GAPS.

set_fieldcat 'RTFTEXTDYNAMIC' str1.

ENDIF.