Hi all
i use the bapi BAPI_OUTB_DELIVERY_CHANGE for change the transportzone. I have written an example program for demonstration the bapi, but it doens't work. Can anybody help me please...
data ls_header_data type bapiobdlvhdrchg.
data ls_header_control type bapiobdlvhdrctrlchg.
data lf_delivery type vbeln_vl value '071000xxxx'.
data ls_header_partner type bapidlvpartnerchg.
data lt_header_partner type standard table of bapidlvpartnerchg.
data ls_header_partner_addr type bapidlvpartnaddrchg.
data lt_header_partner_addr type standard table of bapidlvpartnaddrchg.
data lt_return type standard table of bapiret2.
data ls_vbpa type vbpa.
data ls_adrc type adrc.
start-of-selection.
select single *
from vbpa
into corresponding fields of ls_vbpa
where vbeln = lf_delivery
and posnr = '000000'
and parvw = 'WE'.
if sy-subrc = 0.
ls_header_data-deliv_numb = lf_delivery.
ls_header_control-deliv_numb = lf_delivery.
ls_header_partner-upd_mode_partn = 'U'.
ls_header_partner-deliv_numb = ls_vbpa-vbeln.
ls_header_partner-itm_number = ls_vbpa-posnr.
ls_header_partner-partn_role = ls_vbpa-parvw.
ls_header_partner-address_no = ls_vbpa-adrnr.
ls_header_partner-partner_no = ls_vbpa-parnr.
* ls_header_partner-manual_addr = 'X'.
append ls_header_partner to lt_header_partner.
select single *
from adrc
into corresponding fields of ls_adrc
where addrnumber = ls_vbpa-adrnr.
if sy-subrc = 0.
ls_header_partner_addr-upd_mode_adr = 'U'.
move-corresponding ls_adrc to ls_header_partner_addr.
ls_header_partner_addr-name = ls_adrc-name1.
ls_header_partner_addr-name_2 = ls_adrc-name2.
ls_header_partner_addr-city = ls_adrc-city1.
ls_header_partner_addr-postl_cod1 = ls_adrc-post_code1.
ls_header_partner_addr-house_no = ls_adrc-house_num1.
ls_header_partner_addr-addr_no = ls_vbpa-adrnr.
ls_header_partner_addr-transpzone = 'GM0270'.
append ls_header_partner_addr to lt_header_partner_addr.
call function 'BAPI_OUTB_DELIVERY_CHANGE'
exporting
header_data = ls_header_data
header_control = ls_header_control
delivery = lf_delivery
tables
header_partner = lt_header_partner
header_partner_addr = lt_header_partner_addr
return = lt_return.
call function 'BAPI_TRANSACTION_COMMIT'.
endif.
endif.
Thx
Bluesky
