Sometimes your client needs to add new functionality like add a unique mobile phone number to the BP data. You can do it like that:
- Create new FM
FUNCTION zisu_update_telephone.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" VALUE(I_PARTNER) TYPE BU_PARTNER
*" VALUE(I_TELNR) TYPE AD_TLNMBR
*" VALUE(I_EXTENS) TYPE AD_TLXTNS DEFAULT ' '
*" VALUE(I_TYPE) TYPE AD_FLGMOB DEFAULT '1'
*" VALUE(I_NOCOMMIT) TYPE NOCOMMIT OPTIONAL
*" VALUE(I_WEB) TYPE XFELD DEFAULT ' '
*" EXPORTING
*" VALUE(E_RC) TYPE SUBRC
*"----------------------------------------------------------------------
DATA: lv_title(50) TYPE c.
DATA: lv_return(10) TYPE c.
DATA: lv_flag(2) TYPE c.
DATA: lv_tabix TYPE sy-tabix.
DATA: lt_sval TYPE TABLE OF sval WITH HEADER LINE.
DATA: lv_type_1 TYPE ad_flgmob,
lv_type_2 TYPE ad_flgmob.
DATA: ls_std_address TYPE bapibus1006_address,
lv_update TYPE xfeld.
REFRESH: gt_bapiadtel, gt_bapiadtelx, gt_bapiret2.
CLEAR lv_update.
IF i_type = '2'.
i_type = '3'.
ENDIF.
IF i_type <> '3'.
i_type = '1'.
ENDIF.
IF i_type = '1'.
lv_type_1 = '1'.
lv_type_2 = space.
ELSEIF i_type = '3'.
lv_type_1 = '3'.
lv_type_2 = '2'.
ENDIF.
CALL FUNCTION 'BAPI_BUPA_ADDRESS_GETDETAIL'
EXPORTING
businesspartner = i_partner
IMPORTING
addressdata = ls_std_address
TABLES
bapiadtel = gt_bapiadtel
return = gt_bapiret2.
LOOP AT gt_bapiadtel INTO gv_bapiadtel.
CLEAR gv_bapiadtelx.
APPEND gv_bapiadtelx TO gt_bapiadtelx.
ENDLOOP.
IF i_telnr IS INITIAL AND i_web EQ 'X'. " delete all numbers of this type which we have on this BP - only for self-service
LOOP AT gt_bapiadtel INTO gv_bapiadtel WHERE r_3_user = lv_type_1 OR r_3_user = lv_type_2.
lv_tabix = sy-tabix.
READ TABLE gt_bapiadtelx INTO gv_bapiadtelx INDEX lv_tabix.
gv_bapiadtelx-updateflag = 'D'.
MODIFY gt_bapiadtelx FROM gv_bapiadtelx INDEX lv_tabix.
ENDLOOP.
lv_update = abap_true.
ELSEIF i_telnr IS INITIAL AND i_web IS INITIAL.
lv_update = abap_false.
ELSE.
LOOP AT gt_bapiadtel INTO gv_bapiadtel WHERE r_3_user = lv_type_1 OR r_3_user = lv_type_2.
lv_tabix = sy-tabix.
READ TABLE gt_bapiadtelx INTO gv_bapiadtelx INDEX lv_tabix.
gv_bapiadtelx-updateflag = 'D'.
MODIFY gt_bapiadtelx FROM gv_bapiadtelx INDEX lv_tabix.
ENDLOOP.
CLEAR gv_bapiadtel.
gv_bapiadtel-country = 'DK'.
gv_bapiadtel-countryiso = 'DK'.
gv_bapiadtel-telephone = TELEPHONE NUMBER.
gv_bapiadtel-tel_no(3) = '+45'.
gv_bapiadtel-tel_no+3 = TELEPHONE NUMBER.
gv_bapiadtel-caller_no = TELEPHONE NUMBER.
gv_bapiadtel-extension = i_extens.
gv_bapiadtel-std_no = 'X'.
gv_bapiadtel-home_flag = 'X'.
gv_bapiadtel-r_3_user = lv_type_1.
APPEND gv_bapiadtel TO gt_bapiadtel.
CLEAR gv_bapiadtelx.
gv_bapiadtelx-updateflag = 'I'.
APPEND gv_bapiadtelx TO gt_bapiadtelx.
lv_update = abap_true.
ENDIF.
IF lv_update EQ abap_true.
CALL FUNCTION 'BAPI_BUPA_ADDRESS_CHANGE'
EXPORTING
businesspartner = i_partner
accept_error = 'X'
TABLES
bapiadtel = gt_bapiadtel
bapiadtel_x = gt_bapiadtelx
return = gt_bapiret2.
IF i_nocommit EQ 'X'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
* IMPORTING
* RETURN =
.
ENDIF.
LOOP AT gt_bapiret2 INTO gv_bapiret2 WHERE type = 'E' OR type = 'A'.
EXIT.
ENDLOOP.
IF sy-subrc = 0.
e_rc = 8.
ELSE.
e_rc = 0.
ENDIF.
ENDIF.
ENDFUNCTION.
- and you can test by this:
CALL FUNCTION 'ZISU_UPDATE_TELEPHONE'
EXPORTING
i_partner = 'BP Number'
i_telnr = 'SAMPLE TELEPHONE NUMBER'
i_type = '3'.
i_type:
|
Telephone is Landline Telephone |
1 |
Telephone is Default Under Landline Telephones |
2 |
Telephone is Mobile Telephone but Not Default Mobile Phone |
3 |
Telephone is Default Mobile Telephone |
X |
Obsolete - No Longer Valid |
