采购订单屏幕增强

发布时间 2023-08-23 16:48:44作者: 斌将军

1、业务需求

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

2、增强实现

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

增强点CMOD:MM06E005

出口EXIT_SAPMM06E_016

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

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

在出口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'.
"--------------------@斌将军--------------------

效果展示