How to create inbound delivery (for ASN)?

Question

Hi,
I am looking for a Bapi or a FM to create an inbound delivery for Advance shipment notification (ASN). This function module for creating will be called in the user-exit in the invoice posting idoc program. The manual way to create this inbound delivery is by VL31N. Any help and there experience will be appreciated.
Thanks
Ramesh

Answer 1

Hi,
I am calling this FM after creating a PO with BAPI PO_CREATE1 and it works. I also get the delivery number.
Only create if there were no errors with the po
  read table return with key type = 'E' transporting no fields.
  check sy-subrc <> 0 and testrun <> 'X'.
  read table poschedule into ls_schedule index 1.
  ls_del_header-delivery   = lv_del_no.
  call function 'CONVERT_DATE_TO_INTERNAL'
    exporting
      date_external            = ls_schedule-delivery_date
    importing
      date_internal            = ls_del_header-deliv_date
    exceptions
      date_external_is_invalid = 1
      others                   = 2.
  if sy-subrc <> 0.
    clear ls_ret2.
    ls_ret2-message = 'Anlieferung Fehler bei Datumskonvertierung!'.
    append ls_ret2 to return.
  endif.
  ls_del_header-deliv_time = sy-uzeit.
For each position create single delivery
  loop at poitem into ls_po_item.
    clear: ls_del_item.
    ls_del_item-delivery   = lv_del_no.
    ls_del_item-deliv_item = ls_po_item-po_item.
    ls_del_item-deliv_qty = ls_po_item-quantity.
    ls_del_item-unit      = ls_po_item-po_unit.
    ls_del_item-po_number = poheader-po_number.
    ls_del_item-po_item   = ls_po_item-po_item.
    ls_del_item-po_number = LV_EXPPURCHASEORDER.
    insert ls_del_item into table lt_del_items.
  endloop.
  Create delivery
  call function 'BBP_INB_DELIVERY_CREATE'
    exporting
      is_inb_delivery_header = ls_del_header
    importing
      ef_delivery            = ls_likp-vbeln
    tables
      it_inb_delivery_detail = lt_del_items
      return                 = lt_return.
  loop at lt_return into ls_return.
Convert return table to bapiret2
    call function 'BALW_RETURN_TO_RET2'
      exporting
        return_in = ls_return
      importing
        return_ou = ls_ret2.
    append ls_ret2 to return.
  endloop.
  commit work and wait.