采购订单(ME21N/ME23N)
METHOD if_ex_me_process_po_cust~process_header .
DATA:items TYPE purchase_order_items,
item_obj TYPE purchase_order_item.
DATA:l_head TYPE mepoheader.
DATA:l_item TYPE mepoitem.
DATA:icount TYPE i .
DATA: v_vkorg TYPE a304-vkorg .
DATA: v_vbund TYPE lfa1-vbund .
DATA: v_werks TYPE lfa1-werks .
DATA: v_kbetr TYPE kbetr_kond.
DATA: v_mgvgw TYPE plfh-mgvgw .
DATA: v_kpein TYPE kpein.
DATA: v_kmein TYPE kmein.
DATA: im_conditions TYPE mmpur_tkomv .
DATA: lw_komv TYPE komv .
DATA: v_clsever TYPE zefi_client-clsever .
DATA: it_tkomv TYPE mmpur_tkomv,
wa_tkomv LIKE LINE OF it_tkomv.
data:lv_lifnr type ekko-lifnr .
l_head = im_header->get_data( ).
items = im_header->get_items( ) .
IMPORT lv_LIFNR TO lv_lifnr FROM MEMORY ID 'ZLIFNR'.
if lv_lifnr ne l_head-lifnr .
*------瓶盖控制bydev23--------on20091202------------------
IF l_head-ekorg = '5101' AND
( l_head-ekgrp = '500' OR l_head-ekgrp = '501' ) .
LOOP AT items INTO item_obj .
l_item = item_obj-item->get_data( ).
icount = icount + 1 .
CLEAR : v_vbund , v_werks .
SELECT SINGLE vbund werks INTO (v_vbund,v_werks)
FROM lfa1
WHERE lifnr = l_head-lifnr .
IF sy-subrc = 0 .
v_vkorg = v_vbund+2(4) .
ELSE .
CLEAR v_vkorg .
ENDIF .
*-----判断哪个系统的供应商-------
*-----PRD/TST-----*
IF ( sy-sysid = 'PRN' OR sy-sysid = 'TSN') AND v_werks < 2500.
SELECT SINGLE clsever INTO v_clsever FROM zefi_client .
CALL FUNCTION 'ZMM_GETZPR2' DESTINATION v_clsever
EXPORTING
vkorg = v_vkorg
matnr = l_item-matnr
IMPORTING
kbetr = v_kbetr
kpein = v_kpein
kmein = v_kmein.
ELSE .
SELECT SINGLE kbetr kpein kmein INTO (v_kbetr,v_kpein,v_kmein)
FROM a304 AS a INNER JOIN konp AS b
ON a~knumh = b~knumh
WHERE a~kappl = 'V' AND
a~kschl = 'ZPR2' AND
a~vkorg = v_vkorg AND
a~vtweg = '20' AND
a~matnr = l_item-matnr AND
a~datbi >= sy-datum AND
a~datab <= sy-datum .
ENDIF .
CLEAR: it_tkomv, v_mgvgw.
CALL METHOD item_obj-item->get_conditions
IMPORTING
ex_conditions = it_tkomv.
LOOP AT it_tkomv INTO lw_komv WHERE kntyp = 'H' . "H基本价格
lw_komv-kschl = 'PBXX' .
lw_komv-kbetr = v_kbetr .
lw_komv-kmein = v_kmein .
lw_komv-kpein = v_kpein .
MODIFY it_tkomv FROM lw_komv .
ENDLOOP .
item_obj-item->set_conditions( im_conditions = it_tkomv ).
ENDLOOP.
ENDIF .
endif .
lv_lifnr = l_head-lifnr .
EXPORT lv_lifnr FROM lv_lifnr TO MEMORY ID 'ZLIFNR'.
*-------瓶盖控制-------------
*1.表头为空,行项目不为空，直接退出程序
ENDMETHOD.