SAP ABAP ALV超长JOSN数据无法展示,改用HML格式显示

功能代码:

FORM frm_user_command  USING r_ucomm LIKE sy-ucomm
                                   rs_selfield TYPE slis_selfield.
  " BREAK ABAP05.
  CASE r_ucomm.
    WHEN '&IC1'.
      PERFORM frm_show_detail USING rs_selfield.
    WHEN ''. "点击 detail 按钮时,显示供应商的采购订单列表
  ENDCASE.
ENDFORM.
FORM frm_show_detail  USING rs_selfield TYPE slis_selfield.
  DATA: lv_id TYPE sxmsmguid.
  DATA: lr_datum LIKE RANGE OF sy-datum WITH HEADER LINE.
  CASE rs_selfield-fieldname.
    WHEN 'M'.
    WHEN  'LOGID'.
      CLEAR gwa_data.
      READ TABLE gt_data INTO gwa_data INDEX rs_selfield-tabindex.
      PERFORM frm_view_jiek_data.
  ENDCASE.

ENDFORM.

FORM frm_view_jiek_data .

  DATA lt_tk01 TYPE TABLE OF ztifmara_log.
  DATA lt_tk05 TYPE TABLE OF  ztiftks05.
  DATA lt_tk06 TYPE TABLE OF ztiftk06_log.
  DATA lt_tksg01 TYPE TABLE OF ztfi_fkjz.
  DATA lt_tksk02 TYPE TABLE OF ztifdbyw_log.
  DATA lt_pbs05 TYPE TABLE OF zficot003.
  DATA lt_z019 TYPE TABLE OF zmmi019_log.

  DATA lt_crmf005 TYPE TABLE OF ztfi_kna1.

  DATA: lv_json     TYPE string,
        lv_convert  TYPE string,
        lo_json_ser TYPE REF TO cl_trex_json_serializer,
        lv_err_text TYPE string.

  CASE gwa_data-jiekno.
    WHEN 'ZFICOI200'.
* 日志明细
      SELECT SINGLE json
        INTO lv_json
        FROM zbct_log_details
       WHERE record_guid = gwa_data-logid.
  ENDCASE.

  TRY.
      IF lv_json IS INITIAL.
        RETURN.
      ENDIF.
*   将JSON转换为HTML
      CALL TRANSFORMATION sjson2html SOURCE XML lv_json
                                     RESULT XML DATA(lv_html).
    CATCH cx_xslt_runtime_error INTO DATA(lo_err).
      lv_err_text = lo_err->get_text( ).
      WRITE: lv_err_text.
      RETURN.
  ENDTRY.

* 显示HTML
  lv_convert = cl_abap_codepage=>convert_from( lv_html ).
  cl_abap_browser=>show_html( html_string = lv_convert ).



ENDFORM.

  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ᝰ随心ꦿེএ

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值