实现ME22N行项目复制包含外挂栏位
上一篇 /
下一篇 2011-04-01 09:17:55
ME22N行项目复制包含外挂栏位实现
Enhancement for ME22N item copy include customize columns
改動兩個地方(Two places need to be changed):
1, ZXM06U41
如果當前的user command為copy時,將當前畫面的PO item外送到MEMEORY ID中。
(When user command is Item copy,export PO item screen data to MEMORY ID)
IF sy-ucomm = 'MEPO1211ITEMCOPY'.
export gt_ekpo TO MEMORY ID 'ZMEPOITEM' .
ENDIF.
2,修改class interface ZCL_IM_ZME_PROCESS_PO_CUST的method IF_EX_ME_PROCESS_PO_CUST~PROCESS_ITEM(implement po badi)
如果當前user command為item復制,從MEMEORY ID中讀取畫面的PO項次。
(When user command is item copy,import data from memory ID from step1 )
然后根據復制item的來源item,讀取對應的外挂 tax code,并且填入到新item中并save。
( read add-on tax code from source item,and fill in new items)
DATA: lw_mepoitem TYPE mepoitem.
DATA lt_ekpo TYPE TABLE OF ekpo.
DATA lw_ekpo TYPE ekpo.
IF sy-ucomm = 'MEPO1211ITEMCOPY'.
IMPORT gt_ekpo TO lt_ekpo FROM MEMORY ID 'ZMEPOITEM' .
lw_mepoitem = im_item->get_data( ).
READ TABLE lt_ekpo INTO lw_ekpo
WITH KEY ebeln = lw_mepoitem-refbs
ebelp = lw_mepoitem-refps.
IF sy-subrc = 0.
lw_mepoitem-zbs_mwskz = lw_ekpo-zbs_mwskz.
im_item->set_data( lw_mepoitem ).
ENDIF.
ENDIF.
导入论坛
引用链接
收藏
分享给好友
推荐到圈子
管理
举报
TAG: