ABAP ME28 ME2M 增加展示字段增强

小皮卡沃尼

已于 2024-01-26 08:18:53 修改

阅读量504

点赞数 9

分类专栏：增强 # MM 文章标签：程序人生笔记开发语言

于 2024-01-24 20:00:00 首次发布

by_Jshi

本文链接：https://blog.csdn.net/jzyddfzj/article/details/135819386

版权

MM 同时被 2 个专栏收录

6 篇文章 0 订阅

订阅专栏

增强

4 篇文章 0 订阅

订阅专栏

文章目录

前言

业务需求：在ME2M、ME28增加客制化显示字段。

一、获取展示显示结构

F1如下：

结构：MEREP_OUTTAB_PURCHDOC

二、显示结构新增客制化字段

APPENDING字段

三、增强点：

BADI->ES_BADI_ME_REPORTING

代码如下：

上图物料编码为：EMATN

METHOD if_ex_me_change_outtab_cus~fill_outtab.

  BREAK itl_abap04.
  FIELD-SYMBOLS:
    <fs_matnr> TYPE mara-matnr,
    <fs_zclph> TYPE mara-zclph,
    <fs_zthgg> TYPE mara-zthgg.
  FIELD-SYMBOLS:
    <fs_ebeln>  TYPE ekkn-ebeln,
    <fs_ebelp>  TYPE ekkn-ebelp,
    <fs_aufnr>  TYPE afpo-aufnr,
    <fs_matnr2> TYPE afpo-matnr,
    <fs_maktx>  TYPE makt-maktx.

  IF ( sy-tcode EQ 'ME2M' AND im_struct_name EQ 'MEREP_OUTTAB_PURCHDOC' )
     OR ( sy-tcode EQ 'ME28' AND im_struct_name EQ 'MEREP_OUTTAB_PURCHDOC_REL' ).

    LOOP AT ch_outtab ASSIGNING <fs_outtab>.

      ASSIGN COMPONENT 'EMATN'  OF STRUCTURE <fs_outtab> TO <fs_matnr>.
      ASSIGN COMPONENT 'ZZCLPH' OF STRUCTURE <fs_outtab> TO <fs_zclph>.
      ASSIGN COMPONENT 'ZZTHGG' OF STRUCTURE <fs_outtab> TO <fs_zthgg>.
      IF <fs_matnr> IS ASSIGNED
        AND <fs_zclph> IS ASSIGNED
        AND <fs_zthgg> IS ASSIGNED.
        SELECT SINGLE zclph,zthgg FROM mara WHERE matnr = @<fs_matnr> INTO ( @<fs_zclph>,@<fs_zthgg> ).
      ENDIF.
      UNASSIGN <fs_matnr>.
      UNASSIGN <fs_zclph>.
      UNASSIGN <fs_zthgg>.
      ASSIGN COMPONENT 'EBELN'   OF STRUCTURE <fs_outtab> TO <fs_ebeln>.
      ASSIGN COMPONENT 'EBELP'   OF STRUCTURE <fs_outtab> TO <fs_ebelp>.
      ASSIGN COMPONENT 'ZZAUFNR' OF STRUCTURE <fs_outtab> TO <fs_aufnr>.
      ASSIGN COMPONENT 'ZZMATNR' OF STRUCTURE <fs_outtab> TO <fs_matnr2>.
      ASSIGN COMPONENT 'ZZMAKTX' OF STRUCTURE <fs_outtab> TO <fs_maktx>.
      IF <fs_ebeln> IS ASSIGNED
        AND <fs_ebelp>  IS ASSIGNED
        AND <fs_aufnr>  IS ASSIGNED
        AND <fs_matnr2> IS ASSIGNED
        AND <fs_maktx>  IS ASSIGNED.
        SELECT SINGLE
          ekkn~aufnr,
          afpo~matnr,
          makt~maktx
          FROM ekkn
          INNER JOIN afpo ON afpo~aufnr = ekkn~aufnr
          LEFT  JOIN makt ON makt~matnr = afpo~matnr AND makt~spras = '1'
          WHERE ekkn~ebeln = @<fs_ebeln>
            AND ekkn~ebelp = @<fs_ebelp>
          INTO ( @<fs_aufnr>,@<fs_matnr2>,@<fs_maktx> ).
      ENDIF.
      UNASSIGN <fs_ebeln>.
      UNASSIGN <fs_ebelp>.
      UNASSIGN <fs_aufnr>.
      UNASSIGN <fs_matnr2>.
      UNASSIGN <fs_maktx>.
    ENDLOOP.

  ENDIF.

ENDMETHOD.