DELIVERY

REPORT ZCREATE_DN.
DATA:DELIVERY TYPE BAPISHPDELIVNUMB-DELIV_NUMB,
NUM_DELIVERIES TYPE BAPIDLVCREATEHEADER-NUM_DELIVERIES,
SALES_ORDER_ITEMS LIKE BAPIDLVREFTOSALESORDER OCCURS 0 WITH HEADER LINE,
RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE .

START-OF-SELECTION.
SALES_ORDER_ITEMS-REF_DOC = '0000002008'. "SO NO.
SALES_ORDER_ITEMS-REF_ITEM = '000010'. "ITEM NO.
SALES_ORDER_ITEMS-DLV_QTY = 1.
SALES_ORDER_ITEMS-SALES_UNIT = 'EA'.
APPEND SALES_ORDER_ITEMS.
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATE_SLS'
* EXPORTING
* SHIP_POINT =
* DUE_DATE =
* DEBUG_FLG =
IMPORTING
DELIVERY = DELIVERY
NUM_DELIVERIES = NUM_DELIVERIES
TABLES
SALES_ORDER_ITEMS = SALES_ORDER_ITEMS
* SERIAL_NUMBERS =
* EXTENSION_IN =
* DELIVERIES =
* CREATED_ITEMS =
* EXTENSION_OUT =
RETURN = RETURN
.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
* IMPORTING
* RETURN =
.


88****************************************
ITAB_DOCUMENTS-DOC_CAT = '2'. "PO/STO
ITAB_DOCUMENTS-DOC_NBR = '0000002008'. "PO/STO Number
ITAB_DOCUMENTS-DOC_POS = "000010'. "PO/STO Line Item
ITAB_DOCUMENTS-DEL_QUANT = 100. "Qty from
ITAB_DOCUMENTS-DEL_UNIT = 'EA'. "UoM from
APPEND ITAB_DOCUMENTS.

*-Call the function to create deliveries
CALL FUNCTION 'W_FRM_DELIVERY_CREATE_GENERAL'
EXPORTING
I_INTERNAL_COMMIT = 'X'
I_NO_LOCK_DOCS = 'X'
I_INIT_UNIT_CONV = 'X'
TABLES
T_DOCUMENTS = ITAB_DOCUMENTS
T_MESSAGELOG = ITAB_MESSAGELOG .