ABAP 将PR增强字段传递到PO

ABAP 将PR增强字段传递到PO

IF_EX_ME_PROCESS_PO_CUST~PROCESS_ITEM

METHOD if_ex_me_process_po_cust~process_item.

DATA:ls_mepoitem TYPE mepoitem.
DATA:ls_eban TYPE eban  .

ls_mepoitem = im_item->get_data( ).

IF ls_mepoitem-banfn <> '' AND ls_mepoitem-matnr <> ''. "必须有PR和物料代码
  SELECT COUNT(*) FROM ekpo WHERE ebeln = ls_mepoitem-ebeln AND ebelp = ls_mepoitem-ebelp.
  IF sy-subrc NE 0. "新建PO行时
    SELECT SINGLE * INTO CORRESPONDING FIELDS OF ls_eban FROM eban WHERE banfn = ls_mepoitem-banfn AND bnfpo = ls_mepoitem-bnfpo.
    IF sy-subrc = 0.
      IF ls_eban-zxqlx <> '' OR ls_eban-zprono <> ''.
        ls_mepoitem-zxqlx = ls_eban-zxqlx.
        ls_mepoitem-zprono = ls_eban-zprono.
        im_item->set_data( ls_mepoitem ).
      ENDIF.
    ENDIF.
  ENDIF.
ENDIF.

ENDMETHOD.