Chinaunix首页 | 论坛 | 博客
  • 博客访问: 13310
  • 博文数量: 3
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 10
  • 用 户 组: 普通用户
  • 注册时间: 2015-04-02 13:03
文章分类
文章存档

2016年(1)

2015年(2)

我的朋友

分类: IT职场

2015-10-28 17:51:49

一:语法: CALL TRANSFORMATION id
DATA
lv_em  TYPE string,
        lv_em1 TYPE string.
  DATAlt_but021  TYPE TABLE OF but021,
        lt_but0211 TYPE TABLE OF but021,
        ls_but021  TYPE but021.

  "数据
  lv_em 'test' .

  ls_but021-partner 'partner1' .
  ls_but021-adr_kind 'kind1' .
  ls_but021-addrnumber 'addr1' .
  APPEND ls_but021 TO lt_but021 .
  ls_but021-partner 'partner2' .
  ls_but021-adr_kind 'kind2' .
  ls_but021-addrnumber 'addr2' .
  APPEND ls_but021 TO lt_but021 .

  "  abap 转json
  DATA(json_writercl_sxml_string_writer=>createtype if_sxml=>co_xt_json ).
  CALL TRANSFORMATION id
                      SOURCE content lv_em
                             itable  lt_but021
                      RESULT XML json_writer.
  DATA(jsonjson_writer->get_output).
  DATAlv_json TYPE string .
  CALL FUNCTION 'ECATT_CONV_XSTRING_TO_STRING'
    EXPORTING
      im_xstring  json
      im_encoding 'UTF-8'
    IMPORTING
      ex_string   lv_json.


  "  json 转 abap
  CALL TRANSFORMATION id
                      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.


阅读(1518) | 评论(0) | 转发(0) |
0

上一篇:没有了

下一篇:ABAP:为Table Control创建Context Menu

给主人留下些什么吧!~~