ME21N 采购订单屏幕增强

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

效果展示

定期更文，欢迎关注

TRANSLATE with x

English

Arabic	Hebrew	Polish
Bulgarian	Hindi	Portuguese
Catalan	Hmong Daw	Romanian
Chinese Simplified	Hungarian	Russian
Chinese Traditional	Indonesian	Slovak
Czech	Italian	Slovenian
Danish	Japanese	Spanish
Dutch	Klingon	Swedish
English	Korean	Thai
Estonian	Latvian	Turkish
Finnish	Lithuanian	Ukrainian
French	Malay	Urdu
German	Maltese	Vietnamese
Greek	Norwegian	Welsh
Haitian Creole	Persian

 

TRANSLATE with

COPY THE URL BELOW

Back

EMBED THE SNIPPET BELOW IN YOUR SITE

Enable collaborative features and customize widget: Bing Webmaster Portal

Back