REPORT zlm_test_024.
PARAMETERS: vbeln LIKE vbak-vbeln OBLIGATORY MEMORY ID
aun.
DATA: lf_vbeln TYPE
vbeln_vl,
lf_num
TYPE vbnum,
ls_deli
TYPE bapishpdelivnumb,
lt_deli
TYPE TABLE OF bapishpdelivnumb,
lt_order TYPE TABLE OF
bapidlvreftosalesorder,
ls_order TYPE
bapidlvreftosalesorder,
ls_itm
TYPE bapidlvitemcreated,
lt_itm
TYPE TABLE OF bapidlvitemcreated,
ls_ext
TYPE bapiparex,
lt_extin TYPE TABLE OF
bapiparex,
lt_extout TYPE TABLE OF
bapiparex,
ls_ret
TYPE bapiret2,
lt_return TYPE TABLE OF
bapiret2.
TYPES:BEGIN OF ty_vbap,
vbeln
LIKE vbap-vbeln,
posnr
LIKE vbap-posnr,
kwmeng LIKE vbap-kwmeng,
meins
LIKE vbap-meins,
END
OF ty_vbap.
DATA:it_vbap TYPE TABLE OF ty_vbap.
DATA:ws_vbap TYPE ty_vbap.
* SalesOrderItems (here: complete sales order)
SELECT vbeln posnr kwmeng meins INTO TABLE it_vbap
FROM vbap WHERE vbeln = vbeln.
LOOP AT it_vbap INTO ws_vbap.
ls_order-ref_doc
= ws_vbap-vbeln.
ls_order-ref_item =
ws_vbap-posnr.
ls_order-dlv_qty
= ws_vbap-kwmeng.
ls_order-sales_unit = ws_vbap-meins.
APPEND ls_order TO lt_order.
ENDLOOP.
*ls_order-ref_doc = vbeln.
*append ls_order to lt_order.
* ExtensionIn
ls_ext = 'My additional input'.
APPEND ls_ext TO lt_extin.
* Synchronous RFC
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATE_SLS'
* DESTINATION logsys
* EXPORTING
* SHIP_POINT
=
* DUE_DATE
=
* DEBUG_FLG
=
IMPORTING
delivery
= lf_vbeln
num_deliveries
= lf_num
TABLES
sales_order_items
=
lt_order
extension_in
=
lt_extin
deliveries
= lt_deli
created_items
= lt_itm
extension_out
= lt_extout
return
=
lt_return
.
WRITE: / 'Delivery:', lf_vbeln,
/ 'NumDeliveries:', lf_num,
/ 'Deliveries:'.
LOOP AT lt_deli INTO ls_deli.
WRITE ls_deli-deliv_numb.
ENDLOOP.
IF NOT lt_itm[] IS INITIAL.
WRITE: / 'CreatedItems:'.
LOOP AT lt_itm INTO ls_itm.
WRITE: /
ls_itm-ref_doc,
ls_itm-ref_item,
ls_itm-deliv_numb,
ls_itm-deliv_item,
ls_itm-material,
ls_itm-dlv_qty,
ls_itm-sales_unit,
ls_itm-sales_unit_iso.
ENDLOOP.
ENDIF.
IF NOT lt_return[] IS INITIAL.
WRITE: / 'Return:'.
LOOP AT lt_return INTO ls_ret.
WRITE: / ls_ret-type,
ls_ret-id, ls_ret-number,
ls_ret-message,
/.
ENDLOOP.
ENDIF.
IF NOT lt_extout[] IS INITIAL.
WRITE: / 'ExtensionOut:'.
LOOP AT lt_extout INTO ls_ext.
WRITE: / ls_ext.
ENDLOOP.
ENDIF.
* COMMIT WORK
IF NOT lf_vbeln IS INITIAL.
COMMIT WORK.
ENDIF.