Re: BAPI for ME21n

Hi Srikanth

    loop at it_group into wa_group.   "Loop for header
        CTR = 10.
        PO_TEXTHEADER-TEXT_ID    = 'F01'.
        CONCATENATE wa_group-ebeln wa_group-ltext

                       INTO PO_TEXTHEADER-TEXT_LINE SEPARATED BY '-'.
        APPEND PO_TEXTHEADER.

        loop at it_datafeed into wa_datafeed where ebeln = wa_group-ebeln.   "Loop for detail
          "Create BAPI Records
                        perform bapi_header_records.     "BAPI data creation
                        perform bapi_detail_records.       "Bap detail record creation
        endloop.
        perform bapi_update.
        refresh: PURITEM, PURITEMX, PO_HEADER, PO_HEADERX, PO_TEXTHEADER.
        CONCATENATE '--- ' '---- ' INTO wa_return-message SEPARATED BY '---'.
        append wa_return to it_return.
    endloop.

form bapi_detail_records.
  CTR2 = CTR.
  CONCATENATE '00' CTR2 INTO CTR1.
  PURITEM-PO_ITEM = CTR1.
  PURITEM-MATERIAL = wa_datafeed-matnr.
  PURITEM-PLANT    = wa_datafeed-werks.
  PURITEM-QUANTITY = wa_datafeed-menge.
  PURITEM-NET_PRICE = wa_datafeed-netpr.
  PURITEM-STGE_LOC = wa_datafeed-lgort.
  APPEND PURITEM.

  PURITEMX-PO_ITEM = CTR1.
  PURITEMX-MATERIAL = 'X'.
  PURITEMX-PLANT = 'X'.
  PURITEMX-QUANTITY = 'X'.
  PURITEMX-NET_PRICE = 'X'.
  PURITEMX-STGE_LOC = 'X'.
  APPEND BPITEMX.

  CTR = CTR + 10.

endform.

Hope this will give you idea

Regards,

Venkat