PR做视频需要放网站上/哪个行业最需要推广

创建采购订单检查供应商信息记录（回车）

sap有个bug：修改为无采购信息记录的供应商，如果不回车直接点更新按钮，虽然会弹出alv选择，但是实际价格更新的还是之前的供应商的（供应商还没从屏幕上写入）

使用隐式增强

位置程序 LMEGUICIM 的 METHOD transport_to_dynp 结尾

*创建采购订单供应商无信息记录增强

data:

gv_lifnr type ekko-lifnr,

gv_lifnr2 type ekko-lifnr,

gv_name1 type lfa1-name1,

lv_netpr type eine-netpr.

if sy-tcode = 'ME21N' and sy-ucomm is initial. "回车进来

if l_item_data_entry-data-ebelp is not initial. "会进来多次，第一次进来有值，后面都是空的

import gv_lifnr = gv_lifnr2 from memory id 'GV_LIFNR'.

split mepo_topline-superfield at ' ' into gv_lifnr gv_name1.

call function 'CONVERSION_EXIT_ALPHA_OUTPUT'

exporting

input = gv_lifnr

importing

output = gv_lifnr.

if gv_lifnr ne gv_lifnr2.

select single eine~netpr

into lv_netpr

from eina

and eine~ekorg = mepo1222-ekorg and eine~loekz = '' AND eine~werks = mepo1211-werks.

where eina~infnr = mepo1211-infnr and eina~loekz = ''

and eine~ekorg = mepo1222-ekorg and eine~loekz = ''.

if sy-subrc ne 0 or lv_netpr is initial. "如果价格为零，标准功能也不会清除之前供应商带过来的价格

message '取不到信息记录的物料价格已清空' type 'S'.

clear mepo1211-netpr.

endif.

endif.

else. "第二次进来时，所有行项目都循环完了，此时把供应商号写入内存中

import gv_lifnr = gv_lifnr2 from memory id 'GV_LIFNR'.

split mepo_topline-superfield at ' ' into gv_lifnr gv_name1.

call function 'CONVERSION_EXIT_ALPHA_OUTPUT'

exporting

input = gv_lifnr

importing

output = gv_lifnr.

if gv_lifnr ne gv_lifnr2.

export gv_lifnr = gv_lifnr to memory id 'GV_LIFNR'.

endif.

endif.

endif.