Question

我有一个深层结构，我希望将其显示为具有每个字段值的树（有点像在SE11中可以执行的结构的分层显示，但有值）。

是否有适合您的课程或功能？我真的不想重新发明轮子。

Answer 1

ALV树会起作用吗？ CL_SALV_TREE

Answer 2

好吧，我会说DIY做得更快然后搜索一些足以帮助你的东西。您可以尝试以编码为基础。

它通过变量（无论是表格还是结构）进行普通递归，然后打印底部找到的字段......

*&---------------------------------------------------------------------*
*&      Form  print_structure
*&---------------------------------------------------------------------*
form print_structure using im_data.

  data: lr_typeref   type ref to cl_abap_typedescr,
        lf_ddic_in   type fieldname,
        lt_dfies     type ddfields,
        lf_string    type c length 200.
      field-symbols: <lt_table> type any table,
                 <ls_table> type any,
                 <lf_field> type any,
                 <ls_dfies> like line of lt_dfies.

  lr_typeref = cl_abap_typedescr=>describe_by_data( im_data ).
  case lr_typeref->type_kind.
    when cl_abap_typedescr=>typekind_table. " internal table
      assign im_data to <lt_table>.
      loop at <lt_table> assigning <ls_table>.
        perform print_structure using <ls_table>.
      endloop.
    when cl_abap_typedescr=>typekind_struct1 or
         cl_abap_typedescr=>typekind_struct2. " deep/flat structure
      lf_ddic_in = lr_typeref->get_relative_name( ).
      call function 'DDIF_FIELDINFO_GET'
        exporting
          tabname     = lf_ddic_in
          all_types   = 'X'
        tables
          dfies_tab = lt_dfies
        exceptions
          not_found = 1
          others    = 0.
      check sy-subrc eq 0.
      loop at lt_dfies assigning <ls_dfies>.
        assign component <ls_dfies>-fieldname of structure im_data to <lf_field>.
        perform print_structure using <lf_field>.
      endloop.
    when others. " any field
      write im_data to lf_string.
      write: / lf_string.
  endcase.

endform.                    "print_structure

Answer 3

我从未见过这样的功能，并认为标准中没有人。无法记住标准中应该使用此类功能的任何情况。在我看来，最合适的方式来实现这一点 - 使用列树。看看SAPCOLUMN_TREE_CONTROL_DEMO

是否有功能提供带有数据的深层结构的格式化显示？

3 个答案: