data: begin of i_vbkok occurs 11.
include structure vbkok.
data: end of i_vbkok.
data: begin of i_vbpok_tab occurs 12.
include structure vbpok.
data: end of i_vbpok_tab.
parameters: p_vbeln type vbeln.
data:g_likp like likp.
data:g_lips like lips.
data gv_14(14) type c.
start-of-selection.
select single * into g_likp from likp
where vbeln = p_vbeln.
i_vbkok-vbeln_vl = p_vbeln. "Delivery number
i_vbkok-wabuc = 'X'. "Automatic PGI
i_vbkok-wadat_ist = g_likp-bldat.
append i_vbkok.
select * into g_lips from lips
where vbeln = p_vbeln.
i_vbpok_tab-vbeln_vl = p_vbeln. "Delivery number
i_vbpok_tab-posnr_vl = g_lips-posnr.
i_vbpok_tab-vbeln = p_vbeln.
i_vbpok_tab-posnn = g_lips-posnr.
i_vbpok_tab-matnr = g_lips-matnr.
gv_14 = g_lips-lfimg.
condense gv_14.
i_vbpok_tab-pikmg = gv_14 .
append i_vbpok_tab.
endselect.
call function 'WS_DELIVERY_UPDATE'
exporting
vbkok_wa = i_vbkok
commit = 'X'
delivery = p_vbeln
update_picking = 'X'
tables
vbpok_tab = i_vbpok_tab
exceptions
error_message = 1
others = 2.
*---仅发货过账:
report.
* Data Define
data: i_vbkok type vbkok.
data: begin of i_vbpok_tab occurs 12.
include structure vbpok.
data: end of i_vbpok_tab.
data: p_vbeln type vbeln value '0080002730'.
*---交货抬头数据
i_vbkok-vbeln_vl = p_vbeln. "Delivery number
i_vbkok-wabuc = 'X'. "Automatic PGI
i_vbkok-wadat_ist = '20110223'.
*---发货过账
call function 'WS_DELIVERY_UPDATE'
exporting
vbkok_wa = i_vbkok
commit = 'X'
delivery = p_vbeln
update_picking = 'X'
exceptions
error_message = 1
others = 2.
if sy-subrc <> 0.
write:/ '发货过账失败!'.
endif.