Updating or changing the outbound delivery

Question

Hi
we have created a outbound delivery in the system, I want to update some of the detials like route, no of packages using a program. is there any FM or BAPI for that. I have tried using the  BAPI_OUTB_DELIVERY_CHANGE to update the route in the delivery. But somehow it is not updating and the BAPI does not give any error message also.
thanks
sankar

Answer 1

you need a program like this example:
REPORT  ZOUT_DELIVPICK.
tables:VBFA, LIKP, LIPS.
DATA : WA_VBKOK LIKE VBKOK.
parameters vbeln like VBFA-vbeln.
*select-options: posnr for VBFA-POSNv.
DATA : I_VBPOK LIKE VBPOK OCCURS 0 WITH HEADER LINE.
DATA : I_PROT LIKE PROTT OCCURS 0 WITH HEADER LINE.
data:begin of it_items occurs 0,
       posnr  like vbfa-posnv,
       PIKMG  like VBPOK-PIKMG,
     end of it_items.
START-OF-SELECTION.
  it_items-posnr = 000010.
  it_items-PIKMG = '1.000'.
  append it_items.
  it_items-posnr = 000020.
  it_items-PIKMG = '2.000'.
  append it_items.
  it_items-posnr = 000040.
  it_items-PIKMG = '3.000'.
  append it_items.
loop at it_items.
  WA_VBKOK-VBELN_VL = vbeln.
  SELECT SINGLE * FROM LIKP WHERE VBELN = VBELN.
  MOVE-CORRESPONDING LIKP TO WA_VBKOK.
  SELECT SINGLE * FROM VBFA WHERE VBELV = vbeln.
  IF SY-SUBRC = 0.
    WA_VBKOK-VBELN = VBFA-VBELN. " Sales and distribution document
  ENDIF.
Fill the item level
  I_VBPOK-VBELN_VL = vbeln.
  I_VBPOK-POSNR_VL = it_items-posnr.
  SELECT SINGLE * FROM LIPS WHERE VBELN = vbeln AND
    POSNR = I_VBPOK-POSNR_VL.
  SELECT SINGLE * FROM VBFA WHERE VBELV = I_VBPOK-VBELN_VL AND
  POSNV  = I_VBPOK-POSNR_VL.
  I_VBPOK-vbtyp_n = 'Q'.
  I_VBPOK-meins = 'EA'.
  I_VBPOK-VRKME = 'EA'.
  I_VBPOK-taqui = 'X'.
  I_VBPOK-orpos = 0.
  MOVE-CORRESPONDING LIPS TO I_VBPOK.
  IF SY-SUBRC = 0.
    I_VBPOK-VBELN = VBFA-VBELn. " Sales and distribution document
    I_VBPOK-POSNN = VBFA-POSNn. " Item of an SD document
    I_VBPOK-VBTYP_N = VBFA-VBTYP_N. " Document category
  ENDIF.
  I_VBPOK-PIKMG = it_items-PIKMG.
  I_VBPOK-LFIMG = it_items-PIKMG.
  I_VBPOK-LGMNG = it_items-PIKMG.
  APPEND I_VBPOK.
endloop.
  CALL FUNCTION 'SD_DELIVERY_UPDATE_PICKING'
    EXPORTING
      VBKOK_WA               = WA_VBKOK
      SYNCHRON               = 'X'
      NO_MESSAGES_UPDATE     = SPACE
     nicht_sperren          = 'X'
     AUFRUFER_T             = 'X'
      IF_ERROR_MESSAGES_SEND = ' '
    TABLES
      VBPOK_TAB              = I_VBPOK
      PROT                   = I_PROT.
  if sy-subrc = 0.
    COMMIT WORK.
    WRITE:/ 'success'.
  else.
    write:/ 'not success'.
  endif.