BADI ME_PROCESS_PO_CUST Method:PROCESS_ITEM

Question

Hi,
I have to update the vendor material field through BADI ME_PROCESS_PO_CUST.
I have created an implementation for this BADI.Can anyone help me find the solution for the same.
Thanks.

Answer 1

DATA: wa_ekko TYPE ekko,
        wa_ekkn TYPE ekkn,
        wa_ekpo TYPE ekpo,
        wa_vbap           TYPE vbap.
  DATA : lt_item TYPE mepoitem.
  IF im_item->is_persistent( ) EQ mmpur_no. "Only check for new items
* Retrieve item data into BADI buffer
*get data
    CALL METHOD im_item->get_data
      RECEIVING
        re_data = lt_item.
    ENDIF.
    SELECT SINGLE * FROM ekko
      INTO wa_ekko
      WHERE reswk NE ''.
    IF sy-subrc EQ 0.
      SELECT SINGLE * FROM ekkn
          INTO wa_ekkn
          WHERE ebeln = wa_ekko-ebeln.
      IF wa_ekkn-vbeln <> ''.
        SELECT SINGLE * FROM ekpo
          INTO wa_ekpo
          WHERE ebeln = wa_ekko-ebeln
          AND   idnlf = ''.
        IF sy-subrc EQ 0.
        SELECT SINGLE * FROM vbap
          INTO wa_vbap
          WHERE vbeln = wa_ekkn-vbeln
          AND   posnr = wa_ekkn-ebelp.
        IF sy-subrc EQ 0.
          lt_item-idnlf = wa_vbap-kdmat.
        ENDIF.
      ENDIF.
    ENDIF.
        ENDIF.
* Update changes
    CALL METHOD im_item->set_data
      EXPORTING
        im_data = lt_item.