Extender una entrega con (FUNC) RV_DELIVERY_CREATE

[pplopez2007]

Tengo una documento de entrega ya generado y ahora necesito suministrar una nueva posición de un pedido de ventas a esta entrega mediante una función. He realizado pruebas con la (FUNC) RV_DELIVERY_CREATE, pero solo he conseguido suministrar TODAS las posiciones del pedido a dicha entrega.

El código que he utilizado es el siguiente:

CALL FUNCTION 'RV_DELIVERY_CREATE'
EXPORTING

selektionsdatum = lv_datum
vbsk_i = ls_vbsk_i
if_synchron = 'X'
is_control = ls_control
is_delivery_extend = ls_delivery_extend

IMPORTING

vbsk_e = ls_vbsk_e

TABLES

lvbak = lt_vbak
lvbkd = lt_vbkd
lvbpa = lt_vbpa
lvbuk = lt_vbuk
lvbup = lt_vbup
lvbfa = lt_vbfa
lvbap = lt_vbap
lvbep = lt_vbep
lvbfs = lt_vbfs
lvbls = lt_vbls.

en la estructura LS_DELIVERY_EXTEND:

ls_delivery_extend-delivery = ls_delivery.

ls_delivery-vbeln = 999999999 "delivery no. doc to extend
ls_delivery-handle = iv_handle. "contains likp-handle

en la estructura LS_CONTROL:

ls_control-sel_item_only = 'X'.

El resto de datos se rellena con la información correspondiente a los documentos utilizados.

Un saludo y gracias por adelantado