URGENT- Update for picking confirmation & PGI

Question

Hi Experts,
Is there any FM/BAPI to update delivery for both the picking confirmation & PGI.
I am trying to use WS_UPDATE_DELIVERY_2 but it is triggerring me an error at delivery positions.
If it is the correct FM used then plz forward me the parameters for the req.
Thank you,
Sangeetha

Answer 1

Check with below logic :
if flag = 'X'.  Assume that flag = X means - PGI else  delivery update.
Use FM  -  WS_DELIVERY_UPDATE
else.
Use FM : SD_DELIVERY_UPDATE_PICKING
endif.
Check the below code for ref PGI ..
REPORT ZWM_OVERWEIGHT_FIX  no standard page heading
                           message-id zwm.
======================================================================
Program Name : ZWM_OVERWEIGHT_FIX                                    *
Description  : Tool to fix Overweight in delivery line item,         *
               Used All Function module to cancel invoice ,          *
               Reverse the goods issue  ,Update Delivery qty,Create  *
               invoice                                               *
Author       : Seshu                                                 *
Date         : 05/08/2007                                            *
MODIFICATION HISTORY                                                 *
DATE    | AUTHOR   | CHANGE #   | DESCRIPTION OF MODIFICATION        *
--|||--
05/08/07| Seshu    | DEVK921979 | Initial                            *
D A T A - D E C L A R A T I O N     *******************
Tables
Tables : vbak,
         vbap,
         vbfa,
         likp,
         lips,
         vbrk,
         vbrp.
Internal Tables
data : i_lips like lips occurs 0 with header line,
       i_vbap like vbap occurs 0 with header line.
Variables
data : v_deliv like vbfa-vbelv,
       v_invoic like vbfa-vbelv.
Data Declaration Part for Post Goods Issue
DATA: l_vbeln LIKE likp-vbeln,
      l_vbkok LIKE vbkok,
      i_prot LIKE prott OCCURS 0 WITH HEADER LINE,
      ef_error_any_0 TYPE c,
      ef_error_in_item_deletion_0 TYPE c,
      ef_error_in_pod_update_0 TYPE c,
      ef_error_in_interface_0 TYPE c,
      ef_error_in_goods_issue_0 TYPE c,
      ef_error_in_final_check_0 TYPE c,
      d_return   LIKE bapireturn1.
Internal tables for BAPI Function Module
data : i_cret like BAPIRETURN1 occurs 0 with header line,
       i_csucess like BAPIVBRKSUCcESS occurs 0 with header line,
       i_ret2 like bapiret2 ,
       flag type c,
       i_mesg like mesg occurs 0 with header line.
Data Declaration for Invoice Creation
DATA: VBSK_I     LIKE  VBSK.
data: d_success  type  c.
DATA: XKOMFK LIKE      KOMFK   OCCURS 0 WITH HEADER LINE,
      XKOMV  LIKE      KOMV    OCCURS 0 WITH HEADER LINE,
      XTHEAD LIKE      THEADVB OCCURS 0 WITH HEADER LINE,
      XVBFS  LIKE      VBFS    OCCURS 0 WITH HEADER LINE,
      XVBPA  LIKE      VBPAVB  OCCURS 0 WITH HEADER LINE,
      XVBRK  LIKE      VBRKVB  OCCURS 0 WITH HEADER LINE,
      XVBRP  LIKE      VBRPVB  OCCURS 0 WITH HEADER LINE,
      XVBSS  LIKE      VBSS    OCCURS 0 WITH HEADER LINE,
      XKOMFKGN LIKE    KOMFKGN OCCURS 0 WITH HEADER LINE.
S E L E C T I O N  -  S C R E E N   ******************
Selection-screen
Selection-screen : begin of block blk with frame title text-001.
parameters : p_vbeln like vbak-vbeln obligatory.
selection-screen : end of block blk.
A T -  S E L E C T I O N  - S C R E E N ***************
Validation on Sales order
at selection-screen on p_vbeln.
Check the data on VBAK Table
  select single vbeln from vbak into vbak-vbeln
                            where vbeln = p_vbeln.
  if sy-subrc ne 0.
    message e006 with p_vbeln.
  endif.
