Code: Alles auswählen.
DATA ls_partner TYPE bapidlvpartnerchg.
DATA ls_partner_addr TYPE bapidlvpartnaddrchg.
DATA header_partner TYPE TABLE OF bapidlvpartnerchg.
DATA header_partner_addr TYPE TABLE OF bapidlvpartnaddrchg.
LOOP AT lt_pos_e INTO ls_pos_e.
ls_partner-upd_mode_partn = 'U'. " update partner
ls_partner-deliv_numb = ls_pos_e-deliv_numb.
ls_partner-partn_role = 'WE'.
ls_partner-partner_no = ls_kopfdaten-kunnr.
* ls_partner-address_no = address_number.
ls_partner-manual_addr = 'X'.
ls_partner_addr-upd_mode_adr = 'U'. " create or update address
* ls_partner_addr-addr_no = address_number.
ls_partner_addr-name = ls_warenempfaenger-name1.
ls_partner_addr-name_2 = ls_warenempfaenger-name2.
ls_partner_addr-city = ls_warenempfaenger-ort01.
ls_partner_addr-postl_cod1 = ls_warenempfaenger-pstlz.
ls_partner_addr-street = ls_warenempfaenger-stras.
ls_partner_addr-tel1_numbr = ls_warenempfaenger-telf1.
APPEND ls_partner_addr TO header_partner_addr.
APPEND ls_partner TO header_partner.
DATA ls_header TYPE bapiobdlvhdrchg.
DATA ls_header_control TYPE bapiobdlvhdrctrlchg.
ls_header-deliv_numb = ls_pos_e-deliv_numb.
ls_header_control-deliv_numb = ls_pos_e-deliv_numb.
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
EXPORTING
header_data = ls_header
header_control = ls_header_control
delivery = ls_pos_e-deliv_numb
* TECHN_CONTROL =
* HEADER_DATA_SPL =
* HEADER_CONTROL_SPL =
* SENDER_SYSTEM =
TABLES
header_partner = header_partner
header_partner_addr = header_partner_addr
* HEADER_DEADLINES =
* ITEM_DATA =
* ITEM_CONTROL =
* ITEM_SERIAL_NO =
* SUPPLIER_CONS_DATA =
* EXTENSION1 =
* EXTENSION2 =
return = lt_return
* TOKENREFERENCE =
* ITEM_DATA_SPL =
* COLLECTIVE_CHANGE_ITEMS =
* NEW_ITEM_DATA =
* NEW_ITEM_DATA_SPL =
* NEW_ITEM_ORG =
* ITEM_DATA_DOCU_BATCH =
.
COMMIT WORK.