Update Picking Quantity using 'WS_DELIVERY_UPDATE_2' - URGENT

Question

Hi Experts,
I am struck with an error in updating the delivery. I am using an rfc WS_DELIVERY_UPDATE_2 which is updating the picking quantity one for the first time in a delivery with two delivery quantity in a batch but when iam using it for the other one it is not updating the quantity. I think the parameters which iam passing to RFC might be wrong. I am using the rfc as follows:
CALL FUNCTION 'WS_DELIVERY_UPDATE_2'
        EXPORTING
          VBKOK_WA             = WA_VBKOK
          SYNCHRON             = 'X'
          DELIVERY             = DEL_NBR
          UPDATE_PICKING       = 'X'
          COMMIT               = 'X'
          IF_DATABASE_UPDATE_1 = '1'
        TABLES
          VBPOK_TAB            = TAB_VBPOK
          PROT                 = I_PROTT.
Please correct me if anything is wrong in the interface.
Any quick response will be appreciated & rewarded.
Thanks

Answer 1

Hi seshu,
It is triggering an error tht interface is not complete.
so i changed the code:
tables: vbfa.
DATA : WA_VBKOK LIKE VBKOK.
DATA : I_VBPOK LIKE VBPOK OCCURS 0 WITH HEADER LINE.
DATA : I_PROT LIKE PROTT OCCURS 0 WITH HEADER LINE.
clear vbfa.
START-OF-SELECTION.
  WA_VBKOK-VBELN_VL = '0080882358'.
SELECT SINGLE * FROM VBFA WHERE VBELN = WA_VBKOK-VBELN_VL.
IF SY-SUBRC = 0.
  WA_VBKOK-VBELN = VBFA-VBELV.                    " Sales and distribution document
ENDIF.
Fill the item level
  I_VBPOK-VBELN_VL = '0080882358'.
  I_VBPOK-POSNR_VL = '900001'.
  SELECT SINGLE * FROM VBFA WHERE VBELN = I_VBPOK-VBELN_VL AND
                                  POSNN = I_VBPOK-POSNR_VL.
  IF SY-SUBRC = 0.
    I_VBPOK-VBELN = VBFA-VBELV.                   " Sales and distribution document
    I_VBPOK-POSNN = VBFA-POSNV.                   " Item of an SD document
    I_VBPOK-VBTYP_N = VBFA-VBTYP_N.                 " Document category
  ENDIF.
  I_VBPOK-MATNR = '9692A\260'.
  I_VBPOK-CHARG = '0000010669'.
  I_VBPOK-PIKMG = '1.0'.
  APPEND I_VBPOK.
  CALL FUNCTION 'SD_DELIVERY_UPDATE_PICKING'
  EXPORTING
  VBKOK_WA = WA_VBKOK
  SYNCHRON = 'X'
  NO_MESSAGES_UPDATE = SPACE
NICHT_SPERREN = ' '
AUFRUFER_T = ' '
  IF_ERROR_MESSAGES_SEND = 'X'
  TABLES
  VBPOK_TAB = I_VBPOK
  PROT = I_PROT
if sy-subrc = 0.
      COMMIT WORK.
    WRITE:/ 'success'.
  else.
  write:/ 'not success'.
  endif.
It is working fine in updating a delivery with 10 qty for only 8 picking but later when i am using it for the rest i.e., 2 picking qty, it is not working.
Could please  hepl me with this.
Thanks