S T A R T  - O F - S E L E C T I O N *******************
Start-of-selection.
  break sreddy.
Get the Invoice Number corresponding Sales Order Number
  perform get_invoice.
Step 1.
Cancel the Invoice  - Transaction VF11
  perform cancel_invoice.
Reverse the goods issue
  perform reverse_goodsissue.
Get the Order and Delivery Items
  perform get_sales_deliv.
Delivery Change
  perform Delivery_change.
Create Invoice document
  perform invoice_create.
E N D  -  O F -  S E L E C T I O N  *******************
end-of-selection.
if flag = 'X'.
message i012 with p_vbeln.
endif.
*&      Form  get_invoice
      Get Invoice Number
FORM get_invoice.
Clear Variables
  clear : v_deliv,
          v_invoic,
          flag.
Get the Delivery Number First
  select single vbeln from vbfa into v_deliv
                           where vbelv = p_vbeln
                           and   vbtyp_n = 'J'.
  if sy-subrc ne 0.
    message i004 with p_vbeln.
    stop.
  endif.
Get the Invoice Number
  select single vbeln from vbfa into v_invoic
                           where vbelv = p_vbeln
                           and   vbtyp_n = 'M'.
  if sy-subrc ne 0.
    message i003 with p_vbeln.
    stop.
  endif.
ENDFORM.                    " get_invoice
*&      Form  cancel_invoice
      Cancel the Invoice
FORM cancel_invoice.
  clear : i_ret2,
          i_cret,
          i_csucess.
  refresh : i_cret,
            i_csucess.
  CALL FUNCTION 'BAPI_BILLINGDOC_CANCEL1'
    EXPORTING
      BILLINGDOCUMENT       = v_invoic
  TESTRUN               =
  NO_COMMIT             =
  BILLINGDATE           =
    TABLES
      RETURN                = i_cret
      SUCCESS               = i_csucess
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
       EXPORTING
            WAIT   = space
       IMPORTING
            RETURN = i_ret2.
read table i_cret with key type = 'E'.
  if sy-subrc ne 0.
    message i005 with v_invoic.
    stop.
  endif.
ENDFORM.                    " cancel_invoice
*&      Form  reverse_goodsissue
      Reverse the goods Issue
FORM reverse_goodsissue.
Local Variable
  data : lv_vbtyp like likp-vbtyp.
  clear : i_mesg,
          lv_vbtyp.
  refresh : i_mesg.
  select single vbtyp from likp into lv_vbtyp
                           where vbeln = v_deliv.
  CALL FUNCTION 'WS_REVERSE_GOODS_ISSUE'
    EXPORTING
      I_VBELN                         = v_deliv
      I_BUDAT                         = sy-datum
    I_COUNT                         =
    I_MBLNR                         =
    I_TCODE                         =
      I_VBTYP                         = lv_vbtyp
    TABLES
      T_MESG                          = i_mesg
   EXCEPTIONS
     ERROR_REVERSE_GOODS_ISSUE       = 1
     OTHERS                          = 2
  if sy-subrc ne 0.
    message i007 with v_deliv.
  endif.
ENDFORM.                    " reverse_goodsissue
*&      Form  get_sales_deliv
      Get the Sales order and Deliv Items
FORM get_sales_deliv.
Local Variables
  data : lv_kwmeng like vbap-kwmeng.
  clear : i_lips,
          i_vbap.
  refresh : i_lips,
            i_vbap.
Select the data from LIPS
  select * from lips into table i_lips
                     where vbeln = v_deliv.
  if sy-subrc ne 0.
    message i008 with v_deliv.
    stop.
  endif.
  sort i_lips by vbeln posnr.
  Get the Sales order Item Data.
  select * from vbap into table i_vbap
                          where vbeln = p_vbeln.
  if sy-subrc ne 0.
    message i006 with p_vbeln.
    stop.
  endif.
  sort i_vbap by vbeln posnr.
Compare delivery Item and Order Items
  loop at i_lips.
    clear lv_kwmeng.
    read table i_vbap with key posnr = i_lips-posnr.
    if sy-subrc eq 0.
      lv_kwmeng = i_vbap-kwmeng * 2.
      if lv_kwmeng >= i_lips-lfimg.
        i_lips-lfimg = i_vbap-kwmeng.
        modify i_lips.
      endif.
    endif.
  endloop.
