Create delivery document using bapi_deliveryprocessing_exec

Question

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

Answer 1

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