BAPI to update delivery note

Question

hi all,
Is there any BAPI available with which we can update a delivery note and also if possible do PGI using it.
In case there are separate BAPI's for both the processes that will do for me.
Kindly help
Regards
Varun

Answer 1

Hi Varun,
You can use <b>WS_DELIVERY_UPDATE</b> or <b>WS_DELIVERY_UPDATE_2</b> ..
Following sample code works for Automatic PGI of an existing delivery. Use this as a basis and code for your requirement.
  DATA: ls_vbkok LIKE vbkok,
        lv_error_pgi TYPE xfeld,
        lt_prot LIKE prott OCCURS 0 WITH HEADER LINE,
        lwa_prot like prott.
  ls_vbkok-vbeln_vl = <your Delivery Note number>.
  ls_vbkok-wabuc = c_true.
  CALL FUNCTION 'WS_DELIVERY_UPDATE'
    EXPORTING
      vbkok_wa                           = ls_vbkok
      synchron                           = c_true
*         NO_MESSAGES_UPDATE                 = ' '
      commit                             = c_true
      delivery                           = <your Delivery Note number>
*         UPDATE_PICKING                     = ' '
*         NICHT_SPERREN                      = ' '
*         IF_CONFIRM_CENTRAL                 = ' '
*         IF_WMPP                            = ' '
*         IF_GET_DELIVERY_BUFFERED           = ' '
*         IF_NO_GENERIC_SYSTEM_SERVICE       = ' '
*         IF_DATABASE_UPDATE                 = '1'
*         IF_NO_INIT                         = ' '
*         IF_NO_READ                         = ' '
*         IF_ERROR_MESSAGES_SEND_0           = 'X'
*         IF_NO_BUFFER_REFRESH               = ' '
*         IF_NO_MES_UPD_PACK                 = ' '
*       IMPORTING
*         EF_ERROR_ANY_0                     =
*         EF_ERROR_IN_ITEM_DELETION_0        =
*         EF_ERROR_IN_POD_UPDATE_0           =
*         EF_ERROR_IN_INTERFACE_0            =
     ef_error_in_goods_issue_0          = lv_error_pgi
*         EF_ERROR_IN_FINAL_CHECK_0          =
   TABLES
*         VBPOK_TAB                          =
     prot                               = lt_prot[]
*         VERKO_TAB                          =
*         VERPO_TAB                          =
*         VBSUPCON_TAB                       =
*         IT_VERPO_SERNR                     =
*         IT_PACKING                         =
*         IT_PACKING_SERNR                   =
*         IT_REPACK                          =
*         IT_HANDLING_UNITS                  =
*         ET_CREATED_HUS                     =
  IF NOT lt_prot[] IS INITIAL.
    READ TABLE lt_prot WITH KEY msgty = 'E'.
    IF sy-subrc EQ 0.
****Errors Exist
***      Goods Issue Failed
    ENDIF.
  ELSE.
***    Goods Issue posted sucessfully
  ENDIF.
Hope this helps..
Sri
Message was edited by: Srikanth Pinnamaneni