Eliminar telefonos del cliente tabla ADR2

[jvctaz23]

Puedes probar utilizando estas.

**** Con esta bapi obtienes los datos actualies del cliente.
vg_kunnr = wa_cliente-kunnr. "Nuemro del cliente
* obtiene datos de dirección
call function 'BAPI_ADDRESSORG_GETDETAIL'
exporting
obj_type = 'KNA1'
obj_id = vg_kunnr
* OBJ_ID_EXT = ' '
context = 1
iv_current_comm_data = 'X'
importing
address_number = vg_addrno
tables
bapiad1vl = tg_ad1vl "Tabla para dirección
bapiadtel = tg_adtel " Tabla de telefonos
bapiadfax = tg_adfax " Tabla de Fax
bapiadsmtp = tg_adsmtp " Tabla de @
return = tg_return.


***** Con esta, se realizan los cambios
Únicamente enviando la tabla a la cual quieres realizar los cambios y y su tabla correspondiente en X.

En este ejemplo modifique la dirección, teléfonos, fax y correo del cliente.

call function 'BAPI_ADDRESSORG_CHANGE'
exporting
obj_type = 'KNA1'
obj_id = vg_kunnr
save_address = 'X'
iv_check_address = 'X'
tables
bapiad1vl = tg_ad1vl
bapiadtel = tg_adtel
bapiadfax = tg_adfax
bapiadsmtp = tg_adsmtp
bapiad1vl_x = tg_ad1vlx
bapiadtel_x = tg_adtelx
bapiadfax_x = tg_adfaxx
bapiadsmt_x = tg_adsmtx
return = tg_return.

Espero les sirva a alguien en un futuro.

Saludos.