Delivery to Subcontracting Vendor in ME2O

Question

Hi All,
I am working on a requirement where the Delivery needs to be created for the Purchase order in ME2O. Can someone help me out in this. I need the BAPI for doing this. It would be difficult to do with BDC. Please help
Thanks
Rashmi

Answer 1

Hi ,
Following is the sample code for creation of inbound delivery Using BAPI 'BAPI_DELIVERYPROCESSING_EXEC'
Which may be helpful.
PARAMETERS: p_vbeln LIKE ekko-ebeln.
DATA: BEGIN OF t_ekpo OCCURS 0,
ebeln LIKE ekpo-ebeln,
posnr LIKE ekpo-posnr,
kwmeng LIKE ekpo-kwmeng,
matnr LIKE ekpo-matnr,
werks LIKE ekpo-werks,
END OF t_ekpo.
DATA: t_request TYPE STANDARD TABLE OF bapideliciousrequest
WITH HEADER LINE.
DATA: t_created TYPE STANDARD TABLE OF bapideliciouscreateditems
WITH HEADER LINE.
DATA: t_return TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.
SELECT ebeln posnr kwmeng matnr werks
INTO TABLE t_ekpo
FROM ekpo
WHERE ebeln = p_vbeln.
LOOP AT t_ekpo.
t_request-document_numb = t_ekpo-vbeln.
t_request-document_item = t_ekpo-posnr.
t_request-quantity_sales_uom = t_ekpo-kwmeng.
t_request-id = 1.
t_request-document_type = 'A'.
t_request-delivery_date = sy-datum.
t_request-material = t_ekpo-matnr.
t_request-plant = t_ekpo-werks.
t_request-date = sy-datum.
t_request-goods_issue_date = sy-datum.
t_request-goods_issue_time = sy-uzeit.
APPEND t_request.
ENDLOOP.
CALL FUNCTION 'BAPI_DELIVERYPROCESSING_EXEC'
TABLES
request = t_request
createditems = t_created
return = t_return
READ TABLE t_return WITH KEY type = 'E'.
IF sy-subrc = 0.
MESSAGE e208(00) WITH 'Delivery creation error'.
ENDIF.
COMMIT WORK.
READ TABLE t_created INDEX 1.
WRITE: / 'Delivery ', t_created-document_numb, ' created'.
Revrt back if any issues,
regards,
Naveen