修改bp的电话和手机号码

使用 bapi：BAPI_BUPA_ADDRESS_CHANGE 

           其中 bapiadtel_x-updateflag   （I 插入，U 更新，D 删除），bapiadtel_x有几条数据就会处理几条数据，并且 每次只能有一个updateflag类别（不能同时存在I，U）.

 

代码如下：

*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" REFERENCE(IV_PARTNER) TYPE BU_PARTNER
*" REFERENCE(IV_MOB) TYPE AD_TLNMBR OPTIONAL
*" REFERENCE(IV_TEL) TYPE AD_TLNMBR OPTIONAL
*"----------------------------------------------------------------------
DATA: it_return1 LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
it_tel TYPE bapiadtel OCCURS 0 WITH HEADER LINE,
it_tel_o TYPE bapiadtel OCCURS 0 WITH HEADER LINE,
it_tel_x1 TYPE bapiadtelx OCCURS 0 WITH HEADER LINE,
it_tel_x TYPE bapiadtelx OCCURS 0 WITH HEADER LINE.

***********************************************

CALL FUNCTION 'BAPI_BUPA_ADDRESS_GETDETAIL'
EXPORTING
businesspartner = iv_partner
TABLES
bapiadtel = it_tel_o.

IF iv_tel IS NOT INITIAL OR iv_mob IS NOT INITIAL.

LOOP AT it_tel_o.
it_tel_x1-std_no = 'X' .
it_tel_x1-updateflag = 'D'.
APPEND it_tel_x1. CLEAR it_tel_x1.
ENDLOOP.

CALL FUNCTION 'BAPI_BUPA_ADDRESS_CHANGE'
EXPORTING
businesspartner = iv_partner
TABLES
bapiadtel = it_tel_o[]
bapiadtel_x = it_tel_x1[]
return = it_return1.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.

SORT it_tel_o BY r_3_user .
DELETE ADJACENT DUPLICATES FROM it_tel COMPARING r_3_user .

LOOP AT it_tel_o .
it_tel-telephone = it_tel_o-telephone.
it_tel-r_3_user = it_tel_o-r_3_user.
it_tel-std_no = it_tel_o-std_no .
APPEND it_tel. CLEAR it_tel..
ENDLOOP.

IF iv_tel IS NOT INITIAL. "固定电话

DELETE it_tel WHERE r_3_user = '1' .

it_tel-telephone = iv_tel.
it_tel-r_3_user = '1'.
it_tel-std_no = 'X' .
APPEND it_tel. CLEAR it_tel.

ENDIF.

IF iv_mob IS NOT INITIAL. "移动电话

DELETE it_tel WHERE r_3_user = '3' .

it_tel-telephone = iv_mob.
it_tel-r_3_user = '3'.
it_tel-std_no = 'X' .
APPEND it_tel. CLEAR it_tel.

ENDIF.

IF it_tel[] IS NOT INITIAL.
LOOP AT it_tel.
it_tel_x-updateflag = 'I'.
it_tel_x-telephone = 'X'.
it_tel_x-r_3_user = 'X'.
it_tel_x-std_no = 'X' .
APPEND it_tel_x. CLEAR it_tel_x.
ENDLOOP.

CALL FUNCTION 'BAPI_BUPA_ADDRESS_CHANGE'
EXPORTING
businesspartner = iv_partner
TABLES
bapiadtel = it_tel[]
bapiadtel_x = it_tel_x[]
return = it_return1.

LOOP AT it_return1 WHERE type CA 'AEX'.
ENDLOOP.

IF sy-subrc = 0.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
ENDIF.
ENDIF .

ENDIF.