【OO ALV实现合并行和列】

最新推荐文章于 2024-06-25 23:02:26 发布

Explore1995

最新推荐文章于 2024-06-25 23:02:26 发布

阅读量607

点赞数 7

分类专栏： ABAP 文章标签：合并单元格合并行合并列

本文链接：https://blog.csdn.net/OutThink/article/details/135226865

版权

ABAP 专栏收录该内容

30 篇文章 4 订阅

订阅专栏

需求场景

做了一个FUNCTION ALV，按行展示，但是用户需要做一个转置，前面列按行显示，后面数量列由按列显示调整为按行显示。查了一下，好像是FUNCTION ALV实现不了，参考了一位博主实现了这个需求。
ABAP ALV多行表头（合并列，合并单元格）

问题点

这里面实现按行显示的代码有问题，我这里做了一些调整，代码如下：

FORM set_merge_vert USING col row len value.
  CLEAR: wa_col_merge,it_col_merge.
  wa_col_merge-col_id    = row.
  wa_col_merge-outputlen = len.
  APPEND wa_col_merge TO it_col_merge.

  CALL METHOD g_alv_grid->z_set_merge_vert
    EXPORTING
      col           = col
      value         = value
    CHANGING
      tab_col_merge = it_col_merge.

  "设置Style
  CLEAR:wa_style-style.
  wa_style-style     = alv_style_font_bold_no
  + alv_style_align_center_center
  + alv_style_color_key.

  CALL METHOD g_alv_grid->z_set_cell_style
    EXPORTING
      row   = row
      col   = col
      style = wa_style-style.
ENDFORM.                    " SET_MERGE_VERT

  METHOD z_set_merge_vert.
    FIELD-SYMBOLS <fs_cols> TYPE lvc_s_co01.
    FIELD-SYMBOLS <fs_data> TYPE lvc_s_data.
    DATA outputlen TYPE i.

    SORT tab_col_merge.

    LOOP AT tab_col_merge ASSIGNING <fs_cols>.
      IF <fs_cols>-col_id    LE 0.                CONTINUE. ENDIF.
      IF <fs_cols>-outputlen LE <fs_cols>-col_id. CONTINUE. ENDIF.
      outputlen = <fs_cols>-outputlen - <fs_cols>-col_id.
      LOOP AT mt_data ASSIGNING <fs_data>
      WHERE col_pos = col  AND
      ( row_pos BETWEEN <fs_cols>-col_id AND
      <fs_cols>-outputlen ).

        IF <fs_data>-row_pos = <fs_cols>-col_id.
          <fs_data>-mergevert = outputlen.
          <fs_data>-value = value.
        ELSE.
          CLEAR <fs_data>-mergevert.
          CLEAR <fs_data>-value.
        ENDIF.
      ENDLOOP.
    ENDLOOP.
  ENDMETHOD.                    "Z_SET_MERGE_VERT