MB51 ALV添加字段

j_h_f

已于 2024-07-04 10:18:33 修改

阅读量238

点赞数 1

分类专栏： ABAP语言文章标签： sap abap

于 2024-07-04 10:18:14 首次发布

本文链接：https://blog.csdn.net/m0_60802154/article/details/140171921

版权

ABAP语言专栏收录该内容

33 篇文章

订阅专栏

MB51 ALV添加字段

*添加供应商描述
  IF LIST[] IS NOT INITIAL.
    SELECT PARTNER ,NAME_ORG1, NAME_ORG2 INTO TABLE @DATA(LT_BUT000) FROM BUT000 FOR ALL ENTRIES IN @LIST[] WHERE PARTNER = @LIST-LIFNR .
    LOOP AT LIST.
      READ TABLE LT_BUT000 INTO DATA(LS_BUT000) WITH KEY PARTNER = LIST-LIFNR .
      IF SY-SUBRC EQ 0.
        LIST-NAME1_TEXT = LS_BUT000-NAME_ORG1 && LS_BUT000-NAME_ORG2.
        MODIFY LIST.
      ENDIF.
    ENDLOOP.
  ENDIF.

添加FIELDCAT

可以在子例程build_runtimetable中添加标准表的字段
在子例程 build_fieldcatalog 添加自定义结构
在这里插入图片描述

*添加供应商描述
  IF SY-TCODE EQ 'MB51'.

    CLEAR FC_FLAT .
    FC_FLAT-FIELDNAME   = 'NAME1_TEXT'.
    FC_FLAT-TABNAME     = 'BUT000'.
    FC_FLAT-REF_TABNAME = 'ZTCO003'.
    FC_FLAT-REF_FIELDNAME = 'NAME1'.
    APPEND FC_FLAT .
    CLEAR  FC_FLAT .
  ENDIF.