采购订单的屏幕增强在项目实施过程中比较常用。多用于在采购订单抬头或行项目中增加自定义字段,在界面上能够维护和显示。
本文档是在采购订单行项目中新增“图号”和“价格类型”字段。其中图号只查询底表展示,不做修改;价格类型做下拉框,可修改;
增强标准表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~zylzd4FROM ebknINNER JOIN afko ON ebkn~aufnr = afko~aufnrINNER JOIN mara ON afko~plnbez = mara~matnrINTO ci_ekpodb-zylzd4WHERE 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'."--------------------@斌将军--------------------
效果展示