实现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 commandcopy時,將當前畫面的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_CUSTmethod IF_EX_ME_PROCESS_PO_CUST~PROCESS_ITEM(implement po badi)

   如果當前user commanditem復制,從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:

 

评分:0

我来说两句

显示全部

:loveliness: :handshake :victory: :funk: :time: :kiss: :call: :hug: :lol :'( :Q :L ;P :$ :P :o :@ :D :( :)

日历

« 2012-05-23  
  12345
6789101112
13141516171819
20212223242526
2728293031  

数据统计

  • 访问量: 1199
  • 日志数: 5
  • 建立时间: 2009-12-10
  • 更新时间: 2011-06-07

RSS订阅

Open Toolbar