ME21N 采购订单屏幕增强

最新推荐文章于 2024-08-29 14:01:48 发布

SAP_森林木

最新推荐文章于 2024-08-29 14:01:48 发布

阅读量333

点赞数

原文链接：https://mp.weixin.qq.com/s?__biz=MzU1MDAzMDY3MQ==&mid=2247495268&idx=1&sn=e3b39e982cb369e08466dadc93a89063&chksm=fa53b8ea0c7d46625663af0705bb24c6f6607d2477c0d8834a5ab2131584086f630cce8c2497&scene=126&sessionid=0

版权

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

效果展示