create delivery document using bapi_deliveryprocessing_exec

[Former Member]

Can any one send me the sample code to create delivery document using BAPI_DELIVERYPROCESSING_EXEC BAPI.

[Former Member]

Hi Lakshmi,

This BAPI is for SAPs internal use and yet it is not released for the customer use.

And better not to use this.

Refer documentation for more information.

Reward points if it is helpful.

Thanks,

Prasanna

[Former Member]

Hi,

Use the fm: 'SHP_VL10_DELIVERY_CREATE_PARA' for creatting the delivery.

The below code creates the delivery document:

&----

---

*& Report ZSTATUS

*&

&----

---

*&

*&

&----

---

REPORT zstatus.

DATA: t_vbak LIKE vbak OCCURS 0 WITH HEADER LINE.

DATA: t_vbap LIKE vbapvb OCCURS 0 WITH HEADER LINE.

DATA: t_vbep LIKE vbepvb OCCURS 0 WITH HEADER LINE.

DATA: t_vbkd LIKE vbkdvb OCCURS 0 WITH HEADER LINE.

DATA: t_vbpa LIKE vbpavb OCCURS 0 WITH HEADER LINE.

DATA: t_vbuk LIKE vbukvb OCCURS 0 WITH HEADER LINE.

DATA: t_vbup LIKE vbupvb OCCURS 0 WITH HEADER LINE.

DATA: t_vbfa LIKE vbfavb OCCURS 0 WITH HEADER LINE.

DATA: c_vbfa LIKE vbfavb OCCURS 0 WITH HEADER LINE.

DATA: ls_sd_keys TYPE sales_key.

DATA : key TYPE shp_sales_key_t,

sd_order TYPE shp_vl10_sd_order.

p_vbeln(sales doc no) = '5000006100'.

AT END OF vbeln.

REFRESH: t_vbak, t_vbap,

t_vbep, t_vbkd,

t_vbpa, t_vbuk,

t_vbup.

CLEAR : t_vbak, t_vbap,

t_vbep, t_vbkd,

t_vbpa, t_vbuk,

t_vbup.

REFRESH: key.

ls_sd_keys-vbeln = p_vbeln.

APPEND ls_sd_keys TO key.

CLEAR:ls_sd_keys.

CLEAR: sd_order.

CALL FUNCTION 'SHP_GET_SD_DATA'

EXPORTING

it_vbak_key = key

CHANGING

cx_sd_order = sd_order.

APPEND LINES OF sd_order-vbak TO t_vbak.

APPEND LINES OF sd_order-vbap TO t_vbap.

APPEND LINES OF sd_order-vbep TO t_vbep.

APPEND LINES OF sd_order-vbuk TO t_vbuk.

APPEND LINES OF sd_order-vbup TO t_vbup.

APPEND LINES OF sd_order-vbkd TO t_vbkd.

APPEND LINES OF sd_order-vbpa TO t_vbpa.

APPEND LINES OF sd_order-vbfa TO c_vbfa.

LOOP AT c_vbfa WHERE vbtyp_n = 'J'.

MOVE c_vbfa TO t_vbfa.

APPEND t_vbfa.

CLEAR t_vbfa.

ENDLOOP.

CLEAR: sd_order.

CLEAR: key.

CALL FUNCTION 'SHP_VL10_DELIVERY_CREATE_PARA'

EXPORTING

if_ledat = sy-datum

if_nur_vorgabe_pos = ' '

TABLES

it_vbak = t_vbak

it_vbap = t_vbap

it_vbep = t_vbep

it_vbuk = t_vbuk

it_vbup = t_vbup

it_vbkd = t_vbkd

it_vbpa = t_vbpa

• it_vbfa = t_vbfa

EXCEPTIONS

system_failure = 1

communication_failure = 2

RESOURCE_FAILURE = 3

OTHERS = 4.

IF sy-subrc = 0.

• WRITE:/ 'delivery completed'.

ENDIF.

ENDAT.

If it is helpful rewards points.

Regards

Pratap.M