WS_DELIVERY_UPDATE

i_vbkok-vbeln_vl = w_sd130-vbeln_vl_prn . "<- Delivery number
i_vbkok-wabuc = 'X'. " <- Automatic PGI
i_vbkok-wadat_ist = w_sd130-wadat_ist .

append i_vbkok.
loop at it_sd130 .
i_vbpok_tab-vbeln_vl = it_sd130-vbeln_vl_prn .
i_vbpok_tab-posnr_vl = it_sd130-posnr_vl_prn .
if it_sd130-posnn_vl_prn >'900000'.
i_vbpok_tab-VBELN_VL = it_sd130-vbeln_vl_prn .
i_vbpok_tab-POSNR_VL = it_sd130-posnn_vl_prn .
i_vbpok_tab-LIPS_DEL = 'X' .
endif .
collect i_vbpok_tab into i_vbpok_tab .
endloop .

call function 'WS_DELIVERY_UPDATE'
exporting
vbkok_wa = i_vbkok
commit = 'X'
delivery = w_sd130-vbeln_vl_prn
update_picking = 'X'
tables
vbpok_tab = i_vbpok_tab
prot = i_prott
exceptions
error_message = 1
others = 2.