1、业务需求

采购订单行项目新增“图号”和“价格类型”字段。其中图号只查询底表展示，不做修改；价格类型做下拉框；

2、增强实现

增强标准表EKPO结构CI_EKPODB。抬头增加字段则修改EKKO结构CI_EKKODB

ME21N 采购订单屏幕增强_ME21N

增强点CMOD：MM06E005

ME21N 采购订单屏幕增强_ME21N_02

出口EXIT_SAPMM06E_016

首先在TOP文件中引入全局CI_EKPODB

ME21N 采购订单屏幕增强_ME21N_03

创建行项目增强字段的子屏幕0111，并在屏幕中绘制图号和价格类型字段。如果是抬头增强字段，则创建子屏幕0101

ME21N 采购订单屏幕增强_ME21N_04

在出口EXIT_SAPMM06E_016中写展示到界面的逻辑

"--------------------@斌将军--------------------
*&---------------------------------------------------------------------*
*& 包含               ZXM06U41
*&---------------------------------------------------------------------*
MOVE-CORRESPONDING i_ci_ekpo TO ci_ekpodb.

CLEAR:ci_ekpodb-zylzd4.

"获取图号
SELECT SINGLE
  mara~zylzd4
FROM ebkn
INNER JOIN afko ON ebkn~aufnr = afko~aufnr
INNER JOIN mara ON afko~plnbez = mara~matnr
INTO ci_ekpodb-zylzd4
WHERE ebkn~banfn = i_ekpo-banfn
  AND ebkn~bnfpo = i_ekpo-bnfpo.

"设置下拉框默认值
IF ci_ekpodb-zjglx IS INITIAL.
  ci_ekpodb-zjglx = '1'."合同价
ENDIF.

"获取编辑显示变量
gv_aktyp = i_aktyp.
"--------------------@斌将军--------------------

在出口EXIT_SAPMM06E_018中写存表逻辑

"--------------------@斌将军--------------------
*&---------------------------------------------------------------------*
*& 包含               ZXM06U40
*&---------------------------------------------------------------------*
MOVE-CORRESPONDING ci_ekpodb TO e_ci_ekpo.
e_ci_update = 'X'.
"--------------------@斌将军--------------------

效果展示

ME21N 采购订单屏幕增强_ME21N_05

 

定期更文，欢迎关注

ME21N 采购订单屏幕增强_ME21N_06