Create delivery from a PO

Question

Hi,
I need to create a new Z transaction that creates a delivery from a purchase order.
So far I found two FM's (GN_DELIVERY_CREATE and RV_DELIVERY_CREATE) but they only seem to work with sales orders.
There also BAPI's to change deliveries but none to create deliveries.
Is there a way to automatically create a new delivery from a PO? FM, BAPI, ...
If possible I would like to do in in foreground
Thanks in advance!
Bert

Answer 1

Hi Bert,
Use code similar to the below to create delivery from PO.
  data:lt_request      like bapideliciousrequest
           occurs 0 with header line,
       lt_createditems like bapideliciouscreateditems
           occurs 0 with header line,
       lt_return       like bapiret2
           occurs 0 with header line.
  if px_infile-type = 'PO' . "If Purchase order
    lt_request-document_type      = 'B'.
    lt_request-document_numb      = lv_ebeln.
    lt_request-document_item      = lv_posnr.
  else.                      "If Sales Order
    lt_request-document_type      = 'A'.
    lt_request-document_numb      = lv_vbeln.
    lt_request-document_item      = lv_posnr.
  endif.
  lt_request-material           = lv_matnr.
  lt_request-plant              = lv_werks.
  lt_request-stge_loc           = lv_lgort.
  lt_request-quantity_base__uom = lv_base_uom_qty.
  lt_request-delivery_date      = sy-datum.
  append lt_request.
  call function 'BAPI_DELIVERYPROCESSING_EXEC'
  EXPORTING
    DELIVERY_EXTEND       =
    TECHN_CONTROL         =
    tables
      request               = lt_request
      createditems          = lt_createditems
      return                = lt_return.
  loop at lt_return where type = 'A'
                      or  type = 'E'.
    call function 'BAPI_TRANSACTION_ROLLBACK'.
    exit.
  endloop.
  if sy-subrc <> 0.
Use the BAPI for Commit
    call function 'BAPI_TRANSACTION_COMMIT'
         exporting
              wait = 'H'.
  endif.
Hope this helps.
Thanks,
Ramakrishna