Vendor address change

Question

Hi All,
I want change the vendor address using bapi_addressorg_change.
Please give me the example.
regards,
rakesh.

Answer 1

Change, delete and add a telephone number
DATA: objtype LIKE bapi4001_1-objtype,
obj_id LIKE bapi4001_1-objkey,
obj_id_ext LIKE bapi4001_1-extension,
context LIKE bapi4001_1-context,
address_number LIKE adrc-addrnumber,
bapiadtel LIKE bapiadtel OCCURS 0 WITH HEADER LINE,
bapiadtel_x LIKE bapiadtelx OCCURS 0 WITH HEADER LINE,
return LIKE bapiret2 OCCURS 0.
Assign the following object type and object key to a main customer
address
objtype = 'KNA1'.
obj_id = <customer number>.
obj_id_ext = ' '.
context = '0001'.
Get existing data by calling, e.g. FM 'BAPI_ADDRESSORG_GETDETAIL'
Enter the reference structure data
The telephone number with serial number '002' is to be deleted and
the one with serial number '003' updated
CLEAR: bapiadtel, bapiadtel_x.
bapiadtel-consnumber = '002'.
bapiadtel_x-updateflag = 'D'.
APPEND: bapiadtel, bapiadtel_x. "Delete entry
CLEAR: bapiadtel, bapiadtel_x.
bapiadtel-consnumber = '003'.
bapiadtel-extension = '77733'.
bapiadtel_x-extension = 'X'.
bapiadtel_x-updateflag = 'U'
APPEND: bapiadtel, bapiadtel_x. "Update entry
CLEAR: bapiadtel, bapiadtel_x.
bapiadtel-telephone = '06227'.
bapiadtel-extension = '11111'.
bapiadtel_x-updateflag = 'I'.
APPEND: bapiadtel, bapiadtel_x. "Insert new entry
call change module
CALL FUNCTION 'BAPI_ADDRESSORG_CHANGE'
EXPORTING
obj_type = objtype
obj_id = obj_id
obj_id_ext = obj_id_ext
context = context
IMPORTING
address_number = address_number
TABLES
bapiadtel = bapiadtel
bapiadtel_x = bapiadtel_x
return = return.
Errors and warnings are in the RETURN table. If successful, the
organization address and its communication data are now updated
in the system.
The adress number is in the ADDRESS_NUMBER field.
Notes
To delete, e.g. a telephone number in the table of existing telephone
numbers for an address, the 'UPDATEFLAG' field in the associated reference structure line must contain 'D'.
To create an entry, this field must contain 'I' and the data to be inserted must be passed.
All new lines to be inserted (I) and their reference structures must be after all entries to be changed (U) and deleted (D).
Change data key fields must always be filled, and are taken intoaccount as far as possible. It is not significant whether, e.g. alltelephone number comments are followed by fax number comments as changedata, or vice versa; only the sequence among entries with the same key
is significant, unless you pass only some or no communication address or comment serial numbers, in which case the data sequence issignificant .
The key fields are: