ME21N 采购订单屏幕增强-抬头

目录

一.需求

二.实现

    1.增强字段新增

    2.增强点

 三.ME22N展示

 四.BAPI增强字段传值 

总结

---

一.需求

采购订单行项目新增”成本中心“、“订单号”字段，根据采购订单类型来进行显示隐藏。

---

二.实现

1.增强字段新增

在表EKKO的结构CI_EKKODB中增加增强字段

2.增强点

CMOD：MM06E005

全局定义：ZXM06TOP

*&---------------------------------------------------------------------*
*& 包含               ZXM06TOP
*&---------------------------------------------------------------------*

  TABLES: ci_ekpodb, ci_ekkodb.

  DATA : g_trtyp_c,g_aktyp_c.

  DATA:g_ebeln TYPE ebeln.
  DATA:g_bsart TYPE bsart.

  DATA:gv_ucomm TYPE syst-ucomm.

功能出口：

EXIT_SAPMM06E_006

*&---------------------------------------------------------------------*
*& 包含               ZXM06U36
*&---------------------------------------------------------------------*

  ci_ekkodb = CORRESPONDING #( i_ci_ekko ).

  g_trtyp_c = i_trtyp.

  g_ebeln = i_ekko-ebeln.

  g_bsart = i_ekko-bsart.

EXIT_SAPMM06E_008 

*&---------------------------------------------------------------------*
*& 包含               ZXM06U37
*&---------------------------------------------------------------------*

  DATA l_ci_ekkodb TYPE ci_ekkodb.

  l_ci_ekkodb = CORRESPONDING #( e_ci_ekko ). "add by ds 20210531

  IF ci_ekkodb <> l_ci_ekkodb.
    e_ci_ekko = CORRESPONDING #( ci_ekkodb ).
    e_ci_update = abap_true.
  ENDIF.
  e_ucomm = gv_ucomm.

屏幕出口：（也就是我们画屏幕的地方）

屏幕101 注意勾选子屏幕

画取屏幕 注意名称：CI_EKKODB-字段

PROCESS BEFORE OUTPUT.
  MODULE status_0101_add.

PROCESS AFTER INPUT.
  MODULE user_command_0101.

最后CMOD激活项目！

三.ME22N展示

四.BAPI增强字段传值 

结构增加增强字段：BAPI_TE_MEPOHEADER、BAPI_TE_MEPOHEADERX

注意：BAPI_TE_MEPOHEADERX增强字段类型为BAPIUPDATE

相关部分代码：抬头BAPI扩展字段写入失败增强待更新

DATA: lt_extensionin TYPE TABLE OF bapiparex,
      ls_extensionin TYPE bapiparex,
      ls_he          TYPE bapi_te_mepoheader,
      ls_hex         TYPE bapi_te_mepoheaderx.

* 增强
ls_he-zzkostl     =  <value>-kostl.
ls_he-zzaufnr     =  <value>-aufnr.
ls_extensionin-structure  = 'BAPI_TE_MEPOHEADER'.
CALL METHOD cl_abap_container_utilities=>fill_container_c
  EXPORTING
    im_value     = ls_he
  IMPORTING
    ex_container = ls_extensionin+30(960).
APPEND ls_extensionin TO lt_extensionin.
CLEAR ls_extensionin.

ls_hex-zzkostl     = COND #( WHEN ls_he-zzkostl IS NOT INITIAL THEN abap_true ) .
ls_hex-zzaufnr     = COND #( WHEN ls_he-zzaufnr IS NOT INITIAL THEN abap_true ) .
ls_extensionin-structure  = 'BAPI_TE_MEPOHEADERX'.
ls_extensionin-valuepart1 = ls_hex.
APPEND ls_extensionin TO lt_extensionin.
CLEAR ls_extensionin.
CLEAR ls_he.

CALL FUNCTION 'BAPI_PO_CREATE1'
  EXPORTING
    poheader         =
    poheaderx        =
  IMPORTING
    exppurchaseorder =
  tables
    return           =
    poitem           =
    poitemx          =
    poaccount        =
    poaccountx       =
    poschedule       =
    poschedulex      =
    potextheader     =
    potextitem       =
    extensionin      = lt_extensionin.

总结

相关ME21N采购订单行抬头屏幕增强，小傻瓜式步骤。