ENDFORM.                    " get_sales_deliv
*&      Form  Delivery_change
      Delivery Update
FORM Delivery_change.
  Clear : i_prot.
  refresh : i_prot.
Delivery Update
  CALL FUNCTION 'LE_MOB_DELIVERY_UPDATE'
       EXPORTING
            do_commit                = 'X'
       TABLES
            t_delivery_items         = i_lips
            prot                     = i_prot
       EXCEPTIONS
            conversion_overflow      = 1
            essential_data_missing   = 2
            error                    = 3
            nothing_to_update        = 4
            lock_after_update_failed = 5
            error_in_delivery_update = 6
            OTHERS                   = 7.
  COMMIT WORK.
  IF sy-subrc <> 0.
    MESSAGE i009 with v_deliv.
  endif.
Post Goods Issue
  CLEAR:    d_return,
            i_prot,
            l_vbeln,
            l_vbkok.
  REFRESH i_prot.
  CLEAR:  ef_error_in_item_deletion_0    ,
          ef_error_in_pod_update_0       ,
          ef_error_in_interface_0        ,
          ef_error_in_goods_issue_0      ,
          ef_error_in_final_check_0      .
carry out goods issue
  l_vbeln          = v_deliv.
  l_vbkok-vbeln_vl = l_vbeln.
  l_vbkok-wabuc    = 'X'.
carry out goods issue
  l_vbeln          = v_deliv.
  l_vbkok-vbeln_vl = l_vbeln.
  l_vbkok-wabuc    = 'X'.
SET UPDATE TASK LOCAL.
  CALL FUNCTION 'WS_DELIVERY_UPDATE'
       EXPORTING
            vbkok_wa                    = l_vbkok
            synchron                    = 'X'
            no_messages_update          = ' '
            update_picking              = 'X'
            commit                      = 'X'
            delivery                    = l_vbeln
            nicht_sperren               = 'X'
            if_error_messages_send_0    = space
       IMPORTING
            ef_error_any_0              = ef_error_any_0
            ef_error_in_item_deletion_0 = ef_error_in_item_deletion_0
            ef_error_in_pod_update_0    = ef_error_in_pod_update_0
            ef_error_in_interface_0     = ef_error_in_interface_0
            ef_error_in_goods_issue_0   = ef_error_in_goods_issue_0
            ef_error_in_final_check_0   = ef_error_in_final_check_0
       TABLES
            prot                        = i_prot
       EXCEPTIONS
            error_message               = 1
            OTHERS                      = 2.
  if sy-subrc ne 0.
    message i010 with v_deliv.
  else.
    COMMIT WORK .
  endif.
ENDFORM.                    " Delivery_change
*&      Form  invoice_create
      Invoice Creation
FORM invoice_create.
  refresh: XKOMFK, XKOMV,
           XTHEAD, XVBFS,
           XVBPA,  XVBRK,
           XVBRP,  XVBSS.
  clear  : XKOMFK, XKOMV,
           XTHEAD, XVBFS,
           XVBPA,  XVBRK,
           XVBRP,  XVBSS,
           VBSK_I.
  VBSK_I-SMART = 'F'.
  XKOMFK-VBELN =  v_deliv.
  XKOMFK-VBTYP = 'J'.
  APPEND XKOMFK.
  CALL FUNCTION 'RV_INVOICE_CREATE'
       EXPORTING
            VBSK_I       = VBSK_I
            WITH_POSTING = 'C'
       TABLES
            XKOMFK       = XKOMFK
            XKOMV        = XKOMV
            XTHEAD       = XTHEAD
            XVBFS        = XVBFS
            XVBPA        = XVBPA
            XVBRK        = XVBRK
            XVBRP        = XVBRP
            XVBSS        = XVBSS.
  if sy-subrc eq 0.
    COMMIT WORK.
   flag = 'X'.
  else.
  message i011 with p_vbeln.
  endif.
ENDFORM.                    " invoice_create
Thanks
Seshu